|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘8 T" f$ {, [9 Z S2 ]$ k) j1 B
0 Z5 P. h; C& x/ G. Q
(defun c:xx()
- A- Z% d% i- s$ y- z# \+ f ` (princ "请选择需相乘的数字\n")& o0 N z* U# q8 J1 ]
(setq ss1 (ssget))
" o* @3 t' v+ l2 X2 C4 n$ F (setq n (sslength ss1))
) i- u! [& Y5 ?2 z (setq aa1 (entget (ssname ss1 0))) a# k' i6 ~1 @0 I- W
(setq h1 (cdr (assoc 40 aa1)))
3 O1 s( I. r( l! B) z (prompt " TYPE 输出数字位数:<2") (setq ww (getint"> "))
5 J1 v8 I6 h/ v7 _ (if ww (setq m ww) (setq m 2))1 h3 U4 C/ k5 m# V- v/ c2 M9 R/ o! }
(setq pt1 (getpoint "请选择所放点(中点)\n"))4 l6 I* T f M" e! Z A+ n
(setq i 0 sum 1)
+ C. P8 x! c h/ Q2 z" K+ D (repeat n1 \8 ~0 n; e$ `0 _) D
(setq pname (ssname ss1 i))
/ }1 ?% z9 |, d5 a1 t0 g$ P (setq ent (entget pname))
1 U2 Z) U% R3 A' H/ o9 C X. @ (setq p0 (cdr (assoc 0 ent)))
) C6 n: c- g I" O (if (= p0 "TEXT")
5 _) l& n6 {9 @5 g6 o( P9 ] (progn; }: Y* g8 d u5 Q, ?
(setq z (cdr (assoc 1 ent)))4 S2 z0 _( U% S7 N2 c# Z _
(setq r1 (atof z))
' X+ F+ q3 }# g$ R (setq sum (* sum r1))
3 M! V, s* e8 d& U1 L/ S ) s5 R) Z# P2 y6 L3 ]* V
)8 F- P; ^2 H" S8 T+ w" {% d9 _
(setq i (+ i 1))" ?9 Q z+ y1 D0 x$ [+ [5 P' `
)
* t+ ]; a6 @. [ (setq sum (rtos sum 2 m))& H U L0 i& W$ ]+ {
(command "text" "m" pt1 h1 "0" sum)- U. q% w+ C8 y, G
) |
|
发表于 2008-6-10 08:13:25
楼主