修改多段线凸度

CSharpBoy

爱莫能助 发表于 2016-10-13 09:29

仔细看论坛置顶帖子，所有答案都在里面找到。

去这个帖子：http://bbs.xdcad.net/thread-668896-1-1.html， 直接下载XDRX API，安装它。

最安全的方法（不需要你有什么知识），就是直接安装 晓东工具箱

爱莫能助

CSharpBoy 发表于 2016-10-13 09:39

好的.......................

newer

爱莫能助 发表于 2016-10-13 09:42

再送你一个批量处理的

(defun c:tt ()
  (defun _arc (e)
    (setq num (xdrx_polyline_numVerts e))
    (setq i -1)
    (repeat num
      (if (setq arc (xdrx_getpropertyvalue e "arcsegat" (setq i (1+ i))))
        (progn
          (xdge::getpropertyvalue arc "bulge" "startpoint" "endpoint")
          (setq pts (xdge::getpropertyvalue arc "getsamplepoints" 3))
          (setq isclockwise (XD::Pnts:isClockWise pts))
          (setq dis (distance #startpoint #endpoint))
          (setq bulge1 (/ (* 2 h) dis))
          (if #isclockwise
            (setq bulge1 (- bulge1))
          )
          (xdrx_setpropertyvalue e "bulgeat" (list i bulge1))
        )
      )
    )
  )
  (if (and
        (setq h (getreal "\n输入弦高距<退出>:"))
        (xdrx_prompt "\n选取带弧段多段线<退出>:")
        (setq ss (ssget '((0 . "*polyline") (-4 . "<>")
                         (42 . 0)
                        )
                 )
        )
      )
    (progn
      (xdrx_setsstodb ss 0)
      (while (setq e (xdrx_getentdata 0))
        (if (= "POLYLINE" (car (xdrx_object_classname e)))
          (xdrx_polyline_convertfrom e)
        )
        (_arc e)
      )
    )
  )
  (princ)
)

爱莫能助

newer 发表于 2016-10-13 11:42

大神
非常好用啊  谢谢啊
那像我图片中说的，凸度旁边的过滤R角可以实现吗？

newer

爱莫能助 发表于 2016-10-13 18:42

我看看，抽空弄出来。你这个是做什么用到这个插件？ 把你工作的例子做个动画图片传上来吧。以后我更新每日插件用。

爱莫能助

newer 发表于 2016-10-13 19:56

这个功能，是用到模具的，冲模的时候转角地方会拉料，所以弄个凸的R角出来
做模具行业的要用到吧

newer

爱莫能助 发表于 2016-10-14 10:20

给你个交互的版本，测试下，在已经变好的圆弧上， 在倒 圆弧和直线的角。

(defun c:tt1()
   (defun _line1(line arc r)
      (setq cir (xdge::constructor "kCircArc3d"))
      (if (setq data (xdge::setpropertyvalue cir "set" line arc r 0.9 0.1))
        (progn
           (xdge::getpropertyvalue (car data) "startpoint" "endpoint" "bulge")
           (xdrx_polyline_setPointAt e inx #startpoint)
           (xdrx_polyline_setBulgeAt e inx #bulge)
           (setq bulge1 (/ (* 2 h) (distance #startpoint #endpoint)))
           (xdge::setpropertyvalue arc "setinterval" #endpoint ept)
           (setq bulge1 (xdge::getpropertyvalue arc "bulge"))
           (xdrx_polyline_addVertexAt e (1+ inx) #endpoint bulge1)
        )
      )
   )
   (defun _line2(arc line r)
      (setq cir (xdge::constructor "kCircArc3d"))
      (if (setq data (xdge::setpropertyvalue cir "set" arc line r (- (xdge::getpropertyvalue arc "endparam") 0.2) 0.1 ))
        (progn
           (xdge::getpropertyvalue (car data) "startpoint" "endpoint" "bulge")
           (setq ept #startpoint)
           (xdrx_polyline_addVertexAt e inx #startpoint #bulge)
           (xdrx_polyline_setPointAt e (1+ inx) #endpoint)
           (xdge::setpropertyvalue arc "setinterval" (xdge::getpropertyvalue arc "startpoint") ept)
           (setq bulge1 (xdge::getpropertyvalue arc "bulge"))
           (xdrx_setpropertyvalue e "bulgeat" (list (1- inx) bulge1))
        )
      )
   )
   (if (and (setq r (getreal "\n输入半径<退出>:"))
        (setq e (xdrx_entsel "\n拾取多段线弧线段<退出>:" '((0 . "*polyline"))))
        (setq pt (cadr e)
              e (car e)
        )
        (if (= "POLYLINE" (car (xdrx_object_classname e)))
           (xdrx_polyline_convertfrom e)
           t
        )
        (setq pt (xdrx_curve_getclosestpoint e pt)
              inx (xd::polyline:onsegat e pt)
        )
        (setq arc (xdrx_getpropertyvalue e "arcsegat" inx))
       )
     (progn
      (xdge::getpropertyvalue arc "bulge" "startpoint" "endpoint")
       (setq bulge1 #bulge
             h (/ (* (distance #startpoint #endpoint) bulge1) 2.0)
             ept #endpoint
             inxs (xd::polyline:-index+ (entlast) inx))
       (if (setq line1 (xdrx_getpropertyvalue e "linesegat" (car inxs)))
         (_line1 line1 arc r)
       )
       (if (> (last inxs) 0)
         (setq inx (setq inx (1+ (cadr inxs))))
         (setq inx 0)
       )
       (if (setq line1 (xdrx_getpropertyvalue e "linesegat" inx))
         (_line2 arc line1 r)
       )
     )
   )
   (princ)
)

爱莫能助

newer 发表于 2016-10-14 11:00

谢谢啊
用了2天，非常好用。

sicky111

太棒了，支持。

kqqt6236

正需要这个功能。