AUTO LISP倒角程序怎样编啊？？

只册颂培是因为你的(command "chamfer"）格式有问题而已，不是说用command 调用所用的函数都是按照画图时候的顺序来就可以的，而且经尝试，不可以樱粗用PLINE~只能用LINE，我也不知道为什州唯么，正确的语言是

(defun c:dj()

(setq p0 (getpoint "输入第一点:"))

(setq p1 (polar p0 0 100))

(setq p2 (polar p1 (* 0.5 pi) 30))

(command "line" p0 p1 "")

(setq l1 (entlast))

(command "line" p1 p2 "")

(setq l2 (entlast))

(command "chamfer" "t" "t" "d" 5 5 "chamfer" l1 l2 "" )

(prin1)

)

autoLISP是AutoCAD自己的程序，是一个对基础动作的补充。有的时候，我们重复 *** 作一个动作的时候，用autoLISP就可以减少工作卜烂量。

所以一个autoLISP首先型穗漏要有需求，然后编程动作达到要求。

比如，你要绘制100个同心圆，每个同心圆按比例放大，直接绘制的话，很慢，也会出现错误，人为 *** 作重复的动作难免会出现错误，但是使用autoLISP就不同了，只要输入一个圆的直径，就可以在一秒钟内绘制完成，还可以设置不同的颜色，不同的图层。

还有这样的情况，不同的人编程，用的变量会不同，所以编程会有不同的风格，同一个程序，在不断优化完善下，会变的不同。

所以你要autoLISP首先要说明你的要求（具体 *** 作过程），达到什么结果，那么有可能会专门为你编写一个程序。

天正系列也是一个autoLISP集合，功能强大，你安装天正的话，也是一个族塌方法。

(defun c:QS (/ DICEN)

(setq DICEN (namedobjdict))

(if (dictsearch DICEN "AcadDim")

(dictremove DICEN "AcadDim")

)

(dictadd DICEN

"AcadDim"

(entmakex '((0 . "XRECORD")

(100 . "AcDbXrecord")

(280 . 1)

(90 . 990106)

(3 . "")-----引线和箭头-〉箭头[用户箭头的缺省块名，""则表示未设置]

(60 . 2)-----注释-〉注带斗陵释类型[0,1,2,3,4]

(61 . 0)-----注释-〉重复使用注释[0,1,2]

(62 . 1)-----附着-〉文字在右边[0,1,2,3,4]

(63 . 1)-----附着销改-〉文字在左边[0,1,2,3,4]

(64 . 0)-----附着-〉最后一行加下划线[0,1]

(65 . 0)-----引线和箭头-〉引线[0,1]

(66 . 0)-----引线和箭头-〉点数-〉无限制[0,1]

(67 . 3)-----引线和箭头-〉点数[任意正整数]

(68 . 1)-----注释-〉多行文字选项-〉提示输入宽度[0,1]

(69 . 0)-----注释-〉多行文字选项-〉始终左对齐[0,1]

(70 . 0)-----引蠢戚线和箭头-〉角度约束->第一段[0,1,2,3,4,5]

(71 . 0)-----引线和箭头-〉角度约束->第二段[0,1,2,3,4,5]

(72 . 0)-----注释-〉多行文字选项-〉文字边框[0,1]

(40 . 0.0)

(170 . 2)----控制“引线设置”对话框的缺省选项卡[0,1,2]

(340 . 图元名)

-----当DXF组码60的值为3，且已经设定了块参照的块名，则340组码才会出现

-----格式为(340 . 上次使用块参照作为注释对象，实际插入的块实例的图元名)

)

)

)

(command "Qleader")

)

设置一次之后，以后使用Qleader都不用再设置了。你也可以每次都使用QS命令。

---