用法
评论
建议
取 消
确 定
(defun xdata:delete (ename / lst) "删除图元的扩展数据" (cond ((p:enamep ename) (entmod (list (cons -1 ename) (cons -3 (mapcar (quote list) (mapcar (quote car) (cdr (assoc -3 (entget ename (quote ("*"))))))))))) ((p:listp ename) (mapcar (quote xdata:delete) ename)) ((p:picksetp ename) (mapcar (quote xdata:delete) (pickset:to-list ename)))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新