二次开发—块插入后旋转

龙魂

比如一个椭圆，长轴两个顶点位置已知（不水平），则需要将块插入后旋转。
# _, x, `! P1 U  ~( h$ SInsertBlock(插入点,块名, X 轴比例,Y 轴比例,Z 轴比例, 旋转角度)中旋转角度未知，程序上怎么实现？
' g$ @( T- `4 Y- t1 |+ h' P0 ]& c请达人指教！多谢！
# j- i1 {6 D( u1 f( d) \2 F& Y! Cbow~

woaishuijia

Sub A()
    Dim B As AcadBlock, I As Integer, P(2) As Double
    With ThisDrawing
$ Z; L/ A, o) Q$ ]        For Each B In .Blocks '遍历文档中的块集合，通过块名称查找指定的块
            If B.Name = 块名称字符串 Then '找到指定的块
0 X: ~3 a( e% W/ [3 ?                For I = 0 To B.Count - 1 '遍历块元素
: i" d  H# r# H7 @+ ~                    If B.Item(I).ObjectName = "AcDbEllipse" Then Exit For '找到椭圆后退出循环
7 @( {. R/ O; A! P0 U                Next
                .ModelSpace.InsertBlock P, 块名称字符串, 1, 1, 1, -.Utility.AngleFromXAxis(B.Item(I).Center, B.Item(I).StartPoint)
                '根据椭圆中心点和起点，用AngleFromXAxis方法获取椭圆旋转角，并用其负值做为插入块时的旋转角(反向转回来)
, [9 ^8 \2 V5 r9 R' A" s! ^6 O+ F                Exit For
6 A+ y  H8 F1 C( D            End If
2 F) H, B' a8 i1 h% @8 k! o        Next
6 O6 D; R1 h) ?/ L2 T7 L( p1 _3 s    End With
End Sub

www1974

复制粘贴。
(defun c:copy&paste ()
  (setq ss nil)
  (print "输入回车进行粘贴")
* y" ~+ j: T8 c. `/ {9 n  (setq ss (ssget))
5 B1 [: g" _  n  ]" ]4 n  (if (= ss nil)
    (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
$ k9 S6 M% R" k6 a5 p/ a2 B( u% o$ k    (progn
         (setq D1 (getpoint "插入点："))
           (if (findfile "tigerspace.dwg")
6 Z, i( J- D! W" E4 {             (command "-wblock" "tigerspace.dwg" "Y" "" D1 ss "")
0 Y, p. u, Y+ e( N. j             (command "-wblock" "tigerspace.dwg" "" D1 ss "")
           );;结束if
         (command "oops")
, y3 G/ M) ~9 i* w6 S         (command "-insert" (strcat "*" "tigerspace.dwg") (getpoint "插入点：") (getreal "缩放比例：") (getreal "旋转角度："))
     );;结束progn
# V* q; K; u7 K/ M  );;结束if
  (princ)
)
/ K; D" r: q9 v8 a2 p
4 f0 M8 S" N! N6 r1 H" d[ 本帖最后由 www1974 于 2008-9-23 20:10 编辑 ]

龙魂

多谢指教！