cad vba 如何获取文字的坐标和内容!

2023-12-23 10:28:25
推荐回答(1个)
回答1:

dim obj1 as AcadText
dim a(2),b(2) as double
dim b as integer
dim d as string
obj1=........
with obj1
a=.InsectionPoint
b=.TextAlignmentPoint
c=.Alignment
d=.TextString
end with
大体应该这么写吧