写这篇文章的捷径？

cadman6735 · 发表于 2022-7-6 10:46:45

好啊
我几乎是装腔作势，这就是我做这件事的方式。我的代码有什么问题？

 
(defun C:CleanPlot ()
 (vl-load-com)
 
    (setq
      acadObject       (vlax-get-acad-object)
      acadActiveDocument    (vla-get-ActiveDocument acadObject)
      acadLayers  (vla-get-Layers acadActiveDocument)
    )
 (vlax-for Layer acadLayers
   (if
     (and
       (eq (vla-get-PlotStyleName Layer) "Normal")
(eq (vla-get-PlotStyleName Layer) "Full Saturation")
     )
       (vla-put-PlotStyleName Layer "As Drawn")
   )
 )
(princ)
)