hdlyt11 发表于 2011-6-22 16:01:09

求助：修改统计选择文本中高度种类的程序

(defun c:cnum(/ ss i e cpt pts)
(setq ss (ssget '((0 . "TEXT")))
i -1)
(while (setq e (ssname ss (setq i (1+ i))))
    (setq cpt(cdr(assoc 40 (entget e))))
    (if(not(member cpt pts))
      (setq pts(cons cpt pts))
    )
)
   (princ "\n选择的文本中高度种类个数：")
      (princ (length pts))
)
这段程序运行后，明明有两种高度，却显示22，不知道应该怎么改？请大家帮忙，多谢了

zyhandw 发表于 2011-6-22 16:13:05

最后两个princ语句的返回值都是2，所以得到22喽

LLXXZZ 发表于 2011-6-22 18:10:25

    (princ "\n选择的文本中高度种类个数：")
      (princ (length pts))
;后增加
(princ );消除回显

hdlyt11 发表于 2011-6-23 09:10:25

能不能给补充个功能，就是能知道都是哪些高度？

hdlyt11 发表于 2011-6-24 08:55:23

问题解决了，多谢
页: [1]
查看完整版本: 求助：修改统计选择文本中高度种类的程序