lisp的奇怪的现象

熊哥哥

此程序不能在2004中运行 (defun c:g4 ( txt / ent newtxt)
(ltload)
(if (= txt 0)
(setq ent (ssget))
(setq ent (ssget (cgfin)))
)
(setvar "cmdecho" 0)
(command "change" ent "" "p" "C" 4 "LT" "DASHED2" "")
(prin1)
) 而此程序能在2004中运行 (defun c:g5 ( txt / ent newtxt)
(if (= txt 0)
(setq ent (ssget))
(setq ent (ssget (cgfin)))
)
(setvar "cmdecho" 0)
(command "change" ent "" "p" "C" 5 "LT" "CONTINUOUS" "")
(prin1)
)

sieben

上面两个程序均不能运行,C:程序不能带参数,另外第一个程序不行可能是因为"DASHED2"线型还没有载入

熊哥哥

不好意思我贴错了把才开始试验的贴上去了 应该是这样的 (defun c:c4 ()
(cg4 0) (defun cg4 ( txt / ent newtxt)
(ltload)
(if (= txt 0)
(setq ent (ssget))
(setq ent (ssget (cgfin)))
)
(setvar "cmdecho" 0)
(command "change" ent "" "p" "C" 4 "LT" "DASHED2" "")
(prin1)
)

meflying

没有给出子函数，无法调试。。。


TO 2楼，C:函数可以带参数，只是不能在命令行使用命令而已，可以使用(c:xxx var)调用

wdb

少了一个括号 (defun c:c4 ()
(cg4 0)
);这里添加右括号
(defun cg4 ( txt / ent newtxt)
;(ltload)
(if (= txt 0)
(setq ent (ssget))
;(setq ent (ssget (cgfin)))
)
(setvar "cmdecho" 0)
(command "change" ent "" "p" "C" 4 "LT" "DASHED2" "")
(prin1)
)

xstlf

meflying发表于2005-1-6 8:15:00没有给出子函数，无法调试。。。 TO 2楼，C:函数可以带参数，只是不能在命令行使用命令而已，可以使用(c:xxx var)调用

调用？一般出现在什么情况下才调用呀？

熊哥哥

我的目的就是编一个改线型及颜色的LISP！ meflying老兄能帮我改一下吗

meflying

我4楼的话没看见吗？

熊哥哥

谢谢meflying