请大虾们帮忙改个程序

A云

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

A云

(defun c:abb()

    ;以下 pa、ww、 值須由使用者輸入

    (repeat 1000000 [(setq pa (getpoint "起点:"))
$ E+ q  N* V( i) I0 w' b; D# b( `3 ~  p
     (setq ww (quote 4))
3 O1 I1 K3 E1 t" V; c
      ;以下pb值須由程式依據pa、ww、求出
: z# X3 K. R' y2 {4 m$ d0 S' f
       (setq pb (polar pa pi ww))

1 @( w& S- o0 [       ;以下依據 pa、pb、點畫出條線
6 ^6 c' d; C2 y
       (command "line" pa pb "")
; |- ]. i) w% M6 w' j
      ;以下依據 pb點畫出圆
# n  X' G0 v8 y- P  \
       (command "CIRCLE" pb 1)])
! H2 B; H) j7 Q- w5 J) a/ ?6 n
)

8 p- p' o/ e' Q* c0 w- i[ 本帖最后由 A云 于 2009-9-21 11:24 编辑 ]

A云

这个问题已解决