LISP不按线型过滤

Rooster · 发表于 2022-7-6 12:18:32

有人能看一下下面的Lisp程序，告诉我为什么它什么都没说？在我的图形中，有一些对象的线型是我试图选择的，但它已经到了LISP的末尾，并且说“找不到任何东西”。有谁能看出出了什么问题吗？

(defun c:fhl(/ cSet)
 (setq cSet(ssget
              '((6 . "#RVeg"))
            ); end ssget
); end setq
 
 (if cSet
   (progn
     (princ(strcat "\n" (itoa(sslength cSet)) " found."))
     (sssetfirst nil cSet)
     ); end progn
    (princ "\nNothing found. ")
   ); end if
 (princ)
 ); end of c:fhl