版友杜昌立同志日前发一贴，问及Access与CAD之间的数据捣腾问题，因不懂CAD便也只是看看，没太在意。昨日里杜同志QQ我，非说要我给修改，解释再三，仍不罢休。无奈之下，便问询了些CAD方面的问题，看来不是太难，于是便让他传了些乱七八糟的代码，着手胡乱鼓捣了一番。

　　测试遇到了麻烦，非要去下载一个ＣＡＤ２００７才行，文件很大，２小时才算下完。用３０６检查了下，还有个广告木马，查的出删不掉，只好屏蔽。好在还能运行，便又搞了三四个小时，也就完成了。总归还是不知道怎么用ＣＡＤ，也不知道ＣＡＤ中的块是个什么东西，盲人瞎马一般写就了此例。

　　杜同志拿去测试，久未得要领，其实简单。注意两点即可，其一是操作过程保持ＣＡＤ文件打开状态，其二是字段子窗体中的新增字段需要去掉小勾勾方可将字段新增至对应的表中。杜同志进一步问，能否将ＡＣＣＥＳＳ数据表中的数据反写到ＣＡＤ块中。既然能读出，便也可以写入，只需将自定义函数insrtTb中的读出语句rs.Fields(Array1(i).TagString).Value = Array1(i).TextString，等式左右互换，便应能反写入ＣＡＤ中了，此法未试，有好事者可自行折腾。

点击下载此附件