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

答案:2 悬赏:80 手机版

解决时间 2021-04-02 18:34

提问者网友：咪咪
2021-04-01 19:19

最佳答案

五星知识达人网友：一袍清酒付
2021-04-01 19:49

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

全部回答

1楼网友：执傲
2021-04-01 20:23

;; 支持写入扩展数据例子: (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)
)

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息