请问怎样在vba设置MLine的线宽?

lymx

<p>这段例子是ca帮助上的，楼主可以试试看</p><p>Sub Example_AddMLine()<br/>&nbsp;&nbsp; ' This example adds an Mline in model space</p><p>&nbsp;&nbsp;&nbsp; Dim mLineObj As AcadMLine<br/>&nbsp;&nbsp;&nbsp; Dim vertexList(0 To 17) As Double<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ' Define data for new object<br/>&nbsp;&nbsp;&nbsp; vertexList(0) = 40: vertexList(1) = 70: vertexList(2) = 0<br/>&nbsp;&nbsp;&nbsp; vertexList(3) = 50: vertexList(4) = 70: vertexList(5) = 0<br/>&nbsp;&nbsp;&nbsp; vertexList(6) = 60: vertexList(7) = 70: vertexList(8) = 0<br/>&nbsp;&nbsp;&nbsp; vertexList(9) = 40: vertexList(10) = 60: vertexList(11) = 0<br/>&nbsp;&nbsp;&nbsp; vertexList(12) = 50: vertexList(13) = 60: vertexList(14) = 0<br/>&nbsp;&nbsp;&nbsp; vertexList(15) = 60: vertexList(16) = 60: vertexList(17) = 6</p><p>&nbsp;&nbsp;&nbsp; ' Create the line in model space<br/>&nbsp;&nbsp;&nbsp; Set mLineObj = ThisDrawing.ModelSpace.AddMLine(vertexList)<br/>&nbsp;&nbsp;&nbsp; Dim xk As Variant<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If mLineObj.Lineweight = -1 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xk = "随层"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xk = mLineObj.Lineweight / 100 &amp; "mm"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; MsgBox "现在线宽是 " &amp; xk<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mLineObj.Lineweight = 158<br/>&nbsp;&nbsp;&nbsp; mLineObj.Update<br/>&nbsp;&nbsp;&nbsp; MsgBox "现在线宽是 " &amp; mLineObj.Lineweight / 100 &amp; "mm"</p><p>&nbsp;&nbsp;&nbsp; ThisDrawing.Application.ZoomAll<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp; ' MsgBox "A new MLine has been added to the drawing."<br/>End Sub</p>