基于多导联的投票

elfert · 发表于 2022-7-6 08:36:40

CAD成员您好！

我正在尝试制作一个lisp例程，可以基于多重引线绘制项目编号。但在我做了例行检查，如果在图纸上有特定的图层，我会这样做，如果没有，它必须这样做。但在此之后，我希望它检查多重引线样式是否在图形上。如果不是，那么它必须从模板导入，或者如果我告诉程序我想在多重领导风格中使用什么变量，它必须自己生成。如果在图纸上，则必须继续执行例行程序。

以下是例行程序：

那么我必须在例程中添加什么？

Thanx提前

pBe · 发表于 2022-7-6 08:50:54

copy

 
(if (not (tblsearch "LAYER" "AM_5"))
(Command "-layer" [b][color=blue]"n"[/color][/b] "AM_5" "c" "3" "AM_5" "s" "AM_5" "P" "P" "AM_5" "")
[color=sienna](setvar "clayer" "AM_5"));<--- no need for this if you use "make" instead of "New"[/color]

实际上，我一直想自己做一个（用了一个蹩脚的积木）。当我回到办公室重新发帖时，我会调整一下。

alanjt · 发表于 2022-7-6 09:08:03

快速修改以添加撤消选项。还添加了使用VL的undo wrapping，因为它比（命令“_.undo”。）干净得多。

copy

 
(command "CMLEADERSTYLE" "item");<---- will crash if i[i]tem[/i] is nil

alanjt · 发表于 2022-7-6 09:15:47

呃，不知道为什么我认为这是更多的工作。。。

copy

 
[color=blue](if (vl-catch-all-error-p[/color]
[color=blue]  (vl-catch-all-apply 'setvar (list "CMLEADERSTYLE" "item"))[/color]
[color=blue]  )[/color]
[color=blue](create/import your mleader style)[/color]
[color=blue])[/color]