一、输入左下角点、矩形宽、矩形高后,自动的将图形依所给的条件画出
二、变量约定
本程序所需的AutoLisp功能函数
(setq 变量名 变量值) ⬅ 设定变量值
(getpoint [基点] [提示]) ⬅ 请求参考基点输入一个点坐标
(getreal [提示]) ⬅ 请求输入一个实数
(polar 基点 弧度 距离)⬅按照极坐标方法取得另一坐标点
(command “AutoCAD命令”......)⬅调用执行AutoCAD命令
(getdist[基点] [提示]) ⬅请求输入一段距离
(getint[提示]) ⬅请求输入一个整数值
(getcorner 基点 [提示]) ⬅请求输入另一个矩形框对角点坐标
(car 列表) 返回列表中第一个元素,通常用来求x坐标
(cadr 列表) 返回列表中第二个元素,通常用来求y坐标
(caddr 列表) 返回列表中第三个元素,通常用来求z坐标
三、代码实现
(defun c:pbox (/ pa pb pc pd ww hh mp1 mp2 mp3 mp4) ;定义所需要得局部变量,减少内存占用
(setvar "cmdecho" 0) ;设定变量cmdecho=0 关闭命令响应
(setvar "blipmode" 0)
;;;以下pa、ww、hh值须由用户输入
(setq pa (getpoint "左下角点: "))
(setq ww (getdist pa "\n宽度:")) ;给定宽度时在屏幕上拉取一段距离代替
(setq hh (getdist pa "\n高度:")) ;给定高度时在屏幕上拉取一段距离代替
;;;以下pb、pc、pd值须由程序依据pa、ww、hh计算
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
;;;以下依据pa、pb、pc、pd点画矩形
(command "pline" pa pb pc pd "c")
;;;以下mp1、mp2、mp3、mp4值须由程序依据pa、ww、hh计算得到
;;;&pb、pc、pd值计算得出
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2)(/ hh 2)))
(setq mp3 (polar pd 0 (/ ww 2)))
(setq mp4 (polar pa (/ pi 2)(/ hh 2)))
;;;以下依据mp1、mp2、mp3、mp4点画出两条线
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")
(prin1);避免出现空响应nil
)
(prompt " \n<<C:PBOX>> 程序设计,作者:Talor") ;丰富程序界面内容
(prompt " \n这是我的第一个正式的AutoLISP程序")
(prin1) ;避免出现空响应nil
四、结束
通过梳理程序流程,优化程序结构,确能减少繁杂手工作业时间