二次开发—块插入后旋转

龙魂

比如一个椭圆，长轴两个顶点位置已知（不水平），则需要将块插入后旋转。
InsertBlock(插入点,块名, X 轴比例,Y 轴比例,Z 轴比例, 旋转角度)中旋转角度未知，程序上怎么实现？
" @! k9 @+ O* J4 a$ @' I' f& l$ }请达人指教！多谢！
bow~

woaishuijia

Sub A()
) G1 P$ j7 J2 |2 f) S    Dim B As AcadBlock, I As Integer, P(2) As Double
    With ThisDrawing
5 F9 k9 C, p+ v& h        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
            If B.Name = 块名称字符串 Then '找到指定的块
                For I = 0 To B.Count - 1 '遍历块元素
                    If B.Item(I).ObjectName = "AcDbEllipse" Then Exit For '找到椭圆后退出循环
                Next
                .ModelSpace.InsertBlock P, 块名称字符串, 1, 1, 1, -.Utility.AngleFromXAxis(B.Item(I).Center, B.Item(I).StartPoint)
! |; B1 U& j; D6 I9 Z8 k9 T                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
                Exit For
1 ], W8 p$ w, W3 t            End If
        Next
    End With
) M! }9 `9 k4 P# B4 b# I4 oEnd Sub

www1974

复制粘贴。
(defun c:copy&paste ()
' K' z& H. {- r+ p7 o, d  (setq ss nil)
" E; Q1 p: k: p, B% y) \+ e! g) E% @* D  (print "输入回车进行粘贴")
0 T& F4 ~, D- }6 {# j  (setq ss (ssget))
  (if (= ss nil)
    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
" W3 D1 b" c3 N    (progn
8 K8 x& ~5 t  \" \! T         (setq D1 (getpoint "插入点："))
           (if (findfile "tigerspace.dwg")
- |8 s3 N% O: ^! Y             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
: h, M& l. y) C3 O$ C, P             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
  i% H( n/ N2 ]: R* r  A           );;结束if
         (command "oops")
         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
" y& q, G" @2 e6 O, g     );;结束progn
  );;结束if
8 ?/ W$ p5 i( M* s! V& c  (princ)
5 D4 B2 e6 F+ m9 S$ l! m1 ])
8 n8 {# Z) i% a1 w  g, K
8 q3 J8 N$ ^' L8 R. Y, ~( o[ 本帖最后由 www1974 于 2008-9-23 20:10 编辑 ]

龙魂

多谢指教！