在Priivate m_ID AsInteger下面添加
Type GEDrawMode
Normal = 1
Selec = 2
Drag = 3
Delete = 4
TPoint = 5
CPoint = 7
Dimensioning = 6
Auxiliary = 8
Material = 11
End Type
在Priivate m_ID AsInteger下面添加
Type GEDrawMode
Normal = 1
Selec = 2
Drag = 3
Delete = 4
TPoint = 5
CPoint = 7
Dimensioning = 6
Auxiliary = 8
Material = 11
End Type