试着让这个Lisp程序

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

试试这个。

copy

(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

这是最后一次修改。

copy

(SETQ NUM (getint "\n\Number of hots per Circuit "))

[编程交流] 试着让这个Lisp程序

发表回复

精选推荐