请问如何根据图层名进行运算。。。

enixing

  (setq sse (ssget '((8 . "lap,lay"))))
取得几个分辨用图层lap，lay画出的图。
然后
如果是lap的，求出他的面积，如果是lay的，把他的面积除以2，请问，应该怎么处理。。。

zml84

楼主怎么到处游击？
分别获取，分别处理。

enixing

开始以为容易解决，发现混到选择集的判断有不行了，才这样。。。

下面的是我写的，效果跟我需要的一样，大家参考参考～～

(defun c:jj ()
  (vl-load-com)
  (setq sse (ssget '((8 . "lap,lay"))))
  (setq ar 0
 d  0
  )

  (repeat (sslength sse)
    (setq ename (ssname sse d))
    (setq obj (vlax-ename->vla-object ename))
    (setq tem (vla-get-area obj))

    (if (= (cdr (assoc 8 (entget (ssname sse d)))) "LAY")
      (progn
 (princ "阳台")
 (setq ar (+ ar (/ tem 2)))
 (princ "\n\r")
      )
    )
    (if (= (cdr (assoc 8 (entget (ssname sse d)))) "LAP")
      (progn
 (princ "套内")
 (setq ar (+ ar tem))
 (princ "\n\r")
      )
    )

    (setq d (1+ d))
  )
  (princ "建筑面积：")
  (princ ar)
  (princ "\n\r")
)