二次开发—块插入后旋转

龙魂

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

woaishuijia

Sub A()
4 u0 x3 I6 ]1 N5 m3 C    Dim B As AcadBlock, I As Integer, P(2) As Double
: ]( I! G5 i* v/ Y# {    With ThisDrawing
. w" s' ]6 S) g8 v. L# U9 A: P        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
            If B.Name = 块名称字符串 Then '找到指定的块
                For I = 0 To B.Count - 1 '遍历块元素
" m6 u/ Z7 j: _7 w                    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)
                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
                Exit For
: m2 X. K( t) N            End If
! \1 n6 P- y! f. M) G1 M        Next
    End With
9 F, I2 R  e' E7 b7 S! I) o% w9 }End Sub

www1974

复制粘贴。
4 ]/ ?1 S$ `! f+ a1 ?0 s(defun c:copy&paste ()
6 n! }" _' D- O1 m  (setq ss nil)
  (print "输入回车进行粘贴")
( L( ]: v) z6 [1 N  (setq ss (ssget))
" g, s9 s* a' ?6 E# m  (if (= ss nil)
; \6 R) E; Y% h& K/ `. i& c    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
9 {# b! q( K: ^5 k) f3 D    (progn
4 p( d2 J4 _1 q! K) H8 Q/ s         (setq D1 (getpoint "插入点："))
' b1 l9 s( y, {" Q' \* A! _           (if (findfile "tigerspace.dwg")
             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
           );;结束if
         (command "oops")
         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
     );;结束progn
  );;结束if
  (princ)
)
% O2 S- C# d& X7 j  n- V/ B# N$ y
[ 本帖最后由 www1974 于 2008-9-23 20:10 编辑 ]

龙魂

多谢指教！