;说明,在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") )