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

这个LISP问题出在哪里？

(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

谢谢了~~~~
页: [1]
查看完整版本: 这个LISP问题出在哪里？