如何让用户指定的线条放在其他图形之上？

bluefires

大家知道画图的时候后画的线会放在其他图形之上，而如果先画线再放置图形则图形会吧线遮住，请问如何能够把这些遮住的线放到其他图形之上。

cctv2cctv

待性里面调整线的高度

bluefires

什么意思啊，我现在是在二维的环境下，哪来高度啊！

雪山飞狐_lzh

2. Sub Example_SortentsTable()
3.     ' This example creates a SortentsTable object and
4.     ' changes the draw order.    ' Set drawing to display lineweights and create a True Color object
5.     Dim ACADPref As AcadDatabasePreferences
6.     Set ACADPref = ThisDrawing.Preferences
7.     ACADPref.LineWeightDisplay = True
8.     Dim MyColorObjOne As AcadAcCmColor
9.     Set MyColorObjOne = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
10.     Call MyColorObjOne.SetRGB(80, 100, 244)
11.    
12.     ' Draw a polyline
13.     Dim plineObj As AcadPolyline
14.     Dim points(0 To 8) As Double
15.     points(0) = 4: points(1) = 4: points(2) = 0
16.     points(3) = 3: points(4) = 5: points(5) = 0
17.     points(6) = 6: points(7) = 20: points(8) = 0
18.     Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
19.     plineObj.Lineweight = acLnWt211
20.     Call MyColorObjOne.SetRGB(90, 110, 150)
21.     plineObj.TrueColor = MyColorObjOne    ' Draw a line
22.     Dim lineObj As AcadLine
23.     Dim startPoint(0 To 2) As Double
24.     Dim endPoint(0 To 2) As Double
25.     startPoint(0) = 5: startPoint(1) = 13: startPoint(2) = 0
26.     endPoint(0) = 5: endPoint(1) = 27: endPoint(2) = 0
27.     Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
28.     lineObj.Lineweight = acLnWt211
29.     Call MyColorObjOne.SetRGB(50, 80, 230)
30.     lineObj.TrueColor = MyColorObjOne
31.      
32.     ' Draw a circle
33.     Dim circleObj As AcadCircle
34.     Dim centerPoint(0 To 2) As Double
35.     Dim radius As Double
36.     centerPoint(0) = 10: centerPoint(1) = 15: centerPoint(2) = 0#
37.     radius = 5#
38.     Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
39.     circleObj.Lineweight = acLnWt211
40.     Call MyColorObjOne.SetRGB(60, 200, 220)
41.     circleObj.TrueColor = MyColorObjOne
42.     ZoomAll
43.     AcadApplication.Update
44.       
45.     'Gxet an extension dictionary and, if necessary, add a SortentsTable object
46.     Dim eDictionary As Object
47.     Set eDictionary = ThisDrawing.ModelSpace.GetExtensionDictionary
48.     ' Prevent failed GetObject calls from throwing an exception
49.     On Error Resume Next
50.     Dim sentityObj As Object
51.     Set sentityObj = eDictionary.GetObject("ACAD_SORTENTS")
52.     On Error GoTo 0
53.     If sentityObj Is Nothing Then
54.          ' No SortentsTable object, so add one
55.          Set sentityObj = eDictionary.AddObject("ACAD_SORTENTS", "AcDbSortentsTable")
56.     End If
57.    
58.     Dim ObjIds(2) As Long
59.     ObjIds(0) = plineObj.ObjectID
60.     ObjIds(1) = lineObj.ObjectID
61.     ObjIds(2) = circleObj.ObjectID
62.    
63.     Dim varObject As AcadObject
64.     Set varObject = ThisDrawing.ObjectIdToObject(ObjIds(2))
65.     Dim arr(0) As AcadObject
66.     Set arr(0) = varObject
67.    
68.     'Move the circle object to the bottom
69.     sentityObj.MoveToBottom arr
70.     AcadApplication.Update
71.          
72. End Sub

Sub Example_SortentsTable()     ' This example creates a SortentsTable object and     ' changes the draw order.    ' Set drawing to display lineweights and create a True Color object     Dim ACADPref As AcadDatabasePreferences     Set ACADPref = ThisDrawing.Preferences     ACADPref.LineWeightDisplay = True     Dim MyColorObjOne As AcadAcCmColor     Set MyColorObjOne = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")     Call MyColorObjOne.SetRGB(80, 100, 244)         ' Draw a polyline     Dim plineObj As AcadPolyline     Dim points(0 To 8) As Double     points(0) = 4: points(1) = 4: points(2) = 0     points(3) = 3: points(4) = 5: points(5) = 0     points(6) = 6: points(7) = 20: points(8) = 0     Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)     plineObj.Lineweight = acLnWt211     Call MyColorObjOne.SetRGB(90, 110, 150)     plineObj.TrueColor = MyColorObjOne    ' Draw a line     Dim lineObj As AcadLine     Dim startPoint(0 To 2) As Double     Dim endPoint(0 To 2) As Double     startPoint(0) = 5: startPoint(1) = 13: startPoint(2) = 0     endPoint(0) = 5: endPoint(1) = 27: endPoint(2) = 0     Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)     lineObj.Lineweight = acLnWt211     Call MyColorObjOne.SetRGB(50, 80, 230)     lineObj.TrueColor = MyColorObjOne           ' Draw a circle     Dim circleObj As AcadCircle     Dim centerPoint(0 To 2) As Double     Dim radius As Double     centerPoint(0) = 10: centerPoint(1) = 15: centerPoint(2) = 0#     radius = 5#     Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)     circleObj.Lineweight = acLnWt211     Call MyColorObjOne.SetRGB(60, 200, 220)     circleObj.TrueColor = MyColorObjOne     ZoomAll     AcadApplication.Update            'Gxet an extension dictionary and, if necessary, add a SortentsTable object     Dim eDictionary As Object     Set eDictionary = ThisDrawing.ModelSpace.GetExtensionDictionary     ' Prevent failed GetObject calls from throwing an exception     On Error Resume Next     Dim sentityObj As Object     Set sentityObj = eDictionary.GetObject("ACAD_SORTENTS")     On Error GoTo 0     If sentityObj Is Nothing Then          ' No SortentsTable object, so add one          Set sentityObj = eDictionary.AddObject("ACAD_SORTENTS", "AcDbSortentsTable")     End If         Dim ObjIds(2) As Long     ObjIds(0) = plineObj.ObjectID     ObjIds(1) = lineObj.ObjectID     ObjIds(2) = circleObj.ObjectID         Dim varObject As AcadObject     Set varObject = ThisDrawing.ObjectIdToObject(ObjIds(2))     Dim arr(0) As AcadObject     Set arr(0) = varObject         'Move the circle object to the bottom     sentityObj.MoveToBottom arr     AcadApplication.Update           End Sub

bluefires

谢谢版主了，版主真是有问必答啊！