selection......

[caduser]

(setq selbj(ssget '((-4 . "<OR")(0 . "circle")(0 . "Insert")(-4 . "OR>")))) (setq obj:qty(sslength selbj)) (repeat obj:qty (setq obj:ent(ssname selbj i))

how to separated the "circle" and "insert block"
(setq circle1( "what to do")) base on user select object (setq insert1( "what to do")) base on user select object

 

[gert]

make 2 selection sets. one with circles, one with inserts

mfg
gert

 

[Michel]

(setq typbj (cdr (assoc 0 (entget obj:ent))))
(if (= typbj "CIRCLE")
............
(if (= typbj "INSERT")
...........

caduser a écrit :

 

[caduser]

how look like?

make 2 selection sets. one with circles, one with inserts

mfg
gert

 

[caduser]

how to find contents each of block or circle..
i try to get it but still confius...

(setq typbj (cdr (assoc 0 (entget obj:ent))))
(if (= typbj "CIRCLE")
...........
(if (= typbj "INSERT")
..........

caduser a écrit :