The Buzzard 发表于 2022-7-6 15:01:34

好的，我把目录放进去，我有一个C：驱动器。
我将斜杠保持为1/如图所示。
删除了之前帖子中提到的额外1和2。
请与您的代码进行比较。
这很好用。
 
(defun c:HRtest ()
(command "-layer" "s" "ee-wire" "")
(command "LINE" pause pause "")
(command "insert" "c:/details/nrg/elec/blocks/arrowh" pause "1" "1" pause)
(SETQ NUM (- (getint "\n\Number of hots per Circuit ") 1))
(if (= NUM 1) (command "insert" "z:/details/nrg/elec/blocks/_elec_ghn" pause "1" "1" pause) )
(if (= NUM 2) (command "insert" "z:/details/nrg/elec/blocks/_elec_ghhn" pause "1" "1" pause) )
(command "-layer" "s" "ee-text" "")
(command "mtext" pause )
out
(close out)
)

andrew361 发表于 2022-7-6 15:05:14

秃鹰
lisp仅在键入2时有效，但它不会为数字2引入正确的块。如果你尝试1，它不起作用

The Buzzard 发表于 2022-7-6 15:09:49

也许用条件句代替if。

andrew361 发表于 2022-7-6 15:11:38

这就是它应该看起来的样子
看起来像这样。图纸

The Buzzard 发表于 2022-7-6 15:17:14

 
试试这个。
 
 
(defun c:HRtest ()
(command "-layer" "s" "ee-wire" "")
(command "LINE" pause pause "")
(command "insert" "c:/details/nrg/elec/blocks/arrowh" pause "1" "1" pause)
(SETQ NUM (getint "\n\Number of hots per Circuit "))
(if (= NUM 1) (command "insert" "z:/details/nrg/elec/blocks/_elec_ghn" pause "1" "1" pause) )
(if (= NUM 2) (command "insert" "z:/details/nrg/elec/blocks/_elec_ghhn" pause "1" "1" pause) )
(command "-layer" "s" "ee-text" "")
(command "mtext" pause )
out
(close out)
)

The Buzzard 发表于 2022-7-6 15:19:51

我试了最后一种，效果很好。

The Buzzard 发表于 2022-7-6 15:23:21

 
 
这是最后一次修改。
(SETQ NUM (getint "\n\Number of hots per Circuit "))
页: 1 [2]
查看完整版本: 试着让这个Lisp程序