|
|
(defun c p(): z: m! C7 c. I6 p) X2 D, W7 ~
(setq bj (getreal "\\n 请输入圆半径:"))( ]( R! U! Z7 s0 t, l' y1 n5 K$ h
(setvar "osmode" 0)) v: g: v# d& A! k ?% ?
(setq ss (ssget \'((0 . "point"))))1 d3 K2 z: g* s- U
(setq len (sslength ss))
" l7 B" N! x' P* v(setq n 0)
7 N; \$ V! {4 u4 i1 T% W" x(command "undo" "begin")
# g* l3 G p; e* @(repeat len* ^5 J+ e6 l: y8 P6 Q5 x0 k" j) K4 o
(setq ent (ssname ss n))
1 B. M2 ?7 t9 M# T(setq yuanxin (trans (cdr (assoc 10 (entget ent))) 0 1)) # e5 m# J9 Q c: o- z/ S% `
(command "circle" yuanxin bj)
: [ q3 [, _$ y" M# o' t/ M. j$ }(setq n (+ 1 n))
& q6 n( r7 g. X% I)& ~2 L F f! v$ v' b: l/ |
(command "undo" "end")是这样的吗？如何应用？ |
|
发表于 2010-3-6 19:52