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

20cr · 发表于 2018-11-7 15:41:00

想实现一个简单的过程，就是运行一次程序，CAD默认线宽就发生一次修改。
比如，原始是 [白色/连续细线 /0毫米线宽]。
运行一次程序 CAD软件自动改成 [红色/虚线/0.5毫米线宽]。以后画图就是用这种设置进行。
这样的程序的好处是，如果可以快速的实现一些绘图风格的组合，每次更换绘图风格会浪费掉一些时间。设置线型的方法在帮助文件里面有。现在就是不清楚颜色和线宽是怎么设置。
谢谢你的帮助

20cr · 发表于 2018-11-7 15:42:00

这个是帮助文件的代码
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