写这个更好的方法？

Lt Dan's l · 发表于 2022-7-6 10:03:48

为什么这看起来有点迟缓？

(defun c:mod (/ ent id ss i)
 (if (setq ss (ssget '((0 . "insert"))))
   (repeat (setq id (sslength ss))
     (if (eq (vlax-get-property (setq ent (vlax-ename->vla-object (ssname ss (setq id (1- id)))))
         "effectivename") "panel")
         (repeat (setq i (length (setq ent (vlax-invoke ent "getdynamicblockproperties"))))
    (if (eq (vla-get-propertyname (nth (setq i (1- i)) ent)) "Panel Length")
             (vla-put-value (nth i ent) "2")
           )
         )
     )
   )
   (prompt "No objects selected!")
 )
 (princ)
)