（XD::POLYLINE:SetRadius）LWPOLYLINE 顶点设置倒角半径

Lispboy · 发表于 2017-8-10 18:16:41

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

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

×

本帖最后由 Lispboy 于 2017-9-14 14:18 编辑

(defun XD::POLYLINE:SetRadius (pl inx r / #bulge #endpoint #startpoint dist1
dist2 garc gNarc gNext gPrev int1 int2
inx-+ isclose numverts pint r1 ret
)
(if (= inx -1)
(progn
(setq verts (xdrx_getpropertyvalue pl "vertices"))
(setq ret (mapcar
'(lambda (y)
(setq inx (xd::polyline:nearindex pl y))
(xd::polyline:setradius pl inx r)
)
verts
)
)
(apply
'or
ret
)
)
(progn
(setq inx (abs inx)
r (abs r)
inx-+ (xd::polyline:-index+ pl inx)
next (last inx-+)
prev (car inx-+)
isclose (xdrx_curve_isclosed pl)
numverts (xdrx_polyline_numverts pl)
)
(cond
((and
(not isclose)
(or
(= inx 0)
(>= inx (1- numverts))
)
)
(setq ret NIL)
)
((setq garc (xdrx_polyline_getarcsegat pl inx t))
(setq r1 (xdge::getpropertyvalue garc "radius"))
(if (and
(setq gNext (xdrx_polyline_getlinesegat pl next t))
(setq gPrev (xdrx_polyline_getlinesegat pl prev t))
)
(progn
(setq pint (car (xdrx_entity_intersectwith gPrev gNext 3)))
(if (equal r 0.0 1e-3)
(progn
(xdrx_polyline_removevertexat pl next)
(xdrx_polyline_setbulgeat pl inx 0.0)
(xdrx_polyline_setpointat pl inx pint)
(setq ret t)
)
(progn
(if (and
(xdge::getpropertyvalue gPrev "startpoint"
"endpoint"
)
(setq dist1 (distance #startpoint pint))
(setq dist2 (* (/ r r1) (distance pint #endpoint)))
(< dist2 dist1)
(setq int1 (polar pint (angle #endpoint #startpoint)
dist2
)
)
(xdge::getpropertyvalue gNext "startpoint"
"endpoint"
)
(setq dist1 (distance #endpoint pint))
(setq dist2 (* (/ r r1) (distance pint #startpoint)))
(< dist2 dist1)
(setq int2 (polar pint (angle #startpoint #endpoint)
dist2
)
)
)
(progn
(xdrx_polyline_setpointat pl inx int1)
(xdrx_polyline_setpointat pl next int2)
(setq ret t)
)
)
)
)
)
)
)
((and
(setq gNext (xdrx_polyline_getlinesegat pl inx t))
(setq gPrev (xdrx_polyline_getlinesegat pl prev t))
)
(if (and
(setq gNarc (xdge::constructor "kCircArc2d"))
(xdge::setpropertyvalue gNarc "set" gPrev gNext r 0.9 0.1)
(xdge::getpropertyvalue gNarc "startpoint" "endpoint"
"bulge"
)
(xdge::getpropertyvalue gPrev "ison" #startpoint)
(xdge::getpropertyvalue gnext "ison" #endpoint)
)
(progn
(if (< #bulge 0.0)
(progn
(xdrx_polyline_setpointat pl inx #endpoint)
(xdrx_polyline_addVertexat pl inx #startpoint #bulge)
(setq ret t)
)
(progn
(xdrx_polyline_setpointat pl inx #startpoint)
(if (and
(= next 0)
isclose
)
(progn
(xdrx_setpropertyvalue pl "closed" nil)
(xdrx_polyline_addVertexat pl (1+ inx) #endpoint)
(xdrx_polyline_setbulgeat pl inx #bulge)
(xdrx_setpropertyvalue pl "closed" t)
)
(progn
(xdrx_polyline_addVertexat pl next #endpoint)
(xdrx_polyline_setbulgeat pl inx #bulge)
)
)
(setq ret t)
)
)
)
)
)
(t
(setq ret NIL)
)
)
(xdge::free garc gprev gnext gnarc)
ret
)
)
)

(defun XD::POLYLINE:SetRadius (pl inx r / #bulge #endpoint #startpoint dist1 
                                  dist2 garc gNarc gNext gPrev int1 int2 
                                  inx-+ isclose numverts pint r1 ret 
                              ) 
  (if (= inx -1) 
    (progn 
      (setq verts (xdrx_getpropertyvalue pl "vertices")) 
      (setq ret (mapcar 
                  '(lambda (y) 
                     (setq inx (xd::polyline:nearindex pl y)) 
                     (xd::polyline:setradius pl inx r) 
                   ) 
                  verts 
                ) 
      ) 
      (apply 
        'or 
        ret 
      ) 
    ) 
    (progn 
      (setq inx (abs inx) 
            r (abs r) 
            inx-+ (xd::polyline:-index+ pl inx) 
            next (last inx-+) 
            prev (car inx-+) 
            isclose (xdrx_curve_isclosed pl) 
            numverts (xdrx_polyline_numverts pl) 
      ) 
      (cond 
        ((and 
           (not isclose) 
           (or 
             (= inx 0) 
             (>= inx (1- numverts)) 
           ) 
         ) 
          (setq ret NIL) 
        ) 
        ((setq garc (xdrx_polyline_getarcsegat pl inx t)) 
          (setq r1 (xdge::getpropertyvalue garc "radius")) 
          (if (and 
                (setq gNext (xdrx_polyline_getlinesegat pl next t)) 
                (setq gPrev (xdrx_polyline_getlinesegat pl prev t)) 
              ) 
            (progn 
              (setq pint (car (xdrx_entity_intersectwith gPrev gNext 3))) 
              (if (equal r 0.0 1e-3) 
                (progn 
                  (xdrx_polyline_removevertexat pl next) 
                  (xdrx_polyline_setbulgeat pl inx 0.0) 
                  (xdrx_polyline_setpointat pl inx pint) 
                  (setq ret t) 
                ) 
                (progn 
                  (if (and 
                        (xdge::getpropertyvalue gPrev "startpoint" 
                                                "endpoint" 
                        ) 
                        (setq dist1 (distance #startpoint pint)) 
                        (setq dist2 (* (/ r r1) (distance pint #endpoint))) 
                        (< dist2 dist1) 
                        (setq int1 (polar pint (angle #endpoint #startpoint) 
                                          dist2 
                                   ) 
                        ) 
                        (xdge::getpropertyvalue gNext "startpoint" 
                                                "endpoint" 
                        ) 
                        (setq dist1 (distance #endpoint pint)) 
                        (setq dist2 (* (/ r r1) (distance pint #startpoint))) 
                        (< dist2 dist1) 
                        (setq int2 (polar pint (angle #startpoint #endpoint) 
                                          dist2 
                                   ) 
                        ) 
                      ) 
                    (progn 
                      (xdrx_polyline_setpointat pl inx int1) 
                      (xdrx_polyline_setpointat pl next int2) 
                      (setq ret t) 
                    ) 
                  ) 
                ) 
              ) 
            ) 
          ) 
        ) 
        ((and 
           (setq gNext (xdrx_polyline_getlinesegat pl inx t)) 
           (setq gPrev (xdrx_polyline_getlinesegat pl prev t)) 
         ) 
          (if (and 
                (setq gNarc (xdge::constructor "kCircArc2d")) 
                (xdge::setpropertyvalue gNarc "set" gPrev gNext r 0.9 0.1) 
                (xdge::getpropertyvalue gNarc "startpoint" "endpoint" 
                                        "bulge" 
                ) 
                (xdge::getpropertyvalue gPrev "ison" #startpoint) 
                (xdge::getpropertyvalue gnext "ison" #endpoint) 
              ) 
            (progn 
              (if (< #bulge 0.0) 
                (progn 
                  (xdrx_polyline_setpointat pl inx #endpoint) 
                  (xdrx_polyline_addVertexat pl inx #startpoint #bulge) 
                  (setq ret t) 
                ) 
                (progn 
                  (xdrx_polyline_setpointat pl inx #startpoint) 
                  (if (and 
                        (= next 0) 
                        isclose 
                      ) 
                    (progn 
                      (xdrx_setpropertyvalue pl "closed" nil) 
                      (xdrx_polyline_addVertexat pl (1+ inx) #endpoint) 
                      (xdrx_polyline_setbulgeat pl inx #bulge) 
                      (xdrx_setpropertyvalue pl "closed" t) 
                    ) 
                    (progn 
                      (xdrx_polyline_addVertexat pl next #endpoint) 
                      (xdrx_polyline_setbulgeat pl inx #bulge) 
                    ) 
                  ) 
                  (setq ret t) 
                ) 
              ) 
            ) 
          ) 
        ) 
        (t 
          (setq ret NIL) 
        ) 
      ) 
      (xdge::free garc gprev gnext gnarc) 
      ret 
    ) 
  ) 
)

sicky111 · 发表于 2017-8-21 00:08:02

支持一下。

shqvc · 发表于 2018-9-27 18:45:14

能告诉我这个如何用吗哪个命令是能不能做一个小视频呀谢谢了

xinrstar · 发表于 2018-10-30 09:40:49

aoway · 发表于 2019-5-7 16:04:46

日文系统，日文的autocad2017，如何加载？？

wzjck01 · 发表于 2021-6-20 17:08:30

学习，学习。

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

[多段线] （XD::POLYLINE:SetRadius）LWPOLYLINE 顶点设置倒角半径

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