|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
将所有选择的数字相乘
8 y# G s8 A+ H0 `' c
( W! y: J; h6 K( E* @* U(defun c:xx()
; D3 ]( m2 e5 [$ s# [4 V (princ "请选择需相乘的数字\n")# n$ C* m7 g( y# E9 E# s
(setq ss1 (ssget))
7 @- n# z# [: h+ Q (setq n (sslength ss1))
# T9 f _3 I9 W$ j0 W# K# b (setq aa1 (entget (ssname ss1 0)))
# P8 h" R8 j. B (setq h1 (cdr (assoc 40 aa1)))7 g: _3 X' ]2 u8 L9 ^( d
(prompt " TYPE 输出数字位数:<2") (setq ww (getint"> ")) $ l# Q3 P1 U% [% a% P4 k4 E
(if ww (setq m ww) (setq m 2))2 ~. S1 I$ C) u
(setq pt1 (getpoint "请选择所放点(中点)\n")), H: D! u. T* d" x
(setq i 0 sum 1)$ U1 w' u& F1 k
(repeat n- b0 A: G! D+ H3 i0 v9 p, z; I. |
(setq pname (ssname ss1 i)), _/ Y5 z% L' K$ `+ H1 D. q
(setq ent (entget pname))
+ ~6 G' G2 w% x9 D- F M- n$ X: w (setq p0 (cdr (assoc 0 ent)))
9 w* ?0 _& e( Z5 j# `# `9 v, U (if (= p0 "TEXT")# y3 V& O5 Y/ c. w" [( c' N
(progn0 i S& a, |& R) o( _; w
(setq z (cdr (assoc 1 ent)))" J0 O. }3 L5 p3 Z
(setq r1 (atof z))
& T1 ?- n' ^. J+ U# x) k/ R- x (setq sum (* sum r1))$ B* _1 } J( ^( K$ t
)
! U- q1 A0 W# f2 d+ w0 Z2 q )/ m' r# ?2 z3 a+ O. a6 e
(setq i (+ i 1))
" {( q3 ~( ?8 e3 g ). }* u# T2 {" N. d E9 U
(setq sum (rtos sum 2 m))9 P; x( R0 B, ~) o% Y) P- a8 g+ R) N' h
(command "text" "m" pt1 h1 "0" sum)
% @1 v8 [: C/ w* ]$ ^) |
|
发表于 2008-6-10 08:13:25
楼主