那位大哥有AUTOCAD的编程资料

w1234561

那位大哥有AUTOCAD的编程资料，谢谢！
+ r; C) i- H/ y
[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
请教下怎样取得一段圆弧的角度和半径啊??
1 l6 o) z  Z* k2 m谢谢!!!
' r+ Q# [9 A, b. V

woaishuijia

4# liu_guangqun
" o- w/ ]! s/ O% S7 [LISP

1. 
   + |# [2 {5 `, d  E5 f! \( v! D' z3 k
2. (defun c:aaa()
   
3.   (setq arc(entsel))
   
4.   (if arc
   
5.     (progn
   / \+ G( `7 O; B
6.       (setq a(entget(car arc)))
   & \+ ?1 z' ?' o6 M* Z- @% a
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   4 Z! A9 }  {' _4 F* V' S' C2 X- F
8. (progn
   ) M0 c1 R8 p( T( L. _
9.    (princ "\n圆心:" )
   . _8 f7 \$ @3 N. ]1 ?
10.    (princ (cdr(assoc 10 a)))
    
11.    (princ "\n起始角度:" )
    ( H: f0 a) R+ R1 t( e/ L
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    - I! j. s& f, J6 ?. s( e
13.    (princ "\n终止角度:" )
    
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    
15.    (princ "\n半径:" )
    
16.    (princ (cdr(assoc 40 a)))
    + ~  X- J. B. w7 t  L, Z0 S: M
17. )
    
18.       )
    ' r" U7 d* U* J! l% b1 c7 e$ L
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    

复制代码

4 K! D4 U! M! \" x$ jVBA

1. 
   7 r1 o; v1 m, F9 y# t
2. Sub AAA()
   4 t+ @- M0 d1 {: ]0 H
3.     Dim ARC As AcadArc, P As Variant
   0 t+ d8 w5 X* v3 P7 J: N
4.     On Error GoTo 10
   # k2 C- T  m. [( `5 Y1 w- G4 Z, g
5.     With ThisDrawing
   # _6 D9 ~3 b$ Y: o
6.         .Utility.GetEntity ARC, P
   7 V# i' c6 `- {' K2 [; M
7.         .Utility.Prompt vbCrLf & "圆心:" & ARC.Center(0) & "," & ARC.Center(1) & "," & ARC.Center(2) _
   3 J  g  f8 a4 W& z& x
8.         & vbCrLf & "起始角度:" & .Utility.AngleToString(ARC.StartAngle, acDegrees, 2) _
   
9.         & vbCrLf & "终止角度:" & .Utility.AngleToString(ARC.EndAngle, acDegrees, 2) _
   ! _7 @# e: N' j( {
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    
11.     End With
    
12. 10: End Sub
    

复制代码