将选择的数字相加

maoyangmy

将选择的数字相加
( C5 c9 B# u! i0 L: \8 X& j7 ?
(defun c:j()
9 ^  G+ |" Q" {  B  y. C" J% N3 U7 k (princ "请选择需相加的数字\n")
5 z4 K, z7 W$ {0 o% d4 [+ R, g (setq ss1 (ssget))
(setq n (sslength ss1))
(setq aa1 (entget (ssname ss1 0)))
(setq h1 (cdr (assoc 40 aa1)))
(prompt "请您输入数字位数:<2") (setq ww (getint"> ："))   
. r' v* u* @2 A- }" |) M (if ww (setq m ww) (setq m 2))
: u# V* M4 \5 t, h' k# g% B$ I' S (setq pt1 (getpoint "请选择所放点\n"))
(setq i 0 sum 0)
2 t5 U) C$ I  C: g& S  u! _ (repeat n
5 U" Y8 I6 o0 a" m% R   (setq pname (ssname ss1 i))
   (setq ent (entget pname))
& P4 f* Q5 L/ P" J0 j   (setq p0 (cdr (assoc 0 ent)))
   (if (= p0  "TEXT")
     (progn
5 V1 ?4 a0 ?8 T8 X- Q. X      (setq z (cdr (assoc 1 ent)))
5 b' R5 Z; O) B- e8 Z( G5 n. r/ T5 x      (setq r1 (atof z))
      (setq sum (+ sum r1))
     )
) P5 E2 ?! {1 P, J% g( }   )
5 Z8 M2 }( |0 R" t8 v   (setq i (+ i 1))
2 t0 @" Z5 _0 f" x6 o  )
(setq sum (rtos sum 2 m))
(command "text" "m" pt1 h1 "0" sum)
0 K" F( \6 J* R: Z7 _1 i9 @' h)

maoyangmy

使用方法是将上述源代码存为文本文件，再将后缀改为LSP，在CAD中调用该文件，然后执行"J"命令即可

zhaozhitu

很好，挺好用的。顶一下。
1 Q- u5 J! ?5 g; G8 [) s$ Y- v" {3 I(prompt "请您输入数字位数:<2") (setq ww (getint"> ："))   
上面代码最好改成(prompt "请您输入数字位数:<2>") (setq ww (getint))   
0 C: S% a+ j, n( S, }9 b否则会有点乱码。

一粒色

为何我算出的数都为0

xiaojinidvcn

此程序是不能实用的。如果字符有多种字体或者有多种大小等都会产生错误的。