|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘! }! `& b$ w9 l, V8 E. A6 N$ Z$ x
0 u4 K0 U; i& _. M
(defun c:xx()/ \4 J+ e. ]7 ^ G3 U% r2 E
(princ "请选择需相乘的数字\n")& _* _ K' c. L5 \
(setq ss1 (ssget))
7 B7 H ^! i/ a9 H (setq n (sslength ss1))
3 Z7 e+ ~' ~2 T (setq aa1 (entget (ssname ss1 0)))
# g# W; B0 M- h% M# X7 r4 H (setq h1 (cdr (assoc 40 aa1)))
) M5 s' j7 |3 P: q: f! | (prompt " TYPE 输出数字位数:<2") (setq ww (getint"> ")) 7 ~8 q7 _3 `5 z3 M( h7 C2 |1 [2 _+ M
(if ww (setq m ww) (setq m 2))+ _3 i% e0 D. f; Z: I
(setq pt1 (getpoint "请选择所放点(中点)\n"))
# R* A5 n. U e0 Y$ [ (setq i 0 sum 1): \" e. ^ Q3 m$ D3 `/ W( {9 |
(repeat n
4 O, N, R& }% D( q9 p. P (setq pname (ssname ss1 i))
1 `/ t) y" r4 k5 X' a2 X (setq ent (entget pname))
& V( y! P2 T3 t; `" ~$ I (setq p0 (cdr (assoc 0 ent)))
# d: |0 J- l& j* k' F$ ?5 [; B (if (= p0 "TEXT")
$ F' Y0 w s+ U$ P# V/ @ (progn
; `) i6 @7 s# z3 ? (setq z (cdr (assoc 1 ent)))# L( v" F2 f; T: t5 ]) d
(setq r1 (atof z))3 w6 z1 Y! I6 H, e
(setq sum (* sum r1))
9 r' v$ c9 i: H2 T) R- a# r0 k% n )
. Z d5 H6 x' j )( G" K0 M D3 o( b- g# d
(setq i (+ i 1))
1 S7 H5 Y. |4 U )/ \7 @7 T5 m; X1 S% i
(setq sum (rtos sum 2 m))% Y1 Z( w2 k. y: B( }
(command "text" "m" pt1 h1 "0" sum)6 `) I+ n+ t7 R$ `
) |
|
发表于 2008-6-10 08:13:25
楼主