二次开发—块插入后旋转

龙魂

比如一个椭圆，长轴两个顶点位置已知（不水平），则需要将块插入后旋转。
) |8 A4 V; J0 T- v" E) E  JInsertBlock(插入点,块名, X 轴比例,Y 轴比例,Z 轴比例, 旋转角度)中旋转角度未知，程序上怎么实现？
  l' ~. r2 y  k0 Y4 t请达人指教！多谢！
bow~

woaishuijia

Sub A()
    Dim B As AcadBlock, I As Integer, P(2) As Double
    With ThisDrawing
        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
" V4 ?$ g/ B8 T0 C( f            If B.Name = 块名称字符串 Then '找到指定的块
" b9 [  [  r3 _                For I = 0 To B.Count - 1 '遍历块元素
                    If B.Item(I).ObjectName = "AcDbEllipse" Then Exit For '找到椭圆后退出循环
                Next
7 H- @* i& s5 s( e: L$ k                .ModelSpace.InsertBlock P, 块名称字符串, 1, 1, 1, -.Utility.AngleFromXAxis(B.Item(I).Center, B.Item(I).StartPoint)
+ x; x5 A/ e" C- ?8 }                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
& }8 `# Q) E; Y! N; |8 E; D9 R: u                Exit For
            End If
        Next
- y7 C3 [9 g: l    End With
9 C% o5 i/ ?* h+ M( Z9 E) c/ \End Sub

www1974

复制粘贴。
(defun c:copy&paste ()
' n) e" `6 C! z. K  (setq ss nil)
  (print "输入回车进行粘贴")
  (setq ss (ssget))
: F6 s* W! u( v: z! S3 Y  \  (if (= ss nil)
3 M0 Z$ N9 X% f    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
    (progn
         (setq D1 (getpoint "插入点："))
3 f, ]" t3 ?4 E! Z% k2 j           (if (findfile "tigerspace.dwg")
             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
           );;结束if
         (command "oops")
) b) ]7 t% f+ N; L7 J$ v         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
( r& d4 r4 K7 c* l2 z: L' a6 i     );;结束progn
" T' z2 U- I: ]3 u  );;结束if
  (princ)
)

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

龙魂

多谢指教！