Question

求助！在CAD中怎样申明扩展属性的名称，我要用LISP写，可以吗？

我希望给CAD图形数据添加自己定义的扩展属性，比如：把房屋层次写入边线的扩展属性里，但是不知道怎样定义这个扩展属性的名称和方法，能用LISP 定义吗？

Answer 1

可以的，但是要用REGGAP声明；例如 (regapp "SYCAD")声明SYCAD;
(regapp "SOUTH") 声明SOUTH;这是测量绘图软件CASS的扩展属性存放名；要提取的话可用
(ENTGET enname (list "*"));其中ENNAME为对象名

Answer 2

;; 支持写入扩展数据 例子: (writeXData (car (entsel)) "Test" '((1040 . 0.25) (1041 . 0.25)))
(defun writeXData(enaEnt appName XData
/
vlaObj item key
)
(setq vlaObj (vlax-ename->vla-object enaEnt))
(setq XData (append (list (cons 1001 appName)) XData))
(setq XData
(_buildFilter
(mapcar
'(lambda (item / key)
(setq key (car item))
(if (<= 1010 key 1033)
(cons key
(vlax-variant-value (vlax-3d-point (cdr item)))
)
item
)
)
XData
)
)
)
(vla-setXData vlaObj (car XData) (cadr XData))
(prin1)
)