求助，ssget能不能按照填充图案名构件选择集

smile365408137

假设有一堆填充图案不一样的封闭图形，我想统计所有solid填充的面积和


感觉是组码不对，附半成品：
(defun c:gg()
(setq ss (   ssget     '(   (-4 . "<and")(0 . "hatch") (2 . "solid") (-4 . "and>")   )          )   )
(if (= ss nil) (exit))
(setq len (sslength ss) i 0 k 0)
(while (< i len)
(progn
     (setq en (ssname ss i))
(command "._AREA" "O" en)
(setq en  (getvar "area"))
(setq en  (/ en 1000000.0))
(setq k  (+ en k))
(setq i (1+ i))
  )   ;end while progn
)  ;end while
(setq k  (rtos k 2 3))
(command "text" pause  2500 0  k )
(princ)
)

taoyi0727

(if (setq ss (ssget '((2 . "SOLID"))))
(progn
  (setq Area 0)
  (while (setq name (ssname ss 0))
   (setq Area (+ Area (vla-get-Area (vlax-ename->vla-object name))))
   (ssdel name ss)
  )
  (/ Area 1000000)
)
)

smile365408137

taoyi0727 发表于 2020-10-23 20:06
(if (setq ss (ssget '((2 . "SOLID"))))
(progn
  (setq Area 0)

感谢，明白了，原来是大写小问题

mokson

smile365408137 发表于 2020-10-24 14:24
感谢，明白了，原来是大写小问题

我范糊涂了，lisp 变量区分大小写吗？不会吧。

smile365408137

mokson 发表于 2020-10-24 15:51
我范糊涂了，lisp 变量区分大小写吗？不会吧。

图案的名字区分的

zhangsheng534

感谢源码，收藏学习