二次开发—块插入后旋转

龙魂

比如一个椭圆，长轴两个顶点位置已知（不水平），则需要将块插入后旋转。
InsertBlock(插入点,块名, X 轴比例,Y 轴比例,Z 轴比例, 旋转角度)中旋转角度未知，程序上怎么实现？
0 C' r5 E3 X9 A/ e; L& _7 T5 W7 o请达人指教！多谢！
+ {; e" j& D+ S  e% n/ H, u; g7 wbow~

woaishuijia

Sub A()
    Dim B As AcadBlock, I As Integer, P(2) As Double
    With ThisDrawing
+ E+ F  _% z% D. }        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
            If B.Name = 块名称字符串 Then '找到指定的块
9 a- V' G4 Y) M  S                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)
                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
& ?) Y4 S5 D- H4 i1 E# A. Z                Exit For
% A0 v" `: {: c            End If
8 X' N0 d* h  x8 L        Next
; b: M, a4 w5 s( ?& c    End With
End Sub

www1974

复制粘贴。
* k  o( r! [9 W8 ](defun c:copy&paste ()
  (setq ss nil)
1 _* i& `& E1 j1 ~# b  (print "输入回车进行粘贴")
5 U: ~" r0 U) x/ B9 P8 G  (setq ss (ssget))
  (if (= ss nil)
4 @# f1 h6 |5 }3 b) b& S# b    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
    (progn
& F0 k2 U  L+ j% v* u: H" X* t$ ?         (setq D1 (getpoint "插入点："))
9 U0 |) O4 c; G9 {! d% b           (if (findfile "tigerspace.dwg")
             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
% X( w. u, R0 `& v8 `9 t1 j           );;结束if
         (command "oops")
         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
% J" Y5 Q' y6 t6 }/ n& ?5 ^# o: d     );;结束progn
  );;结束if
  (princ)
)
+ ~  y1 v% N# P+ x/ n
[ 本帖最后由 www1974 于 2008-9-23 20:10 编辑 ]

龙魂

多谢指教！