|
|
(defun c p()
3 n/ D% L$ L4 O. [(setq bj (getreal "\\n 请输入圆半径:"))
5 z" d1 m/ X7 Y+ [9 h, d(setvar "osmode" 0)
. }, Z4 f/ N4 z2 f9 e$ |2 n+ f. ^/ l(setq ss (ssget \'((0 . "point"))))
/ k1 D9 M2 ~. P. t, v" ]3 X3 R(setq len (sslength ss))
5 @1 F& c( n3 c1 p9 ~, i(setq n 0)
3 p! V5 z' ?. M+ \(command "undo" "begin")0 J; c; q3 \" L
(repeat len' {* e* _: Q* u; E. Z/ M" ]
(setq ent (ssname ss n))
8 U! @: b3 W2 u* D: }(setq yuanxin (trans (cdr (assoc 10 (entget ent))) 0 1)) 8 ]2 q* `, a+ G" P5 a5 @
(command "circle" yuanxin bj)
1 t H) Z' M# u' @3 g(setq n (+ 1 n))
' `+ C3 T" i) `. T. c0 j; Z' a)- j& U- J2 f" ]. f9 K/ Z6 l
(command "undo" "end")是这样的吗？如何应用？ |
|
发表于 2010-3-6 19:52