将修订块更改为新块

TallCoolOne · 发表于 2006-10-5 10:22:06

嗯，我试图用新的rev块替换旧的修订块，我有代码用新块替换旧rev块&以及旧块的所有属性。我的问题是，新的块比旧的rev块高0.838923，我不知道如何使新的rev块在图纸上每个块的总高度上移动。每个图纸上有1到10个版本块。第一个可以插入，但其余的不能向上移动所需的距离

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Murph · 发表于 2006-10-5 12:35:03

你需要这样做：

copy

For n = 1 to NumberOfRevs
  If Not n = 1 Then
      yinsert = yinsert + ((n - 1) * .838923)
  End If
Next n

TallCoolOne · 发表于 2006-10-5 14:17:12

好吧，我正在尝试用新的rev块更改旧的修订块，我有代码来用新的rev块和旧块的所有属性来更改旧的rev块。我的问题是，新块比旧的rev块高.838923，我不知道如何使新的rev块在图纸上的每个块上移动该总数。每个绘图上有1到10个转块。第一个插入正常，但其余部分不会向上移动所需的距离

Bryco · 发表于 2006-10-5 23:53:04

你可能必须张贴一个样本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更安全

TallCoolOne · 发表于 2006-10-8 16:02:53

嘿，布莱科，
谢谢你给我指出了修复它的地方。
我多次屏蔽了intCnt……它能工作了。再次感谢

mohnston · 发表于 2006-10-12 14:00:15

您可能对此感兴趣。

将修订块更改为新块

发表回复

精选推荐