|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘7 Z' j( y" H) S+ n! I
6 T9 n+ c" n) ~ c, a(defun c:xx()
) j8 I( P7 X2 h2 {" ^2 [4 f4 P' h (princ "请选择需相乘的数字\n")
( v D( a t! ^2 ?3 ` (setq ss1 (ssget))
; n. F, r# l( c5 v (setq n (sslength ss1))
/ {4 J: v* {9 q# `3 E) s (setq aa1 (entget (ssname ss1 0)))8 E+ g" S( Z' g6 k' w
(setq h1 (cdr (assoc 40 aa1))) } X, ^; [/ f& n7 Y1 F
(prompt " TYPE 输出数字位数:<2") (setq ww (getint"> "))
+ @! H8 T" t, `: m+ x' ^ l (if ww (setq m ww) (setq m 2))
" m. U; v: J, s' M$ E! k. ?. b (setq pt1 (getpoint "请选择所放点(中点)\n")): k* I) |) D5 @! e7 ]! m) J1 P& l- d
(setq i 0 sum 1)% }- @! t8 f4 X4 U8 u
(repeat n, {* ?3 O3 e. k, I# w+ u
(setq pname (ssname ss1 i))
' _/ C( C* C2 R; \ (setq ent (entget pname))
( |* p0 h; K3 v$ | (setq p0 (cdr (assoc 0 ent)))
3 |1 T A, h6 t! ]* X, _8 h (if (= p0 "TEXT")+ m- y( c! p$ _3 q6 x
(progn
. A: V- D% u3 G: F# l0 x% A (setq z (cdr (assoc 1 ent)))
' I$ O6 N/ u/ x' H" ~2 K2 n" h (setq r1 (atof z))# R/ K; f. v2 x( o; V% R
(setq sum (* sum r1))
& ?% s9 f" p2 I! F% x" N )
, t6 N' P6 R- X# w )& _5 K w$ a1 b; J# i1 w6 N
(setq i (+ i 1))% ~. I4 |; l$ n7 N
)1 V2 z$ h$ D# S, G% ~
(setq sum (rtos sum 2 m))0 F; s; K8 L9 L, b, m: [" ?
(command "text" "m" pt1 h1 "0" sum)2 e- D5 J4 p. R3 v6 {% [( g
) |
|
发表于 2008-6-10 08:13:25
楼主