三维多段线转换为带高程的二维多段线程序

newer

网上收集的。

1. ;----------------------------------------------------------------------------------------------------------------------------------------------------------
   
2. ;----------------------------------------------------------------------------------------------------------------------------------------------------------
   
3. 
   
4. 
   
5. 
   
6. ;;;;;;;;;;;;;;;;;;;;;;;;;;三维多段线转换为带高程的二维多段线程序2.0;;;;;;;;;;;;;;;;;;;;;;
   
7. ;;                                                                                     ;;
   
8. ;;   1、本程序的功能为:把三维多段线转换为带高程的二维多段线。                          ;;
   
9. ;;                                                                                     ;;
   
10. ;;   2、程序主命令为"pl32",在命令行中输入"pl32"按提示使用即可。                        ;;
    
11. ;;                                                                                     ;;
    
12. ;;   3、程序要求必须全部为三维多段线，否则程序会出错!!!。                              ;;
    
13. ;;                                                                                     ;;
    
14. ;;   4、如果选择的不全是三维多段线，请用CAD下的快速选择命令选中全部三维多段线，        ;;
    
15. ;;      然后再把这些对象转换到新的图层，并暂时关闭其它无关的图层，以方便选择，         ;;
    
16. ;;      为此此程序不再详细编写选择集这部分。                                           ;;
    
17. ;;                                                                                     ;;
    
18. ;;   5、如果不想带高程，把程序中含有  gaocheng  的两行代码去掉就行了。                 ;;
    
19. ;;                                                                                     ;;
    
20. ;;   6、用户使用此程序前请做好备份!                                                    ;;
    
21. ;;                                                                      2011.8.9       ;;
    
22. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
23. ;
    
24. ;
    
25. ;
    
26. (defun c:pl32()                            ;程序名为pl32，把三维多段线转换为带高程的二维多段线，
    
27.                                            ;
    
28.   (VL-LOAD-COM)                            ;必要的加载函数
    
29.                                            ;        
    
30.   (setq AcadObject (vlax-get-acad-object))
    
31.   (setq AcadDocument (vla-get-ActiveDocument Acadobject))
    
32.   (setq mSpace (vla-get-ModelSpace Acaddocument))          ;此三行的作用是可以修改CAD文件了。
    
33.   (prompt "\n <<请框选三维多段线，必须全部为三维多段线，否则程序会出错!!!>>")
    
34.   (setq ss (ssget '((0 . "POLYLINE"))))   ;取得选择集，只把是三维和二维的多段线放到选择集中。
    
35.   (if    ss                               ;判断选择集是否为空。
    
36.         (progn
    
37.               (setq n 0 k 0)              ;选择集的起始值n＝0，完成更改的多段线数k＝0。
    
38.               (repeat (sslength ss)       ;计算选择集的对象个数。
    
39.                 (setq en (ssname ss n))   ;依据索引值取出选择集中的图元名。
    
40.                       (trans2d en)        ;调用转换三维到二维的子函数，此函数为执行函数。
    
41.                       (setq k (1+ k))     ;转换完成的线数，完成一个加一。
    
42.                       (setq n (1+ n))     ;
    
43.                );repeat
    
44.                (princ (strcat "\n 共有< " (itoa k) " >条三维多段线转换为二维多段线" ))
    
45.          );progn
    
46.          (prompt "\n <<您选择的对象中没有三维多段线，请重新执行此命令再进行选择!>>")
    
47.    );if
    
48.   (prin1)
    
49. )
    
50. ;
    
51. ;
    
52. ;

;----------------------------------------------------------------------------------------------------------------------------------------------------------<br /> ;----------------------------------------------------------------------------------------------------------------------------------------------------------<br /> <br /> <br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;三维多段线转换为带高程的二维多段线程序2.0;;;;;;;;;;;;;;;;;;;;;;<br /> ;;                                                                                     ;;<br /> ;;   1、本程序的功能为:把三维多段线转换为带高程的二维多段线。                          ;;<br /> ;;                                                                                     ;;<br /> ;;   2、程序主命令为"pl32",在命令行中输入"pl32"按提示使用即可。                        ;;<br /> ;;                                                                                     ;;<br /> ;;   3、程序要求必须全部为三维多段线，否则程序会出错!!!。                              ;;<br /> ;;                                                                                     ;;<br /> ;;   4、如果选择的不全是三维多段线，请用CAD下的快速选择命令选中全部三维多段线，        ;;<br /> ;;      然后再把这些对象转换到新的图层，并暂时关闭其它无关的图层，以方便选择，         ;;<br /> ;;      为此此程序不再详细编写选择集这部分。                                           ;;<br /> ;;                                                                                     ;;<br /> ;;   5、如果不想带高程，把程序中含有  gaocheng  的两行代码去掉就行了。                 ;;<br /> ;;                                                                                     ;;<br /> ;;   6、用户使用此程序前请做好备份!                                                    ;;<br /> ;;                                                                      2011.8.9       ;;<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;<br /> ;<br /> ;<br /> (defun c:pl32()                            ;程序名为pl32，把三维多段线转换为带高程的二维多段线，<br />                                            ;<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))          ;此三行的作用是可以修改CAD文件了。<br />   (prompt "\n <<请框选三维多段线，必须全部为三维多段线，否则程序会出错!!!>>")<br />   (setq ss (ssget '((0 . "POLYLINE"))))   ;取得选择集，只把是三维和二维的多段线放到选择集中。<br />   (if    ss                               ;判断选择集是否为空。<br />         (progn<br />               (setq n 0 k 0)              ;选择集的起始值n＝0，完成更改的多段线数k＝0。<br />               (repeat (sslength ss)       ;计算选择集的对象个数。<br />                 (setq en (ssname ss n))   ;依据索引值取出选择集中的图元名。<br />                       (trans2d en)        ;调用转换三维到二维的子函数，此函数为执行函数。<br />                       (setq k (1+ k))     ;转换完成的线数，完成一个加一。<br />                       (setq n (1+ n))     ;<br />                );repeat<br />                (princ (strcat "\n 共有< " (itoa k) " >条三维多段线转换为二维多段线" ))<br />          );progn<br />          (prompt "\n <<您选择的对象中没有三维多段线，请重新执行此命令再进行选择!>>")<br />    );if<br />   (prin1)<br /> )<br /> ;<br /> ;<br /> ;

;trans2d函数代码如下：

游客，如果您要查看本帖隐藏内容请回复

HLCAD

感谢楼主提供源码！

/db_自贡黄明儒_

感谢N版楼主提供源码！

ll_j

先看看源码

ll_j

这个该试试命令convertpoly。

819534890

回复学习学习，谢谢分享

csharp

三维线如果在一个平面上，求出各点在这个平面的投影坐标（2d）再构造 lwpolyline
投影到 WCS 只要去掉各点的 Z 值，用二维点构造 lwpolyline

Gray_wolf

感谢提供，学习

ynhh

感谢大师提供源码学习！

一身一人

想看看，谢谢楼主

杜流浪人

xuexie    xiexie  

start4444

谢谢版主共享:lol:lol

shuaier

感谢分享！！

1105037265

我找了它很久了。。。。。。。

yoyoho

回复学习学习，谢谢分享！！！