[求助]在VB中如何给线宽属性(LineWeight)赋值呢？

headbegger

<P>如题。下面是我的程序段：</P><P>Dim acadApp As Object, acadDoc As Object, moSpace As Object</P><P>Private Sub DrawSingal(Pt1 As Double, Pt2 As Double, txtStr As String)<BR>Dim TriSin As Object,Pts(5) As Double<BR>Set acadApp = GetObject(, &quot;AutoCAD.Application&quot;)<BR>If err Then<BR>&nbsp;&nbsp;&nbsp; err.Clear<BR>&nbsp;&nbsp;&nbsp; Set acadApp = CreateObject(&quot;AutoCAD.Application&quot;)<BR>&nbsp;&nbsp;&nbsp; If err Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox &quot;启动AutoCad失败，请检查您的计算机上是否正确安装了AutoCad。&quot;, vbExclamation + vbOKOnly, &quot;&quot;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp; End If<BR>End If<BR>acadApp.Visible = True<BR>Set acadDoc = acadApp.ActiveDocument<BR>Set moSpace = acadDoc.ModelSpace<BR>Pts(0) = Pt1: Pts(1) = Pt2<BR>Pts(2) = Pt1 + hight: Pts(3) = Pt2 + hight<BR>Pts(4) = Pt1 - hight: Pts(5) = Pts(3)<BR>Set TriSin = moSpace.AddLightWeightPolyline(Pts)<BR>TriSin .LineWeight=acLnWt018 &#39; 执行这一句时提示变量&#39;acLnWt018&#39;未定义,但是acLnWt018是CAD的线宽值呀？？？？？？？<BR>End Sub</P><P>还有一个没有解决的问题，如何给图层设置线宽、线型、颜色呢？？？谢谢!!!!</P>