通过lisp填充

woodman78 · 发表于 2022-7-6 12:28:42

我正在设置lisp以运行hatch命令。我希望它允许我选择对象，而不是通过内部点。我使用的lisp可以工作，但我在命令行中得到错误**函数已取消**。

有人能帮忙吗？？？

谢谢

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

你能把代码贴出来让我们看看发生了什么吗？或者至少是代码的阴影部分？

rkmcswain · 发表于 2022-7-6 12:46:14

试试这个。。。


(setq ent (entsel))
(command "._hatch" "_P" "ANSI31" (getvar "dimscale") "0.0" "_S" ent "")
(princ)

woodman78 · 发表于 2022-7-6 13:01:41

对不起，我的错。我本想发代码的。

copy

 
(defun c:Excav10( / cla)
 (command "_.-layer" "_N" "CCC_LAYOUT_Proposed_Footpath_Hatch" "_M" "CCC_LAYOUT_Proposed_Footpath_Hatch" "_C" "_T" "0,179,179" "CCC_LAYOUT_Proposed_Footpath_Hatch"  "" )
 (command "_-color"  "bylayer")
;(setvar "cmdecho" 0)
;(command "hpgaptol" 0.5)
;(command "HPNAME" "solid")
;(graphscr)
(command "-hatch" "s" "pause" "")
(setvar "cmdecho" 1)
(princ)
)