|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘
4 L c7 o' Q" S$ b( j; m
6 v* R1 U& k3 l3 h$ I/ }( T; b+ {(defun c:xx()
# x! t$ L1 q" n/ D* G (princ "请选择需相乘的数字\n")
6 Q3 E+ }% H! r (setq ss1 (ssget))% h; ]1 @9 O5 W9 H8 j; R* l
(setq n (sslength ss1))6 x0 \5 \' v: \+ u) L x J9 i
(setq aa1 (entget (ssname ss1 0))) w7 l( l# |2 v2 g0 j8 {4 t1 V2 i
(setq h1 (cdr (assoc 40 aa1)))
8 c2 g! b6 {7 i/ c z (prompt " TYPE 输出数字位数:<2") (setq ww (getint"> ")) & x/ g5 O+ l+ S/ L! ~
(if ww (setq m ww) (setq m 2))
' o& \2 _; O6 Q (setq pt1 (getpoint "请选择所放点(中点)\n"))( w2 X' l' ?3 B. ]5 u. l
(setq i 0 sum 1)6 \/ X0 I/ C/ m) x+ V% x3 D/ ~& a& N& H
(repeat n$ {* Q, C# Z9 P) W3 y, O4 F
(setq pname (ssname ss1 i))9 }5 g' q+ X' F- C
(setq ent (entget pname))1 A" H6 g( w4 }7 v; @" v
(setq p0 (cdr (assoc 0 ent)))) G$ d$ [' q4 K8 b) x7 G5 T
(if (= p0 "TEXT")
) H! s+ q" b' {' q% t7 }" M (progn4 @. s7 T9 B* q5 }# H
(setq z (cdr (assoc 1 ent))); X* c: _, N, M* M
(setq r1 (atof z))" Z& y8 s# s2 D P! A$ A8 t
(setq sum (* sum r1)); ~ R- h. m" D2 B: J
)6 c" {/ _ n/ ~
)" r% H; Q9 H, ^6 M C$ f
(setq i (+ i 1))
- u9 d1 D6 A2 I7 p1 j8 u )5 t0 E2 a8 d* O
(setq sum (rtos sum 2 m))* u( b. ]' r/ ], L6 w
(command "text" "m" pt1 h1 "0" sum)
* c [% U p3 x8 K6 b! d7 O8 y) |
|
发表于 2008-6-10 08:13:25
楼主