Question

autolisp 这样一段代码运行的时候怎么可以在运行的时候不显示nil .

(defun c:a ()
(initget 1 "LINE PLINE")
(setq s (getkword "\n 直线/多短线<L/P>"))
(IF (= s "LINE")
(command ".LINE")
(command ".pline")
)
)

Answer 1

command函数执行不完整。通常应用command函数，要在后面加入(command)，用于结束上面command函数遗留问题，形如：

(command ".LINE" P1 p2 "")
(command)

Answer 2

(defun c:a ()
(initget 1 "LINE PLINE")
(setq s (getkword "\n 直线/多短线<L/P>"))
(IF (= s "LINE")
(command ".LINE")
(command ".pline")
)
;;;此处添加下面的一行语句
(prin1)
)