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

headbegger

如题。下面是我的程序段：

Dim acadApp As Object, acadDoc As Object, moSpace As Object

Private Sub DrawSingal(Pt1 As Double, Pt2 As Double, txtStr As String)
Dim TriSin As Object,Pts(5) As Double
Set acadApp = GetObject(, "AutoCAD.Application")
If err Then
    err.Clear
    Set acadApp = CreateObject("AutoCAD.Application")
    If err Then
        MsgBox "启动AutoCad失败，请检查您的计算机上是否正确安装了AutoCad。", vbExclamation + vbOKOnly, ""
        Exit Sub
    End If
End If
acadApp.Visible = True
Set acadDoc = acadApp.ActiveDocument
Set moSpace = acadDoc.ModelSpace
Pts(0) = Pt1: Pts(1) = Pt2
Pts(2) = Pt1 + hight: Pts(3) = Pt2 + hight
Pts(4) = Pt1 - hight: Pts(5) = Pts(3)
Set TriSin = moSpace.AddLightWeightPolyline(Pts)
TriSin .LineWeight=acLnWt018 ' 执行这一句时提示变量'acLnWt018'未定义,但是acLnWt018是CAD的线宽值呀？？？？？？？
End Sub

还有一个没有解决的问题，如何给图层设置线宽、线型、颜色呢？？？谢谢!!!!

雪山飞狐(lzh)

你在VBA里直接写
msgbox acLnWt018
看看值多少,把它赋给TriSin .LineWeight

headbegger

不行，VBA里直接写msgbox acLnWt018，
运行提示“编译错误：acLnWt018　无效外部过程”

雪山飞狐(lzh)

Sub j()
MsgBox acLnWt018
End Sub

一生有你

Set objlayer = ThisDrawing.Layers.Add("主体")
     objlayer.Color = 40
     objlayer.Linetype = "continuous"
     ThisDrawing.ActiveLayer = objlayer
     ThisDrawing.ActiveLinetype = objlayer.Linetype
运行说linetype类型不匹配怎么回事啊？图层和颜色改变了，线型怎么才能随着改变？
麻烦斑竹了！！