[编程交流] LISP统计镜像块。

([color=BLUE]defun[/color] c:countmir ( [color=BLUE]/[/color] i l n s x )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] s ([color=BLUE]ssget[/color] [color=MAROON]"_X"[/color] '((0 . [color=MAROON]"INSERT"[/color]) (-4 . [color=MAROON]"<"[/color]) (41 . 0.0) (-4 . [color=MAROON]">"[/color]) (42 . 0.0))))
       ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] i ([color=BLUE]sslength[/color] s))
           ([color=BLUE]if[/color] ([color=BLUE]setq[/color] x ([color=BLUE]assoc[/color] ([color=BLUE]setq[/color] n (LM:blockname ([color=BLUE]vlax-ename->vla-object[/color] ([color=BLUE]ssname[/color] s ([color=BLUE]setq[/color] i ([color=BLUE]1-[/color] i)))))) l))
               ([color=BLUE]setq[/color] l ([color=BLUE]subst[/color] ([color=BLUE]cons[/color] n ([color=BLUE]1+[/color] ([color=BLUE]cdr[/color] x))) x l))
               ([color=BLUE]setq[/color] l ([color=BLUE]cons[/color]  ([color=BLUE]cons[/color] n 1) l))
           )
       )
   )
   ([color=BLUE]foreach[/color] x l ([color=BLUE]princ[/color] ([color=BLUE]strcat[/color] [color=MAROON]"\n"[/color] ([color=BLUE]car[/color] x) [color=MAROON]"\t"[/color] ([color=BLUE]itoa[/color] ([color=BLUE]cdr[/color] x)))))
   ([color=BLUE]princ[/color])
)
[color=GREEN];; Block Name  -  Lee Mac[/color]
[color=GREEN];; Returns the true (effective) name of a supplied block reference[/color]
                       
([color=BLUE]defun[/color] LM:blockname ( obj )
   ([color=BLUE]if[/color] ([color=BLUE]vlax-property-available-p[/color] obj 'effectivename)
       ([color=BLUE]defun[/color] LM:blockname ( obj ) ([color=BLUE]vla-get-effectivename[/color] obj))
       ([color=BLUE]defun[/color] LM:blockname ( obj ) ([color=BLUE]vla-get-name[/color] obj))
   )
   (LM:blockname obj)
)
([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])