那位大哥有AUTOCAD的编程资料

w1234561

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

[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
请教下怎样取得一段圆弧的角度和半径啊??
5 P% ~/ Q: R0 f3 g( m2 t4 f谢谢!!!
2 }4 t! ^: b) z9 l# k

woaishuijia

4# liu_guangqun
1 z& u& m4 U# XLISP
( I; E0 Z9 S6 ~6 @: V( v. y( n

1. 
   
2. (defun c:aaa()
   - I0 r: R% |: e" g
3.   (setq arc(entsel))
   4 b5 ~4 U) h- B9 z9 _
4.   (if arc
     |& ~8 w# Q) U
5.     (progn
   
6.       (setq a(entget(car arc)))
   
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   ' l1 k& Z3 S4 b+ K' C
8. (progn
   
9.    (princ "\n圆心:" )
   
10.    (princ (cdr(assoc 10 a)))
    
11.    (princ "\n起始角度:" )
      O* J7 E; F$ K/ u$ `  J* y
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    
13.    (princ "\n终止角度:" )
    
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    
15.    (princ "\n半径:" )
    
16.    (princ (cdr(assoc 40 a)))
    
17. )
    * V6 ?6 p, x  U8 {2 d
18.       )
    
19.     )
    4 X1 H9 F" y6 O3 S+ A& y; A
20.   )
    - m) V( a6 @. L0 w, ]- h
21.   (princ)
    ! _  F9 n- G# [) l
22. )
    # r) b+ z, E4 H  R

复制代码

6 G% [0 y# v8 q+ nVBA
7 a( w& y8 D- G3 w  G

1. 
   3 L7 o7 s2 `8 x( u3 K
2. Sub AAA()
   & p: N, Y% V3 f7 o
3.     Dim ARC As AcadArc, P As Variant
   
4.     On Error GoTo 10
   
5.     With ThisDrawing
   
6.         .Utility.GetEntity ARC, P
   3 F' J/ U3 U) D, r5 Z
7.         .Utility.Prompt vbCrLf & "圆心:" & ARC.Center(0) & "," & ARC.Center(1) & "," & ARC.Center(2) _
   
8.         & vbCrLf & "起始角度:" & .Utility.AngleToString(ARC.StartAngle, acDegrees, 2) _
   # b& O) y2 w. T; b% q
9.         & vbCrLf & "终止角度:" & .Utility.AngleToString(ARC.EndAngle, acDegrees, 2) _
   % L8 h$ n: |, C  S
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    
11.     End With
    
12. 10: End Sub
    

复制代码