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

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

20cr 发表于 2019-1-6 01:13:00

自己再顶一个。

mikewolf2k 发表于 2019-1-7 11:01:00

.color
.lineweight

20cr 发表于 2019-1-18 11:57:00

谢谢你的回复，还是有点疑问
你这个是颜色和线宽的属性，这个我能理解。
但是我想实现的是 设置绘图默认参数，在多个默认参数中快速切换
单个代码好理解，把多个代码加上去组合在一起实现一个功能，就感觉到比较棘手。
不管这样 还是谢谢你，我只是一个普通的编程爱好者。

20cr 发表于 2019-3-30 11:14:00

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

查看完整版本: 请教，如何进行线宽和颜色的默认设置