|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘& w4 C1 N- q; y
( g8 j3 Y% @% i, Q* a# ^
(defun c:xx()* ~3 W1 X7 E( J0 L# D2 D7 c& q
(princ "请选择需相乘的数字\n")
9 }; H8 h O) ]9 }; Z9 V( r8 F- O (setq ss1 (ssget))7 L9 }7 A; J4 @
(setq n (sslength ss1))4 h, ]* J( D, i- j
(setq aa1 (entget (ssname ss1 0)))
[! j$ l8 H4 ?1 o (setq h1 (cdr (assoc 40 aa1)))
3 X ~, |5 I: S4 Y1 y (prompt " TYPE 输出数字位数:<2") (setq ww (getint"> ")) 3 S% C( B. l2 Y! k# j
(if ww (setq m ww) (setq m 2))* A9 z: x6 F: ?- N# f
(setq pt1 (getpoint "请选择所放点(中点)\n"))
F& T0 I1 J+ h8 s (setq i 0 sum 1)9 U9 S/ [* l- {" b7 B% ?% `6 d) b3 f
(repeat n$ n& z/ a" U2 C, D9 y- G$ l+ I' g
(setq pname (ssname ss1 i))! \3 R. l* E5 X3 n# T% j
(setq ent (entget pname))
* V* y* }6 N0 J9 q (setq p0 (cdr (assoc 0 ent)))
. r2 w$ F$ [2 ~3 m# o9 m (if (= p0 "TEXT")
- {+ d9 B' ^3 G# \ (progn
. g0 G# s1 r) V- x (setq z (cdr (assoc 1 ent)))0 F: G% ^) ^ C" V) p' ?3 ]
(setq r1 (atof z))2 [5 c1 \# ]9 F
(setq sum (* sum r1))
! {# s0 |/ L1 d6 q( s* J )
5 e% @ k* U6 ? )& ]0 b$ i2 R9 H' ]8 P
(setq i (+ i 1))
6 _* r1 e- u5 t+ P )
4 {# E8 T: s G2 C7 Z (setq sum (rtos sum 2 m))9 R# l- E0 B% v; N, A' b
(command "text" "m" pt1 h1 "0" sum)
7 J: v" p. L8 p* ?# G) |
|
发表于 2008-6-10 08:13:25
楼主