chenjian2159 发表于 2010-12-14 15:42:47

自动识别方框里的数字，并求和

本帖最后由 chenjian2159 于 2010-12-14 15:43 编辑

如图：，
方框和数字不在同一个层，现在想把方框里的数字识别出来，并相加。（方框外的数字不要）。请高手帮忙写个。谢谢！

chenjian2159 发表于 2010-12-14 16:54:46

请高手帮忙写个！！！

ZZXXQQ 发表于 2010-12-14 20:12:45

本帖最后由 ZZXXQQ 于 2010-12-16 20:40 编辑


;方框内数字相加 明经 ZZXXQQ 2010.12.14
(defun c:tt ()
(if (and (princ "\n选择封闭复线 :") (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1))))) (progn
(setq i 0 sum 0)
(repeat (sslength ss)
   (setq ent (entget(ssname ss i)))
   (setq plst (list))
   (foreach x ent (if (= (car x) 10) (setq plst (cons (cdr x) plst))))
   (if (setq s1 (ssget "CP" plst '((0 . "TEXT"))))
    (setq sum (+ (atof(cdr(assoc 1 (entget(ssname s1 0)))) 2) sum))
   )
   (setq i (1+ i))
)
))
(princ "\n") (princ sum)
(princ)
)

chenjian2159 发表于 2010-12-16 21:35:16

版主，这个在一般的情况下可以用，但碰到回头和交叉的情况下就识别不出来了，识别结果为0 啊。。。

chenjian2159 发表于 2010-12-16 21:46:19

这张是回头和交叉的CAD图

chenjian2159 发表于 2010-12-17 15:21:58

坐等高手！！！

chenjian2159 发表于 2010-12-18 21:39:02

顶下，顶顶更健康！！！

yoyoho 发表于 2010-12-21 00:07:55

感谢z版分享源码,提供学习机会<谢谢 ! >

461045462 发表于 2010-12-27 21:55:08

谢谢版主的分享
收藏学习了，从中领会领会。
谢谢

XIAOQIU 发表于 2011-1-15 21:10:19

有源码吗？我怎么看不到
页: [1]
查看完整版本: 自动识别方框里的数字，并求和