![](https://cos-cdn.shuashuati.com/pipixue-web/2020-1231-2005-12/ti_inject-812ce.png)
;AutoCAD平台上的如下LISP程序,写出上机调试过程及结果 ;上机说明,在任何文本编辑器中将此代码复制进来,保存为ShaftSection.lsp ;在autocad中新建图形后,点击 “管理”标签页中的“应用程序”面板中的 “加载应用程序”按钮, ;选中此文件,如果出现安全提示,请选择始终加载或加载一次 ;在命令行中输入ShaftSection (defun c:ShaftSection(/ rad) ;(setq a (getpoint "\n选择第一个点 : ")) (setq rad (getreal "input rad <1.0>:")) (if (= rad nil) (setq rad 1.0)) (command "line" '(-120 0) '(120 0) "") (command "text" '(110 -20) 10 0 "Shaft") (command "line" '(0 -120) '(0 120) "") (command "circle" '(0 0) 100) (command "Zoom" "A") )