|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘
7 G( R$ \$ l) M3 E! g, n: U
* U: S5 L h4 l* {4 ]- U(defun c:xx()
' t) W$ Z3 x7 U (princ "请选择需相乘的数字\n")3 N+ o% T) n( d C+ R, ~
(setq ss1 (ssget))
& v8 h6 l2 ]" {. j+ O (setq n (sslength ss1))
5 _4 a4 z) g+ ~! s5 h6 W5 e% V1 }+ M (setq aa1 (entget (ssname ss1 0)))- K! _! S8 {8 u
(setq h1 (cdr (assoc 40 aa1)))9 {$ P( m, A1 g6 Y
(prompt " TYPE 输出数字位数:<2") (setq ww (getint"> "))
# k% D- h5 ~6 X6 T, {7 D3 z+ W (if ww (setq m ww) (setq m 2))
+ \( A' b6 }* q- F6 e# R (setq pt1 (getpoint "请选择所放点(中点)\n")) p6 `5 x8 m( |6 O
(setq i 0 sum 1)& b2 \, n1 r6 f* B$ n
(repeat n% Z( G; v- b! W& l: l7 R
(setq pname (ssname ss1 i))' s3 E& q1 w( ]9 e/ a, ~
(setq ent (entget pname))% g6 m% M7 v5 a$ I6 O7 p
(setq p0 (cdr (assoc 0 ent)))7 x, l% m9 n, O$ _( v% F; d
(if (= p0 "TEXT")
% } ?" o( W( Z* |% Q# }$ Z (progn% R1 U( D, |: l7 Q; q _
(setq z (cdr (assoc 1 ent)))" z1 d/ g! x: v" I; \! x1 N, p( _6 s
(setq r1 (atof z))
9 p0 B9 r! m5 u4 g/ S% N1 M7 p (setq sum (* sum r1))
9 g1 J7 s" ]/ c" f @' I )5 b8 F# V& g: L! l# F$ x# D
)
8 w. {9 I6 }3 R4 @- k/ { (setq i (+ i 1))
' n- y$ c# B5 i! \# c8 `, {3 g )+ p+ D% Z' v( z, \9 |& c- V6 E( J2 ~% K
(setq sum (rtos sum 2 m)): n0 V$ J$ A0 X
(command "text" "m" pt1 h1 "0" sum)
+ ~9 ?8 f2 e) X7 |/ G) |
|
发表于 2008-6-10 08:13:25
楼主