旋转属性问题
我有一个正在尝试解决的问题。我有一个刚从A2k4迁移到A2k8的用户。在2004年，不存在任何问题，但是在2008年，使用VBA以编程方式插入某些具有属性的块会导致属性旋转0度。如果手动插入块，一切正常...是2008年VBA发生了什么不一样的事情导致了这一切，还是有什么我不知道的背景？..好了，最后一部分加载完毕..有很多我不知道的设定..
**** Hidden Message ***** 嗨Keith，
看到了吗 啊...酷...也许我们应该删除这个线程...或者也许我会看另一个线程。
谢谢 Keith，你只是像我们一直以来一样插入一个块，还是这次你以不同的方式编写代码？ 我插手看到你的代码，如果poss 和往常一样...
我不能泄露整个代码，但我可以提供这个花絮只是为了看看发生了什么...
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
我只是注意到在某些情况下，在属性像这样填充后，块以编程方式旋转...
blk.Rotation = RotAng
但以编程方式，它不应该导致属性从原始块中的原始旋转设置更改。
我想我会尝试确保块仅在插入它们时处于0 deg，看看是否会有所不同。
这当然很奇怪。 我想我会尝试在这里重现问题 此问题已得到解决，我将它归因于AutoCAD 2008中的错误。有关解决方案，请参阅。
页:
[1]