那位大哥有AUTOCAD的编程资料

w1234561

那位大哥有AUTOCAD的编程资料，谢谢！
. M+ h0 k7 q7 ?/ G7 i
[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
0 B$ a1 w- x+ I0 A3 ^9 c0 j$ {& y! ]( ]* U请教下怎样取得一段圆弧的角度和半径啊??
$ H; A* }# i7 X* r+ n9 e$ \5 D/ n: T. |谢谢!!!
1 L/ B, h+ n1 q5 o& S

woaishuijia

4# liu_guangqun
( W6 U4 Y) ]+ k/ ?8 ELISP
3 p4 b9 d  ~5 v4 }' o3 X+ n3 V

1. 
   - w. X, C( O/ y
2. (defun c:aaa()
   . t& Q) ?* Z6 D/ T0 P
3.   (setq arc(entsel))
   
4.   (if arc
   ( F/ k- t8 {) E& T- S) _
5.     (progn
   
6.       (setq a(entget(car arc)))
   
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   
8. (progn
   1 a1 j4 P3 q4 J( W* D% ?! `7 y$ G1 s
9.    (princ "\n圆心:" )
   
10.    (princ (cdr(assoc 10 a)))
    2 S% ~( }& l7 `, }  A
11.    (princ "\n起始角度:" )
    
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    " n$ ^* u- W1 I4 x
13.    (princ "\n终止角度:" )
    
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    
15.    (princ "\n半径:" )
    & Y. {7 ^4 S' V  ^; p: S* [% o/ p
16.    (princ (cdr(assoc 40 a)))
    : ?# m4 e0 I  O6 l5 |: n# }
17. )
    
18.       )
    # _0 [7 F& X  Z6 c0 b
19.     )
    
20.   )
    2 T8 z: z' A& U% D! }2 i9 [
21.   (princ)
    
22. )
    & w0 z2 u1 p6 m: B% S! Z1 ~! d

复制代码

VBA

1. 
   
2. Sub AAA()
   
3.     Dim ARC As AcadArc, P As Variant
   - M! k* t5 p# v& N1 n
4.     On Error GoTo 10
   8 Q7 l) I; V, \" }
5.     With ThisDrawing
   % k2 K/ {1 d$ w( X- p
6.         .Utility.GetEntity ARC, P
   
7.         .Utility.Prompt vbCrLf & "圆心:" & ARC.Center(0) & "," & ARC.Center(1) & "," & ARC.Center(2) _
   
8.         & vbCrLf & "起始角度:" & .Utility.AngleToString(ARC.StartAngle, acDegrees, 2) _
   
9.         & vbCrLf & "终止角度:" & .Utility.AngleToString(ARC.EndAngle, acDegrees, 2) _
   
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    
11.     End With
    
12. 10: End Sub
    

复制代码