二次开发—块插入后旋转

龙魂

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

woaishuijia

Sub A()
4 H9 D+ A. z+ C0 }2 F+ B$ I    Dim B As AcadBlock, I As Integer, P(2) As Double
    With ThisDrawing
        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
9 c2 G8 J7 k: S            If B.Name = 块名称字符串 Then '找到指定的块
                For I = 0 To B.Count - 1 '遍历块元素
1 ~2 s$ u1 D6 [! y* Y                    If B.Item(I).ObjectName = "AcDbEllipse" Then Exit For '找到椭圆后退出循环
                Next
  L8 D# ~' n4 S; J                .ModelSpace.InsertBlock P, 块名称字符串, 1, 1, 1, -.Utility.AngleFromXAxis(B.Item(I).Center, B.Item(I).StartPoint)
, @2 G3 b0 N1 N: j' W                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
                Exit For
            End If
  `+ ]1 t) b" E. ?6 @( q        Next
' @) J  w+ e; ~6 H6 {    End With
End Sub

www1974

复制粘贴。
(defun c:copy&paste ()
7 ^; f) Q1 |' a9 Z7 t! V  (setq ss nil)
  (print "输入回车进行粘贴")
  (setq ss (ssget))
  (if (= ss nil)
    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
- ~4 t8 N0 z0 P( h: o* G    (progn
         (setq D1 (getpoint "插入点："))
           (if (findfile "tigerspace.dwg")
, w; ?0 `; d$ {- q# ^& z             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
           );;结束if
         (command "oops")
6 O* N0 u5 _' `; Q         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
  d" v6 _2 L; M& H! k6 `     );;结束progn
  );;结束if
* l) n2 f' n3 L, ^; X  (princ)
)

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

龙魂

多谢指教！