请大虾们帮忙改个程序

A云

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

A云

(defun c:abb()
% H! T9 n3 r/ v  N# d0 ]8 g& [
' S  ~# T6 {3 O- C$ l7 n& F6 D    ;以下 pa、ww、 值須由使用者輸入
* S  s( p4 {% ~4 o7 r
    (repeat 1000000 [(setq pa (getpoint "起点:"))

2 d+ w: A) j" l     (setq ww (quote 4))
  D) [2 D- k3 x
% D% q" ?- c4 [' j- p6 t% z      ;以下pb值須由程式依據pa、ww、求出

: }7 B0 M: E6 G7 g       (setq pb (polar pa pi ww))
0 O, C% T- c4 i! Y" f6 `
8 X2 y( w/ q0 V* _       ;以下依據 pa、pb、點畫出條線
2 M) Z0 }' V% S7 w. r" H1 G7 X! K
/ x) Z# _: ]8 S+ q7 F8 u# @       (command "line" pa pb "")

/ t( |  o6 L. @  O- W9 k% B      ;以下依據 pb點畫出圆

9 x/ V( i' a5 A% w$ U) a       (command "CIRCLE" pb 1)])
$ w" s* `. `( M; _7 e
)

3 D8 z, D% |  t: P5 s: X[ 本帖最后由 A云 于 2009-9-21 11:24 编辑 ]

A云

这个问题已解决