那位大哥有AUTOCAD的编程资料

w1234561

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

+ T7 j5 H' V7 X+ G. c$ g5 f[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
5 i. @$ R$ J* b请教下怎样取得一段圆弧的角度和半径啊??
谢谢!!!

woaishuijia

4# liu_guangqun
( v' ~  D. {% ]LISP

1. 
   $ G9 _9 I$ N$ ~/ D. ?
2. (defun c:aaa()
   ) W* U# @8 ~8 w" f& _/ W" U
3.   (setq arc(entsel))
   
4.   (if arc
   
5.     (progn
   ; @* O: U' E6 B
6.       (setq a(entget(car arc)))
   
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   
8. (progn
   
9.    (princ "\n圆心:" )
   
10.    (princ (cdr(assoc 10 a)))
    
11.    (princ "\n起始角度:" )
    
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    8 }- X. ~! t1 A' N5 C+ `& {
13.    (princ "\n终止角度:" )
    
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    
15.    (princ "\n半径:" )
    - C# \, E( [" _& R' n8 E* {) D5 n
16.    (princ (cdr(assoc 40 a)))
    
17. )
    - f9 C7 z# K5 U* ?6 G' ^+ V
18.       )
    8 P2 l5 d# x- u5 _# t
19.     )
    5 n  e( C2 `- w& B
20.   )
    
21.   (princ)
    7 E6 c9 s2 S2 n* T
22. )
    

复制代码

VBA

1. 
   ( d: J9 k1 x  e$ N1 }+ {5 T9 ?6 g
2. Sub AAA()
   
3.     Dim ARC As AcadArc, P As Variant
   $ j7 Y0 e7 @! q- N& E& p
4.     On Error GoTo 10
   % b/ J. x  n9 N: L
5.     With ThisDrawing
   6 m/ Q3 d. Q; q( D1 `
6.         .Utility.GetEntity ARC, P
   ( Q+ k, t! n8 n; X  |1 w
7.         .Utility.Prompt vbCrLf & "圆心:" & ARC.Center(0) & "," & ARC.Center(1) & "," & ARC.Center(2) _
   
8.         & vbCrLf & "起始角度:" & .Utility.AngleToString(ARC.StartAngle, acDegrees, 2) _
   $ P! g! F/ N2 A% [. Q- Y) t
9.         & vbCrLf & "终止角度:" & .Utility.AngleToString(ARC.EndAngle, acDegrees, 2) _
   
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    5 d0 n& E6 {- i' z7 J) ?
11.     End With
    ) D$ V4 t; p8 K
12. 10: End Sub
    , H  L9 E, r1 ^* L' s7 m

复制代码