那位大哥有AUTOCAD的编程资料

w1234561

那位大哥有AUTOCAD的编程资料，谢谢！
" `, A# _9 S1 p0 L' m, a
* V6 f, k$ M% I& e[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
请教下怎样取得一段圆弧的角度和半径啊??
+ z4 u  y# r3 C5 s谢谢!!!
" I+ H4 [% Q4 A

woaishuijia

4# liu_guangqun
LISP

1. 
   
2. (defun c:aaa()
   
3.   (setq arc(entsel))
   $ u& `5 Z0 o# b6 ?0 @
4.   (if arc
   - u7 N3 j& ]  V/ T, D# I+ u3 j
5.     (progn
   
6.       (setq a(entget(car arc)))
   ) f9 C4 `" {& j% k  q
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   
8. (progn
   5 j) T. ?$ |6 m! `: o/ Y/ l1 G: E4 H
9.    (princ "\n圆心:" )
   / [# G: f" P% x+ p  v$ ?7 \
10.    (princ (cdr(assoc 10 a)))
    2 t2 r3 P. d, @
11.    (princ "\n起始角度:" )
    
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    8 e7 B; a+ p# I% D& I, u! j
13.    (princ "\n终止角度:" )
    
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    1 U2 M. \. m, e& ^" N: c8 L: H) o
15.    (princ "\n半径:" )
    , B9 |) g) \3 Y" [; q" B
16.    (princ (cdr(assoc 40 a)))
    $ |8 f" `2 H& i5 Y/ q
17. )
    ( K& {4 w# i0 t9 W7 {  G
18.       )
    % {) H- V4 j1 p4 Q6 F
19.     )
    
20.   )
    
21.   (princ)
    ) j8 A8 j8 |1 e6 {" p1 @1 I$ n
22. )
    $ x9 a2 _" Z' v

复制代码

3 |; L1 b* B* R  _' x" k5 LVBA
" N* ~% p4 _, |" J

1. 
   
2. Sub AAA()
   + E; \# B$ h7 H+ V) X- b& _) \$ U
3.     Dim ARC As AcadArc, P As Variant
   # I" I+ v7 u% P% g6 f$ a
4.     On Error GoTo 10
   
5.     With ThisDrawing
   8 X3 |# z1 z, w
6.         .Utility.GetEntity ARC, P
   8 g4 P$ M1 k& e+ q1 w* A3 j- k
7.         .Utility.Prompt vbCrLf & "圆心:" & ARC.Center(0) & "," & ARC.Center(1) & "," & ARC.Center(2) _
   7 ^- B% b# x4 [8 m
8.         & vbCrLf & "起始角度:" & .Utility.AngleToString(ARC.StartAngle, acDegrees, 2) _
   
9.         & vbCrLf & "终止角度:" & .Utility.AngleToString(ARC.EndAngle, acDegrees, 2) _
   % ~0 V+ l3 ^' S8 _6 i
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    
11.     End With
    
12. 10: End Sub
    

复制代码