将修订块更改为新块
嗯，我试图用新的rev块替换旧的修订块，我有代码用新块替换旧rev块&以及旧块的所有属性。我的问题是，新的块比旧的rev块高0.838923，我不知道如何使新的rev块在图纸上每个块的总高度上移动。每个图纸上有1到10个版本块。第一个可以插入，但其余的不能向上移动所需的距离**** Hidden Message ***** 你需要这样做：
For n = 1 to NumberOfRevs
If Not n = 1 Then
yinsert = yinsert + ((n - 1) * .838923)
End If
Next n
好吧，我正在尝试用新的rev块更改旧的修订块，我有代码来用新的rev块和旧块的所有属性来更改旧的rev块。我的问题是，新块比旧的rev块高.838923，我不知道如何使新的rev块在图纸上的每个块上移动该总数。每个绘图上有1到10个转块。第一个插入正常，但其余部分不会向上移动所需的距离
你可能必须张贴一个样本dwg来获得这方面的帮助。
int total = 0.83892 * int CNT
If insert pt(1)
insert pt(1)= insert pt(1)
Else
insert pt(1)= insert pt(1)+((int total)* int CNT)' ' ' ' ' ' '我不明白这看起来像int CNT * int CNT
End If
int CNT = int CNT+1
private通常比public dims更安全 嘿，布莱科，
谢谢你给我指出了修复它的地方。
我多次屏蔽了intCnt……它能工作了。再次感谢 您可能对此感兴趣。
页:
[1]