[VBA程序]：移动选择集的方法

misters

Dim acadselect As AcadSelectionSet
    Set acadselect = doc1.SelectionSets.Add("ss1")

    Dim minExt As Variant
    Dim maxExt As Variant
    For Each obj In doc0.ModelSpace
        If obj.EntityName = "AcDbPolyline" Then
            
            obj.GetBoundingBox minExt, maxExt

            acadselect.Select acSelectionSetWindow, minExt, maxExt

我想把选择集内所有的对象，移动到某一个位置，以矩形的左上角（188.3626,555.546,0）为参考，移到（0,0,0），选择集中又没有move属性

acadselect.itme(i).move 倒是可以，但计算很复杂，而且移动需要两个点，像附图中的那个复杂的花，算起来可就麻烦了，有没有更好的办法呢？

雪山飞狐(lzh)

for each i in ss
i.move p1,p2
next i

xiafan28

雪山飞狐(lzh) 发表于 2005-6-15 21:29
for each i in ss
i.move p1,p2
next i

那这里各个对象的 P1坐标是什么呢？
对象不同，拥有的坐标点数量也不一样，都各自要使用哪个坐标做为P1呢？
P2可以在确定的P1基础上去加减，主要是P1如何确定？
求解？
谢谢！