请斑竹看一下怎么回事!!!
GetBoundingBox函数不听使唤!
代码如下:
Dim txtobj As AcadText
Dim pnt0(0 To 2) As Double
pnt0(0) = 0: pnt0(1) = 0: pnt0(2) = 0
Set txtobj = ThisDrawing.ModelSpace.AddText("aaaaaaaaaa", pnt0, 3)
Dim pnt3, pnt4 As ACAD_POINT
txtobj.GetBoundingBox pnt3, pnt4
Dim lineobj As AcadLine
Set lineobj = ThisDrawing.ModelSpace.AddLine(pnt3, pnt4)
本来我想从文本对象边框的最大和最小点画一条,结果成了图片的样子?如何解决??!!谢谢