将修订块更改为新块

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

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

Bryco · 发表于 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

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

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

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

TallCool，你可能需要发布一个样例dwg来获得这方面的帮助
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；intTotal=0.83892*intCnt&nbsp&nbsp&nbsp
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；如果插入pt（1）&lt；=（yScale*2.6875）然后''''''''''插入点与量表的关系如何&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；插入点（1）=插入点（2）&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；其他&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；InsertPt（1）=InsertPt（1）+（（intTotal）*intCnt）&#039''''''''我不知道&#039；这看起来像intCnt*intCnt&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；如果结束&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；intCnt=intCnt+1加私人；通常比公共DIM更安全

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

嗨，Bryco，
；感谢您为我指出修复它的位置，我多次禁用intCnt…它很有效&nbsp；再次感谢

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

这可能会引起您的兴趣

将修订块更改为新块

发表回复

精选推荐