lichh_2003 发表于 2004-12-11 16:58:00

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

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


谢谢！！

tiger8888 发表于 2004-12-11 19:03:00

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


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

sieben 发表于 2004-12-11 21:26:00

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

lichh_2003 发表于 2004-12-11 22:02:00

能不能给个例子啊？


谢谢了！

mccad 发表于 2004-12-12 08:09:00

Sub AddLineType()
       Dim linetypeName As String
       linetypeName = "DASHED"
       On Error Resume Next
       ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
End Sub
注意对于线型，用Add添加线型是没有意义的，因为添加的线型只能使用默认的线型(连续线)，而不能再改变线型的定义。
也不能在图形中直接定义线型的样式。
只能加载线型文件中的线型到图形中。
页: [1]
查看完整版本: 求助：怎么样在VB中设置线型为虚线？