这个LISP问题出在哪里？

〓桠枫〓/db · 发表于 2022-9-18 21:57:58

(defun c:hjj (/ en i ss)(prompt "\n改为SOLID填充")
(setq ss (ssget '((0 . "HATCH"))))
(setq i -1)
(while (setq en (ssname ss (setq i (1+ i)))))
(initget "A S D")
(if (not (setq p
(getkword"\n请选择填充样式[实体(A)/ANSI31(S)/ANSI37(D)]:")))
(setq p "A"))
(cond
((= p "A")
(command "hatchedit" en "p" "SOLID" "" "" ))
((= p "S")
(command "hatchedit" en "p" "ANSI31" "1000" "0" ))
((= p "D")
(command "hatchedit" en "p" "ANSI31" "1000" "0" ))
))

start4444 · 发表于 2022-9-18 22:52:21

(defun c:hjj (/ en i p ss)
(setq ss (ssget '((0 . "HATCH"))))
(initget "A S D")
(if (not (setq p
(getkword"\n请选择填充样式[实体(A)/ANSI31(S)/ANSI37(D)]:")))
(setq p "A"))
(setq i -1)
(while (setq en (ssname ss (setq i (1+ i))))
(cond
((= p "A")
(command "hatchedit" en "p" "SOLID"))
((= p "S")
(command "hatchedit" en "p" "ANSI31" "1000" "0" ))
((= p "D")
(command "hatchedit" en "p" "ANSI37" "1000" "0" ))
)))

hh_lj007 · 发表于 2022-9-19 09:00:41

(while (setq en (ssname ss (setq i (1+ i)))))
括号位置不对

〓桠枫〓/db · 发表于 2022-9-25 22:36:17

谢谢了~~~~

账号		自动登录	找回密码
密码			注册

[提问] 这个LISP问题出在哪里？