求初级lisp教程 太高深看不懂

chtword

求初级lisp教程 太高深看不懂

革天明

(defun c:cx001()
  (command "_line" '(0 0) '(100 100) "")
)
最简单的，画一个从点(0 0) 到点(100 100) 的直线，
举一反三，你可以试着完成
(defun c:cx001()
  (setq os_mode(getvar "osmode"))
  (setvar "osmode" 0)
  (command "_line" '(0 0) '(100 100) "")
  (command "_circle" '(0 0) 15)
  (command "_circle" '(100 100) 30)
  (sevar "osmode" os_mode)
  (princ)
)
具体什么意思你可以查阅相关帮助文件