二次开发—块插入后旋转

龙魂

比如一个椭圆，长轴两个顶点位置已知（不水平），则需要将块插入后旋转。
InsertBlock(插入点,块名, X 轴比例,Y 轴比例,Z 轴比例, 旋转角度)中旋转角度未知，程序上怎么实现？
4 P8 U7 j: ?7 o$ w: c3 q5 u请达人指教！多谢！
# b4 e7 Q* [; D5 h- h9 Dbow~

woaishuijia

Sub A()
5 \6 k, _8 m) W+ k    Dim B As AcadBlock, I As Integer, P(2) As Double
    With ThisDrawing
* Z$ F& A4 p3 J! Z) ]5 w        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
, I$ H* C( P, K6 d% w/ I            If B.Name = 块名称字符串 Then '找到指定的块
3 L2 [. u* V$ J0 M1 q  b                For I = 0 To B.Count - 1 '遍历块元素
                    If B.Item(I).ObjectName = "AcDbEllipse" Then Exit For '找到椭圆后退出循环
                Next
0 {9 a$ c3 O, |4 a9 ]: Q                .ModelSpace.InsertBlock P, 块名称字符串, 1, 1, 1, -.Utility.AngleFromXAxis(B.Item(I).Center, B.Item(I).StartPoint)
                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
                Exit For
            End If
5 i% |* b/ V& P5 Z) q! f& g        Next
    End With
End Sub

www1974

复制粘贴。
(defun c:copy&paste ()
  (setq ss nil)
  (print "输入回车进行粘贴")
  (setq ss (ssget))
  (if (= ss nil)
    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
* K& x0 Y  B2 z$ w    (progn
/ {* Y  |! t) r2 ?- L2 |         (setq D1 (getpoint "插入点："))
8 ^" b+ w- q# e! z           (if (findfile "tigerspace.dwg")
$ z+ F+ G0 j3 w0 o9 d2 T4 r             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
; _: H) C" _$ s  n4 y" C$ X             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
           );;结束if
; e3 f2 J; V% |2 i0 F9 ^6 K6 [; e         (command "oops")
: c6 R# L3 p( s         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
  J0 r4 M2 h# y( g5 F4 W     );;结束progn
  );;结束if
5 x9 }$ o4 P- v1 A9 `% X: Z' C  (princ)
8 _- p: O+ k4 Q/ l: z; @)
1 F# V7 a$ b0 \' O) t8 Z5 y1 P
* }1 W2 o2 w( u9 i[ 本帖最后由 www1974 于 2008-9-23 20:10 编辑 ]

龙魂

多谢指教！