Help on selection

[Rick_Ismael]

Hi all,

 

I want to select entities using (ssget ":L"). Selection sets consist of multiple lines and a block. Using selection via crossing, how can I select all the lines and get the insertion point of the block in the selection without putting the block in the selection set. Thank you.

[pBe]

you can either:

Two prompts for selection..

 

 
(ssget ":L" '((0 . "LINE")))
(ssget ":S:E:L" '((0 . "INSERT")))

 

 

or

 

All in one go:

 
(defun c:test (/ ss i ent inspt)
  (setq ss (ssget ":L" '((0 . "INSERT,LINE"))))
   (repeat (setq i (sslength ss))
    (setq ent (entget (ssname ss (setq i (1- i)))))
     (if (eq (cdr (assoc 0 ent)) "INSERT")
      (setq inspt (cdr (assoc 10 ent))
                 ss (ssdel (ssname ss i) ss))
      (princ "\nFunctions for lines: ")
     )
   )
  (print inspt)
(sssetfirst nil ss)
  (princ)
 )

[Rick_Ismael]

Thanks pBe, it works. this is the one that I want to achieve.

 

 

All in one go:

 
(defun c:test (/ ss i ent inspt)
  (setq ss (ssget ":L" '((0 . "INSERT,LINE"))))
   (repeat (setq i (sslength ss))
    (setq ent (entget (ssname ss (setq i (1- i)))))
     (if (eq (cdr (assoc 0 ent)) "INSERT")
      (setq inspt (cdr (assoc 10 ent))
                 ss (ssdel (ssname ss i) ss))
      (princ "\nFunctions for lines: ")
     )
   )
  (print inspt)
(sssetfirst nil ss)
  (princ)
 )

[pBe]

Thanks pBe, it works. this is the one that I want to achieve.

 

Great. Good for you

 

Cheers