请教个多段线上凸出点（尖角）的问题

coverne · 发表于 2019-8-19 15:48:43

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

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

×

请教个问题，多段线上的有这样的跳点，如何能把这样的顶点都清除掉呢？多谢各位了

王鹏_pBZlo · 发表于 2019-9-8 13:25:55

(defun c:tt( / sset ent entpar lst ptlst p0 p1 p2 p3 p4 pdstr newpar cp i j)
(defun pllst(ent / par lst)
(setq par (entget ent) lst nil)
(while (setq dxf10 (assoc 10 par))
(setq par (cdr (member dxf10 par)))
(setq lst (append lst (list (cdr dxf10))))
) lst)
(defun sz(p1 p2 p3 / ang12 ang13)
(setq ang12 (angle p1 p2)) (if (> ang12 pi) (setq ang12 (- ang12 pi pi)))
(setq ang13 (angle p1 p3)) (if (> ang13 pi) (setq ang13 (- ang13 pi pi)))
(cond ((or (< 0 (- ang13 ang12) pi) (> (- ang12 ang13) pi)) "N")
((or (= ang12 ang13) (= pi (abs (- ang12 ang13)))) "0")
(t "S")
))
(setq sset (ssget (list (cons 0 "LWPOLYLINE"))))
(if (not sset) (setq sset (ssadd)))
(setq j -1)
(while (setq ent (ssname sset (setq j (1+ j))))
(setq entpar (entget ent))
(setq lst (pllst ent))
(setq ptlst nil)
(setq i 0)
(while (nth (+ i 4) lst)
      (setq p0 (nth i lst) p1 (nth (+ 1 i) lst) p2 (nth (+ 2 i) lst) p3 (nth (+ 3 i) lst) p4 (nth (+ 4 i) lst))
      (setq pdstr (strcat (sz p0 p1 p2) (sz p1 p2 p3) (sz p2 p3 p4)))
      (if (wcmatch pdstr "NSN,SNS") (setq ptlst (append ptlst (list (cons 10 p2)))))
   (setq i (1+ i))
)
(setq newpar (list (nth 0 entpar) (nth 1 entpar)(nth 2 entpar)(nth 3 entpar)) i 4)
(while (setq cp (nth i entpar))
(if (member cp ptlst)
      (setq i (+ 4 i))
      (setq i (1+ i) newpar (append newpar (list cp)))
)
)
(entmod newpar)
)
(princ)
)

newer · 发表于 2019-9-8 15:13:43

晓东工具箱，曲线-PL工具下的顶点抽稀工具

搜狗截图20190908151106.png

coverne · 发表于 2020-5-2 20:51:19

王鹏_pBZlo 发表于 2019-9-8 13:25
(defun c:tt( / sset ent entpar lst ptlst p0 p1 p2 p3 p4 pdstr newpar cp i j)
(defun pllst(ent / pa ...

感谢高手，效果实现了，就是看不懂，多多向您学习

王鹏_pBZlo · 发表于 2020-5-2 21:19:56

coverne 发表于 2020-5-2 20:51
感谢高手，效果实现了，就是看不懂，多多向您学习

发过的帖子这么久才来回看啊

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

[求助] 请教个多段线上凸出点（尖角）的问题

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

点评

点评