Lisp程序生成所有块
我正在寻找一个autocad lisp程序，该程序可以将所有块和嵌套块放入文件中，并将插入放在图层0上，但将数据留在块中。 您是在谈论所有块定义中的所有对象，但将属性保留在其所在的位置吗？颜色、线型、打印样式等呢？你想要完成什么？ 我有一些数据块，其中数据位于第1层、第2层和第3层，但当他们定义块时，他们使用第1层作为当前层。因此，如果我列出块，则属性表示第1层。我需要的是定义的层是0层，以及1、2和3层上的数据。现在，如果我列出块，属性表示层0，但块内的数据仍在层1、2和3上。 请确定您指的是块定义还是块插入？
看看Lee Mac的Apply to Block Objects的示例函数调用-http://lee-mac.com/applytoblockobjects.html 块插入 请尝试以下操作：
(defun c:doit nil
(vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(if (= :vlax-false (vla-get-isxref blk))
(vlax-for obj blk
(if (and (= "AcDbBlockReference" (vla-get-objectname obj)) (vlax-write-enabled-p obj))
(vla-put-layer obj "0")
)
)
)
)
(princ)
)
(vl-load-com) (princ)
排除锁定图层上的对象。 李，使用vlax-write-enabled-p的原因是什么？
何时/哪些autocad图形对象无法修改？
锁定层上的对象将不会启用写。
哦，好的，谢谢！
我不知道这件事，否则我会使用：
(eq (vla-get-Lock (vla-get-Layer obj)) :vlax-false)
或“锤击”方法：
(vl-catch-all-apply 'vla-put-layer (list obj "0"))
从来没有想过我必须使用vlax-read-enabled-p和vlax-write-enabled-p。
这将不起作用，因为vla get layer将返回字符串-您需要使用vla项从Layers集合中检索layer对象。
我尽量避免在可能的情况下使用vl catch all apply-在我看来，这类似于在VBA中使用On Error Resume Next，它会滋生懒惰的编程：您还可以将整个函数包含在vl catch all apply语句中，而不必关心评估期间发生的车祸。
页:
[1]
2