|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘
; c% }5 L: T2 _# W+ k' C. ?9 W6 r1 Y8 A5 z3 H$ h0 x( O5 G7 {
(defun c:xx()
( X8 m* U6 m# i L (princ "请选择需相乘的数字\n")
4 k! |& F n- E- E- B7 V0 T9 | (setq ss1 (ssget))" x0 h- V1 z3 L8 U$ \; t4 K
(setq n (sslength ss1))
) c* E# h9 Y" r z, V# r7 k! t) O; G8 O (setq aa1 (entget (ssname ss1 0)))
& Z2 [( p) D# F& ^ (setq h1 (cdr (assoc 40 aa1)))* U! W2 O3 R; D4 W. y0 _
(prompt " TYPE 输出数字位数:<2") (setq ww (getint"> "))
; W- v9 a2 \3 G (if ww (setq m ww) (setq m 2))1 ]8 t6 k& j7 {: T# s
(setq pt1 (getpoint "请选择所放点(中点)\n"))6 M6 A l( l# n4 e! ~: E& L) O2 Y$ ]$ U
(setq i 0 sum 1)
* a! s7 `1 g' K3 c4 {, [& D (repeat n8 b7 h; N7 H9 z- v1 R7 W& [' @. v
(setq pname (ssname ss1 i))
% S- Y' l0 I8 S. l: ~6 r0 g (setq ent (entget pname))
3 j @4 Z0 C8 Z% Z (setq p0 (cdr (assoc 0 ent)))
E: g8 R" E- g5 {* Q0 @# K5 d (if (= p0 "TEXT")
8 A L! b( R g9 K (progn
( |) S. N1 Y# k (setq z (cdr (assoc 1 ent)))' y. V8 z/ E( h% P4 r/ Y
(setq r1 (atof z))
$ M0 V+ p) D' `1 h4 { (setq sum (* sum r1))
F, c" X2 j, S! ~2 X0 f" _ ), N( Z- v) z5 T* }; y0 D3 B( }
)
. N) W; w G7 C, F+ S, f% C (setq i (+ i 1))
/ P ^! E) M/ K9 X2 H ): R% I3 s2 B" @2 g+ M5 @' u; R
(setq sum (rtos sum 2 m))5 {7 {' R I% s5 H: N4 {; T. p
(command "text" "m" pt1 h1 "0" sum)" ]- t$ g& t, u
) |
|
发表于 2008-6-10 08:13:25
楼主