那位大哥有AUTOCAD的编程资料

w1234561

那位大哥有AUTOCAD的编程资料，谢谢！
1 a: l) W4 s5 Q4 m8 ]" y
$ @% Q2 `' `+ v  c& l) `[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
# F. x% ^* s3 z! b: q7 e$ A请教下怎样取得一段圆弧的角度和半径啊??
! W3 |9 Z5 I+ A谢谢!!!
& y& r" ?! C) I' @- n8 p

woaishuijia

4# liu_guangqun
LISP

1. 
   
2. (defun c:aaa()
   # J! H: E" j& d
3.   (setq arc(entsel))
   1 b% O6 A$ L1 Z4 w; \
4.   (if arc
   
5.     (progn
   4 w, U6 n4 y5 k1 f# R1 L% \
6.       (setq a(entget(car arc)))
   
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   : ]# d9 @+ Y3 b4 p; f6 x
8. (progn
   
9.    (princ "\n圆心:" )
   . e) Z" U% }# T( u3 ]
10.    (princ (cdr(assoc 10 a)))
    7 m1 [6 K9 b: M* O2 g( c0 |
11.    (princ "\n起始角度:" )
    
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    
13.    (princ "\n终止角度:" )
    8 T4 t0 M3 a: _
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    
15.    (princ "\n半径:" )
    ' O+ l/ q7 Q0 s, W  w6 @
16.    (princ (cdr(assoc 40 a)))
    
17. )
    3 T' F4 u) B1 s
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    ! S* Y8 Q$ ]6 P% s$ \
22. )
    ( `, L3 ?$ ]7 `+ L# B- s  q

复制代码

% Q' f0 h5 V0 a8 yVBA

1. 
   / C: ^4 g3 o7 ^' h, H3 w9 ^. Z
2. Sub AAA()
   
3.     Dim ARC As AcadArc, P As Variant
   $ g7 v; d+ _8 V2 U
4.     On Error GoTo 10
   0 J) m& \+ m" Q* N
5.     With ThisDrawing
   
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) _
   # \" T. U4 K: r1 P  S
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    * P3 C, ~+ J* O9 y2 y) z
11.     End With
    
12. 10: End Sub
    

复制代码