为三维实体添加扩展数据

DuanJinHui · 发表于 2022-7-5 18:38:09

你好，朋友们

Inventor和solidworks绘制三维零件，可以给该零件命名。
但有时我用AutoCad绘制三维实体，不能给这个三维实体命名。

我希望使用“扩展数据”，为这些三维实体添加扩展数据。有这样的例行公事吗？

扩展数据只有一些字符串，
例如
名称：气缸
类型：Festo DNC-32-25-PPV-A
描述：供应商等。

Pablo Ferral · 发表于 2022-7-5 19:01:44

模仿inventor在AutoCAD中的工作方式。

任何一个

将元数据添加为DWGprops，然后将零件模型x-ref到部件DWG文件中。。。

或

将每个零件模型转化为一个块，并使用属性保存元数据。

然后可以使用数据提取创建BOM表。

这有帮助吗？

保罗

DuanJinHui · 发表于 2022-7-5 19:28:39

保罗。你的意思是：用三维实体制作属性块？

DuanJinHui · 发表于 2022-7-5 19:57:08

我找到了一些信息。
李·麦克在theswamp。谢谢李。

copy


(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)))))
   )
)

copy


(cd:xdt_putxdata (car (entsel))"Remark" '((1001 . "Remark") (1000 . "Air cylinder")(1000 . "DNC-32-25-PPV-A")(1000 . "Festo")))

copy

(cd:xdt_getxdata (car (entsel)) "Remark")

[编程交流] 为三维实体添加扩展数据

发表回复

精选推荐