[求助]：请问如何读取块中的图元

zrqzrq

我想插入一块，然后将块中的图元的信息读出来，如一条直线的坐标？

雪山飞狐(lzh)

可以用矩阵试试

zrqzrq

请问如何编程？请不能说得更仔细点？

雪山飞狐(lzh)

Public Sub test111()
Dim pnt
Dim dot(2) As Double
Dim angle As Double
Dim oBlock As AcadBlock
Dim oUcs As AcadUCS
Set oBlock = ThisDrawing.Blocks.Add(dot, "*U")
Dim p1
p1 = ThisDrawing.Utility.PolarPoint(dot, Atn(1), 10)
oBlock.AddLine dot, p1
pnt = ThisDrawing.Utility.GetPoint
angle = ThisDrawing.Utility.GetAngle(pnt)
ThisDrawing.ModelSpace.InsertBlock pnt, oBlock.Name, 1, 1, 1, angle
Set oUcs = ThisDrawing.UserCoordinateSystems.Add(pnt, ThisDrawing.Utility.PolarPoint(pnt, angle, 1), ThisDrawing.Utility.PolarPoint(pnt, angle + Atn(1) * 2, 1), "Test")
Dim oEntitys(0) As AcadEntity
Set oEntitys(0) = oBlock(0)
a = ThisDrawing.CopyObjects(oEntitys, ThisDrawing.ModelSpace)
Set oEntitys(0) = a(0)
oEntitys(0).TransformBy oUcs.GetUCSMatrix
a = oEntitys(0).EndPoint
MsgBox a(0)
oUcs.Delete
End Sub
好像复杂了一点，其实可以用ThisDrawing.Utility.PolarPoint解决好像简单一些