|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘5 s! b: [9 f4 M" T
1 U* H% o# V7 Q# g( V, `2 Y" [) x; E(defun c:xx()! w$ a" x, s5 v
(princ "请选择需相乘的数字\n"): j1 l$ S9 M& T6 {
(setq ss1 (ssget))0 Y9 l. B) n" Q6 Y9 G
(setq n (sslength ss1))/ X! \& O9 r) s
(setq aa1 (entget (ssname ss1 0)))
* v1 `: R( m) L! g2 M. B (setq h1 (cdr (assoc 40 aa1)))( `8 I; |. V; V9 u6 }
(prompt " TYPE 输出数字位数:<2") (setq ww (getint"> "))
/ u8 T( `$ `& d$ t, W# C) p (if ww (setq m ww) (setq m 2))! z) |; Z: Y. q
(setq pt1 (getpoint "请选择所放点(中点)\n"))/ `& ~# h( P3 V
(setq i 0 sum 1)+ Z3 l3 E8 o- m! A- u1 y' Q
(repeat n7 g& C' M& J3 |& z
(setq pname (ssname ss1 i))' \) ^; @$ O/ B# {7 ~) {
(setq ent (entget pname))' ^5 k) X5 Q& Y7 r& z5 Y
(setq p0 (cdr (assoc 0 ent)))) v* } S2 ]( ^0 D( W
(if (= p0 "TEXT")
* K d4 @6 Y' i' o4 Z# [0 a (progn
7 S, e/ B% Q7 ^ (setq z (cdr (assoc 1 ent))); d- s) o: Q' Y* a6 h
(setq r1 (atof z))1 c; x9 Y5 _; `' J+ Z
(setq sum (* sum r1))
& e+ ^% f& r/ d$ M' X )
, K2 J' y8 \" `1 l7 ~: P )5 L/ R: |0 ^2 B& w4 L% [( Q3 a
(setq i (+ i 1))6 V- y) }/ ^1 }. ^! n0 j! E: j
) L7 p( O/ Q5 s# n/ U
(setq sum (rtos sum 2 m))
( B* P5 Q" t+ ] (command "text" "m" pt1 h1 "0" sum); l: ~- C9 s f0 K* l! w
) |
|
发表于 2008-6-10 08:13:25
楼主