[求助]急！！关于lisp的问题！！！

wpizi · 发表于 2004-3-9 20:15:00

请教各位高手！怎样用lisp中的command执行偏移命令！！！！

meflying · 发表于 2004-3-9 21:11:00

(command "_.offset" pause pause pause "")

wpizi · 发表于 2004-3-10 09:44:00

多谢！！！请问这样将直线偏移30错在哪里
(defun c:cc()
   (setq pt1 (getpoint "\n 一点"))
   (setq pt2 (getpoint "\n 一点"))
   (setq pt3 (getpoint "\n一点"))
   (command "line" pt1 pt2 "")
   (command "offset" 30 "" (entlast) pt3 "")
   (prin1)
   )