批量更改所有块属性

kevinpo · 发表于 2022-7-5 16:51:54

谢谢李，
由于某种原因，我仍然无法更改预设。这不起作用。
有什么方法可以让我检查一下在我的块“标记修订”中预设是否设置为Yes，这样我就可以进行有条件的变通？

谢谢

kevinpo · 发表于 2022-7-5 16:57:59

谢谢GRR。这奏效了！

kevinpo · 发表于 2022-7-5 17:00:46

您好，Grrr，
有没有一种方法可以让它改变给出名称的块，而不必选择？

kevinpo · 发表于 2022-7-5 17:04:43

我知道了，谢谢。

copy

(defun C:test nil
 (vlax-map-collection
   (vla-item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) "Tag-Revision")
   (quote
     (lambda (o) 
       (and 
         (vlax-write-enabled-p o) 
         (eq "AcDbAttributeDefinition" (vla-get-ObjectName o))
         (vla-put-Preset o :vlax-false)
       )
     )
   )
 )
)