如何将三维多段线转换为二维多段线。。。急用

egoroom

在论坛上没找到。。。。麻烦解决下。。。

wkq004

只加了框选

1. (defun C:tt (/ mspace ss n obj pts)
   
2.   (VL-LOAD-COM)
   
3.   (setq mSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))
   
4.   (princ "\n选择集内的三维线转成多段线:")
   
5.   (if (setq ss (ssget '((0 . "POLYLINE"))))
   
6.     (repeat (setq n (sslength ss))
   
7.       (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
   
8.       (setq pts (vlax-variant-value (vla-get-coordinates obj)))
   
9.       (vla-AddPolyline mSpace pts)
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    

(defun C:tt (/ mspace ss n obj pts)<br />   (VL-LOAD-COM)<br />   (setq mSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))<br />   (princ "\n选择集内的三维线转成多段线:")<br />   (if (setq ss (ssget '((0 . "POLYLINE"))))<br />     (repeat (setq n (sslength ss))<br />       (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))<br />       (setq pts (vlax-variant-value (vla-get-coordinates obj)))<br />       (vla-AddPolyline mSpace pts)<br />     )<br />   )<br />   (princ)<br /> )<br />

Andyhon

Ref:
http://bbs.mjtd.com/thread-69182-1-1.html

egoroom

Andyhon 发表于 2012-7-3 20:59
Ref:
http://bbs.mjtd.com/thread-69182-1-1.html

谢了。。能加个框选功能吗

egoroom

Andyhon 发表于 2012-7-3 20:59
Ref:
http://bbs.mjtd.com/thread-69182-1-1.html

三维多段线太多了。。。

egoroom

2. (defun C:trans2d ()
   
3.   (VL-LOAD-COM)
   
4.   
   
5.   (setq AcadObject (vlax-get-acad-object))
   
6.   (setq AcadDocument (vla-get-ActiveDocument Acadobject))
   
7.   (setq mSpace (vla-get-ModelSpace Acaddocument))
   
8. 
   
9.   (setq ename (car (entsel "选择要转换的三维多段线:")))
   
10.   (setq ent_data (entget ename))
    
11.   (setq str_0 (cdr (assoc 0 ent_data)))
    
12.   (while (/= str_0 "POLYLINE")
    
13.     (setq ename (car (entsel "选择的实体非三维多段线,请重新选择!:")))
    
14.     (setq ent_data (entget ename))
    
15.     (setq str_0 (cdr (assoc 0 ent_data)))
    
16.    )
    
17.       (setq obj (vlax-ename->vla-object ename))
    
18.       (setq pts (vlax-variant-value (vla-get-coordinates obj)))
    
19.       (vla-AddPolyline mSpace pts)
    
20.       (princ)
    
21.      
    
22. )

(defun C:trans2d ()<br />   (VL-LOAD-COM)<br />   <br />   (setq AcadObject (vlax-get-acad-object))<br />   (setq AcadDocument (vla-get-ActiveDocument Acadobject))<br />   (setq mSpace (vla-get-ModelSpace Acaddocument))<br /> <br />   (setq ename (car (entsel "选择要转换的三维多段线:")))<br />   (setq ent_data (entget ename))<br />   (setq str_0 (cdr (assoc 0 ent_data)))<br />   (while (/= str_0 "POLYLINE")<br />     (setq ename (car (entsel "选择的实体非三维多段线,请重新选择!:")))<br />     (setq ent_data (entget ename))<br />     (setq str_0 (cdr (assoc 0 ent_data)))<br />    )<br />       (setq obj (vlax-ename->vla-object ename))<br />       (setq pts (vlax-variant-value (vla-get-coordinates obj)))<br />       (vla-AddPolyline mSpace pts)<br />       (princ)<br />      <br /> )

egoroom

能加个框选吗。。

egoroom

忘高手给解决下。。。谢谢。。。

VBALISPER

使用ET工具中的flatten即可实现.

egoroom

VBALISPER 发表于 2012-7-4 09:00
使用ET工具中的flatten即可实现.

使用ET工具中的flatten使用后，一旦三维多段线多就出问题

egoroom

VBALISPER 发表于 2012-7-4 09:00
使用ET工具中的flatten即可实现.

上面的那个很好，就是没有框选功能。。