Looking for lisp routine to select objects inside polyline

[vlad_tzok133583]

Buna ziua
As dori si eu sa ma ajutati daca se poate cu un program in Autolisp pentru ca sunt incepator si imi trebuie pentru proiect.Problema ii urmatoarea:
Sa se selecteze entitatile polilinie si sa se marcheze capetele cu patrate de latura date de utilizator




Multumesc frumos

[BeKirra]

Buna ziua
As dori si eu sa ma ajutati daca se poate cu un program in Autolisp pentru ca sunt incepator si imi trebuie pentru proiect.Problema ii urmatoarea:
Sa se selecteze entitatile polilinie si sa se marcheze capetele cu patrate de latura date de utilizator




Multumesc frumos

嗨！朋友，您能写中文吗？
It is a joke.
Could you please write it in English?
Sorry, I do not understand your question.

[vlad_tzok133583]

Good Day
I would like myself if you can help me with a program in AutoLISP for being a beginner and I need to proiect.Problema them the following:
Polyline to select entities and squares to mark the ends of data the user side

[David Harrington]

Good Day
I would like myself if you can help me with a program in AutoLISP for being a beginner and I need to proiect.Problema them the following:
Polyline to select entities and squares to mark the ends of data the user side

So you want a program that selects objects surrounded by a polyline and then put squares (polylines?) at the points where the objects are found?

[vlad_tzok133583]

program that selects a polyline entities and heads to mark the squares on the user side

[vlad_tzok133583]

So you want a program that selects objects surrounded by a polyline and then put squares (polylines?) at the points where the objects are found?

is ok and as you say

[rkmcswain]

Note that I have changed the original title of this thread (Help me) to something more descriptive.

[BlackBox]

So you want a program that selects objects surrounded by a polyline and then put squares (polylines?) at the points where the objects are found?

program that selects a polyline entities and heads to mark the squares on the user side

is ok and as you say

What is the purpose of selecting the entities within the polyline boundary, if you're intent is to 'mark' the endpoints of said boundary (or vise versa for that matter)?

Are these 'marks' intended to be a graphical display of the vertexes of the boundary (i.e., to be removed upon the routine's completion), or are they to remain in the drawing (i.e, separate entities at each vertex)?

More information is needed.

Note that I have changed the original title of this thread (Help me) to something more descriptive.

Hilarious.

[irneb]

Quick one ... well, if the heading is correct:

(vl-load-com)

;; Select window poly
(defun c:SelWP (/)
  (SelPoly "_WP")
  (princ)
)

;; Select crossing poly
(defun c:SelCP (/)
  (SelPoly "_CP")
  (princ)
)

;; Select objects inside a polyline
(defun SelPoly (WC / pSS ss ss1 n m en)
  (if (and
        (progn
          (prompt "\nSelect polylines to form WPoly borders: ")
          (setq pSS (ssget '((0 . "LWPOLYLINE"))))
        )
        (setq n (sslength pSS))
        (setq ss (ssadd))
      )
    (while (> (setq n (1- n)) -1)
      (if (and
            (setq ss1 (ssget WC (mapcar 'cdr (vl-remove-if-not '(lambda (item) (= (car item) 10)) (entget (ssname pSS n))))))
            (setq m (sslength ss1))
          )
        (while (> (setq m (1- m)) -1)
          (setq en (ssname ss1 m))
          (if (not (ssmemb en pSS)) (ssadd en ss))
        )
      )
      (setq ss1 nil)
      (gc)
    )
  )
  (if (and ss (> (sslength ss) 0))
    (sssetfirst nil ss)
  )
)

[peter]

Here is another way to select objects inside a polyline (the polyline and all of the objects inside must be onscreen)

It uses the vlax-curve functions.

It also assumes straight line edges, curves can be accomodated by increasing the number of points along the edge (not shown)

I have other methods that are not as fast but can do this off screen.

Peter

(defun C:Poly (/
               entSelection   
               sngParam
               lstPoints
               lstSelection
               objSelection
              )
 (if  (and (setq lstSelection (entsel "\nSelect Polyline: "))
           (setq entSelection (car lstSelection))
           (setq objSelection (vlax-ename->vla-object entSelection))
           (wcmatch (vla-get-objectname objSelection) "AcDbPolyline,AcDb2dPolyline")
           (= (vla-get-closed objSelection) :vlax-true)
      )
  (progn
   (repeat (fix (+ 0.1 (setq sngParam (vlax-curve-getendparam objSelection))))
    (setq lstPoints (cons (vlax-curve-getpointatparam objSelection sngParam) lstPoints)
          sngParam  (1- sngParam)
    )
   )
   (ssget "_WP" lstPoints)
  )
  (alert "Error: ")    
 )
)
(vl-load-com)