哪位朋友能帮帮忙？

whm2216

我们小组正在做一住宅小区设计，其中几栋高层住宅很特别，每栋错开一层，每户都是错层的，而且还有平层在某些层，这样造成很多不同类型门窗，要数起来相当费时间。以下程序是你帮忙写的，已经很好了，但我还有个“再好一点”的要求：（1）点选该图层的某字体如门“M1”后，（2）再窗选某区域（同图层的有“M2”、“M3”“MC1”“C1”等等)，（3）统计出所有字体的数量（M1的多少，M2的多少...)。谢谢！ (defun c:NN()
(setq ent(car (entsel "\n选择要筛选的字体: ")))
(redraw ent 3)
(setq tex(cdr (assoc 1 (entget ent))))
(prompt "选择要筛选的区域....")
(setq ss(ssget (list '(0 . "TEXT") (cons 1 tex))))
(redraw ent 4)
(setq len (sslength ss))
(print (strcat "数量:" tex "总共有" (rtos len)))
(princ)
)

whm2216

LJpnb您好!请再帮忙!

whm2216

哪位朋友能帮帮忙？谢谢！

maomao2004

这个程序不能完成要求吗？我看可以呀？


还试你的目的没表达清楚呢