WWWDONG 发表于 2004-3-24 20:02:00

[求助]3dface

谁有办法降3dface转换为pline

my_computer 发表于 2004-3-24 21:35:00

Sub main()<BR>Dim Sel As AcadSelectionSet<BR>Do While ThisDrawing.SelectionSets.Count &lt;&gt; 0<BR>                       ThisDrawing.SelectionSets.Item(0).Delete<BR>Loop<BR>Set Sel = ThisDrawing.SelectionSets.Add("3DFace")<BR>Sel.SelectOnScreen


Dim Obj As AcadObject, My3DFace As Acad3DFace, Poins<BR>For Each Obj In Sel<BR>                       If TypeName(Obj) = "IAcad3DFace" Then<BR>                                                       Set My3DFace = Obj<BR>                                                       Poins = My3DFace.Coordinates<BR>                                                       ReDim Preserve Poins(UBound(Poins) + 3)<BR>                                                       Poins(UBound(Poins) - 2) = Poins(0)<BR>                                                       Poins(UBound(Poins) - 1) = Poins(1)<BR>                                                       Poins(UBound(Poins)) = Poins(2)<BR>                                                       ThisDrawing.ModelSpace.AddPolyline Poins<BR>                                                       Obj.Delete<BR>                       End If<BR>Next<BR>End Sub

mccad 发表于 2004-3-24 21:36:00

用SendCommand方法来炸开，然后再把线组合成Pline

my_computer 发表于 2004-3-24 22:26:00

3楼的方法在速度上会更快一些。
页: [1]
查看完整版本: [求助]3dface