当前位置：网站首页>Call event after the grip of CAD object is edited (COM interface VB language)

Call event after the grip of CAD object is edited (COM interface VB language)

2022-07-22 06:33:00 【51CTO】

Mainly use function description ：_DMxDrawXEvents::ObjectGripEdit

After the grip of the object is edited , This event will be called , The details are as follows ：

Parameters	explain
LONGLONG lId	Object's id
LONG iGridIndex	Grip index edited

VB The code implementation is as follows ：

       
       ' Check whether the object is ImageMark object , And return object data .​​
       
​​Dim data As MxDrawXLib.MxDrawResbuf​​
       
​​Set data = MxDrawX1.CallLongParam1("Mx_GetImageMarkData", lId)​​
       
​​If data.AtString(0) = "Ok" Then​​
       
​​'​​​ ​​ obtain Mark The file name of the object .​​
       
​​MsgBox (data.AtString(1))​​
       
​​' The insertion point x​​
       
​​MsgBox (data.AtDouble(2))​​
       
​​'​​​​ The insertion point y​​
       
​​MsgBox (data.AtDouble(3))​​
       
​​' Zoom ratio ​​
       
​​data.AtDouble (4)​​
       
​​'​​​​ When drawing pictures , Whether to participate in printing , Draw a picture ​​
       
​​data.AtLong (5)​​
       
​​' No, draw its outline mark in the document ​​
       
​​data.AtLong (6)​​
       
​​'​​​​ The width of the image in the database ​​
       
​​data.AtDouble (7)​​
       
​​' The height of the image in the database ​​
       
​​data.AtDouble (8)​​
       
​​'​​​​ Used when flashing ImageFile​​
       
​​data.AtString (9)​​
       
​​' Mark text ​​
       
​​data.AtString (10)​​
       
​​'​​​​ Dimension text height ​​
       
​​data.AtDouble (11)​​
       
​​' Color index ​​
       
​​data.AtLong (12)​​
       
​​'​​​​ modify Mark Text data .​​
       
​​Dim setParam As MxDrawXLib.MxDrawResbuf​​
       
​​Set setParam = New MxDrawXLib.MxDrawResbuf​​
       
​​' Input object id​​
       
​​setParam.AddLong lId​​
       
​​'​​​​ Enter the new text content of the object ​​
       
​​setParam.AddString ​​​​"Text"​​
       
​​setParam.AddString ​​​​" Object is modified "​​
       
​​' Enter the new text height of the object ,TextHeight Yes, set tag ​​
       
​​setParam.AddString "TextHieght"​​
       
​​'​​​​ Text height value ​​
       
​​setParam.AddDouble 50​​
       
​​MxDrawX1.CallEx ​​​​"Mx_SetImageMarkData"​​​​, setParam​​
      
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.

原网站

版权声明
本文为[51CTO]所创，转载请带上原文链接，感谢
https://yzsam.com/2022/203/202207211432217279.html

当前位置：网站首页>Call event after the grip of CAD object is edited (COM interface VB language)

Call event after the grip of CAD object is edited (COM interface VB language)

边栏推荐

猜你喜欢

随机推荐