检查层上的圆

ahyin · 发表于 2022-7-6 10:34:48

尊敬的各位：，
我在写Lisp程序，有人能帮我吗？
我有许多层供用户通过dcl对话框选择，在用户选择项目（可能不止一个）后，我将打开此层并检查是否在此层中有圆形对象。因为超过50项。如果我用If-then-else检查每个标志，我的lisp程序就会变得很长。还有其他好方法吗？

copy

(if (= item1 1)
(progn
(setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
    (setq theLayers (vla-get-layers acadDocument))
    (vlax-for item theLayers (vlax-put-property item "LayerON" ':vlax-false)) 
(command "-layer" "On" (vlax-get-property item1-layer 'Name) "")
   (setq sset (ssget "_a" (LIST '(0 . "CIRCLE") (8 . item1-layer) (cons 410 (getvar "CTAB")))))
)
)
(if (= item2 1)
(progn
(setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
    (setq theLayers (vla-get-layers acadDocument))
    (vlax-for item theLayers (vlax-put-property item "LayerON" ':vlax-false)) 
(command "-layer" "On" (vlax-get-property item2-layer 'Name) "")
   (setq sset (ssget "_a" (LIST '(0 . "CIRCLE") (8 . item2-layer) (cons 410 (getvar "CTAB")))))
)
)

.
.
.
.
.

MSasu · 发表于 2022-7-6 10:57:17

看看FOREACH函数——这意味着您必须将这些层名称存储在一个列表中。

copy

(foreach Item '(1 2 3 4 5)
(print Item)
)

当做

ahyin · 发表于 2022-7-6 11:12:59

谢谢我将尝试使用这个函数来完成我的lisp

MSasu · 发表于 2022-7-6 11:34:50

没问题！

此外，为了处理重复代码，最好编写一个带有该部分参数的函数并调用它，而不是在多个地方使用同一段代码。这将确保代码更加紧凑，并帮助您维护它，即它只在一个地方进行更改。

在这种情况下，您的代码摘录将变成：

关于，

ahyin · 发表于 2022-7-6 11:40:32

非常感谢，这真的太棒了！

[编程交流] 检查层上的圆

发表回复

精选推荐