那位大哥有AUTOCAD的编程资料

w1234561

那位大哥有AUTOCAD的编程资料，谢谢！

[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
6 u3 h  q4 u; I3 P& E请教下怎样取得一段圆弧的角度和半径啊??
. F: {; e, s8 x' _* i8 g. Y谢谢!!!
( h2 ]' I+ D( C

woaishuijia

4# liu_guangqun
LISP
& k+ S# {" t' Y

1. 
   : l$ @. G8 U! K9 I) F" d, U
2. (defun c:aaa()
   
3.   (setq arc(entsel))
   
4.   (if arc
   9 z, L3 O' b6 ?6 {. u1 O: A
5.     (progn
   
6.       (setq a(entget(car arc)))
   8 [# b7 r) s8 R0 ]( J
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   
8. (progn
   
9.    (princ "\n圆心:" )
   9 j2 E& u9 I) C5 T
10.    (princ (cdr(assoc 10 a)))
    + _5 K  q9 B+ s/ b9 w6 P
11.    (princ "\n起始角度:" )
    ) H. J0 F( ~! W" |5 \
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    1 |: J" Y% U% @0 T. v: U& s* g
13.    (princ "\n终止角度:" )
    ! Y3 N  S6 U% X, U
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    % X$ j2 e5 C+ K0 r, ^7 b" m/ F
15.    (princ "\n半径:" )
    & o+ P% J; M: M/ R' f% n/ S8 O+ d9 ?
16.    (princ (cdr(assoc 40 a)))
    + y) w% ]- S# v! i
17. )
    
18.       )
      L/ T- f; o( m; G/ G
19.     )
    
20.   )
    
21.   (princ)
    6 |8 _4 `% k  f  x
22. )
    

复制代码

% U" G) l- s, c! r* {VBA

1. 
   
2. Sub AAA()
   
3.     Dim ARC As AcadArc, P As Variant
   1 I" y- C2 D* e) h
4.     On Error GoTo 10
   * O1 i) f" u: N0 n# t8 A7 l
5.     With ThisDrawing
   ( N2 u* ~& C! K+ ~6 ~1 T8 o
6.         .Utility.GetEntity ARC, P
   
7.         .Utility.Prompt vbCrLf & "圆心:" & ARC.Center(0) & "," & ARC.Center(1) & "," & ARC.Center(2) _
   . j( N$ ^$ A+ y" O
8.         & vbCrLf & "起始角度:" & .Utility.AngleToString(ARC.StartAngle, acDegrees, 2) _
   
9.         & vbCrLf & "终止角度:" & .Utility.AngleToString(ARC.EndAngle, acDegrees, 2) _
   
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    & L, [: C! b* Q" q* j0 t* p
11.     End With
    
12. 10: End Sub
    

复制代码