求助有没有知道VB怎么在CAD中自动标注

小李锈刀

我看到别人，用VB6计算出数据后，程式自动打开CAD图纸自动完成标注，（不是VBA，是VB）,效果很好，，不知是怎么实现的，向各位大吓请教。。谢谢

per-shaving

用座标值來定填值的位置，再确定字体大小，值的内容即可。看一简例：

Dim inspnt(0 To 2) As Double
Dim ts As String  

inspnt(0) = 208: inspnt(1) = 200: inspnt(2) = 0        
ts = "\H4;" & gz
Set mtxtobj = MoSpace.AddMText(inspnt, 100, ts)
例中先定义二变量，再在座标208,200的地方填上gz值，字高4。