请大虾们帮忙改个程序

A云

这是我自己搞的，因为才接触LSP几天，还有很多搞不明白的，所以这个程序达不到想要的效果，麻烦帮我改改，谢谢了。
  现在的问题1：没办法选方向（原来是想可以输入方向的，现在只能在一个方向）
' f. b* C4 G* ^3 R& k) U        问题2：画出来的直线和圆不知道怎样才能自动分配到想要的图层（想直线在7图层，圆在8  图层）
/ g) {7 K; d# N2 y1 T1 T    请问可以实现不？

A云

(defun c:abb()
- ^+ G9 d  ^5 s$ `. D9 Y
    ;以下 pa、ww、 值須由使用者輸入

    (repeat 1000000 [(setq pa (getpoint "起点:"))
# p" P  t- {6 Y. o% j
+ E% x( [1 k+ A9 t% _     (setq ww (quote 4))

8 ~6 D  Q: V1 I  n# }+ I% N0 q      ;以下pb值須由程式依據pa、ww、求出
3 G, i8 g3 f8 M6 Q" ?: P" Y' v7 b; M/ d
' |* @3 t  J3 D1 [1 t5 o+ \       (setq pb (polar pa pi ww))
# x9 ]" w; W9 o) [! w
" N! q) t/ \  v3 n9 H' D4 @6 L0 t       ;以下依據 pa、pb、點畫出條線

       (command "line" pa pb "")
& z/ V4 G) S! v# h; l
# D, \7 q6 [' p3 @      ;以下依據 pb點畫出圆
8 \% b3 h) l: W3 g1 M/ Q4 M
       (command "CIRCLE" pb 1)])

; @1 r2 e7 |. i8 P: _: J' q )

/ O! C1 G+ V* E  X+ I3 v[ 本帖最后由 A云 于 2009-9-21 11:24 编辑 ]

A云

这个问题已解决