路过的高手帮忙改一下

acad-cad

大侠帮帮忙



我想把下面的程序改成如下:


命令:tt


指定第一点:


指定第二点或角度:


指定第二个角点或        [倒角(C)/标高(E)/圆角(F)/厚度(T)/宽度(W)]:

xyp1964

2. ;;;三点画斜向长方形：1、2点确定方向，3点确定对角线长度
3. (defun c:test ()
4.    (command "ucs" "")
5.    (setq  pt1 (getpoint "\n第一点 : ")
6.   pt2 (getpoint pt1 "\n第二点 : ")
7.   ang (rad2ang (angle pt1 pt2))   
8.    )
9.    (command "ucs" "n" pt1)
10.    (command "ucs" "z" ang)
11.    (setq pt3 (getcorner (list 0 0) "\n对角点 : "))
12.    (command "rectang" (list 0 0) pt3)
13.    (command "ucs" "")
14.    (princ)
15. )

;;;三点画斜向长方形：1、2点确定方向，3点确定对角线长度 (defun c:test ()    (command "ucs" "")    (setq  pt1 (getpoint "\n第一点 : ")   pt2 (getpoint pt1 "\n第二点 : ")   ang (rad2ang (angle pt1 pt2))       )    (command "ucs" "n" pt1)    (command "ucs" "z" ang)    (setq pt3 (getcorner (list 0 0) "\n对角点 : "))    (command "rectang" (list 0 0) pt3)    (command "ucs" "")    (princ) )