以下几行代码可以解决你的问题(拷到记事本存为fd.lsp,然后加载到CAD的启动组,以后查找数量就敲FD):
(defun c:FD()
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq msg "请输入要查找的文字:")
(setq df (getstring msg))
(IF (setq TXT (ssget "X" (list (cons 0 "TEXT,MTEXT") (CONS 1 DF))))
(PROGN
(setq slen (sslength TXT))
(ALERT (STRCAT "\"" DF "\"" "一共有" (itoa slen) "个"))
)
(PROGN
(ALERT "文字没找到")
)
)
(setvar "cmdecho" oce)
(princ)
)
你去OP(选项)里找找,我记得里面有重生成的东西。你可以去看下。
重生成?命令re?
想简化?选项~显示~显示精度?