多段线顶点倒圆角代码

marting · 发表于 2017-1-14 12:32:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun C:FPSV (/ ver1 pl par)                ; = Fillet Polyline at Selected Vertices
  (setvar 'osmode 1)                        ; ENDpoint only
  (initget 6)
  (setq r (getreal "\nInput Radius:"))
  (command "_.fillet" "_radius" r)
  (while
    (and
      (setq ver1 (getpoint "\nPolyline Vertex to Fillet: "))
      (wcmatch (cdr (assoc 0 (entget (setq pl (ssname (ssget ver1) 0)))))
               "*POLYLINE"
      )
    )                                        ; and
     (setq par (vlax-curve-getParamAtPoint pl ver1))
     (command
       "_.fillet"
       (vlax-curve-getPointAtParam
         pl
         (-
           (if (= par 0)
             (vlax-curve-getEndParam pl)
             par
           )
           0.25
         )                                ; -
       )                                ; ...getPoint
       (vlax-curve-getPointAtParam
         pl
         (+
           (if (= par (vlax-curve-getEndParam pl))
             0
             par
           )
           0.25
         )                                ; +
       )                                ; ...getPoint
     )                                        ; command
  )                                        ; while
  (princ)
)

HLCAD · 发表于 2017-1-14 17:43:27

好程序！非常实用！
感谢楼主分享！！！

sicky111 · 发表于 2017-1-17 00:01:59

建议楼主上个图演示一下。

cq_qg68 · 发表于 2017-1-17 09:16:24

可以选择顶点序号么？

shqvc · 发表于 2018-10-3 09:11:09

能放个视频出来吗我这个着不懂呀

sicky111 · 发表于 2018-10-10 00:09:27

2012用不了，其他版本没有测试。

shqvc · 发表于 2018-10-12 08:05:40

应该正是我想要的先试试好不好用

shqvc · 发表于 2018-10-12 08:11:28

试了一下不是直接批量导呀有没有批量直接一点把所有的都倒成了圆角的那种最好是想批量的时候批量想单独的时候单独

aoway · 发表于 2019-5-7 16:29:06

同求解，可不可以批量倒角！谢谢

aoway · 发表于 2019-5-7 16:59:34

[每日一码] 多段线顶点倒圆角代码【多段线顶点倒圆角代码
http://bbs.xdcad.net/forum.php?m ... &fromuid=724460
(出处: 晓东CAD家园-论坛)
】
可以批量倒圆角吗？封闭的多段线自动倒圆角。
谢谢！非常感谢！

948428749 · 发表于 2019-11-28 16:44:54

版主，这个可不可以做成批量的，不要一个一个点，保留原有的R角不变，只把尖点倒成圆角

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