|
|
(defun c p()
# W1 {: [ u% F, { F3 N. M! c(setq bj (getreal "\\n 请输入圆半径:")): A: C; W. F% T& `. X, J1 i$ |8 t: C
(setvar "osmode" 0)& }3 n x: L7 Z
(setq ss (ssget \'((0 . "point"))))
* g4 i: P4 T! ]% X) P/ f(setq len (sslength ss))' m. f5 W1 \3 g! v- U7 q; G4 q* a
(setq n 0); R' }; J7 N9 u+ h& g2 a
(command "undo" "begin")) M- v2 j+ X# X, ~
(repeat len
" }' }' @/ @, p/ r' w(setq ent (ssname ss n))4 P/ J9 ~6 f- R2 N8 S$ C
(setq yuanxin (trans (cdr (assoc 10 (entget ent))) 0 1))
; S7 s" F( s9 t(command "circle" yuanxin bj)5 s/ x. H8 B4 D1 A( d
(setq n (+ 1 n))
# F$ t4 P! w4 _! @( V5 Q)2 ?/ i8 W3 \7 Y! Q! q" M
(command "undo" "end")是这样的吗？如何应用？ |
|
发表于 2010-3-6 19:52