|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘
8 p. j1 Q, B" K* M9 m x4 l+ m8 l* ?: B* A+ L) z% w9 _. R
(defun c:xx()2 u: k4 p5 ~ F0 } v" Z
(princ "请选择需相乘的数字\n")2 n \6 O' p- a; C, x
(setq ss1 (ssget))3 J! N# L }8 f
(setq n (sslength ss1))$ _) G& F! S0 C1 W* B; B
(setq aa1 (entget (ssname ss1 0)))
8 Z6 Z9 ~' i* G9 E l \ J (setq h1 (cdr (assoc 40 aa1)))- z$ h& j# b D# }; c
(prompt " TYPE 输出数字位数:<2") (setq ww (getint"> "))
2 W' n. \& l( n) r: |( u (if ww (setq m ww) (setq m 2))! J1 W( O# A+ k' ?
(setq pt1 (getpoint "请选择所放点(中点)\n"))1 z' _9 k/ ?. o C* S7 q8 J2 E
(setq i 0 sum 1): ^6 ]0 h/ f9 X1 Z: K. M8 `6 a
(repeat n
2 }3 M2 ]: V' C1 H* y; X! n$ ` (setq pname (ssname ss1 i))
# a; R5 n& K9 ], z4 D- U (setq ent (entget pname))# n- V" K$ y5 t( j
(setq p0 (cdr (assoc 0 ent)))* w& ]- A1 u5 v$ k6 a
(if (= p0 "TEXT")3 D6 ?+ L5 S% |2 b. `
(progn
# @ o. ^' J0 y4 s- `; f6 w (setq z (cdr (assoc 1 ent)))
: s5 K- I1 J2 c9 ]7 t* p (setq r1 (atof z))0 u, ]% @* {6 ^2 A. ]! R+ c
(setq sum (* sum r1))
( b4 Y; O Q* p2 q$ J5 G )/ g4 ~ [' Q! i* T. I/ P
), ?+ O" i5 A5 K# a+ {# P
(setq i (+ i 1))
6 H) g. @/ R2 F* e# E )
8 J( ]" v. f* @) c: Q' u) N8 ?3 z (setq sum (rtos sum 2 m))2 N: e+ B: @$ q( `9 ^
(command "text" "m" pt1 h1 "0" sum)
R1 B! t2 o; R0 ^: D! W+ L5 }/ M( [' q) |
|
发表于 2008-6-10 08:13:25
楼主