那位大哥有AUTOCAD的编程资料

w1234561

那位大哥有AUTOCAD的编程资料，谢谢！
+ ^( T- S+ P7 {, H; b
[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
请教下怎样取得一段圆弧的角度和半径啊??
8 O- r3 J- J4 E7 R% M谢谢!!!

woaishuijia

4# liu_guangqun
7 m2 L. n8 B2 j& \% a+ K  xLISP
# `7 E# ?4 I, n/ `6 U. m6 E  K. A

1. 
   
2. (defun c:aaa()
   
3.   (setq arc(entsel))
   
4.   (if arc
   
5.     (progn
   
6.       (setq a(entget(car arc)))
   
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   / f" ]  U4 |2 |( f8 z  ~+ ~. p  }
8. (progn
   7 L* h" b: M9 l1 H
9.    (princ "\n圆心:" )
   
10.    (princ (cdr(assoc 10 a)))
    ) i; a6 D6 o; W% o
11.    (princ "\n起始角度:" )
    , Y( ?* I; A* e4 B" h
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    " I/ w( c- y+ L5 j/ m
13.    (princ "\n终止角度:" )
    5 F8 h/ J- |/ P, i4 f" G, A
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    - u5 F" t- J* t" _, E3 b7 V
15.    (princ "\n半径:" )
    
16.    (princ (cdr(assoc 40 a)))
    
17. )
    
18.       )
    
19.     )
    ; V) P3 o  I9 R9 B; {' M3 l" T8 A
20.   )
    : z' g4 V: C5 R. Z( L
21.   (princ)
    8 {7 k5 V2 B) y8 G% Z
22. )
    1 I# o; a  \1 A# o  x: S1 \# \

复制代码

' D1 i7 e7 [1 V2 r; iVBA

1. 
   3 y' m2 ~( G! r3 K2 m9 S$ O
2. Sub AAA()
   / q9 f6 I# k2 F8 Z9 P9 R- V1 L
3.     Dim ARC As AcadArc, P As Variant
   
4.     On Error GoTo 10
   9 }) G! `( A9 H# k2 b) ~6 D0 t6 ?
5.     With ThisDrawing
   
6.         .Utility.GetEntity ARC, P
   
7.         .Utility.Prompt vbCrLf & "圆心:" & ARC.Center(0) & "," & ARC.Center(1) & "," & ARC.Center(2) _
   : ?' M9 u2 N4 f! U6 _4 f! }8 f! Y9 |
8.         & vbCrLf & "起始角度:" & .Utility.AngleToString(ARC.StartAngle, acDegrees, 2) _
   % t9 e  E8 Q, t& [, ?/ N3 }
9.         & vbCrLf & "终止角度:" & .Utility.AngleToString(ARC.EndAngle, acDegrees, 2) _
   
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    - C. ~; t& W3 a! q+ h( G
11.     End With
    ' K, g5 k7 R( H$ u, W
12. 10: End Sub
    

复制代码