ug图转换为auto cad图的方法.doc
ug图转换为auto cad图的方法.txt如果有来生,要做一棵树,站成永恒,没有悲伤的姿势。一半在土里安详,一半在风里飞扬,一半洒落阴凉,一半沐浴阳光,非常沉默非常骄傲,从不依靠从不寻找。ug中 1) 在UG中,打开要转换的零部件,进入Drafting,选择要转换的图 纸名称。
(2) 选择File-Export-CGM,这时出现输入CGM文件名称的对话框,
要求
对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗
用户指定一个文件名称 ,输入文件名filename(扩展名可以 不输入,系统会自动加上)后,再OK。
(3) 这时出现转换设置对话框,先在图形窗口中使用Fit,确信 要转换的
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
全部出现在图 形窗口中;再按下面设置对话框中 各选项:
source: display
CGM size: scale factor 1
pen selection: width
text selection: polyline(必须设置,否则不能显示中文)
CD coordinates: real
fonts: 4 cals
然后OK,这样就生成了CGM文件。
(4) 选择File-New新建一个文件Newname。
(5) 在新文件中选择File-Import-CGM
(6) 这时出现选择CGM文件对话框。选择先前所建立的CGM文件,并OK,这时先前生成的 CGM文件被引入到当前的文件中。
(7) 选择File-Export-DXF/DWG,出现转换设置的对话框。按下面设置对话框中 各选项: source specification method: select from displayed part
按class select按纽,选择图形窗口中的所有内容;
specify output file: 选DWG
按specify DWG file按纽,指定DWG文件名称,缺省为新建文件的名 称,其扩展名为DWG。 如要转换到R14版(默认为2000版)可按modify settings按纽,然后按adanced settings按纽,选择R14版即可,选择OK,OK,这样就生成了DWG文件。
(8) 将生成的DWG文件拷贝到安装有AUTOCAD或其它二维CAD软件的计算机上,再运行 AUTOCAD,你可以看到打开的图形和UG-Drafting中的 图形完全一样,没有任何图信息丢失。
Give you an example
Sub SelectCurve(ByRef selectedObject As NXObject, ByRef helpPoint As Point3d)
Dim theui As UI = ui.GetUI
Dim message As String = "Select curve"
Dim title As String = "Selection"
Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart Dim keepHighlighted As Boolean = True
Dim includeFeatures As Boolean = True
Dim response As Selection.Response
Dim selectionAction As Selection.SelectionAction =
Selection.SelectionAction.ClearAndEnableSpecific
response = ui.SelectionManager.SelectObject(message, title, scope, false, false, selectedObject, helpPoint)
If response = Selection.Response.Cancel Or response = Selection.Response.Back Then Return
End If
End Sub
该程序可以run的,你不妨试试