Insert a point at each vertex of selected polys

[LEIGH]

Legend!

Thanks very much. Does this work muiltply, i.e select all circles, rather than select one at a time?

Thanks so much.

 

Just checked it all - works fantastic. Great. Thanks so much.

[Tharwat]

Just checked it all - works fantastic. Great. Thanks so much.

 

You're welcome LEIGH .

 

Tharwat

[Lee Mac]

Alternatively, this program will retain the circle properties (layer/lineweight/linetype etc.) and also account for circles which lie in a plane other than the WCS plane (since Points are defined relative to the WCS and the center of a Circle entity is defined relative to the OCS of the Circle).

 

Code is more verbose than necessary since I avoided the use of Visual LISP.

([color=BLUE]defun[/color] c:Cir2Pt ( [color=BLUE]/[/color] el en i ss )
 ([color=BLUE]if[/color] ([color=BLUE]setq[/color] i -1 ss ([color=BLUE]ssget[/color] [color=MAROON]"_:L"[/color] '((0 . [color=MAROON]"CIRCLE"[/color]))))
   ([color=BLUE]while[/color] ([color=BLUE]setq[/color] en ([color=BLUE]ssname[/color] ss ([color=BLUE]setq[/color] i ([color=BLUE]1+[/color] i)))) 
     ([color=BLUE]if[/color]
       ([color=BLUE]entmakex[/color]
         ([color=BLUE]apply[/color] '[color=BLUE]append[/color]
           ([color=BLUE]subst[/color] [color=BLUE]nil[/color] ([color=BLUE]list[/color] ([color=BLUE]assoc[/color] 40 ([color=BLUE]setq[/color] el ([color=BLUE]entget[/color] en))))
             ([color=BLUE]mapcar[/color] '[color=BLUE]list[/color]
               ([color=BLUE]subst[/color]
                 ([color=BLUE]cons[/color]  10 ([color=BLUE]trans[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 10 el)) en 0))
                 ([color=BLUE]assoc[/color] 10 el)
                 ([color=BLUE]subst[/color] '(0 . [color=MAROON]"POINT"[/color]) '(0 . [color=MAROON]"CIRCLE"[/color]) el)
               )
             )
           )
         )
       )
       ([color=BLUE]entdel[/color] en)
     )
   )
 )
 ([color=BLUE]princ[/color])
)
           

[joseffranzis]

Hi,

 

This LISP is amazing to create circles on all vertices without duplicates.

Can you please suggest some modifications to insert point instead of circles and auto numbering them..

 

Thanks in advance.

[alanjt]

Hi,

 

This LISP is amazing to create circles on all vertices without duplicates.

Can you please suggest some modifications to insert point instead of circles and auto numbering them..

 

Thanks in advance.

 

http://www.cadtutor.net/forum/showthread.php?46891-Insert-a-point-at-each-vertex-of-selected-polys&p=318150&viewfull=1#post318150