|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘8 R/ u2 P+ |8 F7 E7 y- p0 P
2 X7 G( B# T: K$ K V(defun c:xx()$ O$ t2 H# N' C$ y- R+ s8 V5 ?8 `
(princ "请选择需相乘的数字\n")' W0 V+ a+ ~4 f/ k9 C
(setq ss1 (ssget))4 X$ H4 n0 h8 M: c% l
(setq n (sslength ss1))
& L$ I9 d1 F! L2 J; T: N. a (setq aa1 (entget (ssname ss1 0)))
) A4 L/ G! Y5 U7 ^1 B (setq h1 (cdr (assoc 40 aa1))). F6 @7 { @5 ~; u2 @% K$ C
(prompt " TYPE 输出数字位数:<2") (setq ww (getint"> ")) 8 p7 n7 {7 L( F$ k' F4 v
(if ww (setq m ww) (setq m 2))4 }% J( t8 _8 i! n
(setq pt1 (getpoint "请选择所放点(中点)\n"))
9 K+ Y6 ^0 s# R2 e (setq i 0 sum 1) I7 a# ]7 j, ]( C% y" ?! r
(repeat n9 O& j+ E7 z5 t, d* {9 h
(setq pname (ssname ss1 i))
2 A, c6 e* a; O8 L, B1 J$ C0 @ (setq ent (entget pname))
/ K& e8 ~4 o3 e0 j$ h! t (setq p0 (cdr (assoc 0 ent)))0 E% \& o( t( Y1 z+ h
(if (= p0 "TEXT")
- B; O D |" ]5 P (progn
9 q3 r6 \) |' q3 y# \ (setq z (cdr (assoc 1 ent)))
; b, z; E4 S3 A# p q3 j/ Z$ F (setq r1 (atof z))! D( M: `) F( ^+ X2 }
(setq sum (* sum r1))
5 J# R6 H& F8 F )
7 w3 u' I* h) R9 W7 K* ^, H4 m )% g7 F5 t7 o- D, S8 z- L) v
(setq i (+ i 1))
, R6 ]* [, o5 d1 \3 k/ i, S )
7 L* V6 h. Z. @) ?2 Y (setq sum (rtos sum 2 m))3 @/ {% d5 q" T4 X
(command "text" "m" pt1 h1 "0" sum)
! z1 @3 |% F3 G3 D+ F) |
|
发表于 2008-6-10 08:13:25
楼主