那位大哥有AUTOCAD的编程资料

w1234561

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

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

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
请教下怎样取得一段圆弧的角度和半径啊??
$ T! N7 k  a3 Y7 d: T" ]谢谢!!!
+ ^( a; w/ X* M: j( G: [( N

woaishuijia

4# liu_guangqun
LISP

1. 
   
2. (defun c:aaa()
   1 o; Q7 `9 j: _1 }& V
3.   (setq arc(entsel))
   ! g6 r  {+ `$ |) v- Y
4.   (if arc
   
5.     (progn
   2 k) |7 J# U9 n* a3 P- {
6.       (setq a(entget(car arc)))
   
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   ; Y( K& p4 Q. r
8. (progn
   
9.    (princ "\n圆心:" )
   
10.    (princ (cdr(assoc 10 a)))
    
11.    (princ "\n起始角度:" )
    
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    
13.    (princ "\n终止角度:" )
    ( p6 `1 c8 o: I' |% w" n
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    
15.    (princ "\n半径:" )
    2 M& L' g* u1 g' B5 p
16.    (princ (cdr(assoc 40 a)))
    
17. )
    
18.       )
    
19.     )
    ( h) I: M* A* }( O- y, }) ]
20.   )
    
21.   (princ)
    9 u; x9 E( e% F2 M' g9 ?0 T& Q3 i
22. )
    1 H$ b9 `. R7 b7 U; J+ v% s( r8 M

复制代码

VBA
# {: r% Q6 v6 C9 c, W: }2 w9 ~) a

1. 
   
2. Sub AAA()
   
3.     Dim ARC As AcadArc, P As Variant
   2 e0 a  o$ t$ c0 |' a% P# v
4.     On Error GoTo 10
   
5.     With ThisDrawing
   
6.         .Utility.GetEntity ARC, P
   
7.         .Utility.Prompt vbCrLf & "圆心:" & ARC.Center(0) & "," & ARC.Center(1) & "," & ARC.Center(2) _
   0 G! s9 j9 |% d2 K# t7 [
8.         & vbCrLf & "起始角度:" & .Utility.AngleToString(ARC.StartAngle, acDegrees, 2) _
   2 B/ q, x0 a/ p/ y) ~1 j* v2 A8 v* }
9.         & vbCrLf & "终止角度:" & .Utility.AngleToString(ARC.EndAngle, acDegrees, 2) _
   . }5 K6 L+ h$ A" s4 p
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
    1 X# b* {+ z$ H" n$ g* C7 P4 M
11.     End With
    * n! z, ]4 B' Z$ e- r: Z
12. 10: End Sub
    

复制代码