用法
评论
建议
取 消
确 定
(defun xdata:put (appid ename lst / lst1 x) "向图元 ename 附加扩展数据 lst" (dedata ename) (setq lst1 (quote nil)) (foreach x lst (setq lst1 (cons (get_tile x) lst1))) (setq lst1 (reverse lst1)) (regapp appid) (entmod (append (entget ename) (list (list -3 (list appid (cons 1000 (lst2str1 lst1))))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 772 个
函数库类别: 54 种
上传记录
刷新