|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘% t# p. u; Q& L8 r: S. F$ C5 L! b2 H8 M
$ S$ v2 B. x' w) \& x) ~
(defun c:xx()( u1 E( u" p2 j- O, ^4 }
(princ "请选择需相乘的数字\n")
& p8 g: W+ ` t, ^8 D7 T) O: E1 j (setq ss1 (ssget))
) F* c. Y. i' O (setq n (sslength ss1))- u7 u6 S) B3 f2 r9 J
(setq aa1 (entget (ssname ss1 0)))3 U% S6 V ^. [& [2 G/ H- t
(setq h1 (cdr (assoc 40 aa1)))
7 i% [9 ^" |! u (prompt " TYPE 输出数字位数:<2") (setq ww (getint"> ")) 6 }" N( |7 ]% a/ b* q
(if ww (setq m ww) (setq m 2))
, h) b- e: D2 D @$ O" o (setq pt1 (getpoint "请选择所放点(中点)\n"))
1 x+ F3 y" Y. Z& i7 Q. R" u5 n (setq i 0 sum 1)
! S/ V. G) R8 p% l, K1 Y (repeat n
4 ^7 W6 h6 C+ e3 D/ M$ M (setq pname (ssname ss1 i))2 g( _* q' [! ^* [
(setq ent (entget pname))
- f/ h& t1 H5 W( G5 W$ C/ L (setq p0 (cdr (assoc 0 ent)))2 Q9 {; ?' c$ x
(if (= p0 "TEXT")9 I' a* d. B/ k% f. y
(progn
, s; \+ f* ~, [5 K) w* ]3 R7 {0 _ (setq z (cdr (assoc 1 ent)))
1 ]/ f c8 e. d2 y" Z/ P$ l- g! y (setq r1 (atof z))
0 D4 v' u9 i- ^9 b9 f" O) [ (setq sum (* sum r1))
* P$ H: p9 C$ I S5 {1 ~ )
- N8 J' W) y) Z, k+ R# l )
4 M( ^7 r6 v# h6 Q2 b (setq i (+ i 1))( v- A8 ?4 \* {% F/ a: c0 e2 S7 K% C
)* t* ]' U( p( v& m9 S; }2 Z
(setq sum (rtos sum 2 m))/ `9 E5 f7 D$ }. e
(command "text" "m" pt1 h1 "0" sum)
1 @* j N6 V4 p) |
|
发表于 2008-6-10 08:13:25
楼主