|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘) d' F9 q; N- X ^" d
$ L- H" U7 `! Z5 t: _) l
(defun c:xx()0 G0 \: F* ]+ `" _ A
(princ "请选择需相乘的数字\n")
3 S) y9 w' g8 G t5 R0 ~ (setq ss1 (ssget))
$ l% N# B% w* i' o. o; K# l0 x (setq n (sslength ss1))
4 T* K- a0 n7 p, s; Y. H (setq aa1 (entget (ssname ss1 0)))
6 Y' p8 N# ~6 e) s (setq h1 (cdr (assoc 40 aa1)))
" S- X. n1 K" Y, [ (prompt " TYPE 输出数字位数:<2") (setq ww (getint"> ")) ; _" E3 l9 z0 o ~3 l" L+ c
(if ww (setq m ww) (setq m 2))
- }0 [- f+ X; s' @ (setq pt1 (getpoint "请选择所放点(中点)\n"))
3 A7 H9 `# F; S0 j0 `/ d1 V8 A" M* f (setq i 0 sum 1)
7 U( _' I& S4 N9 t (repeat n
( _3 n& h: K5 Y3 e1 F (setq pname (ssname ss1 i))$ P. q1 F. p% S& _
(setq ent (entget pname))7 I: q* D5 j& G0 L% N& g6 z
(setq p0 (cdr (assoc 0 ent)))# e" r; K4 ?' H7 E. _
(if (= p0 "TEXT")( ~. D2 t. m0 s) C- d( H2 F$ W& S' t
(progn
4 B7 o9 v- d: E& L/ y: \8 \0 M (setq z (cdr (assoc 1 ent)))
& G3 S3 H3 J( K) o (setq r1 (atof z))
) s' d( I2 f1 O: X+ T (setq sum (* sum r1))
s! u+ Y9 Y. x% L. @) X )
( I/ E) W" p& E( U. d ), {3 B8 {1 [& F( U+ @: z
(setq i (+ i 1))" p; {* \" e6 N
)$ G1 z, m6 y0 }9 c$ E* w9 d* A; _
(setq sum (rtos sum 2 m))' n8 n; M/ g T
(command "text" "m" pt1 h1 "0" sum)8 p$ Z% ^# w% E2 G7 t! B
) |
|
发表于 2008-6-10 08:13:25
楼主