二次开发—块插入后旋转

龙魂

比如一个椭圆，长轴两个顶点位置已知（不水平），则需要将块插入后旋转。
3 c$ T7 K, F' e' M, C; C5 @InsertBlock(插入点,块名, X 轴比例,Y 轴比例,Z 轴比例, 旋转角度)中旋转角度未知，程序上怎么实现？
& \$ S& ^% r, E$ w* K9 M, B请达人指教！多谢！
3 \% U; o' O+ Ebow~

woaishuijia

Sub A()
    Dim B As AcadBlock, I As Integer, P(2) As Double
    With ThisDrawing
        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
% G- z- [0 t2 X% [            If B.Name = 块名称字符串 Then '找到指定的块
                For I = 0 To B.Count - 1 '遍历块元素
3 X5 N; |0 @% x  I  `+ P, ~4 U                    If B.Item(I).ObjectName = "AcDbEllipse" Then Exit For '找到椭圆后退出循环
9 V0 g7 N0 y* h. E8 O                Next
5 ?, r0 K' B" a1 W5 ^& F                .ModelSpace.InsertBlock P, 块名称字符串, 1, 1, 1, -.Utility.AngleFromXAxis(B.Item(I).Center, B.Item(I).StartPoint)
                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
' c7 O( @% X: I- @. w* B                Exit For
- E3 l6 J% H5 l9 i" u: G            End If
$ z& x' h+ ~3 v# h) {  W/ a        Next
    End With
8 L5 m7 T2 q8 s* j0 uEnd Sub

www1974

复制粘贴。
(defun c:copy&paste ()
  (setq ss nil)
  (print "输入回车进行粘贴")
/ b3 l3 S) b/ `* @) V  (setq ss (ssget))
) s9 {/ L% S. b$ C3 d9 r+ T4 R% d7 J  (if (= ss nil)
$ X" d2 W$ _- w    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
, `4 y# |& D- h% k    (progn
         (setq D1 (getpoint "插入点："))
( q& F. [7 C7 ~" U. D           (if (findfile "tigerspace.dwg")
             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
! a( |; w8 X$ c( R             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
           );;结束if
! L4 e6 U' ~& K3 ]% b         (command "oops")
         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
8 J/ [. Q- K4 h7 ^     );;结束progn
  );;结束if
' A  d# y* \, v" l, p  (princ)
)

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

龙魂

多谢指教！