Qleader公司

flowerrobot · 发表于 2022-7-6 17:08:30

有人能告诉这个白痴为什么这个代码只有70%的时间有效吗。
它是如此简单，但我不能使它工作一致

(DEFUN C:LE()
   (command ".LAYER" "s" "DIM" "")
   (command ".linetype" "s" "bylayer"\\)
   (command ".color" "bylayer")
   (COMMAND ".QLEADER" )
   (princ)
)

Lee Mac · 发表于 2022-7-6 17:21:12

我试着使用：

但是ACAD陷入了一个无尽的循环。。。。

TimSpangler · 发表于 2022-7-6 17:38:27

确保该层存在。。。。除此之外看起来还可以

flowerrobot · 发表于 2022-7-6 17:45:06

它确实存在，但我确实拥有它
“m”（生成层）而不是“s”（设置层），
但同样的问题也存在，所以我把它改成了电流
，不知道你的意思“这是什么”
这是为了确保行是按层设置的，因为公司的一些愚蠢的Lisp程序会改变我的设置，所以为了方便起见，我放置了颜色和线型。

ASMI · 发表于 2022-7-6 17:49:01

我想：

copy

(defun c:le()
 (if(tblsearch "LAYER" "DIM")
   (setvar "CLAYER" "DIM")
   (command "_.layer" "_m" "DIM" "")
   ); end if
 (mapcar 'setvar '("CELTYPE" "CECOLOR")'("BYLAYER" "BYLAYER"))
 (command "_.qleader")
 ); end of c:le