|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘
( U! f/ C, [ A. i; F& n" h+ g5 v( g$ x- ^8 o; e
(defun c:xx()
3 a2 c X% g1 G) c/ W6 H$ b (princ "请选择需相乘的数字\n")$ @4 Y* j* }5 E* O1 Y! i4 o
(setq ss1 (ssget))# Z4 j' `- B( g( l
(setq n (sslength ss1))
5 L1 R* y( D2 {* n (setq aa1 (entget (ssname ss1 0)))5 I& r- ?2 b$ B
(setq h1 (cdr (assoc 40 aa1)))
6 v, |7 L8 v4 j8 z9 i9 T (prompt " TYPE 输出数字位数:<2") (setq ww (getint"> ")) 8 Y4 {4 Z8 r9 X1 n% S
(if ww (setq m ww) (setq m 2))
/ C \1 G- @6 p4 u. w9 ] (setq pt1 (getpoint "请选择所放点(中点)\n"))
! _) m8 ], @) @ ^% `& V: S5 E% j' K (setq i 0 sum 1)
; p b3 L; n$ c- @/ u' h (repeat n
0 u/ v. |0 U4 [ B3 s( e (setq pname (ssname ss1 i))& {( g( s- n( _, N2 I
(setq ent (entget pname))3 y! |( B$ w7 {' }8 \* C
(setq p0 (cdr (assoc 0 ent)))
, \& ^- _, ^( B (if (= p0 "TEXT") s+ C8 k, j& h$ h; k5 u& Y6 {- j
(progn
* E4 \' E' p! v. Z0 U4 F (setq z (cdr (assoc 1 ent)))- z2 C, J: J: Q% p, y
(setq r1 (atof z))
0 F% f1 O; G/ J (setq sum (* sum r1))8 }! x {$ u3 G
)
5 q' d/ K* N' ~/ q4 i' a )
0 e* i' G6 H. N& H (setq i (+ i 1))
% a$ m1 r- v1 s8 e )
6 a( Q& O$ g! ?- R9 ^& n. O! N3 e. O (setq sum (rtos sum 2 m))
0 u, c1 S+ W. m6 d (command "text" "m" pt1 h1 "0" sum)/ O r8 C: C' i4 ?! u
) |
|
发表于 2008-6-10 08:13:25
楼主