请大虾们帮忙改个程序

A云

这是我自己搞的，因为才接触LSP几天，还有很多搞不明白的，所以这个程序达不到想要的效果，麻烦帮我改改，谢谢了。
  现在的问题1：没办法选方向（原来是想可以输入方向的，现在只能在一个方向）
  I9 \9 T, s  f        问题2：画出来的直线和圆不知道怎样才能自动分配到想要的图层（想直线在7图层，圆在8  图层）
    请问可以实现不？

A云

(defun c:abb()
# s; M/ K5 ?; i, {/ |  H8 q
    ;以下 pa、ww、 值須由使用者輸入
+ f: R/ ^) y( n; c4 m
% v2 X" S. e, G9 J    (repeat 1000000 [(setq pa (getpoint "起点:"))

     (setq ww (quote 4))
) H1 y8 f. g% P
( I+ K9 k- c2 S$ B- Q      ;以下pb值須由程式依據pa、ww、求出
9 [" S& u$ ?/ \- J/ J4 r
, W% J) f9 b9 I  N" z       (setq pb (polar pa pi ww))
* [' K8 s$ o. f
  o# M( o$ y7 J       ;以下依據 pa、pb、點畫出條線
! I8 _9 L7 N8 @: P
       (command "line" pa pb "")
- S- a  o7 c5 i$ X- k! m
5 K/ i' A0 j; i0 Q+ u, }7 J9 [6 U      ;以下依據 pb點畫出圆

% w+ i$ |1 W$ y, O9 T7 p8 e( q       (command "CIRCLE" pb 1)])
, Q0 K8 c7 h6 S& p3 ~7 S' D
: I: Z7 z" Z+ ]2 l. I/ R' G )

% K/ t8 F. N" D8 ~. `0 n[ 本帖最后由 A云 于 2009-9-21 11:24 编辑 ]

A云

这个问题已解决