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

hdlyt11

(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

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

LLXXZZ

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

复制代码

hdlyt11

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

hdlyt11

问题解决了，多谢