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

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

求助：怎么样在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

copy


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

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

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

发表回复

精选推荐