AutoLisp命令总结
所有的操作都是函数,以函数写程序
函数1:提示命令
(prompt “提示信息”)
函数2:函数定义
(defun c:fun(/ a b c))
c:表示全局函数
/a b c表示局部变量
函数3:定义变量
(setq a 100)
定义的变量可以是整数,实数、列表等
函数4:获取一个点的位置
(polar pa pi dis)
pa表示基点
pi表示角度,0度,90度(/ pi 2) 180度 pi N度(* N (/ pi 180))将pi分割成180度
函数5:使用CAD命令
(command “pline”)
调用CAD多线段命令
函数6:获取输入数值
(getreal “提示输入信息:”)
函数7:以pa为基点取得距离
(getdist pa “以pa作为基点取得一段距离”)
函数8:关闭命令响应开关
(setvar “cmdecho” 0)
函数9:命令结束都会生成一个nil,消除nil用的。
(prin1)
(defun c:pbox(/ pa pb pc pd hh ww mp1 mp2 mp3 mp4)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq pa (getpoint "\n请输入一个点:"))
(setq hh (getdist pa "\n高度:"))
(setq ww (getdist pa "\n宽度:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "pline" pa pb pc pd "c")
(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)))
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")
(prin1)
)
(prompt ">>第一个程序<<\n")
(prompt "authur:zcm")
以上是在中网CAD中执行命令后的结果
以上是在AutoCAD中执行命令的结果