cad指北针lisp_用CAD里的LISP画图，题目如图片，编写一程序，可在任意位置任意方向绘制指定大小的指北针。...

写了一个，图如下：

Autolisp代码如下：(defunc:tes(/&ang1&ang2&dis1&ent1&kw1&p1&p2&p3&p4&p5&pt1&pt2&r1&r2x)

(setvar"cmdecho"0)

(setvar"blipmode"0)

(if(and(setq&p1(getpoint"

请指定圆心"))

(setq&r1(getdist&p1"

请输入圆半径"))

)

(PRogn

(setq&r2(*&r12))

(entmake(list'(0."CIRCLE")(cons10&p1)(cons40&r1)))

(setq&ent1(entlast)&kw1(ssadd)&kw1(ssadd&ent1&kw1))

(setq&p5(CADr(grreadt)))

(if(=(distance&p1&p5)0)(setq&ang10)(setq&ang1(angle&p1&p5)))

(setq&p2(polar&p1&ang1&r2)&p3(polar&