[编程交流] 如何处理中的对象

[color=GREEN];; Flatten  -  Lee Mac[/color]
([color=BLUE]defun[/color] c:flat ( [color=BLUE]/[/color] d )
   ([color=BLUE]vlax-for[/color] b ([color=BLUE]vla-get-blocks[/color] ([color=BLUE]setq[/color] d ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color]))))
       ([color=BLUE]if[/color] ([color=BLUE]=[/color] [color=BLUE]:vlax-false[/color] ([color=BLUE]vla-get-isxref[/color] b))
           ([color=BLUE]vlax-for[/color] o b
               ([color=BLUE]foreach[/color] x '(1e99 -1e99)
                   ([color=BLUE]vl-catch-all-apply[/color] '[color=BLUE]vla-move[/color]
                       ([color=BLUE]list[/color] o ([color=BLUE]vlax-3D-point[/color] 0 0 0) ([color=BLUE]vlax-3D-point[/color] 0 0 x))
                   )
               )
           )
       )
   )
   ([color=BLUE]vla-regen[/color] d [color=BLUE]acallviewports[/color])
   ([color=BLUE]princ[/color])
)
([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])