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

2024年11月15日 10:17
有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
大体应该这么写吧