求闭合PL线倒R角程序查了资料，自己折腾了老半天，怒删了没完成的作品

ysq101 · 发表于 2013-12-18 17:41:40

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

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

×

求闭合PL线倒R角程序查了资料，自己折腾了老半天，怒删了没完成的作品

搞得我头都大了。。。真心投降了。。。看来还是得请求各位大师出马了。。

上图片

st788796 · 发表于 2013-12-18 17:48:45

本帖最后由 st788796 于 2013-12-18 17:50 编辑

API应用中贴过这个算法了，后面就是写成程序，以为没人对这个有兴趣呢！
API应用 Pline中直线与弧段倒角算法

ysq101 · 发表于 2013-12-18 17:52:28

st788796 发表于 2013-12-18 17:48
API应用中贴过这个算法了，后面就是写成程序，以为没人对这个有兴趣呢！
API应用 Pline中直线与弧段倒角算 ...

谢谢你的回答。。。问题是我一直都没用过XD的API 我现在才刚学到子函数。。还有是用不来API来写程序啊。。
可怜啊。。。。

st788796 · 发表于 2013-12-18 17:54:45

ysq101 发表于 2013-12-18 17:52
谢谢你的回答。。。问题是我一直都没用过XD的API 我现在才刚学到子函数。。还有是用不来API来写程序 ...

用v/alisp也可以，只是太浪费时间

ysq101 · 发表于 2013-12-18 18:00:19

st788796 发表于 2013-12-18 17:54
用v/alisp也可以，只是太浪费时间

我之前就用v/alisp 试着写了一下，，，太难搞了。。。。搞得我头大投降了。。。
没办法只有请高手出手了

st788796 · 发表于 2013-12-18 18:13:14

ysq101 发表于 2013-12-18 18:00
我之前就用v/alisp 试着写了一下，，，太难搞了。。。。搞得我头大投降了。。。
没办法只有请高手出手了 ...

那个算法还有个bug，还需要增加个判断

st788796 · 发表于 2013-12-19 03:02:24

本帖最后由 st788796 于 2013-12-19 07:07 编辑

ysq101 发表于 2013-12-18 18:00
我之前就用v/alisp 试着写了一下，，，太难搞了。。。。搞得我头大投降了。。。
没办法只有请高手出手了 ...

先贴一个倒外尖角的，还没有优化(需同一条Pline且任一段不为闭合线的末段)

(defun c:tt (/ GetSegInfo GetInput e1 e2 lst1
lst2 pl lsp lep pcen rad an pint
dis d p1 p2 p3 csp cep pmid
pint0 mod mod1 arc tf cpmid pp npl
van _pi2 r area
)
(defun GetSegInfo (e / pam arcinfo)
(if (and (setq pam (fix (apply 'xdrx_curve_getparamatpoint e)))
(zerop (xdrx_polyline_getbulgeat (car e) pam))
)
(list (car e)
pam
(xdrx_polyline_getlinesegat (car e) pam)
)
(progn (setq arcinfo (xdrx_polyline_getarcsegat (car e) pam))
(list (car e)
pam
(cadr arcinfo)
(caddr arcinfo)
(nth 3 arcinfo)
(last arcinfo)
)
)
)
)
(defun GetInput (msg / e)
(and (setq e (xdrx_entsel msg '((0 . "LWPOLYLINE"))))
(eq (xdrx_getpropertyvalue (car e) "IsA") "AcDbPolyline")
)
e
)
(setq _pi2 (* pi 0.5))
(if
(and (setq e1 (getinput "\n选择第一段: "))
(setq lst1 (getseginfo e1))
(setq e2 (getinput (if (= (length lst1) 3)
"\n选择相邻弧线段: "
"\n选择相邻直线段: "
)
)
)
(setq lst2 (getseginfo e2))
(= (abs (- (cadr lst1) (cadr lst2))) 1)
(setq pl (car lst1))
(eq pl (car lst2))
(if (= (length lst1) 3)
(setq lsp (car (last lst1))
lep (cadr (last lst1))
pcen (caddr lst2)
rad (nth 3 lst2)
csp (polar pcen (nth 4 lst2) rad)
cep (polar pcen (last lst2) rad)
)
(setq lsp (car (last lst2))
lep (cadr (last lst2))
pcen (caddr lst1)
rad (nth 3 lst1)
csp (polar pcen (nth 4 lst1) rad)
cep (polar pcen (last lst1) rad)
)
)
(> (abs (xdrx_points_area lsp lep csp cep)) 0.)
(setq cpmid (xdrx_curve_getpointatparam
pl
(* 0.5
(+ (xdrx_curve_getparamatpoint pl csp)
(xdrx_curve_getparamatpoint pl cep)
)
)
)
)
(if (equal lep csp 1e-3)
(setq pint0 lep
pp lsp
)
(setq pint0 lsp
pp lep
)
)
(setq cpmid (xdrx_curve_getpointatparam
pl
(/ (+ (xdrx_curve_getparamatpoint pl csp)
(xdrx_curve_getparamatpoint pl cep)
)
2
)
)
)
(> (* (xdrx_point_dist2line pp csp cep)
(xdrx_point_dist2line cpmid csp cep)
)
0.
)
(setq an (angle lsp lep))
(if (zerop (setq area (xdrx_points_area lsp lep pcen)))
(setq pint pcen)
(setq
pint (inters lsp lep pcen (polar pcen (+ an _pi2) 10.) nil)
)
)
(setq r (getdist "\n半径: "))
)
(progn
(setq dis (distance pcen pint)
d (sqrt (- (expt (+ rad r) 2) (expt (- dis r) 2)))
;;d (sqrt (- (expt (- rad r) 2) (expt (- dis r) 2)))
)
(or (xdrx_point_ison (setq p1 (polar pint (+ an pi) d)) pl) ;_直线段切点
(setq p1 (polar pint an d))
)
(setq p2 (polar p1 (angle pint pcen) r) ;_center
p3 (polar pcen (angle pcen p2) rad) ;_弧上起点
van (- (angle p2 p3) (angle p2 p1))
)
(setq npl (xdrx_polyline_make p1 p3))
(if (> van pi)
(setq van (- (+ pi pi) van))
)
(xdrx_polyline_setbulgeat npl 0 (xdrx_math_tan (/ van 4.)))
(setq pmid (cadr (xdrx_curve_getpoint npl))
mod (xdrx_point_dist2line pmid p1 p3)
mod1 (xdrx_point_dist2line pint0 p1 p3)
)
(if (minusp (* mod mod1))
(xdrx_entity_mirror npl (list p1 p3) t)
)
(xdrx_entity_setpropertiesfrom npl pl)
(mapcar '(lambda (x)
(if (xdrx_point_ison pint0 x)
(progn
(xdrx_entity_delete x)
(setq tf t)
)
)
)
(xdrx_pickset->ents (xdrx_curve_getsplitcurves pl p1 p3))
)
(if (not tf)
(xdrx_entity_delete pl)
)
)
(princ "\n非同一Pline或非直线接圆弧!")
)
(princ)
)

(defun c:tt (/            GetSegInfo          GetInput        e1     e2     lst1 
             lst2   pl           lsp          lep         pcen        rad    an     pint 
             dis    d           p1          p2         p3        csp    cep    pmid 
             pint0  mod           mod1          arc         tf        cpmid  pp     npl 
             van    _pi2   r          area 
            ) 
  (defun GetSegInfo (e / pam arcinfo) 
    (if        (and (setq pam (fix (apply 'xdrx_curve_getparamatpoint e))) 
             (zerop (xdrx_polyline_getbulgeat (car e) pam)) 
        ) 
      (list (car e) 
            pam 
            (xdrx_polyline_getlinesegat (car e) pam) 
      ) 
      (progn (setq arcinfo (xdrx_polyline_getarcsegat (car e) pam)) 
             (list (car e) 
                   pam 
                   (cadr arcinfo) 
                   (caddr arcinfo) 
                   (nth 3 arcinfo) 
                   (last arcinfo) 
             ) 
      ) 
    ) 
  ) 
  (defun GetInput (msg / e) 
    (and (setq e (xdrx_entsel msg '((0 . "LWPOLYLINE")))) 
         (eq (xdrx_getpropertyvalue (car e) "IsA") "AcDbPolyline") 
    ) 
    e 
  ) 
  (setq _pi2 (* pi 0.5)) 
  (if 
    (and (setq e1 (getinput "\n选择第一段: ")) 
         (setq lst1 (getseginfo e1)) 
         (setq e2 (getinput (if        (= (length lst1) 3) 
                              "\n选择相邻弧线段: " 
                              "\n选择相邻直线段: " 
                            ) 
                  ) 
         ) 
         (setq lst2 (getseginfo e2)) 
         (= (abs (- (cadr lst1) (cadr lst2))) 1) 
         (setq pl (car lst1)) 
         (eq pl (car lst2)) 
         (if (= (length lst1) 3) 
           (setq lsp  (car (last lst1)) 
                 lep  (cadr (last lst1)) 
                 pcen (caddr lst2) 
                 rad  (nth 3 lst2) 
                 csp  (polar pcen (nth 4 lst2) rad) 
                 cep  (polar pcen (last lst2) rad) 
           ) 
           (setq lsp  (car (last lst2)) 
                 lep  (cadr (last lst2)) 
                 pcen (caddr lst1) 
                 rad  (nth 3 lst1) 
                 csp  (polar pcen (nth 4 lst1) rad) 
                 cep  (polar pcen (last lst1) rad) 
           ) 
         ) 
         (> (abs (xdrx_points_area lsp lep csp cep)) 0.) 
         (setq cpmid (xdrx_curve_getpointatparam 
                       pl 
                       (* 0.5 
                          (+ (xdrx_curve_getparamatpoint pl csp) 
                             (xdrx_curve_getparamatpoint pl cep) 
                          ) 
                       ) 
                     ) 
         ) 
         (if (equal lep csp 1e-3) 
           (setq pint0 lep 
                 pp lsp 
           ) 
           (setq pint0 lsp 
                 pp lep 
           ) 
         ) 
         (setq cpmid (xdrx_curve_getpointatparam 
                       pl 
                       (/ (+ (xdrx_curve_getparamatpoint pl csp) 
                             (xdrx_curve_getparamatpoint pl cep) 
                          ) 
                          2 
                       ) 
                     ) 
         ) 
         (> (* (xdrx_point_dist2line pp csp cep) 
               (xdrx_point_dist2line cpmid csp cep) 
            ) 
            0. 
         ) 
         (setq an (angle lsp lep)) 
         (if (zerop (setq area (xdrx_points_area lsp lep pcen))) 
           (setq pint pcen) 
           (setq 
             pint (inters lsp lep pcen (polar pcen (+ an _pi2) 10.) nil) 
           ) 
         ) 
         (setq r (getdist "\n半径: ")) 
    ) 
     (progn 
       (setq dis (distance pcen pint) 
             d         (sqrt (- (expt (+ rad r) 2) (expt (- dis r) 2))) 
                 ;;d          (sqrt (- (expt (- rad r) 2) (expt (- dis r) 2))) 
       ) 
       (or (xdrx_point_ison (setq p1 (polar pint (+ an pi) d)) pl) ;_直线段切点 
           (setq p1 (polar pint an d)) 
       ) 
       (setq p2         (polar p1 (angle pint pcen) r) ;_center 
             p3         (polar pcen (angle pcen p2) rad) ;_弧上起点 
             van (- (angle p2 p3) (angle p2 p1)) 
       ) 
       (setq npl (xdrx_polyline_make p1 p3)) 
       (if (> van pi) 
         (setq van (- (+ pi pi) van)) 
       ) 
       (xdrx_polyline_setbulgeat npl 0 (xdrx_math_tan (/ van 4.))) 
       (setq pmid (cadr (xdrx_curve_getpoint npl)) 
             mod  (xdrx_point_dist2line pmid p1 p3) 
             mod1 (xdrx_point_dist2line pint0 p1 p3) 
       ) 
       (if (minusp (* mod mod1)) 
         (xdrx_entity_mirror npl (list p1 p3) t) 
       ) 
       (xdrx_entity_setpropertiesfrom npl pl) 
       (mapcar '(lambda        (x) 
                  (if (xdrx_point_ison pint0 x) 
                    (progn 
                      (xdrx_entity_delete x) 
                      (setq tf t) 
                    ) 
                  ) 
                ) 
               (xdrx_pickset->ents (xdrx_curve_getsplitcurves pl p1 p3)) 
       ) 
       (if (not tf) 
         (xdrx_entity_delete pl) 
       ) 
     ) 
     (princ "\n非同一Pline或非直线接圆弧!") 
  ) 
  (princ) 
)

ysq101 · 发表于 2013-12-19 15:22:33

st788796 发表于 2013-12-19 03:02
先贴一个倒外尖角的，还没有优化(需同一条Pline且任一段不为闭合线的末段)

感谢你的回答。。。。期待完善一下。。。有需要我再自己修改一下

st788796 · 发表于 2013-12-19 17:03:29

ysq101 发表于 2013-12-19 15:22
感谢你的回答。。。。期待完善一下。。。有需要我再自己修改一下

API 应用论坛有完整程序了

ysq101 · 发表于 2013-12-23 16:30:05

st788796 发表于 2013-12-19 03:02
先贴一个倒外尖角的，还没有优化(需同一条Pline且任一段不为闭合线的末段)

刚试了一下......不是直接选取PL线就可以了吗???
要选两条相邻的线...那跟F命令没什么区别啊

st788796 · 发表于 2013-12-23 18:13:00

ysq101 发表于 2013-12-23 16:30
刚试了一下......不是直接选取PL线就可以了吗???
要选两条相邻的线...那跟F命令没什么区别啊

F 是倒不了直线段接圆弧段的，只能倒直线段接直线段

ysq101 · 发表于 2013-12-23 20:17:03

st788796 发表于 2013-12-23 18:13
F 是倒不了直线段接圆弧段的，只能倒直线段接直线段

这个还真没试过呢。。。能不能帮我完善一下啊？？

st788796 · 发表于 2013-12-23 21:55:58

本帖最后由 st788796 于 2013-12-23 21:57 编辑

ysq101 发表于 2013-12-23 20:17
这个还真没试过呢。。。能不能帮我完善一下啊？？

已经贴 API 应用了, 再完善就是用 AddVertex 了, 不是不可以, 要看时间了, 目前的也可以用
有算法, 有源码, 你自己也可以改改, 遇到难点共同探讨

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

[编程申请] 求闭合PL线倒R角程序查了资料，自己折腾了老半天，怒删了没完成的作品

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

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评

点评

[编程申请] 求闭合PL线倒R角程序 查了资料，自己折腾了老半天，怒删了没完成的作品

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

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评

点评

[编程申请] 求闭合PL线倒R角程序查了资料，自己折腾了老半天，怒删了没完成的作品