|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘
; C) {7 B. @9 n" }- ^ L6 e
- G ^5 n# I. h1 ~5 g(defun c:xx()! `3 x( k p, \
(princ "请选择需相乘的数字\n")
: r2 S5 C4 B W% n (setq ss1 (ssget))( r! O- d. ^# u! y: l: G
(setq n (sslength ss1))
& z2 B: v( l- h- `# A5 F7 @7 f/ J (setq aa1 (entget (ssname ss1 0)))
, t, j; [' |( o$ E9 w" X (setq h1 (cdr (assoc 40 aa1)))
?9 e/ V8 X9 y (prompt " TYPE 输出数字位数:<2") (setq ww (getint"> ")) ( Y( Y" n ]( H* L. U' v
(if ww (setq m ww) (setq m 2))" O9 c/ | r1 H2 ]
(setq pt1 (getpoint "请选择所放点(中点)\n"))
v0 ~- R% W' a8 X5 m (setq i 0 sum 1)9 ?, E/ v. O+ }# c6 I/ w
(repeat n* T# c5 `9 E6 {# E0 k- J2 C: M
(setq pname (ssname ss1 i))
1 d! d/ ^( Z/ A }9 g) r (setq ent (entget pname))' V# i5 T S( g' \& q) a
(setq p0 (cdr (assoc 0 ent)))$ D5 g9 w7 O# a2 e2 B4 w
(if (= p0 "TEXT")$ z+ f9 f; Y/ C
(progn
3 [; G: [% f, Z& u+ k9 S (setq z (cdr (assoc 1 ent)))( U: K$ {, Z: Y ]# @) _
(setq r1 (atof z))1 T( y9 d0 F3 d5 j2 v5 b' R5 d/ o( N
(setq sum (* sum r1))
4 p. j4 z) w# Z: |/ g- [, F' _ )9 _7 P, v. s; r# f4 r, o# @
)
& E3 p) S9 B1 B( b" N (setq i (+ i 1))
# Q) w. i+ u6 T1 C) J )6 U, u# p C; J3 ^3 L- p
(setq sum (rtos sum 2 m))7 C3 w0 `* G7 X; V
(command "text" "m" pt1 h1 "0" sum), m& \4 d v+ ]% ~: ]0 u: l. H
) |
|
发表于 2008-6-10 08:13:25
楼主