圆角倒直角

624777395 · 发表于 9 小时前

求大神帮忙写一下这个功能的代码，画圆角延伸线，圆角保留不变，最好是多段线的情况也可以用

Andyhon · 发表于 9 小时前

全选所有外侧圆弧
或点选个别圆弧
比选线不是更省事?

自贡黄明儒 · 发表于 9 小时前

本帖最后由自贡黄明儒于 2024-9-23 13:18 编辑

我也偶尔这样画，都是手工完成，觉得没必要用程序。如果经常这样干，有程序倒是比较方便

统一网名 · 发表于 5 小时前

本帖最后由统一网名于 2024-9-23 15:05 编辑

(defun c:tt6 (/ a b ename jd ss zx1 zx2)
(vl-load-com)
(setq ename (car (entsel "\n选择对象:")))
(setq a (vlax-curve-getstartpoint ename))
(setq b (vlax-curve-getendpoint ename))
(setq ss (ssget "c" a b '((0 . "LINe"))))
(setq zx1 (ssname ss 0))
(setq zx2 (ssname ss 1))
(setq jd (vlax-invoke (vlax-ename->vla-object zx2) 'IntersectWith (vlax-ename->vla-object zx1) acExtendBoth))
;(command "_extend" "" (list zx1 jd) "");延长原来直线到交点
;(command "_extend" "" (list zx2 jd) "");延长原来直线到交点
(command "line" a jd "")
(command "line" b jd "")
(princ)
)

624777395 · 发表于 3 小时前

自贡黄明儒发表于 2024-9-23 11:18
我也偶尔这样画，都是手工完成，觉得没必要用程序。如果经常这样干，有程序倒是比较方便

大佬，这个怎么实现的？

624777395 · 发表于 3 小时前

本帖最后由 624777395 于 2024-9-23 17:09 编辑

统一网名发表于 2024-9-23 14:58(defun c:tt6 (/ a b ename jd ss zx1 zx2) (vl-load-com) (setq ename (car (entsel "\n ...

大佬，这个只对普通线有用，如果圆弧和相邻的线是连接在一起的多段线就识别不了

统一网名 · 发表于半小时前

624777395 发表于 2024-9-23 16:48
大佬，这个只对普通线有用，如果圆弧和相邻的线是连接在一起的多段线就识别不了

(setq ss (ssget "c" a b '((0 . "LINe,LWPOLYLINE")))) 改一行代码

账号		自动登录	找回密码
密码			注册

[提问] 圆角倒直角