关于块求坐标的问题

llgzhang

我用如下代码想取得块的坐标：


Dim entry As AcadBlock


Dim v As Variant


...


v = entry.Origin


但是报错说Origin不是块的属性，可帮助里明明写着是，到底是怎么回事情

llgzhang

没有人帮帮我呀

雪山飞狐_lzh

不是没人帮你


把你的完整一点的代码贴上来才知道那错了


就你贴的一点点代码看不出问题

llgzhang

代码如下 Dim myss As AcadSelectionSet
Set myss = ThisDrawing.SelectionSets.Add("125553")
Dim llll As AcadBlock 'AcadLine
Dim gpcode(0) As Integer
Dim datavalue(0) As Variant
Dim linecount, i, j, q As Integer
Dim stpt, enpt As Variant
Dim vst As Variant
gpcode(0) = 0
datavalue(0) = "Insert"
myss.Select acSelectionSetAll, , , gpcode, datavalue
ReDim lineco(myss.Count - 1, 3) As Variant
i = 0
For Each lll In myss
vst = lll.Origin
Next
myss.Delete
执行到vst = lll.Origin后提示错误：对象不支持该属性或方法

雪山飞狐_lzh

Origin是块的属性，不是块引用的属性 选择集里只有块引用，当然不支持该属性 如果一定要，可以用下列方法： vst=thisdrawing.blocks(lll.name).Origin 另外： 声明为：Dim llll As AcadBlock 引用却为：For Each lll In myss

llgzhang

多谢楼上的，刚学，有些基本的问题也不清楚，多谢指点。


你家闺女真可爱！

llgzhang

好像origin不是求块坐标的，那什么是呀

雪山飞狐_lzh

如果你要求插入点用 Dim lll As AcadBlockReference
vst = lll.InsertionPoint

llgzhang

按你说的行了，再次感谢