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

LISP不按线型过滤

有人能看一下下面的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

CarlB 发表于 2022-7-6 13:16:07

该例程不会选择以下对象:;
 
-用户未选择
-具有“bylayer”线型

Rooster 发表于 2022-7-6 13:40:10

 
我试图选择的对象的线型设置为#RVeg(而不是bylayer)。我还为我在图纸中的选择键入了“ALL”,所以我不明白为什么它不会把它们捡起来。
页: [1]
查看完整版本: LISP不按线型过滤