[求助]：一筹莫展，绝望求援

dukefan

不知各位江湖大侠碰到过这个问题没有，我已被弄得疲惫不堪，恳请高人出手相助啊
从microstation软件生成的dwg文件，用CAD2000打开，出现提示，找不到字体，跳出替换字体对话框。。。不管如何处理，图形打开到93％后就系统死掉。
可是如果用CAD14打开，也出现找不到字体的提示，但是可以顺利把图形打开。。。
而我现在又必须要用CAD2000打开，怎么办啊？？？

tlid

试试2002吧。

dukefan

2002也不行

kytw

用R14打开后另存，再用R2000或R2002打开

民工

以前我也遇到过,当时只好重新输入文字，好在用microstation的哥们就在旁边，但是我用acad12画好以后转给他又要再输一遍，累死了，当时试过转成dxf文件好像还是不行，试试看看现在两个软件共同支持的其他格式行不行。

看漏了，如果你的R14能打开就简单了，楼上的方法就行了。

gp341

从microstation软件生成的dwg文件时 要注意某些东西时cad不支持的 比如线形和字体时最常见的问题了

caddesign

以下是我的土方法,有点麻烦

我也有这样的经验,大都是字体的问题
如果你有简体的单线字体就好办了(ms or acad)
如果你只有acad的字体,请下载下面的msj
ftp://ftp2.bentley.com/dist/sele ... en/ms07010416en.exe

利用msj将字体转成ms的rsc格式(请保存好)
并安装在ms8中

第2个步骤

下面是macro(vba)的原始码

请将MbeSetAppVariable "MODIFY", "tcb->textStyle.fontNo", 225&
中的225改成你的fontNo
运行这个MACRO(MSV81中可批次处理)
再将档案转为DWG即可


Sub main
    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint

'   送出命令
    MbeSendCommand "CHOOSE ALL "

    MbeSendCommand "MODIFY TEXT "

'   设定与对话盒相关的变数
        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.just", 0&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.viewind", 0&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.vertical", 0&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.underline", 0&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.linelength", 0&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.slant", 0&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.linespace", 0&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.width", 0&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.height", 0&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.textstyle", 0&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.font", 1&

        MbeSetAppVariable "MODIFY", "tcb->textStyle.fontNo", 225&

        MbeSetAppVariable "MODIFY", "tcb->msToolSettings.changeText.interchar", 0&

'   座标为主单位
    startPoint.x = -45.562071#
    startPoint.y = 291.591262#
    startPoint.z = 0.000000#

'   送出一资料点
    point.x = startPoint.x
    point.y = startPoint.y
    point.z = startPoint.z
    MbeSendDataPoint point, 1%
End Sub

u2u

於V8
當save as 時,選取dwg  =>  按option
其中有把microstation的 font 轉成 shx 選項

iVox

不知道这个问题解决没有，如果没有的话，我倒是有个办法，比较笨，但应该还有效。

思路如下：
只要有一个版本能打开就行了。打开他，然后通过LISP程序把TEXT实体的数据输出为文本文件。删掉那些TEXT实体，保存。然后在另一版本里用相关的另一个LISP把文本输入进来。
优点：实际使用中基本上没有什么兼容性困难，确实解决了不少问题。
缺点：这个程序我写得太早了，记得应该不支持MTEXT，更不支持图块、标注内部的文本。

如有需要，我再提供程序。

dukefan

多谢各位仗义相助，已试过kytw的办法，用14打开后另存，再用2000打开，果然成功！兴奋还没持续三秒，又傻眼了－－图是打开了，可是稍微进行几步操作，就提示“致命错误：unhandled access violation writing 0x360686ac Exception at 3300a897h".
我梢后再试试caddesign和u2u、ivox的办法

gp341

可能是你的文件有错误了 需要先修复一下 在进行转换

xiejg

建议使用wnewcp2000先转换一下,再用2000打开.
因为使用其他软件转换的dwg格式很可能是老版本的dwg格式.

sapphirele888

先用写块方式写出图形，然后在R14中保存为R12格式，再用2000打开。

cityplan

用2004试试！

kflzy

现在cad2005也出来了，也可以试一下