那位大哥有AUTOCAD的编程资料

w1234561

那位大哥有AUTOCAD的编程资料，谢谢！
4 O% }; {% `5 {0 [: a
[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
请教下怎样取得一段圆弧的角度和半径啊??
6 e6 m3 e7 g3 q, H谢谢!!!
1 E& V- p0 Q1 P( u7 m8 S; B

woaishuijia

4# liu_guangqun
LISP
+ C- Q: v' Q! w: R

1. 
   4 w/ K* p/ P) L5 g$ J: \  [7 m
2. (defun c:aaa()
   
3.   (setq arc(entsel))
   
4.   (if arc
   & D3 [! @. M- t+ Q; a( v- e
5.     (progn
   * _7 q6 m# }$ E- z; K' j2 y
6.       (setq a(entget(car arc)))
   ; c; r5 Z; G) g4 \7 K9 L' u7 t
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   
8. (progn
   * U% y. ~: i* Y  v
9.    (princ "\n圆心:" )
   
10.    (princ (cdr(assoc 10 a)))
    
11.    (princ "\n起始角度:" )
    
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    / k. [6 `/ p7 f
13.    (princ "\n终止角度:" )
    / [  `+ w; _( V# ~  E  r
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    ' R! z5 x5 _6 q  w( Q
15.    (princ "\n半径:" )
    % d5 k0 L' I/ C4 X& A9 R4 O
16.    (princ (cdr(assoc 40 a)))
    
17. )
    0 U5 t! X3 X* U& p, v1 x
18.       )
    
19.     )
    
20.   )
    & A, y* o9 j, A- [" }  p
21.   (princ)
    / ?. }( c# j8 W& W& K
22. )
    ' ~: b( R( C- j. O* V4 `

复制代码

VBA

1. 
   
2. Sub AAA()
   ! ~& q$ r/ ]1 M& k3 a( C8 W3 y$ o
3.     Dim ARC As AcadArc, P As Variant
   , B" u- Q1 I' X" p$ Q
4.     On Error GoTo 10
   , j3 k; W% Y$ ]- `
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) _
   ; d4 D1 T* R, g1 W
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    
11.     End With
    
12. 10: End Sub
    . b6 q0 w6 ^1 @" J4 L' G

复制代码