选择图层

salman · 发表于 2022-7-6 14:37:46

在auotlips程序中，我希望获得层的名称，而不是通过硬编码或在命令提示符下键入它们作为用户输入，而是希望用户从层控制面板中选择层。

谢谢

rkmcswain · 发表于 2022-7-6 15:28:44

创建DCL对话框，并用现有图层名称填充它。

此处示例代码：http://www.jefferypsanders.com/autolisp_DCL_Part7.html

Lee Mac · 发表于 2022-7-6 15:40:16

我同意RKMcSwain的观点，

要填充DCL，您需要检索层列表-这可以通过多种方式完成，这里有两个选项供您尝试：

copy


(defun laylst  (/ tdef lst)
 (reverse
   (while (setq tdef (tblnext "LAYER" (not tdef)))
     (setq lst (cons (cdr (assoc 2 tdef)) lst)))))
(defun laylst2  (/ lst)
 (vl-load-com)
 (reverse
   (vlax-for lay
                  (vla-get-Layers
                    (vla-get-ActiveDocument
                      (vlax-get-acad-object)))
     (setq lst (cons (vla-get-Name lay) lst)))))

[编程交流] 选择图层

发表回复

精选推荐