将选择的数字相加

maoyangmy

将选择的数字相加
' @- ?, l0 z& q
6 E* d# P3 U3 E" `3 O(defun c:j()
& I; Y4 m, X( C: }$ u8 K (princ "请选择需相加的数字\n")
  F9 X+ ~* I% s (setq ss1 (ssget))
6 A  }( f: W( H, W! O5 s. E (setq n (sslength ss1))
# j: h% P& e3 G2 T- \/ N (setq aa1 (entget (ssname ss1 0)))
7 v" e/ `: N. E+ l/ ?- |8 F4 \! } (setq h1 (cdr (assoc 40 aa1)))
/ \0 v$ J( e* V( t: @* D (prompt "请您输入数字位数:<2") (setq ww (getint"> ："))   
(if ww (setq m ww) (setq m 2))
. M! T1 N8 x1 i: }! z) K (setq pt1 (getpoint "请选择所放点\n"))
(setq i 0 sum 0)
4 _; q- W  }# c# P0 V4 v (repeat n
   (setq pname (ssname ss1 i))
* G* v9 K" _9 Y% i: K& s   (setq ent (entget pname))
  N; B0 h( a: I# K9 v4 j. t   (setq p0 (cdr (assoc 0 ent)))
( k( W+ c$ T. p   (if (= p0  "TEXT")
     (progn
      (setq z (cdr (assoc 1 ent)))
      (setq r1 (atof z))
      (setq sum (+ sum r1))
+ t; h! M. ]7 m! v3 c     )
: N& b6 F. i" d: C   )
8 a% ~7 c7 m. A. O7 W8 I   (setq i (+ i 1))
  N' J; G7 ]! Q+ ~1 T/ }  )
(setq sum (rtos sum 2 m))
5 ?) \# c& w0 c- ~9 ]0 z (command "text" "m" pt1 h1 "0" sum)
% y2 S+ p5 ^: c3 a)

maoyangmy

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

zhaozhitu

很好，挺好用的。顶一下。
/ s2 y6 S+ }7 o  t1 c(prompt "请您输入数字位数:<2") (setq ww (getint"> ："))   
上面代码最好改成(prompt "请您输入数字位数:<2>") (setq ww (getint))   
) H) z2 z/ s. w8 q( B否则会有点乱码。

一粒色

为何我算出的数都为0

xiaojinidvcn

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