二次开发—块插入后旋转

龙魂

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

woaishuijia

Sub A()
    Dim B As AcadBlock, I As Integer, P(2) As Double
5 G% O/ a5 u: F4 k4 ^& L    With ThisDrawing
        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
& m0 I; H1 ~- ~& A            If B.Name = 块名称字符串 Then '找到指定的块
* G9 f. g: O$ p% @                For I = 0 To B.Count - 1 '遍历块元素
: x3 Y* W( ?. l                    If B.Item(I).ObjectName = "AcDbEllipse" Then Exit For '找到椭圆后退出循环
# b* b8 S+ {" x" u' o+ m0 j8 _% d5 i5 b                Next
                .ModelSpace.InsertBlock P, 块名称字符串, 1, 1, 1, -.Utility.AngleFromXAxis(B.Item(I).Center, B.Item(I).StartPoint)
                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
                Exit For
+ n6 v- p$ x/ K0 p  D6 U& Y0 \            End If
( p- {/ E! W8 z2 g/ w! l# E6 Q        Next
    End With
  z, e( s# \. LEnd Sub

www1974

复制粘贴。
(defun c:copy&paste ()
* G  e& h  G( Z3 z' {; f! c; p  (setq ss nil)
+ k5 r# N9 i% h6 Z0 o6 ~- D  (print "输入回车进行粘贴")
  (setq ss (ssget))
  (if (= ss nil)
    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
' @7 O8 e9 Z# |5 S( P( ]! G    (progn
- m( i! |6 ?6 A( x  H% z. E         (setq D1 (getpoint "插入点："))
" J$ f% C) t5 V8 o, W1 Q8 L9 e$ x: o' g           (if (findfile "tigerspace.dwg")
* @7 Q4 R. Y2 r7 X( l$ R* U$ D( @             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
) w& V4 S7 Z! O: b& O' _" R0 ]9 @             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
$ ?% ^( r! G) `8 w3 \. Z           );;结束if
         (command "oops")
         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
     );;结束progn
  );;结束if
- Z2 |" G% o2 S2 @  u8 _) i9 n( Y# |  (princ)
4 w0 n0 a) Z$ v7 })
' k2 j; b1 K+ i' P6 g
[ 本帖最后由 www1974 于 2008-9-23 20:10 编辑 ]

龙魂

多谢指教！