Question

怎么用lisp代码提取cass属性

Answer 1

你指的是否CASS的地物编码？如果是就好办了。

CASS把地物编码储存在名为SOUTH的扩展数据里。获取扩展数据可用ENTGET搭配扩展数据名称来获取。

如下：

(defun $getCASSProperty(#elementName / @ElementList @CASSAppList @CASSProperty)
    (setq @ElementList
        (entget #elementName '("SOUTH"))
    )
   (setq @CASSAppList (assoc -3 @ElementList))
   (setq @CASSProperty (cdr(cadadr @CASSAppList)))
   (if (not @CASSproperty)
       (princ "\n该图元CASS属性不存在。")
       (princ (strcat "\nCASS属性为：" @CASSProperty))
     )
)

定义函数$getCASSProperty获取指定图元的CASS属性，如果要做成CAD命令，再加上以下：

(defun c:GCASS(/ @myElement)
    (setq @myElement (car(entsel "\n选择需要获取CASS属性的图元：")))
    ($getCASSProperty @myElement)
    (princ)
)

之后用CAD命令GCASS即可。