本文介绍了Visual Lisp中的一些基本绘图命令，如(polar)、(getdist)、(setq)、(angle)等，以及如何利用它们在AutoCAD中创建图形。通过示例解释了如何获取距离、设置角度、显示信息和操作系统变量。还详细讲解了(pline)、(line)、(array)等命令的使用，特别是阵列命令的不同参数配置，帮助读者理解如何在Lisp程序中实现图形的绘制和编辑。最后提到了程序结束时的处理技巧，如使用(print)确保程序正常运行完毕，并建议使用局部变量优化内存管理。
(polar 基点 角度 距离) 按照极坐标法取得另一坐标点
(getdist [基点] [提示]) 请求以基点为基准输入一段距离，可以在软件中拉取一段距离
一般getdist与setq连用，即通过getdist选择一段距离后，再将此距离赋值到一个变量上。比如
(setq ww (getdist a "输入一段距离"))
这里以a为基准点拉出一段距离后，将距离值赋值给ww。
当然在Autocad界面中不会形成这段距离的直线，它只是被用来取距离，原cad中的几何图形没有
发生任何变化。
(setq ang (angle pt1
pt2))这里angle取得两个点pt1和pt2与x轴之间的夹角，并将角度赋值给ang
(prompt 信息) 将信息显示在屏幕的命令区，并随后响应一个nil信息
(setvar varname value) 将Autocad的系统变量设置成指定的值
常用的会有，
(setvar "cmdecho" 0)
因为执行command命令而影响速度。
(setvar "blipmode" 0)
(atan 数值1 [数值2]) 返回该数值的反正切弧度值
(angtof 字符串 ) 将十进制字符串转换为弧度数值
(angtos 弧度数值 ) 返回弧度数值按模式及精确度转换为字符串
(command "pline" pt1 pt2 pt3 "c")
pline是Autocad的函数，这里副选项“c”表示closed，表示形成一个
封闭的曲线，若为“”则表示Enter的意思，就
最低0.47元/天 解锁文章
377
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
