求助，论坛上三维多段线转二维多段线，望加个款选功能

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

这是原文连接。。。
http://bbs.mjtd.com/thread-69182-1-1.html
没有框选功能。望改进。。

Andyhon

原址 10# 未合

VBALISPER

(defun C:t2()
        (VL-LOAD-COM)
  
        (setq AcadObject (vlax-get-acad-object))
        (setq AcadDocument (vla-get-ActiveDocument Acadobject))
        (setq mSpace (vla-get-ModelSpace Acaddocument))


        (setq ss1 (ssget '((0 . "POLYLINE"))))
        (setq n (sslength ss1))
        (setq m 0)

        (while (< m n)
        (setq ename (ssname ss1 m))

        (setq ent_data (entget ename))
        (setq str_0 (cdr (assoc 0 ent_data)))
        (while (/= str_0 "POLYLINE")
        (setq ename (car (entsel "选择的实体非三维多段线,请重新选择!:")))
        (setq ent_data (entget ename))
        (setq str_0 (cdr (assoc 0 ent_data)))
        )
        (setq obj (vlax-ename->vla-object ename))
        (setq pts (vlax-variant-value (vla-get-coordinates obj)))
        (vla-AddPolyline mSpace pts)

        (setq m (+ 1 m))
);while
        (command "_erase" ss1 "")
        (princ)     
)

egoroom

VBALISPER 发表于 2012-7-4 15:31
(defun C:t2()
        (VL-LOAD-COM)
  

你写的可以用了。。。太感谢了。。。

VBALISPER

egoroom 发表于 2012-7-4 16:27
你写的可以用了。。。太感谢了。。。

必须的.呵呵.我试过了才发上来的.不然就出丑了.

egoroom

VBALISPER 发表于 2012-7-4 18:57
必须的.呵呵.我试过了才发上来的.不然就出丑了.

能改个三维多段线转多段线的吗？。。。再麻烦下

VBALISPER

你干嘛不学着自己改.二维多段线和多段线就二字之差.也只改那么几个字母即可

egoroom

VBALISPER 发表于 2012-7-4 22:25
你干嘛不学着自己改.二维多段线和多段线就二字之差.也只改那么几个字母即可

不好意思。我不懂cad函数，我是做模型的。。。主要用3dsmax，想多学习点cad。。呵呵

egoroom

VBALISPER 发表于 2012-7-4 22:25
你干嘛不学着自己改.二维多段线和多段线就二字之差.也只改那么几个字母即可

再麻烦下。。。谢谢