autolisp

下面是我改过的代码,你试一下,应该还有些地方可以再完完善的,比如加上检测矩形大小的语句等.(defunc:ban();求第一个矩形的点(setqp1(getpoint"输入基准点："))(setqch

（一）(defunc:tuxing1()(setqRd(getdist"\nR=:"))(setqRx(getdist"\nr=:"))(setqp0(getPoint"\nEnterCenterof

(defun c:ttt( / #os1 i r1 r2) (setvar "cmdecho"&nb

你的某个命令中可能多了一个回车响应的符号自己检查一下比如在command命令里多了一个""CAD启动时就会自动默认上一个命令也就是帮助文档再问：知道原因了，是mnu文件中多加了空格。好神奇，多加空格也

三角形面积可以用海伦公式

做了一些修改,可以绘制了.仔细看看里面修改内容.除以符号“/”,不是“\”.多了一个刮弧,还有getdisk应当为getdist(setqpt7(polarpt60(*r2)));这个少了2就没有办法

90改为1.57多（pi的一半）

(getdiststr_rr))就是要求用户定义2个点做为距离,setqrr(getdiststr_rr))就是把前面的距离值赋予给rr变量再问：getdist后应该跟一个基点坐标，其中str_rr是

(vl-load-com)(setqa(vlax-make-variant15));创建变体a,类型双精度浮点数(setqb(vlax-make-variant345));创建变体b,类型双精度浮点数

(defunc:tt()(setqp1(getpoint"\n选取矩形第一点:>"))(setqp2(getpoint"\n选取矩形第二点:>"))(command"_rectang"p1p2)(pr

(defunc:drawing()(setvar"cmdecho"0)(setqptcenter(getpoint"\n请输入圆心位置:"))(setqdist(getdist"\n请输入基圆半径:"

这里有一例,楼主可以自己调试(defunc:tc()(setvar"cmdecho"0)(setqen1(car(entsel"\n选择圆1:")))(setqen2(car(entsel"\n选择圆