二次开发—块插入后旋转

龙魂

比如一个椭圆，长轴两个顶点位置已知（不水平），则需要将块插入后旋转。
; l" c  w" t( o; |, l! X6 CInsertBlock(插入点,块名, X 轴比例,Y 轴比例,Z 轴比例, 旋转角度)中旋转角度未知，程序上怎么实现？
请达人指教！多谢！
bow~

woaishuijia

Sub A()
% k7 @2 y' t3 g1 X1 F( L1 O    Dim B As AcadBlock, I As Integer, P(2) As Double
    With ThisDrawing
        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
0 k7 U2 J7 v$ |4 j            If B.Name = 块名称字符串 Then '找到指定的块
2 l' H' D7 A) g3 p  Q: r                For I = 0 To B.Count - 1 '遍历块元素
  b( y6 P8 v0 U  I                    If B.Item(I).ObjectName = "AcDbEllipse" Then Exit For '找到椭圆后退出循环
- ?  K4 u+ d  I. `3 I                Next
                .ModelSpace.InsertBlock P, 块名称字符串, 1, 1, 1, -.Utility.AngleFromXAxis(B.Item(I).Center, B.Item(I).StartPoint)
- e3 Q$ p1 M4 g" M. B0 f0 `) c                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
                Exit For
            End If
        Next
    End With
End Sub

www1974

复制粘贴。
(defun c:copy&paste ()
. B: U% H2 ?5 C2 Q: P8 [  (setq ss nil)
& s0 {( S6 x& f7 P$ K, Z  (print "输入回车进行粘贴")
  (setq ss (ssget))
- v# w& Q# _. x5 D" D  (if (= ss nil)
2 ~6 F3 w2 P) A- B( k- t3 ~; J    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
6 r+ y8 ^6 w) X" k/ Y    (progn
) @: W+ z5 u8 O8 V         (setq D1 (getpoint "插入点："))
           (if (findfile "tigerspace.dwg")
             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
  K$ }, T9 M  C. A6 J             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
/ n# b3 I" o1 j4 P6 v, w2 k           );;结束if
0 S6 n  f, b' Z         (command "oops")
3 L# ?" \- W. s% ^  L$ K0 V5 [2 L         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
     );;结束progn
  );;结束if
; e5 t5 _7 N9 Q) m% p  (princ)
)

[ 本帖最后由 www1974 于 2008-9-23 20:10 编辑 ]

龙魂

多谢指教！