三维多段线 顶点问题

msw520

首先感谢晓东CAD，让我明白CAD不简单只是 直线，圆，等命令的常规操作，还可以这样玩，开阔眼界，提高效率。
其次，我在这里求助一贴，希望以后也能帮助到别人，就是一个关于CAD中三维多段线的批量删除问题。

上图为三维多段线轴测图

大量顶点问题

CAD2016提供了删除顶点的功能，但是不能批量，效率太低。

晓东CAD提供的删除多段线顶点功能，只能对二维多段线操作。不能对三维多段线操作，我试验过了、

那么问题来了。如何让三维多段线批量删除顶点呢。求大神们指点。

newer

把你的DWG压缩下传上来吧，因为3D实体也好多种，SURFACE,SOLID,MESH等等。

msw520

应newer 要求
我发个文件

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:12.rar 
下载次数:14  文件大小:39.16 KB 
下载权限: 不限 以上  [免费赚D豆]

newer

msw520 发表于 2018-6-6 15:13
应newer 要求
我发个文件

你这个网面是怎么做的呢？ 过程简单描述下。

msw520

newer 发表于 2018-6-6 15:27
你这个网面是怎么做的呢？ 过程简单描述下。

这个是用3D3S做出来的     导出来CAD 的时候 是一段段的直线， 我采用合并功能，全部变成了 一部分一部分的三维多段线。

XDSoft

msw520 发表于 2018-6-6 15:13
应newer 要求
我发个文件

试试，请加载 2018.06.06日更新的API

下面代码，LWPOLYLINE,POLYLINE,3DPOLYHLINE都可以消除冗余顶点。

1. (defun c:tt ()
   
2.   (if (not #xd_var_global_compress_dist_tol)
   
3.     (setq #xd_var_global_compress_dist_tol 1.0)
   
4.   )
   
5.   (if (not #xd_var_global_compress_angle_tol)
   
6.     (setq #xd_var_global_compress_angle_tol 1.0)
   
7.   )
   
8.   (if (setq val (getreal (xdrx_prompt
   
9.                            "\n距离精度(精度内保留一个点)<"
   
10.                            #xd_var_global_compress_dist_tol
    
11.                            ">:"
    
12.                            t
    
13.                          )
    
14.                 )
    
15.       )
    
16.     (setq #xd_var_global_compress_dist_tol val)
    
17.   )
    
18.   (if (setq val (getreal (xdrx_prompt
    
19.                            "\n角度精度(精度内取直，单位：度)<"
    
20.                            #xd_var_global_compress_angle_tol
    
21.                            ">:"
    
22.                            t
    
23.                          )
    
24.                 )
    
25.       )
    
26.     (setq #xd_var_global_compress_angle_tol val)
    
27.   )
    
28.   (if (and (xdrx_initssget "\n选择要处理的多段线<退出>:")
    
29.            (setq ss (xdrx_ssget '((0 . "*POLYLINE"))))
    
30.       )
    
31.     (progn (xdrx_begin)
    
32.            (xdrx_document_setprec
    
33.              #xd_var_global_compress_dist_tol
    
34.              #xd_var_global_compress_angle_tol
    
35.            )
    
36.            (setq len1 0
    
37.                  len2 0
    
38.            )
    
39.            (mapcar '(lambda (x)
    
40.                       (setq pts  (xdrx_getpropertyvalue x "vertices")
    
41.                             len1 (+ len1 (length pts))
    
42.                       )
    
43.                       (if (xdrx_object_isa x "AcDb3dPolyline")
    
44.                         (progn (xdrx_entity_project x t)
    
45.                                (setq temp (xdrx_getpropertyvalue x "vertices"))
    
46.                                (setq pts1 (mapcar '(lambda(x y)(list x y)) temp pts))
    
47.                                (setq temp (xdrx_polyline_compress x t t))
    
48.                                (setq len2 (+ len2 (car temp)))
    
49.                                (setq pts3 (xdrx_getpropertyvalue x "vertices")
    
50.                                      pts4 (mapcar '(lambda (x)
    
51.                                                      (if (setq temp (assoc x pts1))
    
52.                                                        (cdr temp)
    
53.                                                        (list (car x) (cadr x) 0.0)
    
54.                                                      )
    
55.                                                    )
    
56.                                                   pts3
    
57.                                           )
    
58.                                )
    
59.                                (setq pl3d (xdrx_3dpolyline_make pts4))
    
60.                                (xdrx_entity_setpropertiesfrom pl3d x)
    
61.                                (xdrx_entity_delete x)
    
62.                         )
    
63.                         (progn (setq temp (xdrx_polyline_compress x t t))(setq len2 (+ len2 (car temp))))
    
64.                       )
    
65.                     )
    
66.                    (xdrx_pickset->ents ss)
    
67.            )
    
68.            (xdrx_prompt
    
69.              "\n选择的 "
    
70.              (sslength ss)
    
71.              " 个多段线中，总共顶点数 "
    
72.              len1
    
73.              " 消除 "
    
74.              len2
    
75.              " ，还剩 "
    
76.              (- len1 len2)
    
77.              " ."
    
78.            )
    
79.            (xdrx_end)
    
80.     )
    
81.   )
    
82.   (princ)
    
83. )
    
84. 
    

(defun c:tt ()<br />   (if (not #xd_var_global_compress_dist_tol)<br />     (setq #xd_var_global_compress_dist_tol 1.0)<br />   )<br />   (if (not #xd_var_global_compress_angle_tol)<br />     (setq #xd_var_global_compress_angle_tol 1.0)<br />   )<br />   (if (setq val (getreal (xdrx_prompt<br />                            "\n距离精度(精度内保留一个点)<"<br />                            #xd_var_global_compress_dist_tol<br />                            ">:"<br />                            t<br />                          )<br />                 )<br />       )<br />     (setq #xd_var_global_compress_dist_tol val)<br />   )<br />   (if (setq val (getreal (xdrx_prompt<br />                            "\n角度精度(精度内取直，单位：度)<"<br />                            #xd_var_global_compress_angle_tol<br />                            ">:"<br />                            t<br />                          )<br />                 )<br />       )<br />     (setq #xd_var_global_compress_angle_tol val)<br />   )<br />   (if (and (xdrx_initssget "\n选择要处理的多段线<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "*POLYLINE"))))<br />       )<br />     (progn (xdrx_begin)<br />            (xdrx_document_setprec<br />              #xd_var_global_compress_dist_tol<br />              #xd_var_global_compress_angle_tol<br />            )<br />            (setq len1 0<br />                  len2 0<br />            )<br />            (mapcar '(lambda (x)<br />                       (setq pts  (xdrx_getpropertyvalue x "vertices")<br />                             len1 (+ len1 (length pts))<br />                       )<br />                       (if (xdrx_object_isa x "AcDb3dPolyline")<br />                         (progn (xdrx_entity_project x t)<br />                                (setq temp (xdrx_getpropertyvalue x "vertices"))<br />                                (setq pts1 (mapcar '(lambda(x y)(list x y)) temp pts))<br />                                (setq temp (xdrx_polyline_compress x t t))<br />                                (setq len2 (+ len2 (car temp)))<br />                                (setq pts3 (xdrx_getpropertyvalue x "vertices")<br />                                      pts4 (mapcar '(lambda (x)<br />                                                      (if (setq temp (assoc x pts1))<br />                                                        (cdr temp)<br />                                                        (list (car x) (cadr x) 0.0)<br />                                                      )<br />                                                    )<br />                                                   pts3<br />                                           )<br />                                )<br />                                (setq pl3d (xdrx_3dpolyline_make pts4))<br />                                (xdrx_entity_setpropertiesfrom pl3d x)<br />                                (xdrx_entity_delete x)<br />                         )<br />                         (progn (setq temp (xdrx_polyline_compress x t t))(setq len2 (+ len2 (car temp))))<br />                       )<br />                     )<br />                    (xdrx_pickset->ents ss)<br />            )<br />            (xdrx_prompt<br />              "\n选择的 "<br />              (sslength ss)<br />              " 个多段线中，总共顶点数 "<br />              len1<br />              " 消除 "<br />              len2<br />              " ，还剩 "<br />              (- len1 len2)<br />              " ."<br />            )<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

msw520

还是非常感谢 版主的帮助，提供解决方案。

hejiho

晓东CAD，是绘图者的福音，谢谢提问

xudongchu

晓东的高手真多！很使用的工具。

marting

xudongchu 发表于 2018-8-27 10:59
明经的高手真多！很使用的工具。

穿越了吧，自己在哪里都不知道

xudongchu

marting 发表于 2018-8-27 11:08
穿越了吧，自己在哪里都不知道

打错了