二次开发—块插入后旋转

龙魂

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

woaishuijia

Sub A()
. ]0 \& Y+ E. l/ }* Z    Dim B As AcadBlock, I As Integer, P(2) As Double
    With ThisDrawing
* F! U2 e; @/ }; q, K5 d1 \+ [        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
            If B.Name = 块名称字符串 Then '找到指定的块
% K* Y  a1 o/ K: U                For I = 0 To B.Count - 1 '遍历块元素
' ]" Z/ o4 j1 _5 ]' `                    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方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
: P* t8 j( V- y5 S$ X                Exit For
            End If
        Next
4 f- B3 W* I( M6 @    End With
  i# x* V7 [& c5 v$ H% \* jEnd Sub

www1974

复制粘贴。
(defun c:copy&paste ()
  (setq ss nil)
2 i9 {3 v/ @$ u* b) ~0 G: f4 f% |( |  (print "输入回车进行粘贴")
  (setq ss (ssget))
/ U: t% l+ ?5 L% U3 N& m& D  (if (= ss nil)
2 U* A. `- g* n+ q& T5 g7 Z2 q    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
, S  J& H: Z8 p5 C    (progn
- ]* K5 H- E. m" e) T         (setq D1 (getpoint "插入点："))
           (if (findfile "tigerspace.dwg")
             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
( m+ U& r0 s7 O2 U$ j+ h& v             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
           );;结束if
5 @. [0 A; M4 z- I         (command "oops")
         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
     );;结束progn
  );;结束if
  (princ)
)
" i* |" D* I2 q3 `) p8 x% O
[ 本帖最后由 www1974 于 2008-9-23 20:10 编辑 ]

龙魂

多谢指教！