|
|
(defun c p(). k" U# R. K+ U8 X0 j" F4 R
(setq bj (getreal "\\n 请输入圆半径:"))
6 Q& c" ]4 l: Q2 H) z0 j(setvar "osmode" 0)) g# T) F0 _+ l: }
(setq ss (ssget \'((0 . "point"))))
E! A/ W5 p w, X/ W+ {: m6 V* v(setq len (sslength ss))
+ Y2 `. A4 E* C4 }% n% o9 H(setq n 0)
, g2 P. L. |) o0 }(command "undo" "begin")( F% Q1 r5 Q W$ H' D
(repeat len% r5 I8 K2 K4 t4 p- J7 b E6 D$ l( M
(setq ent (ssname ss n))+ s5 ]: I/ g+ ?, C% G" \" f
(setq yuanxin (trans (cdr (assoc 10 (entget ent))) 0 1))
* ?& r" k$ l/ k$ d(command "circle" yuanxin bj)
& I G3 \2 ~: n) u(setq n (+ 1 n))
; ^( s0 m& e9 R! X# N( _6 Z6 y)
2 J$ r( p+ o: D& Z; x(command "undo" "end")是这样的吗？如何应用？ |
|
发表于 2010-3-6 19:52