二次开发—块插入后旋转

龙魂

比如一个椭圆，长轴两个顶点位置已知（不水平），则需要将块插入后旋转。
: z* H0 m5 f8 L) C. M; gInsertBlock(插入点,块名, X 轴比例,Y 轴比例,Z 轴比例, 旋转角度)中旋转角度未知，程序上怎么实现？
; V  P4 ~( D0 F: ^) I0 r0 ^4 b* j请达人指教！多谢！
* d% q. Q- W& Ebow~

woaishuijia

Sub A()
    Dim B As AcadBlock, I As Integer, P(2) As Double
    With ThisDrawing
0 d: }# b* R7 ?/ O0 T$ r        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
* V0 {( I  Y# u) X( l9 R            If B.Name = 块名称字符串 Then '找到指定的块
                For I = 0 To B.Count - 1 '遍历块元素
                    If B.Item(I).ObjectName = "AcDbEllipse" Then Exit For '找到椭圆后退出循环
                Next
  E4 k7 c* t& t) O* e0 U3 ]                .ModelSpace.InsertBlock P, 块名称字符串, 1, 1, 1, -.Utility.AngleFromXAxis(B.Item(I).Center, B.Item(I).StartPoint)
                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
- h+ }# i: P3 T! {  h% B! k. s' K                Exit For
( }8 B" q% p) a4 Q            End If
2 t! \' Q* r$ o+ r: R5 d: H% H        Next
    End With
End Sub

www1974

复制粘贴。
; ], M. i' g& k) ^1 y! {(defun c:copy&paste ()
  (setq ss nil)
4 G$ U8 V* y3 Q) f; E% O$ t  (print "输入回车进行粘贴")
6 Q7 L; P) m' g) [" j2 f  (setq ss (ssget))
  (if (= ss nil)
: ?; g3 e3 y" J: w( u) B! P    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
; ~, C; Z* k% @: }0 ]; z8 B$ |    (progn
         (setq D1 (getpoint "插入点："))
) j% O/ ?2 G# |% ?& |0 I           (if (findfile "tigerspace.dwg")
) T) @: e  u6 i9 c             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
           );;结束if
2 p, ?9 N, i( u! ?. U         (command "oops")
         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
7 ]0 r" D/ S2 I! w* {- L     );;结束progn
" U, a) E; ^5 e% e( O  );;结束if
  (princ)
4 }- N, [( X4 L2 E  k; p)

" x5 M' D- Q2 P[ 本帖最后由 www1974 于 2008-9-23 20:10 编辑 ]

龙魂

多谢指教！