[求助]谁知道用VB开发AutoCAD时，怎样设置图层的线型
谁知道用VB开发时，怎样设置图层的线型？要求：不用Linetypes 对象的 Load 方法装载线型。因为程序要在其它电脑上运行，你是不知道那台电脑上CAD的安装位置的。
请问还有别的方法吗？
请高手给举个例子，例如设置“虚线层”的线型为“虚线”。
谢谢各位了！！
Sub Example_Load()
' 该示例尝试从acad.lin文件中加载 "CENTER" 线型。如果该线型已经存在，则显示提示。
Dim linetypeName As String
linetypeName = "center"
' 从acad.lin文件中加载 "CENTER"线型
On Error Resume Next ' 捕获任何出错信息
ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
' 如果该名称已经存在，则提醒用户
If Err.Number = -2145386405 Then
'MsgBox "名称为“" & linetypeName & "”的线型已经存在。", , "乐筑天下VBA线型加载示例"
End If
Dim objLayer As AcadLayer
Set objLayer = ThisDrawing.Layers.Add("aa")
objLayer.Linetype = linetypeName
End Sub
页:
[1]