huangyhg 发表于 2003-10-19 19:04:00

10.19用acdbline识别直线,用什么识别形位公差?

用acdbtolerance好像不行?

leeyeafu 发表于 2003-10-20 18:49:00

AcDbFcf类
本来我也不知道,不过是写了下列VBA程序并运行,选择ACAD图形中画好的形位公差对象后得到的。
VBA代码如下:
Sub a()
Dim Obj As AcadEntity
Dim Sel As AcadSelectionSet
On Error Resume Next
Set Sel = ThisDrawing.SelectionSets.Add("ssel")
If Err Then
    Err.Clear
    Set Sel = ThisDrawing.SelectionSets.Item("ssel")
End If
On Error Goto 0
Sel.SelectOnScreen
For Each Obj In Sel
    MsgBox "对象ID:" & Obj.ObjectID & Chr(13) & "对象类型:" & Obj.ObjectName
Next Obj
Sel.Delete
End Sub

huangyhg 发表于 2003-10-21 10:54:00

ok,亲爱的斑竹,我拿什么回报您??
嘿嘿!
非常感谢!!!
添加头文件,ok了
#include "dbfcf.h"
页: [1]
查看完整版本: 10.19用acdbline识别直线,用什么识别形位公差?