为三维实体添加扩展数据
你好，朋友们Inventor和solidworks绘制三维零件，可以给该零件命名。
但有时我用AutoCad绘制三维实体，不能给这个三维实体命名。
我希望使用“扩展数据”，为这些三维实体添加扩展数据。有这样的例行公事吗？
扩展数据只有一些字符串，
例如
名称：气缸
类型：Festo DNC-32-25-PPV-A
描述：供应商等。 模仿inventor在AutoCAD中的工作方式。
任何一个
将元数据添加为DWGprops，然后将零件模型x-ref到部件DWG文件中。。。
或
将每个零件模型转化为一个块，并使用属性保存元数据。
然后可以使用数据提取创建BOM表。
这有帮助吗？
保罗
保罗。你的意思是：用三维实体制作属性块？ 我找到了一些信息。
李·麦克在theswamp。谢谢李。
(defun cd:xdt_getxdata ( ent app )
(cdr (assoc -3 (entget ent (list (cond (app) ("*"))))))
)
(defun cd:xdt_putxdata ( ent app lst )
(regapp app)
(entmod (reverse (cons (list -3 (cons app lst)) (reverse (entget ent)))))
)
(defun cd:xdt_removexdata ( ent app / lst )
(if (setq lst (cdr (assoc -3 (entget ent (list (cond (app) ("*")))))))
(entmod (list (cons -1 ent) (cons -3 (mapcar 'list (mapcar 'car lst)))))
)
)
(cd:xdt_putxdata (car (entsel))"Remark" '((1001 . "Remark") (1000 . "Air cylinder")(1000 . "DNC-32-25-PPV-A")(1000 . "Festo")))
(cd:xdt_getxdata (car (entsel)) "Remark")
页:
[1]