求自定义矩形

wjlddh

本人小白，求大神帮忙写个自定义的矩形的LSP 一数字编号为例 输入命令按数字1成矩形（10X10）命令2成矩形（20X20）括号内的矩形大小可以自定义以便能修改 以此推类30个数字   先谢谢大家了

江南十笑

1. ;;一键矩形
   
2. 
   
3. (defun HRectang        (p str)  
   
4.   (command "_.Rectang" p (strcat "@" (vl-string-translate "X" "," str)))  
   
5. )
   
6. (defun C:tt (/ LST P STR)
   
7.   (princ "\n 1<200*200>；2<400*200>；3<400*400>；4<500*500>；5<600*600>；6<700*700>；7<800*800>")
   
8.   (setq lst '("200X200" "400X200" "400X400" "500X500" "600X600" "700X700" "800X800" ))
   
9.   (setq num (getint "\n 请输入矩形对应序号1-7:"))
   
10.   (setq i 0)
    
11.   (foreach x lst
    
12.     (setq p nil)
    
13.     (setq i (+ i 1))
    
14.     (if  (= i num)
    
15.       (cond ((setq p (getpoint "\n 请点击左下角基点")) (HRectang p x)))
    
16.     )
    
17.   )
    
18. )

;;一键矩形<br /> <br /> (defun HRectang        (p str)  <br />   (command "_.Rectang" p (strcat "@" (vl-string-translate "X" "," str)))  <br /> )<br /> (defun C:tt (/ LST P STR)<br />   (princ "\n 1<200*200>；2<400*200>；3<400*400>；4<500*500>；5<600*600>；6<700*700>；7<800*800>")<br />   (setq lst '("200X200" "400X200" "400X400" "500X500" "600X600" "700X700" "800X800" ))<br />   (setq num (getint "\n 请输入矩形对应序号1-7:"))<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 /> )

wjlddh

非常感谢，我保存了LSP 加载到CAD2020版本里面没反应 这是怎么回事啊  是不是缺少了什么

184235521

江南十笑 发表于 2020-10-12 08:50

可以在代码中加入L直角的图形吗？比如200+200的L形图形