[求助]:自己做的指北针LISP

ddjlw

本人才学LISP一个星期,才疏学浅,希望各位大虾多指教.

以下是程序:

(defun c:zbz (/ r a b c d e )
  (setvar "cmdecho" 0)
  (command "osnap" "none")
  (setq a (getpoint "\n输入一点:"))
  (setq r 24)
  (setq b (polar a (/ (* pi 3) 2) r))
  (command "circle" "2p" a b "")
  (setq c (polar a (/ (* pi 273.5) 180) 24))
  (setq d (polar a (/ (* pi 266.5) 180) 24))
  (command "line" a c "")
  (command "line" a d "")
  (command "osnap" "mid,cen,end,per,int,qua,nod,tan,nea,ins")
  (prin1)
)

希望大虾帮我把中间的部分给填充成SOLID,圆上面加个"北"字

THANKS

重新修改了下,望指点.

zml84

指北针是一个比较固定的对象。通过LISP绘制与实际需求是不大一致的。
建议将其做成块，插入使用之。通过改变缩放比例和旋转角度来调整。

ddjlw

我就是想试下,呵呵还没有解决啊,