nyistjz 发表于 2023-5-14 20:24:08

批量倒C角

本帖最后由 nyistjz 于 2023-5-14 20:26 编辑

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


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





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


nyistjz 发表于 2023-5-15 11:27:08

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


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

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

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

hzyhzjjzh 发表于 2023-5-15 13:04:40

谢谢楼主分享

fan_zh 发表于 2023-5-22 10:48:37

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

缺少xyp- ...

需要安装e派工具箱
页: [1]
查看完整版本: 批量倒C角