|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘) W; E! v" z- [( E' J% w8 y8 J* v
! A5 g0 n0 J; P# m3 t1 u(defun c:xx()! c7 B# A @ `! @3 [: j
(princ "请选择需相乘的数字\n")
6 r% l2 v3 N# o5 n# O4 u (setq ss1 (ssget))
1 t: Q" f5 a( u6 w (setq n (sslength ss1))
" C$ t0 L6 J% h; U- Y' Z (setq aa1 (entget (ssname ss1 0)))
, B+ b4 d5 }# ?% d, H" d1 V( a' ] (setq h1 (cdr (assoc 40 aa1)))
+ M( H m J$ _6 n* ` (prompt " TYPE 输出数字位数:<2") (setq ww (getint"> "))
% B5 C5 x* @/ f/ a (if ww (setq m ww) (setq m 2))
& ^9 l+ J. Y9 w. z (setq pt1 (getpoint "请选择所放点(中点)\n"))
4 D3 z4 ^6 X" ?# t$ t (setq i 0 sum 1)
. V6 U9 \0 p& U: B) } (repeat n
, B+ F) \# [0 b6 S: Q& @ (setq pname (ssname ss1 i))
& d8 b4 C5 e; K (setq ent (entget pname))
8 O1 \/ y9 b: p8 j% S (setq p0 (cdr (assoc 0 ent)))
/ m+ ]6 H, h# {; ] (if (= p0 "TEXT")
, C! h7 D4 y' h# h7 H0 D# i, H (progn. C: L* D: X% ^2 v
(setq z (cdr (assoc 1 ent)))
( {" ^7 V5 a0 j4 W. V; y (setq r1 (atof z))
7 P/ N- g# b; U8 c( ?& s (setq sum (* sum r1))2 z8 `: q. T0 i0 H
)
& K, v- d* u# p ); j" B5 S* Q; _
(setq i (+ i 1))
- q2 A: [: m2 V# M )% i; k0 g$ A1 Z
(setq sum (rtos sum 2 m))
* Z3 M+ u/ R% D1 u (command "text" "m" pt1 h1 "0" sum)2 |& L6 z3 q) u( X0 Q
) |
|
发表于 2008-6-10 08:13:25
楼主