[求助]：秋枫大哥可不可以帮改改呀？

andyhua5240

秋枫大哥好，小弟我自已嫌每次输入@矩形的尺寸太麻烦，而我自己画的衣柜，台面之类的尺寸又是固定的，所以就做了个微不足道的这个lisp。
但是我觉得不好的是占用了两个命令，而且实用过程中还是容易搞混？如何做成一个命令，并且在命令行设置选项呢？输入那个选项值的话就是画1500x600的矩形
如输入rr就是画600x1500的矩形，在命令行输入提示选项A，就是画1500x600的矩形？

谢谢！

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. (defun po_err (s)
   
6.   (setvar "cmdecho" cm)
   
7.   (setvar "osmode" os)
   
8.   (command "_.undo" "_e")
   
9. )
   
10. 
    
11. 
    
12. 
    
13. 
    
14. 
    
15. ;利用rectang命令绘制矩形，矩形的尺寸为1500x600
    
16. (defun c:r1 ()
    
17.   (princ "\n* 插入 |X*Y=1500*600| 横式矩形 *")
    
18.   (setq cm (getvar "cmdecho"))
    
19.   (setq os (getvar "osmode"))
    
20.   (setq *error* po_err)
    
21.   (setvar "cmdecho" 0)
    
22.   (setvar "osmode" 4151)
    
23.   (princ "\n指定矩形的插入点 <退出>:")
    
24.   (setq p1 (getpoint))
    
25.   (setvar "osmode" 0)
    
26.   (if p1 (progn
    
27.                 (command "rectang" "c" "0" "0" "e" "0" "f" "0" "t" "0" "w" "0" p1 "d" "1500" "600")
    
28.                 (while (/= 0 (getvar "cmdactive"))(command pause))
    
29.                 (command "draworder" "last" "" "b")
    
30.          )
    
31.   )
    
32.   (setvar "cmdecho" cm)
    
33.   (setvar "osmode" os)
    
34.   (princ)
    
35. )
    
36. 
    
37. 
    
38. ;利用rectang命令绘制矩形，矩形的尺寸为600x1500
    
39. (defun c:r2 ()
    
40.   (princ "\n* 插入 |X*Y=600*1500| 立式矩形 *")
    
41.   (setq cm (getvar "cmdecho"))
    
42.   (setq os (getvar "osmode"))
    
43.   (setq *error* po_err)
    
44.   (setvar "cmdecho" 0)
    
45.   (setvar "osmode" 4151)
    
46.   (princ "\n指定矩形的插入点 <退出>:")
    
47.   (setq p1 (getpoint))
    
48.   (setvar "osmode" 0)
    
49.   (if p1 (progn
    
50.                 (command "rectang" "c" "0" "0" "e" "0" "f" "0" "t" "0" "w" "0" p1 "d" "600" "1500")
    
51.                 (while (/= 0 (getvar "cmdactive"))(command pause))
    
52.                 (command "draworder" "last" "" "b")
    
53.          )
    
54.   )
    
55.   (setvar "cmdecho" cm)
    
56.   (setvar "osmode" os)
    
57.   (princ)
    
58. )
    
59.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> (defun po_err (s)<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   (command "_.undo" "_e")<br /> )<br /> <br /> <br /> <br /> <br /> <br /> ;利用rectang命令绘制矩形，矩形的尺寸为1500x600<br /> (defun c:r1 ()<br />   (princ "\n* 插入 |X*Y=1500*600| 横式矩形 *")<br />   (setq cm (getvar "cmdecho"))<br />   (setq os (getvar "osmode"))<br />   (setq *error* po_err)<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 4151)<br />   (princ "\n指定矩形的插入点 <退出>:")<br />   (setq p1 (getpoint))<br />   (setvar "osmode" 0)<br />   (if p1 (progn<br />                 (command "rectang" "c" "0" "0" "e" "0" "f" "0" "t" "0" "w" "0" p1 "d" "1500" "600")<br />                 (while (/= 0 (getvar "cmdactive"))(command pause))<br />                 (command "draworder" "last" "" "b")<br />          )<br />   )<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br /> <br /> <br /> ;利用rectang命令绘制矩形，矩形的尺寸为600x1500<br /> (defun c:r2 ()<br />   (princ "\n* 插入 |X*Y=600*1500| 立式矩形 *")<br />   (setq cm (getvar "cmdecho"))<br />   (setq os (getvar "osmode"))<br />   (setq *error* po_err)<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 4151)<br />   (princ "\n指定矩形的插入点 <退出>:")<br />   (setq p1 (getpoint))<br />   (setvar "osmode" 0)<br />   (if p1 (progn<br />                 (command "rectang" "c" "0" "0" "e" "0" "f" "0" "t" "0" "w" "0" p1 "d" "600" "1500")<br />                 (while (/= 0 (getvar "cmdactive"))(command pause))<br />                 (command "draworder" "last" "" "b")<br />          )<br />   )<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br />   [/FONT]<br />