请教如何在DWG中保存设计数据

SWAYWOOD · 发表于 2004-2-22 20:56:00

各位斑竹，请问如何将一些设计数据，比如：设备直径、设备高度、采用的接管的管标号等等这些公用信息以非图形数据的型式保存在DWG中，因为该数据可能比较多，而且每张图须记录的数据会不一样，自定义系统变量可能无法满足要求，还望各位不吝赐教！

cy956 · 发表于 2004-2-22 22:01:00

通常记录的方式有：外部数据文件，xdata，xrecord，ldata。。。。之类，你用关键字搜搜。

meflying · 发表于 2004-2-22 22:02:00

使用词典

SWAYWOOD · 发表于 2004-2-22 22:12:00

我知道要用词典，帮助文件看得不太懂，飞哥有没有简单的例子供小弟学习一下啊！多谢了！

SWAYWOOD · 发表于 2004-2-23 20:54:00

飞哥，你随便发一个过来也会让小弟受益匪浅啊！
wuziwei@morimatsu.88ip.net
是我的邮箱，多谢了！

meflying · 发表于 2004-2-24 13:55:00

先用put函数，选择一个圆，然后用get函数，还选这个圆
(defun Put( / ent pt)
   (setq ent (car (entsel "select a circle...")))
   (setq pt (cdr (assoc 10 (entget ent))))
   (vlax-ldata-put "ThisDrawing" "Info" "\nThis drawing include a circle\n")
   (vlax-ldata-put ent "name" "This is a circle")
   (vlax-ldata-put ent "center" pt)
)
(defun Get( / ent pt str)
   (setq ent (car (entsel)))
   (setq pt (cdr (assoc 10 (entget ent))))
   (setq str (vlax-ldata-get "ThisDrawing" "Info"))
   (setq str (strcat str (vlax-ldata-get ent "name")))
   (setq pt (vlax-ldata-get ent "center"))
   (princ str)
   (princ (strcat ",Center is:" (rtos (car pt)) "," (rtos (cadr pt)) "," (rtos (last pt))))
   (princ)
)

meflying · 发表于 2004-2-24 14:29:00

看看这个
http://www.cadstudy.net/show.asp?id=1351

SWAYWOOD · 发表于 2004-2-24 19:52:00

多谢飞哥！

请教如何在DWG中保存设计数据

发表回复

精选推荐