Lisp程序生成所有块

jscad1 · 发表于 2022-7-5 16:44:44

我正在寻找一个autocad lisp程序，该程序可以将所有块和嵌套块放入文件中，并将插入放在图层0上，但将数据留在块中。

tombu · 发表于 2022-7-5 16:51:21

您是在谈论所有块定义中的所有对象，但将属性保留在其所在的位置吗？颜色、线型、打印样式等呢？

你想要完成什么？

jscad1 · 发表于 2022-7-5 16:58:53

我有一些数据块，其中数据位于第1层、第2层和第3层，但当他们定义块时，他们使用第1层作为当前层。因此，如果我列出块，则属性表示第1层。我需要的是定义的层是0层，以及1、2和3层上的数据。现在，如果我列出块，属性表示层0，但块内的数据仍在层1、2和3上。

tombu · 发表于 2022-7-5 17:02:57

请确定您指的是块定义还是块插入？

看看Lee Mac的Apply to Block Objects的示例函数调用-http://lee-mac.com/applytoblockobjects.html

jscad1 · 发表于 2022-7-5 17:11:13

块插入

Lee Mac · 发表于 2022-7-5 17:15:47

请尝试以下操作：

copy

(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)

排除锁定图层上的对象。

Grrr · 发表于 2022-7-5 17:20:36

李，使用vlax-write-enabled-p的原因是什么？
何时/哪些autocad图形对象无法修改？

Lee Mac · 发表于 2022-7-5 17:23:44

锁定层上的对象将不会启用写。

Grrr · 发表于 2022-7-5 17:28:32

哦，好的，谢谢！
我不知道这件事，否则我会使用：

copy

(eq (vla-get-Lock (vla-get-Layer obj)) :vlax-false)

或“锤击”方法：

copy

(vl-catch-all-apply 'vla-put-layer (list obj "0"))

从来没有想过我必须使用vlax-read-enabled-p和vlax-write-enabled-p。

Lee Mac · 发表于 2022-7-5 17:38:36

这将不起作用，因为vla get layer将返回字符串-您需要使用vla项从Layers集合中检索layer对象。

我尽量避免在可能的情况下使用vl catch all apply-在我看来，这类似于在VBA中使用On Error Resume Next，它会滋生懒惰的编程：您还可以将整个函数包含在vl catch all apply语句中，而不必关心评估期间发生的车祸。

[编程交流] Lisp程序生成所有块

发表回复

精选推荐