来自明经- (defun c:tt(/ modelspace)) ]; R6 _/ ^1 d
-
7 I3 R+ |+ x. ]" d2 l- i# Z - (setq oldosmode (getvar "osmode"), N' |5 q" I$ t# Q
- oldcmdecho (getvar "cmdecho")- o9 N7 ], K8 g- ~! |/ W7 v
- )
+ U& m7 p, E% U+ v - (setq modelspace (vla-get-ModelSpace (vla-get-activedocument(vlax-get-acad-object))))
5 O( _7 [& f; X# \ - (setvar "osmode" 0)
) Q" Q& f" k2 o - (setvar "cmdecho" 0)
8 L. ^5 o' h7 H# p4 q% `, H; T8 N - (setq ss (ssget '((0 . "circle"))))
v/ j" Y9 `" X [) p5 B5 r - (setq k 0)
" a7 {7 y/ m( O" `# a9 ~ - (if ss
; |% M2 s' D/ O/ T - (repeat (sslength ss)
+ F' D' O" e& `8 A( [1 ~ - (setq en (ssname ss k))
/ z7 w% ?% K3 k& A9 c3 C- h - (setq cp (cdr (assoc 10 (setq enl (entget en))))/ P; S! x- J2 e/ r7 z' Y
- r (cdr (assoc 40 enl))( |3 w3 ~ M& {1 r- ?, x) c
- )2 u( h+ N" h- X" g& @1 o0 w" [
- (setq p1 (polar cp pi r)$ T' W- n) U. b
- p2 (polar cp 0 r)
& v2 _1 S, }, {0 E" Q+ A - ), p' @) c/ T' [1 C- n8 d
- (setq pts (list p1 p2)
$ w) G4 I9 {$ t c - pts (mapcar '(lambda (x) (list (car x) (cadr x))) pts)
2 r. w$ ?% ~) i" o0 y - n (* 2 (length pts))% B! m: o1 z1 l0 R
- )
0 Y) J: @; F$ Y* }% | - (setq arypts (vlax-make-variant
0 N: o0 E# j. d - (vlax-safearray-fill3 i4 l& i, n; j* t
- (vlax-make-safearray vlax-vbdouble (cons 1 n))
3 ]6 `5 v O5 T7 O0 h# a* m* T - (apply 'append pts)& G9 `2 N( U3 ^! R1 S- ^( k& o6 q
- ) ;_ vlax-safearray-fill
6 Y0 s: B6 G9 v1 K% k. C/ W- F - ) ;_ vlax-make-variant: e& r, H+ @( A4 _2 Z4 @/ V
- ) ;_ setq1 B7 D z3 t' t- Y! G7 n- d
- (setq obj (vla-AddLightWeightPolyline modelspace arypts))8 z2 i/ {4 a6 i) |1 J( \ r
- (vla-put-Closed obj :vlax-true)/ L0 v' [! E' b8 @, y
- (vla-SetBulge obj 0 1)! e& Y# N; \. w! V* b7 H: t" M
- (vla-SetBulge obj 1 1)5 S9 r* Z9 K& ?% P) v
- (setq k (1+ k))
. b" t+ `# I6 u d0 W7 z: F - (command "_matchprop" en (entlast) "")4 o5 e6 [1 V6 c! n/ ^- U
- (entdel en)# O5 R' q6 j) z* @
- )6 J5 y, W7 M, U! T# ?
- )/ i, @. B0 Q: h' r7 ~- f$ {* c
- (setvar "osmode" oldosmode) A4 T% m: d C* A& Y
- (setvar "cmdecho" oldcmdecho)
$ d: B" l6 K( ^$ l& Z+ x. F/ M - )
复制代码 |