|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘
9 L8 @0 q+ j, H+ L% y3 N* m
. B2 h, G2 A& W(defun c:xx()' ~) g# Y! v; I8 } _5 S" P
(princ "请选择需相乘的数字\n")
- k5 [+ G" g! z5 p. K* V (setq ss1 (ssget))
- k4 [! t$ z6 m! ^2 N- V* @ (setq n (sslength ss1)). k( F' ^7 I9 C0 [' {
(setq aa1 (entget (ssname ss1 0)))
6 ~& _) k$ K! R- F: y (setq h1 (cdr (assoc 40 aa1)))0 e; j# v; D4 m! _. r' d$ E* n
(prompt " TYPE 输出数字位数:<2") (setq ww (getint"> "))
5 [5 X% g3 T6 t3 } (if ww (setq m ww) (setq m 2))! X% b* X% V$ M+ V7 e9 a+ P
(setq pt1 (getpoint "请选择所放点(中点)\n"))
: {4 m( _. v: k7 X% u (setq i 0 sum 1), w4 A2 I0 F: M: G' Q, i
(repeat n
4 k" @8 @" w" n5 G1 H/ c3 I (setq pname (ssname ss1 i))
U5 T( H, b5 Y (setq ent (entget pname)) q( a# H% B2 C3 j% {
(setq p0 (cdr (assoc 0 ent)))
( Y, Z2 w0 ^- [ (if (= p0 "TEXT")
/ d* x$ P+ _+ n3 [' Y# `: f5 R) V (progn
' I }5 H! v% g6 Q$ M0 q6 u& \+ S (setq z (cdr (assoc 1 ent)))6 Z0 N8 W- I0 E D. J6 U
(setq r1 (atof z))
) ^# \% d* O ~1 Y+ ]( C8 D- |4 H (setq sum (* sum r1))
% |5 k" T0 | q! _& n) z% U; x )- V2 M& ?$ ]9 f
)
- H% Y# g9 Q3 f+ d- h2 H- z (setq i (+ i 1))
! S+ h k2 t! o! E )( B: a d3 _) A, n3 ` G8 x
(setq sum (rtos sum 2 m)); I; \8 {) t. \6 r, M s6 M; {4 c
(command "text" "m" pt1 h1 "0" sum)
: j* Y/ T9 }; r% r" o8 B0 J) |
|
发表于 2008-6-10 08:13:25
楼主