将选择的数字相加

maoyangmy

将选择的数字相加
/ r7 ^, u- H) }* Q1 f
- w7 }8 n% f1 {7 l: C8 @(defun c:j()
7 ^, ~  b4 S; h (princ "请选择需相加的数字\n")
: g7 k- Y1 F% n1 q6 ^ (setq ss1 (ssget))
& Z# H" n" A8 {7 ^( i0 \  z (setq n (sslength ss1))
(setq aa1 (entget (ssname ss1 0)))
(setq h1 (cdr (assoc 40 aa1)))
(prompt "请您输入数字位数:<2") (setq ww (getint"> ："))   
(if ww (setq m ww) (setq m 2))
( L4 b1 X! Y& t$ E (setq pt1 (getpoint "请选择所放点\n"))
. ~% P8 ^7 V. j/ [5 @! s (setq i 0 sum 0)
(repeat n
3 c  f& X" U5 _$ z' @$ b   (setq pname (ssname ss1 i))
   (setq ent (entget pname))
) p4 v2 g2 W* M8 M+ h) O$ K, ~   (setq p0 (cdr (assoc 0 ent)))
7 G7 |5 s5 e( N; l2 j/ F. q   (if (= p0  "TEXT")
6 j3 G( }, |' K0 f0 e9 ]     (progn
      (setq z (cdr (assoc 1 ent)))
2 s: b" ^4 y6 M6 W7 M% X      (setq r1 (atof z))
      (setq sum (+ sum r1))
0 ~" v2 \1 q" g7 e" k* J     )
" k1 u7 t; b, u1 [: `2 ^8 {" n5 O4 P   )
1 \2 ]2 N- |/ I6 B   (setq i (+ i 1))
- w9 |; ^+ _+ M/ y0 d: G  )
+ u- g4 x* t$ V (setq sum (rtos sum 2 m))
' l- G3 l( @6 A  P$ z; |- C2 x (command "text" "m" pt1 h1 "0" sum)
)

maoyangmy

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

zhaozhitu

很好，挺好用的。顶一下。
(prompt "请您输入数字位数:<2") (setq ww (getint"> ："))   
, ^- n0 M$ R# e上面代码最好改成(prompt "请您输入数字位数:<2>") (setq ww (getint))   
否则会有点乱码。

一粒色

为何我算出的数都为0

xiaojinidvcn

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