急！！！！！帮忙发个三维多段线转多段线的lsp，谢谢

wsjwsjwsj

急！！！！！帮忙发个三维多段线转多段线的lsp，谢谢

寒潮大冬瓜

我上传一个二维多段线lwPLINETYPE&#10144LINETYPE，同时其标高值还能继续保留的在“;修改仓老师代码，不开图批量拟合二维多段线等高线;http://bbs.mjtd.com/forum.php?mo ... &fromuid=418631;(出处: 明经CAD社区);树櫴希德发表于 2023-6-23 10:28基础上升级而成！
”

cie0588

1. ;;;一个vlisp方法，将三维多线段转为LWPOLYLINE
   
2. 
   
3. (defun c:tt (/ lst)
   
4.   (setq  lst
   
5.    (Vlax-Get
   
6.      (Vlax-Ename->Vla-Object (car (entsel "\n选择三维多线段：")))
   
7.      'Coordinates
   
8.    )
   
9.   )
   
10.   (defun tt-2 (lst)
    
11.     (if  lst
    
12.       (append (list (car lst) (cadr lst)) (tt-2 (cdddr lst)))
    
13.     )
    
14.   )
    
15.   (setq lst (tt-2 lst))
    
16.   (Vlax-Invoke-Method
    
17.     (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)
    
18.         'ModelSpace
    
19.     )
    
20.     'AddLightWeightPolyline
    
21.     (vlax-safearray-fill
    
22.       (vlax-make-safearray
    
23.   vlax-vbDouble
    
24.   (cons 0 (1- (length lst)))
    
25.       )
    
26.       lst
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )

;;;一个vlisp方法，将三维多线段转为LWPOLYLINE<br /> <br /> (defun c:tt (/ lst)<br />   (setq  lst<br />    (Vlax-Get<br />      (Vlax-Ename->Vla-Object (car (entsel "\n选择三维多线段：")))<br />      'Coordinates<br />    )<br />   )<br />   (defun tt-2 (lst)<br />     (if  lst<br />       (append (list (car lst) (cadr lst)) (tt-2 (cdddr lst)))<br />     )<br />   )<br />   (setq lst (tt-2 lst))<br />   (Vlax-Invoke-Method<br />     (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)<br />         'ModelSpace<br />     )<br />     'AddLightWeightPolyline<br />     (vlax-safearray-fill<br />       (vlax-make-safearray<br />   vlax-vbDouble<br />   (cons 0 (1- (length lst)))<br />       )<br />       lst<br />     )<br />   )<br />   (princ)<br /> )

dongya1235

偶降低下标准，谁帮忙发个二维多段线与多段线互转的程序，支持批量

ZZXXQQ

1. ;PL线互换 ZZXXQQ 2007.9.25
   
2. (DEFUN C:TT ()
   
3. (SETVAR "CMDECHO" 0)
   
4. (IF (SETQ SS (SSGET '((0 . "*POLYLINE")))) (PROGN
   
5.   (SETQ I -1)
   
6.   (REPEAT (SSLENGTH SS)
   
7.    (SETQ EN (SSNAME SS (SETQ I (1+ I))))
   
8.    (SETVAR "PLINETYPE" (IF (= (GETVAR "PLINETYPE") 0) 1 0))
   
9.    (COMMAND "EXPLODE" EN)
   
10.    (COMMAND "PEDIT" "M" "P" "" "Y" "J" 0.5 "")
    
11.   )
    
12. ))
    
13. (SETVAR "CMDECHO" 1)
    
14. (PRINC)
    
15. )

复制代码

kwok

炸开三维多段线再连接一起就是多段线

wsjwsjwsj

cie0588 发表于 2013-7-16 09:37

谢谢各位了，能来个批量转的吗？

ll_j

wsjwsjwsj 发表于 2013-7-17 21:31
谢谢各位了，能来个批量转的吗？

以前其它帖子上回复过，这里再回复一遍：
真正的3D多段线是无法转换成2D多段线和轻多段线（优化多段线）的，但老格式的2D多段线（所有点都在一个平面内）可以用命令convert进行优化转换。

wsjwsjwsj

ll_j 发表于 2013-7-17 21:54
以前其它帖子上回复过，这里再回复一遍：
真正的3D多段线是无法转换成2D多段线和轻多段线（优化多段线） ...

太谢谢了，在你的提醒下我有好方法了

弥勒

ZZXXQQ 发表于 2013-7-15 23:59

真是高人啊