旋转属性问题

Keith · 发表于 2008-3-12 09:26:23

我有一个正在尝试解决的问题。我有一个刚从A2k4迁移到A2k8的用户。在2004年，不存在任何问题，但是在2008年，使用VBA以编程方式插入某些具有属性的块会导致属性旋转0度。
如果手动插入块，一切正常...是2008年VBA发生了什么不一样的事情导致了这一切，还是有什么我不知道的背景？..好了，最后一部分加载完毕..有很多我不知道的设定..

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

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

hendie · 发表于 2008-3-12 09:47:56

嗨Keith，
看到了吗

Keith · 发表于 2008-3-12 09:57:53

啊...酷...也许我们应该删除这个线程...或者也许我会看另一个线程。
谢谢

Keith · 发表于 2008-3-12 10:05:54

Keith，你只是像我们一直以来一样插入一个块，还是这次你以不同的方式编写代码？我插手看到你的代码，如果poss

Keith · 发表于 2008-3-12 10:59:31

和往常一样...
我不能泄露整个代码，但我可以提供这个花絮只是为了看看发生了什么...

copy

If Activedocument.ActiveSpace = AcModelSpace Then
    Set blk = Activedocument.ModelSpace.InsertBlock(InsPt, BlkName, Xscl, Yscl, Zscl, 0)
Else
    Set blk = Activedocument.PaperSpace.InsertBlock(InsPt, BlkName, Xscl, Yscl, Zscl, 0)
End If
MyAtts = blk.GetAttributes
For X = 0 to Ubound(MyAtts)
   strTag = MyAtts(X).TagString
   Select Case strTag
   Case "IDNO"
      MyAtts(X).TextString = "Some random text previously defined"
' lots more case statements here
   End Select
Next X