|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘2 D, S) H/ k1 V
3 ~: v- d6 t! F# J; w6 p. n0 e(defun c:xx()
& R0 B6 O& \- ]5 s/ r" ^ (princ "请选择需相乘的数字\n")
( v" u: g4 b0 L% i) q (setq ss1 (ssget))2 J6 h6 U+ ?; k9 Z
(setq n (sslength ss1))3 n) |" u8 o, M! {
(setq aa1 (entget (ssname ss1 0)))" {3 Q' z4 @2 q0 V' T
(setq h1 (cdr (assoc 40 aa1)))$ [! R" }# ]7 N: g: u2 v
(prompt " TYPE 输出数字位数:<2") (setq ww (getint"> "))
" h4 o# V$ l4 Y3 q5 Y# U5 Q (if ww (setq m ww) (setq m 2))/ d6 h& E% ], K5 N( Y ~* y' I
(setq pt1 (getpoint "请选择所放点(中点)\n")): C: L4 Y* F7 \7 I* z7 f
(setq i 0 sum 1)
j8 F) h9 E* B (repeat n
P2 d1 _6 w1 s (setq pname (ssname ss1 i))
9 e- b6 _. N" ~$ o8 H (setq ent (entget pname))4 I, |0 s) z/ W7 W Z3 V) z$ Y
(setq p0 (cdr (assoc 0 ent)))
( k, d0 \2 Q9 M (if (= p0 "TEXT")
# c- |2 a5 ~ g" a3 y" N (progn( |0 |. ?7 ]) J) m. s' R
(setq z (cdr (assoc 1 ent)))
! i/ W# N! p, j4 S" { (setq r1 (atof z))! z' k$ |/ z4 F6 L6 w& |
(setq sum (* sum r1))* R% H: e; E% S# I0 r) I; p
)9 N8 J, h* `3 o% ~6 h' s+ o B
)
5 i* k9 }2 }1 L' M/ L+ t (setq i (+ i 1))5 |2 b+ G b. d( ^# M
); N& }- R: f: N: y
(setq sum (rtos sum 2 m)): B8 l$ G1 F8 W8 i
(command "text" "m" pt1 h1 "0" sum)% ~7 N3 q7 x+ ^+ `; _5 x9 v+ p
) |
|
发表于 2008-6-10 08:13:25
楼主