Question

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

Answer 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
大体应该这么写吧