[求助]谁知道用VB开发AutoCAD时，怎样设置图层的线型

明川秀水 · 发表于 2008-8-13 09:17:00

谁知道用VB开发时，怎样设置图层的线型？
要求：不用Linetypes 对象的 Load 方法装载线型。因为程序要在其它电脑上运行，你是不知道那台电脑上CAD的安装位置的。
请问还有别的方法吗？
请高手给举个例子，例如设置“虚线层”的线型为“虚线”。
谢谢各位了！！

兰州人 · 发表于 2008-8-13 10:36:00

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

[求助]谁知道用VB开发AutoCAD时，怎样设置图层的线型

发表回复

精选推荐

浏览过的版块