[求助]关于字体的字符串到底怎么提取呀？老师请指教。

xstlf

下面是我自己编的一段有问题的查找字符串的小函数。字体里字符串的概念不懂呀。老师请指教。多谢，顺便祝大家元旦快乐！！ (defun c:mctj ()
(setq mctj_s (ssget '((0 . "text"))))
(setq n (sslength mctj_s))
(setq i 0 num 0)
(setq mctj_txt (getstring "\n输入要查找的门窗编号："))
(while (< i n)
(setq txt (assoc 1 (ssname mctj_s i)))
(if (= mctj_txt txt)
(setq num (+ num 1))
)
(setq i (+ i 1))
)
(princ "\n门窗"mctj_tst"的数量为(rtos num 2 0)")
(princ)
)

honboo

“TEXT”是不是 就只有编号，还是编号只是“TEXT”的一部分？


编号有统一的关键字没有？

lockmyeye

上面的程序相当于 (setq mctj_txt (getstring "\n输入要查找的门窗编号："))
(setq mctj_s (ssget (list '(0 . "text")(cons 1 mctj_txt))));更多的内容请看ssget的帮助，以及有关通配符的知识。 可是跟字体一点关系都没有啊。

ZZXXQQ

这儿错了！



(setq txt (assoc 1 (ssname mctj_s i)))


应改为：


(setq txt (cdr (assoc 1        (entget (ssname mctj_s i)))))

xyp1964

试试这个：

2. (defun c:mctj (/ ss i num mctj_txt s1 txt nums)
3.    (setq  ss   (ssget '((0 . "TEXT")))
4.   i   -1
5.   num   0
6.   mctj_txt (strcase (getstring "\n输入要查找的门窗编号："))
7.    )
8.    (princ "ok1")
9.    (while (setq s1 (ssname ss (setq i (1+ i))))
10.        (setq txt (strcase (dxf 1 (entget s1))))
11.        (if  (= mctj_txt txt)
12.            (setq num (1+ num))
13.        )
14.    )
15.    (setq
16.        nums (strcat "门窗 " mctj_txt " 的数量为 " (rtos num 2 0) " 。")
17.    )
18.    (princ "\n")
19.    (princ nums)
20.    (princ)
21. )
22. (defun dxf (code elist) (cdr (assoc code elist)))

(defun c:mctj (/ ss i num mctj_txt s1 txt nums)    (setq  ss   (ssget '((0 . "TEXT")))   i   -1   num   0   mctj_txt (strcase (getstring "\n输入要查找的门窗编号："))    )    (princ "ok1")    (while (setq s1 (ssname ss (setq i (1+ i))))        (setq txt (strcase (dxf 1 (entget s1))))        (if  (= mctj_txt txt)            (setq num (1+ num))        )    )    (setq        nums (strcat "门窗 " mctj_txt " 的数量为 " (rtos num 2 0) " 。")    )    (princ "\n")    (princ nums)    (princ) ) (defun dxf (code elist) (cdr (assoc code elist)))

ZZXXQQ

其实三楼的两行LISP语句就能达到楼主的要求，不用写那么复杂。

xstlf

谢谢楼上的各位老师，不但帮我解决了门窗统计的事，也让我学了一招..每人一朵鲜花，作为元旦贺礼，呵呵，再次谢谢。