那位大哥有AUTOCAD的编程资料

w1234561

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

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

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
% J9 W$ L5 a* E& ]# |% l& G请教下怎样取得一段圆弧的角度和半径啊??
, m, Z2 P7 g/ m. U  o8 F  u谢谢!!!

woaishuijia

4# liu_guangqun
LISP

1. 
   
2. (defun c:aaa()
   
3.   (setq arc(entsel))
   
4.   (if arc
   % x5 U  j7 `4 e" x* M/ [
5.     (progn
   
6.       (setq a(entget(car arc)))
   ' P0 o; t- g: H2 s
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   
8. (progn
   % R4 T. s6 E; J$ O
9.    (princ "\n圆心:" )
   
10.    (princ (cdr(assoc 10 a)))
    
11.    (princ "\n起始角度:" )
    1 n4 l& E: a8 D# S4 x5 S
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    0 f& P8 e7 G! m( Y. e+ q5 F
13.    (princ "\n终止角度:" )
    
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    & N! ^2 V8 W- X. J+ ]" X
15.    (princ "\n半径:" )
    
16.    (princ (cdr(assoc 40 a)))
    
17. )
    0 B3 G: Q, g8 N& v, ^1 C9 ?
18.       )
    
19.     )
    " @  E* F% |+ M( ~6 c) u: Q) t# n
20.   )
    6 e8 p) ^% B* Z7 ]2 F1 A
21.   (princ)
    3 `  u- f7 w8 i+ |! J/ q
22. )
    0 r) B6 v3 {& q5 a

复制代码

VBA

1. 
   & {) E# j/ V" @9 C6 m
2. Sub AAA()
   
3.     Dim ARC As AcadArc, P As Variant
   
4.     On Error GoTo 10
   0 n4 Q, J* G1 @" T! r; j
5.     With ThisDrawing
   
6.         .Utility.GetEntity ARC, P
   % I+ D$ J% v- d2 j+ w' a
7.         .Utility.Prompt vbCrLf & "圆心:" & ARC.Center(0) & "," & ARC.Center(1) & "," & ARC.Center(2) _
   3 H5 {2 i9 H1 n; V3 ~3 w, i
8.         & vbCrLf & "起始角度:" & .Utility.AngleToString(ARC.StartAngle, acDegrees, 2) _
   0 [) `/ U6 q1 W2 \! W
9.         & vbCrLf & "终止角度:" & .Utility.AngleToString(ARC.EndAngle, acDegrees, 2) _
   
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    
11.     End With
    
12. 10: End Sub
    

复制代码