那位大哥有AUTOCAD的编程资料

w1234561

那位大哥有AUTOCAD的编程资料，谢谢！
, U0 g: e6 |9 F) ?. ~. C
[ 本帖最后由 唐昕晨 于 2007-3-10 21:40 编辑 ]

唐昕晨

这些去看看。

ming78

楼主谢謝 下來看看

liu_guangqun

资料非常不错啊,好不容易才找到.
请教下怎样取得一段圆弧的角度和半径啊??
1 ]# H. }1 X8 `8 u9 Z谢谢!!!

woaishuijia

4# liu_guangqun
LISP

1. 
   
2. (defun c:aaa()
   ; |0 N. e' e0 I- Q0 I& [  M
3.   (setq arc(entsel))
   
4.   (if arc
   
5.     (progn
   
6.       (setq a(entget(car arc)))
   
7.       (if (= (cdr(assoc 0 a)) "ARC" )
   6 B+ a- V1 g' {
8. (progn
   " J- U: h; N  \, R* N/ u' o% G
9.    (princ "\n圆心:" )
   
10.    (princ (cdr(assoc 10 a)))
    
11.    (princ "\n起始角度:" )
    # ~  I8 S. _0 H+ d
12.    (princ (angtos(cdr(assoc 50 a)) 0 2))
    1 g/ e2 f6 w6 A( z+ k6 f! \
13.    (princ "\n终止角度:" )
    ' H5 q. k" J0 {3 ~3 s
14.    (princ (angtos(cdr(assoc 51 a))0 2))
    / O, _5 A* Q# M0 [; |; o
15.    (princ "\n半径:" )
    
16.    (princ (cdr(assoc 40 a)))
    + v; Y  b9 u( g) c& j
17. )
      Z9 v9 n( r# T/ e. h+ Q
18.       )
    
19.     )
    0 X4 I; v. G7 Q1 Z
20.   )
    " |; r8 i# s- J+ X
21.   (princ)
    
22. )
    5 I" C) K3 P5 k! I* |2 y& ^

复制代码

VBA

1. 
   0 J7 q3 t" x6 Y3 \5 R3 z: u( N
2. Sub AAA()
   2 A  y- Y) q' S6 p4 `
3.     Dim ARC As AcadArc, P As Variant
   . V6 ?# w) D8 S
4.     On Error GoTo 10
   8 E, S7 F. @" \4 A
5.     With ThisDrawing
   
6.         .Utility.GetEntity ARC, P
   1 y& b- N+ C" Y7 M( W  d
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) _
   ) R* p  g2 z9 u5 l5 r, O! C# ^8 e
10.         & vbCrLf & "半径:" & ARC.Radius & vbCrLf
      W) k! [% v5 U& b
11.     End With
    
12. 10: End Sub
    7 [8 {8 s! b& n- L6 h9 u

复制代码