批量倒C角

nyistjz

如图，请教高手，如何一次性选中多个圆角矩形，批量对右下角进行倒C角。
主要是不太明白，怎么自动选中需要进行倒角的两条连线。

xyp1964

1. (defun c:tt ()
   
2.   (xyp-Start)
   
3.   (setvar 'CHAMMODE 0)
   
4.   (setvar 'CHAMFERA 300)
   
5.   (setvar 'CHAMFERB 300)
   
6.   (setq i -1)
   
7.   (if (setq ss (ssget '((0 . "*poly*"))))
   
8.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.       (setq p2 (xyp-9pt s1 2)
   
10.             p6 (xyp-9pt s1 6)
    
11.       )
    
12.       (command "chamfer" p2 p6)
    
13.     )
    
14.   )
    
15.   (xyp-End)
    
16. )
    
17. 
    

(defun c:tt ()<br />   (xyp-Start)<br />   (setvar 'CHAMMODE 0)<br />   (setvar 'CHAMFERA 300)<br />   (setvar 'CHAMFERB 300)<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "*poly*"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq p2 (xyp-9pt s1 2)<br />             p6 (xyp-9pt s1 6)<br />       )<br />       (command "chamfer" p2 p6)<br />     )<br />   )<br />   (xyp-End)<br /> )<br /> <br />

nyistjz

xyp1964 发表于 2023-5-14 23:37

谢谢您的回复，本想回复牛逼，膜拜，仔细一看，老大，您发的这个不完整啊，少东西啦。

缺少xyp-Start，xyp-End，xyp-9pt，这些函数的定义程序啊。

您看能补充一下吗，感谢！

hzyhzjjzh

谢谢楼主分享

fan_zh

nyistjz 发表于 2023-5-15 11:27
谢谢您的回复，本想回复牛逼，膜拜，仔细一看，老大，您发的这个不完整啊，少东西啦。

缺少xyp- ...

需要安装e派工具箱