求助：怎么样在VB中设置线型为虚线？

lichh_2003

求助：怎么样在VB中设置线型为虚线？


谢谢！！

tiger8888

虚线好多种阿，你需要确定你需要的线型名称


然后lineobj.linetype=你的线型名称

sieben

还可以用setvariale 设置系统变量 celtype 或设置当前Document 的        ActiveLinetype属性达到目的,注意设置线型前要先把该线型载入

lichh_2003

能不能给个例子啊？


谢谢了！

mccad

2. Sub AddLineType()
3.        Dim linetypeName As String
4.        linetypeName = "DASHED"
5.        On Error Resume Next
6.        ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
7. End Sub

Sub AddLineType()        Dim linetypeName As String        linetypeName = "DASHED"        On Error Resume Next        ThisDrawing.Linetypes.Load linetypeName, "acad.lin" End Sub

注意对于线型，用Add添加线型是没有意义的，因为添加的线型只能使用默认的线型(连续线)，而不能再改变线型的定义。
也不能在图形中直接定义线型的样式。
只能加载线型文件中的线型到图形中。