[求助]小弟跪求高人帮忙,关于块的缩放问题～～
弄了好长时间了...怎么都搞不定.1,选择图形名为"A"的图层中所有名字为"ss"开头的块,如SS-1,SS-2,SS-3...
2,将所有的块逐一以每个块中心点为basePoint缩放1.5个单位. 注意是每个块都以自己为中心点放大１.５个单位．
请问怎么实现.小弟跪求了!!!!
Set sset = ThisDrawing.SelectionSets.Add("block")
sset.Clear
Dim fType(0) As Integer
Dim fData(0) As Variant
fType(0) = 2
fData(0) = "*"
sset.SelectOnScreen fType, fData
...往下....
高手呀.你在哪里呀?? object.ScaleEntity BasePoint, ScaleFactor
Object
,
The object or objects this method applies to.
BasePoint
Variant (three-element array of doubles); input-only
The 3D WCS coordinates specifying the base point.
ScaleFactor
Double; input-only
The factor by which to scale the object. The dimensions of the object are multiplied by the scale factor. A scale factor greater than 1 enlarges the object. A scale factor between 0 and 1 reduces the object. The scale factor must be greater than 0.0.
可以先建立选择集，然后建立过滤器，把名称为林SS*的所有块参照过滤出来，添加入选择集。然后用循环，得到每一个块参照的包围角点。以角点的连接线的中点做为基点，把块参照放大1.5倍。 建立选择集，过滤选择层码为“A”，块名为“SS*”的块
循环，取插点PT1，由外框点求得中心点PT2，
如果两点不是同一点以点2为原点求出点1方向距离为1.5倍的点为块的新插入点位置否则插入点位置不变
设块X，Y，Z的比例为原来的1.5倍。Over
页:
[1]