(XD::Polyline:SetFillet)改变一个倒角的样式，灵活的根据参数变成尖角、C角、F角

newer · 发表于 2013-10-29 18:56:17

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

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

×

本帖最后由 newer 于 2013-10-30 23:44 编辑

该函数应用程序，非模式对话框批量倒角插件，见：http://bbs.xdcad.net/thread-671374-1-1.html

;|
改变一个倒角的样式，灵活的根据参数变成尖角、C角、F角
参数：
e ---- LWPOLYLINE
index- 有效的顶点索引值
flag - 倒角方式
0 ：尖角 ?
1 ： C角（距离=半径）
2 ： C角（弧线两端点连线）
对于直线段，如果给0，变成尖角，如果给1，倒角较小索引方向的长度改成半径值倒F角
返回值：
0：成功
1：新顶点超出曲线范围
2：对不封闭线多点操作非法
3：
4：顶点索引超出范围
|;
(defun XD::Polyline:SetFillet (e index flag / an anc bulge dis dis1 dis2
eL1 eL2 info int inx next num p_1 p_2 p0
p1 p2 p3 radius ret tf v1 v2 x xdata
xdata1 xdata2
)
(setq inx (XD::PolyLine:-Index+ e index)
num (xdrx_polyline_numVerts e)
)
(if (and
(setq ret 4);顶点索引超出范围
(>= index 0)
(< index num)
(setq ret 2);;对不封闭线多点操作非法
(or
(xdrx_getpropertyvalue e "IsClosed")
(and
(/= (last inx) 0) ; 不封闭线判断是否是两端点，是退出
(/= (car inx) (1- num))
)
)
)
(progn
(setq ret 3
tf (xdrx_polyline_segtype e index)
)
(cond
((= tf "kArc")
(setq info (xdrx_polyline_getArcSegAt e index)
bulge (abs (xdrx_polyline_getBulgeAt e index))
p1 (xdrx_polyline_getPointAt e index)
p0 (xdrx_polyline_getPointAt e (car inx))
v1 (mapcar
'-
p0
p1
)
p2 (xdrx_polyline_getPointAt e (last inx))
p3 (xdrx_polyline_getPointAt e (last
(XD::PolyLine:-Index+ e
(last inx)
)
)
)
v2 (mapcar
'-
p3
p2
)
v1 (xdrx_vector_normalize v1)
v2 (xdrx_vector_normalize v2)
int (car (xdrx_curve_getinters (list p0 p1) (list p2 p3) 3))
)
(cond
((= (xdrx_polyline_segtype e (last inx)) "kArc")
(xdrx_polyline_setBulgeAt e index 0.0)
(setq ret 0)
)
((= flag 0)
(xdrx_polyline_setBulgeAt e index 0.0)
(xdrx_polyline_removeVertexAt e index)
(if (= 0 (last inx))
(xdrx_polyline_setPointAt e 0 int)
(xdrx_polyline_setPointAt e index int)
)
(setq ret 0)
)
((= flag 1)
(setq an (* 4 (xdrx_math_atan bulge))
dis (* (nth 2 info) (xdrx_math_tan (/ an 2.0)))
p_1 (mapcar
'+
int
(xdrx_vector_product v1 (nth 2 info))
)
p_2 (mapcar
'+
int
(xdrx_vector_product v2 (nth 2 info))
)
)
(setq ret 1)
(if (and
(xdrx_point_ison p_1 e)
(xdrx_point_ison p_2 e)
)
(progn
(xdrx_polyline_setBulgeAt e index 0.0)
(xdrx_polyline_setPointAt e (last inx) p_2)
(xdrx_polyline_setPointAt e index p_1)
(setq ret 0)
)
)
)
((= flag 2)
(xdrx_polyline_setBulgeAt e index 0.0)
(setq ret 0)
)
)
)
((= tf "kLine") ; 移除kLine段倒角
(if (and
(> num 3)
(member index (setq xdata (xdrx_xdata_get e "XD_FILLET")))
(= (xdrx_polyline_segtype e (last inx)) "kLine")
)
(progn
(setq eL1 (xdrx_polyline_getLineSegAt e (car inx))
eL2 (xdrx_polyline_GetLineSegAt e (last inx))
int (car (xdrx_curve_getinters eL1 eL2 3))
v1 (xdrx_vector_normalize (mapcar
'-
(car eL1)
int
)
)
v2 (xdrx_vector_normalize (mapcar
'-
(cadr eL2)
int
)
)
radius (distance (last eL1) int)
)
(cond
((= flag 0)
(xdrx_polyline_removeVertexAt e (last inx))
(xdrx_polyline_setPointAt e index int)
)
(t
(setq an (xdrx_vector_angle v1 v2)
anc (- pi an)
dis (* radius (xdrx_math_tan (/ anc 2.0)))
dis1 dis
dis2 dis
bulge (xdrx_math_tan (/ anc 4.0))
)
(if (not (xdrx_curve_direction e))
(setq bulge (- bulge))
)
(setq p_1 (mapcar
'+
int
(xdrx_vector_product v1 dis1)
)
p_2 (mapcar
'+
int
(xdrx_vector_product v2 dis2)
)
)
(setq ret 1) ; 算点不在曲线上
(setq next (cadr inx))
(xdrx_polyline_setPointAt e index p_1)
(xdrx_polyline_setPointAt e (last inx) p_2)
(xdrx_polyline_setBulgeAt e index bulge)
)
)
(setq ret 0)
)
)
)
)
)
)
(if (= ret 0)
(progn
(if (= flag 0)
(progn
(setq xdata1 (xdrx_xdata_get e "XD_FILLET")
xdata1 (vl-sort xdata1 '<)
xdata2 (member index xdata1)
xdata (append
(reverse (cdr (member index (reverse xdata1))))
(mapcar
'(lambda (x)
(1- x)
)
(cdr xdata2)
)
)
)
(if (= (length xdata) 0)
(xdrx_object_removeXdata e "XD_FILLET")
(apply
'xdrx_xdata_set
(cons e (cons "XD_FILLET" xdata))
)
)
)
)
)
)
ret
)

;| 
改变一个倒角的样式， 灵活的根据参数变成尖角、C角、F角 
参数： 
   e ---- LWPOLYLINE 
   index- 有效的顶点索引值 
   flag - 倒角方式 
          0 ： 尖角  ? 
          1 ： C角 （距离=半径） 
          2 ： C角 （弧线两端点连线） 
 
          对于直线段，如果给0，变成尖角，如果给1，倒角较小索引方向的长度改成半径值倒F角 
 
返回值： 
   0：成功 
   1：新顶点超出曲线范围 
   2：对不封闭线多点操作非法 
   3： 
   4：顶点索引超出范围 
|; 
(defun XD::Polyline:SetFillet (e index flag / an anc bulge dis dis1 dis2 
                                        eL1 eL2 info int inx next num p_1 p_2 p0 
                                        p1 p2 p3 radius ret tf v1 v2 x xdata 
                                        xdata1 xdata2 
                                     ) 
  (setq inx (XD::PolyLine:-Index+ e index) 
        num (xdrx_polyline_numVerts e) 
  ) 
  (if (and 
        (setq ret 4);顶点索引超出范围 
        (>= index 0) 
        (< index num) 
        (setq ret 2);;对不封闭线多点操作非法 
        (or 
          (xdrx_getpropertyvalue e "IsClosed") 
          (and 
            (/= (last inx) 0)               ; 不封闭线判断是否是两端点，是退出 
            (/= (car inx) (1- num)) 
          ) 
        ) 
      ) 
    (progn 
      (setq ret 3 
            tf (xdrx_polyline_segtype e index) 
      ) 
      (cond 
        ((= tf "kArc") 
          (setq info (xdrx_polyline_getArcSegAt e index) 
                bulge (abs (xdrx_polyline_getBulgeAt e index)) 
                p1 (xdrx_polyline_getPointAt e index) 
                p0 (xdrx_polyline_getPointAt e (car inx)) 
                v1 (mapcar 
                     '- 
                     p0 
                     p1 
                   ) 
                p2 (xdrx_polyline_getPointAt e (last inx)) 
                p3 (xdrx_polyline_getPointAt e (last 
                                                     (XD::PolyLine:-Index+ e 
                                                                           (last inx) 
                                                     ) 
                                               ) 
                   ) 
                v2 (mapcar 
                     '- 
                     p3 
                     p2 
                   ) 
                v1 (xdrx_vector_normalize v1) 
                v2 (xdrx_vector_normalize v2) 
                int (car (xdrx_curve_getinters (list p0 p1) (list p2 p3) 3)) 
          ) 
          (cond 
            ((= (xdrx_polyline_segtype e (last inx)) "kArc") 
              (xdrx_polyline_setBulgeAt e index 0.0) 
              (setq ret 0) 
            ) 
            ((= flag 0) 
              (xdrx_polyline_setBulgeAt e index 0.0) 
              (xdrx_polyline_removeVertexAt e index) 
              (if (= 0 (last inx)) 
                (xdrx_polyline_setPointAt e 0 int) 
                (xdrx_polyline_setPointAt e index int) 
              ) 
              (setq ret 0) 
            ) 
            ((= flag 1) 
              (setq an (* 4 (xdrx_math_atan bulge)) 
                    dis (* (nth 2 info) (xdrx_math_tan (/ an 2.0))) 
                    p_1 (mapcar 
                          '+ 
                          int 
                          (xdrx_vector_product v1 (nth 2 info)) 
                        ) 
                    p_2 (mapcar 
                          '+ 
                          int 
                          (xdrx_vector_product v2 (nth 2 info)) 
                        ) 
              ) 
              (setq ret 1) 
              (if (and 
                    (xdrx_point_ison p_1 e) 
                    (xdrx_point_ison p_2 e) 
                  ) 
                (progn 
                  (xdrx_polyline_setBulgeAt e index 0.0) 
                  (xdrx_polyline_setPointAt e (last inx) p_2) 
                  (xdrx_polyline_setPointAt e index p_1) 
                  (setq ret 0) 
                ) 
              ) 
            ) 
            ((= flag 2) 
              (xdrx_polyline_setBulgeAt e index 0.0) 
              (setq ret 0) 
            ) 
          ) 
        ) 
        ((= tf "kLine")                       ; 移除kLine段倒角 
          (if (and 
                (> num 3) 
                (member index (setq xdata (xdrx_xdata_get e "XD_FILLET"))) 
                (= (xdrx_polyline_segtype e (last inx)) "kLine") 
              ) 
            (progn 
              (setq eL1 (xdrx_polyline_getLineSegAt e (car inx)) 
                    eL2 (xdrx_polyline_GetLineSegAt e (last inx)) 
                    int (car (xdrx_curve_getinters eL1 eL2 3)) 
                    v1 (xdrx_vector_normalize (mapcar 
                                                '- 
                                                (car eL1) 
                                                int 
                                              ) 
                       ) 
                    v2 (xdrx_vector_normalize (mapcar 
                                                '- 
                                                (cadr eL2) 
                                                int 
                                              ) 
                       ) 
                    radius (distance (last eL1) int) 
              ) 
              (cond 
                ((= flag 0) 
                  (xdrx_polyline_removeVertexAt e (last inx)) 
                  (xdrx_polyline_setPointAt e index int) 
                ) 
                (t 
                  (setq an (xdrx_vector_angle v1 v2) 
                        anc (- pi an) 
                        dis (* radius (xdrx_math_tan (/ anc 2.0))) 
                        dis1 dis 
                        dis2 dis 
                        bulge (xdrx_math_tan (/ anc 4.0)) 
                  ) 
                  (if (not (xdrx_curve_direction e)) 
                    (setq bulge (- bulge)) 
                  ) 
                  (setq p_1 (mapcar 
                              '+ 
                              int 
                              (xdrx_vector_product v1 dis1) 
                            ) 
                        p_2 (mapcar 
                              '+ 
                              int 
                              (xdrx_vector_product v2 dis2) 
                            ) 
                  ) 
                  (setq ret 1)               ; 算点不在曲线上 
                  (setq next (cadr inx)) 
                  (xdrx_polyline_setPointAt e index p_1) 
                  (xdrx_polyline_setPointAt e (last inx) p_2) 
                  (xdrx_polyline_setBulgeAt e index bulge) 
                ) 
              ) 
              (setq ret 0) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (if (= ret 0) 
    (progn 
      (if (= flag 0) 
        (progn 
          (setq xdata1 (xdrx_xdata_get e "XD_FILLET") 
                xdata1 (vl-sort xdata1 '<) 
                xdata2 (member index xdata1) 
                xdata (append 
                        (reverse (cdr (member index (reverse xdata1)))) 
                        (mapcar 
                          '(lambda (x) 
                             (1- x) 
                           ) 
                          (cdr xdata2) 
                        ) 
                      ) 
          ) 
          (if (= (length xdata) 0) 
            (xdrx_object_removeXdata e "XD_FILLET") 
            (apply 
              'xdrx_xdata_set 
              (cons e (cons "XD_FILLET" xdata)) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  ret 
)

aeo · 发表于 2013-10-29 21:34:41

不就fillet 就可以吗。何必写那么多记不住的命令.

而且程序好像没判断那个角合不合法，比如可能不是相切的。

newer · 发表于 2013-10-29 22:38:49

aeo 发表于 2013-10-29 21:34
不就fillet 就可以吗。何必写那么多记不住的命令.

而且程序好像没判断那个角合不合法，比如可能不是相切 ...

1、FILTER只能完成尖角，不能继续导成C角
2、即使先用FILTER导成尖角，那么再用CHAMPER命令导C角导多少也不知道，要算
3、最重要的，FILTER不能批量，这个函数是给批量一次性处理大量FILTER，圆角-》C脚，清空F角使用的。

newer · 发表于 2013-10-29 22:40:44

aeo 发表于 2013-10-29 21:34
不就fillet 就可以吗。何必写那么多记不住的命令.

而且程序好像没判断那个角合不合法，比如可能不是相切 ...

另，函数是在有圆角的情况下用的，判断了是否是圆角，所以，变成尖角和C脚不用判断合法不合法。

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

[多段线] (XD::Polyline:SetFillet)改变一个倒角的样式，灵活的根据参数变成尖角、C角、F角

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

点评

[多段线] (XD::Polyline:SetFillet)改变一个倒角的样式， 灵活的根据参数变成尖角、C角、F角

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

点评

[多段线] (XD::Polyline:SetFillet)改变一个倒角的样式，灵活的根据参数变成尖角、C角、F角