社区 › Auto Lisp › 批量更改所有块属性

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

我知道了，谢谢。
(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)
       )
   )
   )
)
)

Grrr 发表于 2022-7-5 17:07:30

我很高兴它对你有效，kevinpo，你自己解决了你的问题！
Lee的代码有效，但你的问题误导了你：属性定义带有“Revision”的标记名，尽管他很清楚他的代码是做什么的。
 
我只是试着纠正BIGAL，然后练习一下。

BIGAL 发表于 2022-7-5 17:12:26

不用担心，Grr总是在学习

查看完整版本: 批量更改所有块属性