社区 › VBA/VB/ActiveX/API 编程技术 › [求助]谁知道用VB开发AutoCAD时，怎样设置图层的线型

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

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

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

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

<p>Sub Example_Load()<br/>&nbsp;&nbsp;&nbsp;&nbsp; ' 该示例尝试从acad.lin文件中加载 "CENTER" 线型。如果该线型已经存在，则显示提示。<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; Dim linetypeName As String<br/>&nbsp;&nbsp;&nbsp;&nbsp; linetypeName = "center"<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; ' 从acad.lin文件中加载 "CENTER"线型<br/>&nbsp;&nbsp;&nbsp;&nbsp; On Error Resume Next&nbsp;&nbsp;&nbsp; ' 捕获任何出错信息<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.Linetypes.Load linetypeName, "acad.lin"<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; ' 如果该名称已经存在，则提醒用户<br/>&nbsp;&nbsp;&nbsp;&nbsp; If Err.Number = -2145386405 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'MsgBox "名称为“" &amp; linetypeName &amp; "”的线型已经存在。", , "明经通道VBA线型加载示例"<br/>&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp; Dim objLayer As AcadLayer<br/>&nbsp;&nbsp;&nbsp;&nbsp; Set objLayer = ThisDrawing.Layers.Add("aa")<br/>&nbsp;&nbsp;&nbsp;&nbsp; objLayer.Linetype = linetypeName<br/>End Sub</p><p></p>

查看完整版本: [求助]谁知道用VB开发AutoCAD时，怎样设置图层的线型