那位大哥有AUTOCAD的编程资料

w1234561

那位大哥有AUTOCAD的编程资料，谢谢！
& f" v( ]# k1 z& F9 H3 d
[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
请教下怎样取得一段圆弧的角度和半径啊??
$ H( G0 i; f7 k谢谢!!!

woaishuijia

4# liu_guangqun
LISP
; v$ E7 a  N9 R( O1 h* d

1. 
   
2. (defun c:aaa()
   * @" S6 ]* \  n/ E( f
3.   (setq arc(entsel))
   
4.   (if arc
   % w4 O6 J: L& ^! ~" n9 z. J+ {
5.     (progn
   ! @3 Z$ ]  A) v0 C; L. X
6.       (setq a(entget(car arc)))
   , h1 i, V3 |; v% |
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   0 [5 J" w$ v' l  i6 R2 ~
8. (progn
   
9.    (princ "\n圆心:" )
   
10.    (princ (cdr(assoc 10 a)))
    8 E# }5 v( z! U& }0 a+ t
11.    (princ "\n起始角度:" )
    
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    
13.    (princ "\n终止角度:" )
    ! V* @, V& E! k( C- e' M  Z, X+ ]
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    
15.    (princ "\n半径:" )
    
16.    (princ (cdr(assoc 40 a)))
    
17. )
    
18.       )
    
19.     )
    
20.   )
    0 F% o+ i8 j7 t& R3 T' b
21.   (princ)
    7 H9 \" S  o8 q2 o1 W- }2 q
22. )
    8 H, W: o+ }0 D

复制代码

VBA

1. 
   2 b2 r# p/ {! m' a& f
2. Sub AAA()
   ! t3 c' B6 c0 S" v& w6 l
3.     Dim ARC As AcadArc, P As Variant
     q9 k8 S* y  n# J1 ]0 W! w  i
4.     On Error GoTo 10
   : n- [* f& R. A6 A+ Q- @
5.     With ThisDrawing
   
6.         .Utility.GetEntity ARC, P
   ( C' q  x8 {% D9 J3 _  Q
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) _
   6 S8 G. O1 ^5 R' C$ r: P
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    
11.     End With
    
12. 10: End Sub
    0 d* s0 i4 L) J7 h3 W  E/ Y2 {5 v

复制代码