写了个统计文字的lisp入门程序

jicqj · 发表于 2011-10-26 20:03

本帖最后由 jicqj 于 2011-11-6 09:23 编辑

;;本程序作为入门程序  缺少相同文字坐标位置重叠的判断
;;本程序用于设计图纸中相同标注的统计
(defun c:TT( / TextName )
(setq TextName (getstring "\n 请输入要查找的文字:"))
(while (= TextName "")
(alert "请在命令行输入文字!")
(setq TextName (getstring "\n 请输入要查找的文字:"))
)
(princ "\n \n \n [左键]框选查找区域 ")
(setq    pt1 (getpoint " 先选择第一个角点 :")
         pt2 (getcorner pt1 "\n再选择第二个角点 :")
   )
(command "zoom" pt1 pt2)
   (setq
         ss (ssget "W" pt1 pt2 (list '(0 . "*TEXT") (cons 1 TextName)))
      )
(command "zoom" "p")
(if ss
   (progn
         (princ
(strcat "\n 共计: " (itoa (sslength ss)) " 个 " TextName " 文字对象.")
   )
   );;progn
   (princ
      (strcat "\n 未找到 " TextName " 文字对象.")
   )
   );if
   (princ)
)

1548845899 · 发表于 2011-10-26 21:16

提示: 作者被禁止或删除内容自动屏蔽

VBALISPER · 发表于 2011-10-26 22:41

到底是统计字数,还是查找文字?

cabinsummer · 发表于 2011-10-27 07:58

查找包含目标文字的文本个数吧。假如一个文本包含目标文字有多处，你的程序只显示有一处。

jicqj · 发表于 2011-10-27 08:48

cabinsummer 发表于 2011-10-27 07:58
查找包含目标文字的文本个数吧。假如一个文本包含目标文字有多处，你的程序只显示有一处。

呵呵多谢检测。让版主费心了。

cabinsummer · 发表于 2011-10-27 20:30

jicqj 发表于 2011-10-27 08:48
呵呵多谢检测。让版主费心了。

去看看我的帖子http://bbs.mjtd.com/thread-89647-1-1.html

nlsh · 发表于 2011-10-29 23:02

作为新手，好好学习一下思路吧

gbhsu · 发表于 2011-10-29 23:25

有进步，顶一个！

jicqj · 发表于 2011-10-29 23:43

gbhsu 发表于 2011-10-29 23:25
有进步，顶一个！

呵呵

午后的猫 · 发表于 2012-2-9 20:40

呵呵，有待改进啊

账号		自动登录	找回密码
密码			注册

写了个统计文字的lisp入门程序

本帖被以下淘专辑推荐:

相关帖子

1548845899 1548845899 当前离线积分 1588 明经币个注册时间 2010-11-12 在线时间小时威望金钱个贡献激情	发表于 2011-10-26 21:16 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡