求指正。。谢谢

crab3

(defun c:111()
(setvar "cmdecho" 0)
(setvar "blipmode"0)
(setq os (getvar "osmode"))

(setq pa (getpoint "请输入直角方形左下角点: "))
(setq ww (getreal "\n请输入直角方形底边长度: "))
(setq K  (getreal "\n请输入: "))

(setq LL (* ww K))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) LL))
(setq pd (polar pd  pi ww))
(setvar "osmode" 0)
(command "pline" pa pb pc pd "c")       
(command "line" pa  pc " ")
(command "line" pc  pd " ")
(prin1)
)
(prompt "\n << 5TEST1>>自动直角方形绘制")
(prin1)

易云网络

画长方形需要这样吗？
REC
选择点
@长，宽

易云网络

2. (defun c:aa111()
   
3. (setvar "cmdecho" 0)
   
4. (setvar "blipmode"0)
   
5. (setq os (getvar "osmode"))
   
6. 
   
7. (setq pa (getpoint "请输入直角方形左下角点: "))
   
8. (setq ww (getreal "\n请输入直角方形底边长度: "))
   
9. (setq K  (getreal "\n请输入: "))
   
10. 
    
11. (setq LL (* ww K))
    
12. (setq pb (polar pa 0 ww))
    
13. (setq pc (polar pb (/ pi 2) LL))
    
14. (setq pd (polar pc  pi ww))
    
15. (setvar "osmode" 0)
    
16. (command "pline" pa pb pc pd "c")        
    
17. (command "line" pa  pc "")
    
18. (command "line" pb  pd "")
    
19. (prin1)
    
20. )
    
21. (prompt "\n << 5TEST1>>自动直角方形绘制")
    
22. (prin1)
    

(defun c:aa111()<br /> (setvar "cmdecho" 0)<br /> (setvar "blipmode"0)<br /> (setq os (getvar "osmode"))<br /> <br /> (setq pa (getpoint "请输入直角方形左下角点: "))<br /> (setq ww (getreal "\n请输入直角方形底边长度: "))<br /> (setq K  (getreal "\n请输入: "))<br /> <br /> (setq LL (* ww K))<br /> (setq pb (polar pa 0 ww))<br /> (setq pc (polar pb (/ pi 2) LL))<br /> (setq pd (polar pc  pi ww))<br /> (setvar "osmode" 0)<br /> (command "pline" pa pb pc pd "c")        <br /> (command "line" pa  pc "")<br /> (command "line" pb  pd "")<br /> (prin1)<br /> )<br /> (prompt "\n << 5TEST1>>自动直角方形绘制")<br /> (prin1)<br />