lisp读写cass属性_怎么用lisp代码提取cass属性

展开全部

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

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即可。