|
|
我新建了一个图层，线形为CENTER，随意画一条线。可是运行以下程序后，线形还是直线，请问该怎样解决？？？？？？？？
Private Sub Command1_Click()
Dim acdApp As New AcadApplication
acdApp.Visible = True
Set ThisDrawing = acdApp.ActiveDocument
Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Add("ABC")
layerObj.Color = acRed
Dim linetypeName As String
linetypeName = "CENTER"
ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
Dim newlayer As AcadLayer
Set newlayer = ThisDrawing.Layers.Add("ABC")
ThisDrawing.ActiveLayer = newlayer
Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double
Dim LineObj As AcadLine
startPoint(0) = 100: startPoint(1) = 150: startPoint(2) = 0
endPoint(0) = 300: endPoint(1) = 500: endPoint(2) = 0
Set LineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
End Sub
请问该怎样画出红色的CENTER线形的线？？？？？？？？？？
急，在线等！！！！！！！！ |
|
置顶卡
