Add extended data for 3d solid

[DuanJinHui]

Hello friends

 

Inventor and solidworks draw 3D parts , can give this parts naming.

But Sometimes I use AutoCad draw 3D solid ,Can't give this 3d solids naming.

 

I hope use "XDATA" , add extended data for these 3d solids. Have such a routine ?

 

Extended data only some string ,

For example,

Name: Air cylinder

type: Festo DNC-32-25-PPV-A

Description: Suppliers etc.

[Pablo Ferral]

To mimic the way that inventor works in AutoCAD.

 

Either

 

Add the meta data as DWGprops and then x-ref your part models into an assembly DWG file...

 

Or

 

Turn each part model into a block and use attributes to hold the meta data.

 

You can then use Dataextraction to create a BOM table.

 

Does that help?

 

Paul

[DuanJinHui]

To mimic the way that inventor works in AutoCAD.

 

Either

 

Add the meta data as DWGprops and then x-ref your part models into an assembly DWG file...

 

Or

 

Turn each part model into a block and use attributes to hold the meta data.

 

You can then use Dataextraction to create a BOM table.

 

Does that help?

 

Paul

 

Paul . you mean :make attribute blocks with 3D solid ?

[DuanJinHui]

I found some information .

LeeMac at theswamp. Thanks Lee.

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