|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘, J4 D% T* F/ Y, P0 G5 Q3 a
: E, G: J' q. t4 B(defun c:xx()
# _" q; M1 V @5 T) \9 y! p$ M t (princ "请选择需相乘的数字\n"), e, \7 a/ h$ n ~% d, r
(setq ss1 (ssget))
0 i/ V' c) K3 E( |* \: m( ]9 g (setq n (sslength ss1))6 g5 D1 ]7 ?& G; `; X
(setq aa1 (entget (ssname ss1 0)))) e: H* A) |# g! @- r" `8 R
(setq h1 (cdr (assoc 40 aa1)))' u; L/ L) j4 P3 z2 y2 h7 B8 e
(prompt " TYPE 输出数字位数:<2") (setq ww (getint"> "))
' R7 v1 l" @/ h+ K% I o (if ww (setq m ww) (setq m 2))' f3 j' U6 S: q( M( M
(setq pt1 (getpoint "请选择所放点(中点)\n"))
8 n% {2 I. d# A- B7 y; f (setq i 0 sum 1)+ T, I: C) W3 R, d! |! W, U0 e
(repeat n
* b& s$ Y# c) B* {" K- z0 b$ H6 B (setq pname (ssname ss1 i))
4 @: `3 I& `' {3 T8 ] (setq ent (entget pname))
/ p: l8 z% P! n+ j) S (setq p0 (cdr (assoc 0 ent)))
# ]9 i' j5 y8 K* Q7 X* M/ d (if (= p0 "TEXT"); ^" f( e+ K+ m3 i, l2 i- t
(progn2 O3 x+ B! ?. K+ _
(setq z (cdr (assoc 1 ent)))2 J" N7 k/ @& Y$ e) @1 x
(setq r1 (atof z))
# b5 U- F0 }1 @ (setq sum (* sum r1))
" ~# q/ Z6 t, X$ B7 V. I )% e+ k' H6 J7 D! G
)5 G3 v3 E! O3 y' }: e7 `6 f+ Y, x
(setq i (+ i 1))0 {( N6 U* {; n
)
5 J/ v4 x" b5 k' V4 e1 ^( p! S (setq sum (rtos sum 2 m))4 |3 S9 W3 i1 ]& X
(command "text" "m" pt1 h1 "0" sum)% E" Z; s& K6 D$ m9 S' \" F- I/ q$ L
) |
|
发表于 2008-6-10 08:13:25
楼主