autolisp命令总结2024-07-29

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中执行命令的结果