一键画矩形框

love1030312

   鉴于cad画矩形比较麻烦了 每天用的比较多   所以求个一键画矩形
要求
1 程序开始后 出选项1.2.3.4.5.6.7.8.9
2 后按对应的数字
3 点击一基点 出来对应的这个矩形框    （图层为当前层就行）  


以下参数我自己在程序中设置
1 10X20  2 100X200  3 1000X1000   4 500X600 ..............  9  1000X1200

小白一枚  感谢长老和高手的帮忙  我想加个默认为1应该如何加   谢谢

2. (defun HRectang        (p str)  
   
3.   (command "_.Rectang" p (strcat "@" (vl-string-translate "X" "," str)))  
   
4. )
   
5. (defun C:q1 (/ LST P STR)
   
6.   (princ "\n ①<980*980>；②<480*580>；③<680*780>；④<780*980>；⑤<980*1180>")
   
7. (setq lst '("980X980" "480X580" "680X780" "780X980" "980X1180"))
   
8. (setq num (getint "\n 请输入矩形对应序号1-5:"))
   
9.   (setq i 0)
   
10.   (foreach x lst
    
11.     (setq p nil)
    
12.     (setq i (+ i 1))
    
13.     (if  (= i num)
    
14.       (cond ((setq p (getpoint "\n 请点击基点")) (HRectang p x)))
    
15.     )
    
16.   )
    
17. )

(defun HRectang        (p str)  <br />   (command "_.Rectang" p (strcat "@" (vl-string-translate "X" "," str)))  <br /> )<br /> (defun C:q1 (/ LST P STR)<br />   (princ "\n ①<980*980>；②<480*580>；③<680*780>；④<780*980>；⑤<980*1180>")<br /> (setq lst '("980X980" "480X580" "680X780" "780X980" "980X1180"))<br /> (setq num (getint "\n 请输入矩形对应序号1-5:"))<br />   (setq i 0)<br />   (foreach x lst<br />     (setq p nil)<br />     (setq i (+ i 1))<br />     (if  (= i num)<br />       (cond ((setq p (getpoint "\n 请点击基点")) (HRectang p x)))<br />     )<br />   )<br /> )

自贡黄明儒

1. 
   
2. (defun HRectang        (p str)  
   
3.   (command "_.Rectang" p (strcat "@" (vl-string-translate "X" "," str)))  
   
4. )
   
5. (defun C:w1 (/ LST P STR)
   
6.   (setq lst '("10X20" "100X200" "1000X1000" "500X600"))
   
7.   (foreach x lst
   
8.     (setq p nil)
   
9.     (cond ((setq p (getpoint "\n 基点")) (HRectang p x)))
   
10.   )
    
11. )
    

</font><br /> (defun HRectang        (p str)  <br />   (command "_.Rectang" p (strcat "@" (vl-string-translate "X" "," str)))  <br /> )<br /> (defun C:w1 (/ LST P STR)<br />   (setq lst '("10X20" "100X200" "1000X1000" "500X600"))<br />   (foreach x lst<br />     (setq p nil)<br />     (cond ((setq p (getpoint "\n 基点")) (HRectang p x)))<br />   )<br /> )<br />

自贡黄明儒

1 10X20  2 100X200  3 1000X1000   4 500X600 ..............  9  1000X1200这是什么？一串字字符(setq str "1 10X20  2 100X200  3 1000X1000   4 500X600 ..............  9  1000X1200");还是给定(Hrec p "10X20")画？

love1030312

自贡黄明儒 发表于 2015-2-3 12:57
1 10X20  2 100X200  3 1000X1000   4 500X600 ..............  9  1000X1200这是什么？一串字字符(setq st ...

万分感谢长老回帖   1 10x20  这些就是  1是编号 10x20  是宽和长

Bellahx

楼主是想输入数字，画出对应的图形么，我加了几句在长老的代码里，你看下是否可行。加在表后面。

1. (setq num (getint "please enter 1-9:"))
   
2.   (setq i 0)
   
3.   (foreach x lst
   
4.     (setq p nil)
   
5.     (setq i (+ i 1))
   
6.     (if  (= i num)
   
7.       (cond ((setq p (getpoint "\n 基点")) (HRectang p x)))
   
8.     )
   
9.   )
   

(setq num (getint "please enter 1-9:"))<br />   (setq i 0)<br />   (foreach x lst<br />     (setq p nil)<br />     (setq i (+ i 1))<br />     (if  (= i num)<br />       (cond ((setq p (getpoint "\n 基点")) (HRectang p x)))<br />     )<br />   )<br />

love1030312

高手们  大神们  长老版主们  帮忙改改   小白在此万分感谢

Bellahx

love1030312 发表于 2015-2-7 20:31
高手们  大神们  长老版主们  帮忙改改   小白在此万分感谢

抱歉哈 才看到，后面加一句(if (= num nil) (setq num 1)）
看下是否可行。

winerfjy

好东西值得学习

lg328084985

新人学习一下

999999

请问你也是模界的人吗