请教，如何进行线宽和颜色的默认设置

20cr

想实现一个简单的过程，就是运行一次程序，CAD默认线宽就发生一次修改。

比如，原始是 [白色/连续细线 /0毫米线宽]。
运行一次程序 CAD软件自动改成 [红色/虚线/0.5毫米线宽]。 以后画图就是用这种设置进行。

这样的程序的好处是，如果可以快速的实现一些绘图风格的组合，每次更换绘图风格会浪费掉一些时间。设置线型的方法在帮助文件里面有。现在就是 不清楚颜色和线宽是怎么设置。

谢谢你的帮助

20cr

这个是帮助文件的代码

Sub Example_ActiveLinetype()
    ' 本示例查找当前线型。它然后设置新的线型为线型集合中与当前线型不同的第一个线型。
    ' 最后，它重设活动的线型为原设置值。
   
    Dim currLineType As AcadLineType
    Dim newLineType As AcadLineType
   
    ' 查找活动文档的当前线型
    Set currLineType = ThisDrawing.ActiveLinetype
    MsgBox "当前线型为 " & currLineType.name, vbInformation, "ActiveLinetype 示例"
   
    ' 设置当前线型为集合中任何一个
    Dim entry
    Dim found As Boolean
    For Each entry In ThisDrawing.Linetypes
        If StrComp(entry.name, currLineType.name, 1) <> 0 Then
            Set newLineType = entry
            found = True
            Exit For
        End If
    Next
    If found Then
        ThisDrawing.ActiveLinetype = newLineType
        MsgBox "新的线型为 " & newLineType.name, vbInformation, "ActiveLinetype 示例"
        ' 重设线型为先前设置
        ThisDrawing.ActiveLinetype = currLineType
        MsgBox "活动线型重设为 " & currLineType.name, vbInformation, "ActiveLinetype 示例"
    End If
End Sub

20cr

自己再顶一个。

mikewolf2k

.color
.lineweight

20cr

mikewolf2k 发表于 2019-1-7 11:01
.color
.lineweight

谢谢你的回复，还是有点疑问
你这个是颜色和线宽的属性，这个我能理解。

但是我想实现的是 设置绘图默认参数，在多个默认参数中快速切换

单个代码好理解，把多个代码加上去组合在一起实现一个功能，就感觉到比较棘手。
不管这样 还是谢谢你，我只是一个普通的编程爱好者。

20cr

自己顶一个 希望有老大不吝赐教