删除三维多段线的顶点

motee-z · 发表于 2022-7-5 16:08:15

你好
如果水平距离小于先前顶点的0.05（例如），编写lisp的任何帮助都可以删除三维多段线选择的顶点
非常感谢。

David Bethel · 发表于 2022-7-5 16:21:15

它可能看起来像这样：

[列表]

根据需要编辑测试函数。

非常危险，因此使用风险自负。

保留第一个顶点，而不是以下顶点

不适用于闭合或花键连接的柱脚
[/列表]

copy


[b][color=BLACK]([/color][/b]defun c:3dp-rvtx [b][color=FUCHSIA]([/color][/b]/ ss i en ed vn vd vl v1 v2[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]defun test [b][color=NAVY]([/color][/b]v1 v2[b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]> [b][color=MAROON]([/color][/b]abs [b][color=GREEN]([/color][/b]- [b][color=BLUE]([/color][/b]car v2[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]car v1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] 0.5[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq ss nil[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]princ [color=#2f4f4f]"\nSelect 3DPOLYlines....   "[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]not ss[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"POLYLINE"[/color][b][color=BLUE])[/color][/b]
                              [b][color=BLUE]([/color][/b]cons -4 [color=#2f4f4f]"="[/color][b][color=BLUE])[/color][/b]
                                [b][color=BLUE]([/color][/b]cons 70 8[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq i 0[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]setq en [b][color=MAROON]([/color][/b]ssname ss i[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq ed [b][color=MAROON]([/color][/b]entget en[b][color=MAROON])[/color][/b]
              vn [b][color=MAROON]([/color][/b]entnext en[b][color=MAROON])[/color][/b]
              vd [b][color=MAROON]([/color][/b]entget vn[b][color=MAROON])[/color][/b]
              vl nil[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]= [color=#2f4f4f]"VERTEX"[/color] [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 0 vd[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]setq v1 [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 vd[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]cond [b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]= [color=#2f4f4f]"SEQEND"[/color] [b][color=RED]([/color][/b]cdr [b][color=PURPLE]([/color][/b]assoc 0 [b][color=TEAL]([/color][/b]entget [b][color=OLIVE]([/color][/b]entnext vn[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                      [b][color=BLUE]([/color][/b]setq vl [b][color=RED]([/color][/b]cons v1 vl[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                     [b][color=GREEN]([/color][/b]T
                      [b][color=BLUE]([/color][/b]and [b][color=RED]([/color][/b]setq v2 [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 10 [b][color=OLIVE]([/color][/b]entget [b][color=GRAY]([/color][/b]entnext vn[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                           [b][color=RED]([/color][/b]test v1 v2[b][color=RED])[/color][/b]
                           [b][color=RED]([/color][/b]setq vl [b][color=PURPLE]([/color][/b]cons v1 vl[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]setq vn [b][color=GREEN]([/color][/b]entnext vn[b][color=GREEN])[/color][/b]
                     vd [b][color=GREEN]([/color][/b]entget vn[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]and vl
            [b][color=MAROON]([/color][/b]entdel en[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]entmake ed[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]foreach v [b][color=GREEN]([/color][/b]reverse vl[b][color=GREEN])[/color][/b]
              [b][color=GREEN]([/color][/b]entmake [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]cons 0 [color=#2f4f4f]"VERTEX"[/color][b][color=RED])[/color][/b][b][color=RED]([/color][/b]cons 10 v[b][color=RED])[/color][/b][b][color=RED]([/color][/b]cons 70 32[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 8 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]cons 62 [b][color=PURPLE]([/color][/b]if [b][color=TEAL]([/color][/b]assoc 62 ed[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]cdr [b][color=OLIVE]([/color][/b]assoc 62 ed[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b] 256[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                             [b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]entmake vd[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq i [b][color=MAROON]([/color][/b]1+ i[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-大卫

motee-z · 发表于 2022-7-5 16:24:19

谢谢大卫先生的回复
Lisp程序对我来说很棒
你能让它删除沿着远处的顶点吗
非常感谢。

David Bethel · 发表于 2022-7-5 16:34:32

对不起，我不理解你的要求-大卫

motee-z · 发表于 2022-7-5 16:40:35

请检查要删除的顶点数（n+1）的图像
在lisp中，删除顶点数（n）

David Bethel · 发表于 2022-7-5 16:46:58

正如我所说，保留第一个顶点，而不是下面的-David

Stefan BMR · 发表于 2022-7-5 16:49:11

是0.5还是0.05？
这是一个适用于任何距离的版本。

copy

(defun c:delvert ( / *error* msg ss d i e q a b l p)
 (vl-load-com)
;;;  (setq *error* (err))
 (if
   (and
     (setq msg "\nNothing selected.")
     (setq ss (ssget "_:L" '((0 . "POLYLINE") (-4 . "&=") (70 .  (-4 . "<NOT") (-4 . "&=") (70 . 4) (-4 . "NOT>"))))
     (setq msg "\nDistance required.")
     (progn
       (initget 6)
       (setq d (getdist "\nSpecify distance: "))
     )
   )
   (repeat (setq i (sslength ss))
     (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i))))
           q (vlax-curve-isclosed e)
           a (vlax-curve-getstartparam e)
           b (vlax-curve-getendparam e)
           l (list (vlax-curve-getstartpoint e))
           )
     (while (<= (setq a (1+ a)) b)
       (setq p (vlax-curve-getpointatparam e a))
       (if
         (> (distance p (car l)) d)
         (setq l (cons p l))
       )
     )
     (vlax-put e 'coordinates (apply 'append (reverse (if q (cdr l) l))))
   )
   (princ msg)
 )
;;;  (*error* nil)
 (princ)
)