将选择的数字相加

maoyangmy

将选择的数字相加
# j$ H- ?: @9 J0 W6 g: K
7 H5 U8 F7 \9 K& a1 S0 K5 S. Z(defun c:j()
9 B6 ~, q& \1 K, K, {2 b) {1 ^- C (princ "请选择需相加的数字\n")
(setq ss1 (ssget))
9 e' C( E( g2 j3 o# V1 a, ~ (setq n (sslength ss1))
* l% D5 x3 U  Y: J' s (setq aa1 (entget (ssname ss1 0)))
, J: P, K( ?& K) s) l/ j (setq h1 (cdr (assoc 40 aa1)))
(prompt "请您输入数字位数:<2") (setq ww (getint"> ："))   
: L) t  ~6 r2 O( S2 E (if ww (setq m ww) (setq m 2))
+ w; t( X# {8 e- ^$ Q (setq pt1 (getpoint "请选择所放点\n"))
; M' Z( F. Y4 K! l; K2 G/ w5 n6 p (setq i 0 sum 0)
(repeat n
   (setq pname (ssname ss1 i))
! k' G# L. L. z1 y; P" o. i   (setq ent (entget pname))
1 L1 W$ V! c6 \  u' T$ u  K   (setq p0 (cdr (assoc 0 ent)))
   (if (= p0  "TEXT")
     (progn
      (setq z (cdr (assoc 1 ent)))
: a  |% d" v  ^# b- g: M      (setq r1 (atof z))
' G  k' w4 f3 m5 f! A5 g' C      (setq sum (+ sum r1))
     )
   )
" ]1 p2 ?1 O, \4 N3 o+ c2 y   (setq i (+ i 1))
5 l8 b" Z4 g: P  ]$ p  )
, ?7 E* g5 E" s, l (setq sum (rtos sum 2 m))
(command "text" "m" pt1 h1 "0" sum)
# o% h4 U* P& J0 Q)

maoyangmy

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

zhaozhitu

很好，挺好用的。顶一下。
; [) ]% F: z! h6 C: m% {/ r7 i(prompt "请您输入数字位数:<2") (setq ww (getint"> ："))   
5 i/ C) P9 ?- v1 y1 U上面代码最好改成(prompt "请您输入数字位数:<2>") (setq ww (getint))   
6 F! ^3 d1 O+ A9 G+ l否则会有点乱码。

一粒色

为何我算出的数都为0

xiaojinidvcn

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