那位大哥有AUTOCAD的编程资料

w1234561

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

1 D2 k: G6 M" X9 `5 ]$ [* E[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
( ]$ a7 c: z4 f& R) c8 P请教下怎样取得一段圆弧的角度和半径啊??
$ n' Y, _: _, G" I' N谢谢!!!
6 H$ W. V7 t2 p6 }+ p, T, |

woaishuijia

4# liu_guangqun
2 J$ Q. Y8 G; xLISP
0 ?. ^' H# _$ U  F  _

1. 
   , ]  h7 Y* A' q: |$ ~
2. (defun c:aaa()
   
3.   (setq arc(entsel))
   
4.   (if arc
   ) n! q8 E5 e" }
5.     (progn
   
6.       (setq a(entget(car arc)))
   
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   
8. (progn
   
9.    (princ "\n圆心:" )
   8 u  n! g  r" e5 V8 B( [
10.    (princ (cdr(assoc 10 a)))
    0 I0 D- p& K) n/ O3 H0 @
11.    (princ "\n起始角度:" )
    
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    
13.    (princ "\n终止角度:" )
    
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    5 P) y4 P/ l. u* |" E  R
15.    (princ "\n半径:" )
    
16.    (princ (cdr(assoc 40 a)))
    ( G# K" A: X- i; }+ [8 g& _
17. )
    4 ]% _- ?* A" p- E- }' f$ T2 ?
18.       )
    % F5 x; e) ~0 e+ E, h5 j# N, R
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    

复制代码

VBA

1. 
   
2. Sub AAA()
   5 X" p6 ?, X( C2 F4 v( e
3.     Dim ARC As AcadArc, P As Variant
   8 n5 U* A( w  h5 n7 L
4.     On Error GoTo 10
   1 S3 ]( n  k1 ^! ~( M9 R2 w9 R
5.     With ThisDrawing
   
6.         .Utility.GetEntity ARC, P
   3 p5 W* ^$ v7 u6 [
7.         .Utility.Prompt vbCrLf & "圆心:" & ARC.Center(0) & "," & ARC.Center(1) & "," & ARC.Center(2) _
   
8.         & vbCrLf & "起始角度:" & .Utility.AngleToString(ARC.StartAngle, acDegrees, 2) _
   " p/ q# T4 {- ~1 u* O
9.         & vbCrLf & "终止角度:" & .Utility.AngleToString(ARC.EndAngle, acDegrees, 2) _
   
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    9 ^6 U# K! l1 m, S* ]- p
11.     End With
    
12. 10: End Sub
    

复制代码