[VBA程序]：请教VB调用CAD

comb

我现在用VB调用CAD的零件图纸并想替换图纸中已经标好的零件的尺寸,请问如何获取原有的尺寸并替换成现有的尺寸?多谢!

efan2000

在ActiveX中提供了各种尺寸标注的对象，可以首先获取它们的对象，然后再根据它的属性或者方法来修改尺寸标注。

comb

多谢!能否举个例子讲的详细一些,我对AUTOCAD里的VBA不是很熟悉!

efan2000

下面只是一个简单的例子，具体的要看帮助文件。

2. 
   
3.   [FONT=courier new]
   
4. Sub Test()
   
5.     '声明一个实体变量，对当前图纸的模块空间进行枚举
   
6.     Dim EntObj As AcadEntity
   
7.     For Each EntObj In ThisDrawing.ModelSpace
   
8.         If TypeOf EntObj Is AcadDimAligned Then '如果实体是长度型尺寸标注
   
9.             Debug.Print EntObj.Mesurement '在立即窗口打印尺寸标注的测量值
   
10.             EntObj.TextOverride = "值：<>" '更改尺寸标注的显示值，注意测量值只读，不能修改
    
11.         End If
    
12.     Next
    
13.     Set EntObj = Nothing
    
14. End Sub
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Test()<br />     '声明一个实体变量，对当前图纸的模块空间进行枚举<br />     Dim EntObj As AcadEntity<br />     For Each EntObj In ThisDrawing.ModelSpace<br />         If TypeOf EntObj Is AcadDimAligned Then '如果实体是长度型尺寸标注<br />             Debug.Print EntObj.Mesurement '在立即窗口打印尺寸标注的测量值<br />             EntObj.TextOverride = "值：<>" '更改尺寸标注的显示值，注意测量值只读，不能修改<br />         End If<br />     Next<br />     Set EntObj = Nothing<br /> End Sub<br />   [/FONT]<br />

comb

谢谢!还请麻烦版主, 你这段程序在R14和CAD2000下都可用吗?如果原来的图纸中的尺寸是用通用的字符如,高用H,宽用W表示,再把它替换成具体的数字,也可以用这段程序吗?

efan2000

可以在R2000的VBA环境中直接运行，但在VB的编程中应首先用CreateObject或者GetObject获取Application的应用程序级对象，然后用ActiveDocument的对象代替ThisDrawing。在R14中，不支持前绑定，故对于对象只能声明为Object，而不能具体的声明为某一对象。
对于你的图纸，则要视情况，最好能提供一张图纸及说明如何替换。