将选择的数字相加

maoyangmy

将选择的数字相加
2 A. O" h! X  ?7 T% {
) S% p# r4 j" c; K4 Q5 ~(defun c:j()
(princ "请选择需相加的数字\n")
(setq ss1 (ssget))
(setq n (sslength ss1))
9 w- t: w/ q! h) H" B$ @ (setq aa1 (entget (ssname ss1 0)))
(setq h1 (cdr (assoc 40 aa1)))
) k3 N7 C" J/ H0 X+ Z( h( U+ _% E (prompt "请您输入数字位数:<2") (setq ww (getint"> ："))   
* s3 _6 I4 E4 h5 C5 b0 j2 o/ @( h; s2 v- b (if ww (setq m ww) (setq m 2))
(setq pt1 (getpoint "请选择所放点\n"))
(setq i 0 sum 0)
(repeat n
; z; K1 v! ~: @. |8 W8 N" V6 `   (setq pname (ssname ss1 i))
  y5 s9 b- j2 [& o; ~/ P1 Y( R. U   (setq ent (entget pname))
   (setq p0 (cdr (assoc 0 ent)))
) G2 y7 `4 A" ^2 B   (if (= p0  "TEXT")
" e" L. w, J! p/ m" Q     (progn
      (setq z (cdr (assoc 1 ent)))
      (setq r1 (atof z))
      (setq sum (+ sum r1))
     )
   )
# _- t- a) u4 ~6 t   (setq i (+ i 1))
' K! R0 e1 ~7 o: y  )
(setq sum (rtos sum 2 m))
; M: X2 r1 }/ C) H* | (command "text" "m" pt1 h1 "0" sum)
)

maoyangmy

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

zhaozhitu

很好，挺好用的。顶一下。
8 \: Y- r0 i' j9 r(prompt "请您输入数字位数:<2") (setq ww (getint"> ："))   
上面代码最好改成(prompt "请您输入数字位数:<2>") (setq ww (getint))   
- t# V8 d! ^7 e/ d- Z4 ]! ^/ I否则会有点乱码。

一粒色

为何我算出的数都为0

xiaojinidvcn

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