[求助]如何得到ucs和wus之间的夹角(已解决)

lennie · 发表于 2009-9-24 17:26:00

blockRefObj.Rotation = ThisDrawing.Utility.AngleFromXAxis(ThisDrawing.GetVariable("UCSORG"), _
ThisDrawing.GetVariable("UCSXDIR"))
用这样的方法块的旋转角度似乎是随机性的
详见5楼

lennie · 发表于 2009-9-25 11:16:00

斑竹 UcS是已经有了的如何获取啊
能不能演示一下

lennie · 发表于 2009-9-28 02:02:00

参考了网上的代码
Dim CurrUCS As AcadUCS
If ThisDrawing.GetVariable("UCSNAME") = "" Then
      With ThisDrawing
         Set CurrUCS = .UserCoordinateSystems.Add( _
                        .GetVariable("UCSORG"), _
                        .GetVariable("UCSXDIR"), .GetVariable("UCSYDIR"), _
                        "OriginalUCS")
      End With
Else
      Set CurrUCS = ThisDrawing.ActiveUCS  'current UCS is saved
End If
blockRefObj.TransformBy (CurrUCS.GetUCSMatrix())
结果是块角度没变
其中有段代码改一下
                        .Utility.TranslateCoordinates(.GetVariable("UCSXDIR"), acUCS, acWorld, 0), _
                        .Utility.TranslateCoordinates(.GetVariable("UCSYDIR"), acUCS, acWorld, 0), _
这样块的角度就是ucs的两倍角（特殊情况下不一定）
怎么会这样啊真是无语了

lennie · 发表于 2009-9-29 08:28:00

Dim P0(2) As Double
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(P1, TreeView1.SelectedItem.Key, 1, 1, 1, 0, KeyW)
P0(0) = 0
P0(1) = 0
P0(2) = 0
blockRefObj.Rotation = ThisDrawing.Utility.AngleFromXAxis(P0, ThisDrawing.GetVariable("UCSXDIR"))

[求助]如何得到ucs和wus之间的夹角(已解决)

发表回复

精选推荐

浏览过的版块