|
|
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 倒是可以，但计算很复杂，而且移动需要两个点，像附图中的那个复杂的花，算起来可就麻烦了，有没有更好的办法呢？ |
|
置顶卡
