[jjj]怎样批量的把多段线转化为二维多段线？

cadfqd

各位老师：怎样把多段线转为二维多段线呢？最好能批量地解决．３Q!

alin

If you don't mind, could you tell us why you have to do that?

mkhsj928

你的多段线应该是Z坐标相同的吧，在用
CAD2000打开会自动改成LWPolyline的 如果是Z坐标不同的3d Pline,你不应该改呀！

yay

用2005的扩展工具ET中的对象二维化。

无痕

好像叫 convertpoly

wangds

谢谢告知

yay

yay发表于2004-11-17 11:39:00用2005的扩展工具ET中的对象二维化。

命令: Flatten

王咣生

一个读坐标的函数: (DEFUN GetListOfPline (EntityName / SSE_Pline N newEntityName)
(SETQ SSE_Pline (ENTGET EntityName))
(SETQ LastList nil)
(IF (= (CDR (ASSOC 0 SSE_Pline)) "LWPOLYLINE")
(PROGN
(SETQ LastList (LIST (LIST 0 0)))
(SETQ N 0)
(WHILE (/= (NTH N SSE_Pline) nil)
(IF (= (CAR (NTH N SSE_Pline)) 10)
(SETQ LastList (APPEND LastList (LIST (LIST (CADR (NTH N SSE_Pline)) (CADDR (NTH N SSE_Pline)) )) ))
)
(SETQ N (+ N 1))
)
(SETQ LastList (CDR LastList))
)
)
(IF (= (CDR (ASSOC 0 SSE_Pline)) "POLYLINE")
(PROGN
(SETQ LastList (LIST (LIST 0 0)))
(SETQ newEntityName (ENTNEXT EntityName))
(WHILE (= (CDR (ASSOC 0 (ENTGET newEntityName))) "VERTEX")
(SETQ LastList (APPEND LastList (LIST (LIST (CADR (ASSOC 10 (ENTGET newEntityName))) (CADDR (ASSOC 10 (ENTGET newEntityName))) ))))
(SETQ newEntityName (ENTNEXT newEntityName))
)
(SETQ LastList (CDR LastList))
)
)
(SETQ LastList LastList)
);_DEFUN 设置PLINETYPE变量,重绘多义线

cadfqd

谢谢楼上各位！