带圆角矩形

tfanghui

            此程序借鉴
            怎么在新图层进行标注完成后返回当前图层
http://bbs.mjtd.com/forum.php?mo ... 137&fromuid=7330607
(出处: 明经CAD社区)
                  图层返回但是没有成功，不知道少了什么代码。
带圆角的矩形，美中不足的是：   

1、画这完这个带圆角矩形要重新设置矩形的圆角，才可以画正常不带圆角的矩形，
2、不可以返回原来的图层，返回图层的代码在别的程序可以运行，在这里似乎不起作用。

(defun c:R5(/ old_lay vv layer)
    (setq old_lay (getvar "clayer")) ;保存当前图层
    (setq vv (getvar "osmode")) ;保存当前捕捉方式
  (command "layer" "m" "矩形" "c" "3" "" "")
    (command "RECTANG" "F" 5 "")  
    (command "RECTANG" "F" 0 "")  
    (setvar "osmode" vv) ;恢复原先捕捉方式
    (setvar "clayer" old_lay) ;恢复原先图层
        (princ)
)




哪位大神指点一下！！谢谢！！

Sonnenblumen

再提供一种思路吧！

2. (defun c:R5(/ old_lay)
   
3.         (setq old_lay (getvar "clayer")) ;保存当前图层
   
4.   (vl-cmdf "layer" "m" "矩形" "c" "3" "" "")
   
5.         (vl-cmdf "RECTANG" pause pause)  
   
6.         (vl-cmdf "fillet" "p" "r" 5 (entlast))
   
7.         (setvar "clayer" old_lay) ;恢复原先图层
   
8.         (princ)
   
9. )

(defun c:R5(/ old_lay)<br />         (setq old_lay (getvar "clayer")) ;保存当前图层<br />   (vl-cmdf "layer" "m" "矩形" "c" "3" "" "")<br />         (vl-cmdf "RECTANG" pause pause)  <br />         (vl-cmdf "fillet" "p" "r" 5 (entlast))<br />         (setvar "clayer" old_lay) ;恢复原先图层<br />         (princ)<br /> )

ssyfeng

这样应该可以了：
(defun c:R5 (/ old_lay vv layer)
        (setq old_lay (getvar "clayer")) ;保存当前图层
        (setq vv (getvar "osmode")) ;保存当前捕捉方式
        (command "layer" "m" "矩形" "c" "3" "" "")
        (command "RECTANG" "F" 5)
        (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
        (setvar "osmode" vv) ;恢复原先捕捉方式
        (setvar "clayer" old_lay) ;恢复原先图层
        (command "RECTANG" "F" 0)
        (command)
        (princ)
)

ssyfeng

是不是这样：
(defun c:R5 (/ old_lay vv layer)
        (setq old_lay (getvar "clayer")) ;保存当前图层
        (setq vv (getvar "osmode")) ;保存当前捕捉方式
        (command "layer" "m" "矩形" "c" "3" "" "")
        (command "RECTANG" "F" 5 pause)
        (setvar "osmode" vv) ;恢复原先捕捉方式
        (setvar "clayer" old_lay) ;恢复原先图层
        (princ)
)

tfanghui

ssyfeng 发表于 2022-9-1 09:10
是不是这样：
(defun c:R5 (/ old_lay vv layer)
        (setq old_lay (getvar "clayer")) ;保存当前图层

你好，大神，图层可以返回了，感谢指点，但是恢复圆角为直角，还是不行，

liuhe

ssyfeng 发表于 2022-9-1 11:16
这样应该可以了：
(defun c:R5 (/ old_lay vv layer)
        (setq old_lay (getvar "clayer")) ;保存当前图层
...

原理是你 多用用F快捷键就知道，每一次调用F圆角命令，系统都会自动记录上次设定R半径，要想恢复原来都R，必须记录原先的R，然后再恢复。你原先都R正好是0而已

tfanghui

liuhe 发表于 2022-9-1 14:54
原理是你 多用用F快捷键就知道，每一次调用F圆角命令，系统都会自动记录上次设定R半径，要想恢复原来都R ...

是的，所以这个代码就比较长，后面的是画好矩形再倒角，省去了恢复的步骤。

chq168168

2. (defun c:JLQ (/ old_lay vv layer)
   
3.         (setq old_lay (getvar "clayer")) ;保存当前图层
   
4.         (setq vv (getvar "osmode")) ;保存当前捕捉方式
   
5.         (setq rad (getdist "输入直径<0>：:"))
   
6.         (if (not rad)(setq rad 0));设置默认值为0
   
7.         (command "layer" "m" "矩形" "c" "3" "" "")
   
8.         (command "rectang" "F" rad)
   
9.         (while (> (getvar "cmdactive") 0) (command pause))
   
10.         (setvar "osmode" vv) ;恢复原先捕捉方式
    
11.         (setvar "clayer" old_lay) ;恢复原先图层
    
12.                 (command)
    
13.         (princ)
    
14. )

(defun c:JLQ (/ old_lay vv layer)<br />         (setq old_lay (getvar "clayer")) ;保存当前图层<br />         (setq vv (getvar "osmode")) ;保存当前捕捉方式<br />         (setq rad (getdist "输入直径<0>：:"))<br />         (if (not rad)(setq rad 0));设置默认值为0<br />         (command "layer" "m" "矩形" "c" "3" "" "")<br />         (command "rectang" "F" rad)<br />         (while (> (getvar "cmdactive") 0) (command pause))<br />         (setvar "osmode" vv) ;恢复原先捕捉方式<br />         (setvar "clayer" old_lay) ;恢复原先图层<br />                 (command)<br />         (princ)<br /> )