wsjwsjwsj 发表于 2013-7-15 23:24:44

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

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

寒潮大冬瓜 发表于 2024-7-17 15:44:56

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

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

;;;一个vlisp方法，将三维多线段转为LWPOLYLINE

(defun c:tt (/ lst)
(setqlst
   (Vlax-Get
   (Vlax-Ename->Vla-Object (car (entsel "\n选择三维多线段：")))
   'Coordinates
   )
)
(defun tt-2 (lst)
    (iflst
      (append (list (car lst) (cadr lst)) (tt-2 (cdddr lst)))
    )
)
(setq lst (tt-2 lst))
(Vlax-Invoke-Method
    (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)
      'ModelSpace
    )
    'AddLightWeightPolyline
    (vlax-safearray-fill
      (vlax-make-safearray
vlax-vbDouble
(cons 0 (1- (length lst)))
      )
      lst
    )
)
(princ)
)

dongya1235 发表于 2013-7-15 23:44:38

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

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

;PL线互换 ZZXXQQ 2007.9.25
(DEFUN C:TT ()
(SETVAR "CMDECHO" 0)
(IF (SETQ SS (SSGET '((0 . "*POLYLINE")))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
   (SETQ EN (SSNAME SS (SETQ I (1+ I))))
   (SETVAR "PLINETYPE" (IF (= (GETVAR "PLINETYPE") 0) 1 0))
   (COMMAND "EXPLODE" EN)
   (COMMAND "PEDIT" "M" "P" "" "Y" "J" 0.5 "")
)
))
(SETVAR "CMDECHO" 1)
(PRINC)
)

kwok 发表于 2013-7-16 00:50:38

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

wsjwsjwsj 发表于 2013-7-17 21:31:35

cie0588 发表于 2013-7-16 09:37 static/image/common/back.gif


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

ll_j 发表于 2013-7-17 21:54:36

wsjwsjwsj 发表于 2013-7-17 21:31 static/image/common/back.gif
谢谢各位了，能来个批量转的吗？

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

wsjwsjwsj 发表于 2013-7-17 22:08:43

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

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

弥勒 发表于 2024-7-1 15:15:29

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


真是高人啊
页: [1] 2
查看完整版本: 急！！！！！帮忙发个三维多段线转多段线的lsp，谢谢