|
|
(defun c p()$ R8 G" V1 G; M9 Q/ d. [& e5 L$ l
(setq bj (getreal "\\n 请输入圆半径:"))
2 F I& f4 ]0 O) I(setvar "osmode" 0)% n7 U" G& S( E/ p( g* }1 q- m' @
(setq ss (ssget \'((0 . "point"))))
; ` D9 [8 z9 v- Y9 r9 z(setq len (sslength ss))
4 A8 g: A' j3 A) @# Z+ S, D6 _5 s3 c0 X(setq n 0)" [6 C) ^9 N5 Y0 W3 U
(command "undo" "begin")
7 _* S# E7 T6 |* X- y9 Z# z(repeat len' k( O" x( O* y! o$ }
(setq ent (ssname ss n))
+ R* N, Q) I. n4 K8 z. p1 Q1 L/ ](setq yuanxin (trans (cdr (assoc 10 (entget ent))) 0 1))
/ d4 l! m% V. r5 z" R6 _) U; q9 f A* D$ x(command "circle" yuanxin bj)
. B* c( F6 F% o2 X% _(setq n (+ 1 n))
" c( \: Z0 |% u3 o: N)
0 C6 \: A ?0 `2 T) @+ z(command "undo" "end")是这样的吗？如何应用？ |
|
发表于 2010-3-6 19:52