想要一个将CAD平面图导入solidworks 草图中 并以相同名称保存为零件

工作中有许多2D要转3D，根据CAD 2D平面图，导入SOLIDWORKS草图中，再做相应的拉伸切除操作，最后转化为3D ，其中要做相应的选项如图红线标注所示

自己顶一下

文件可否上传

我认为这个插入同名DWG为草图的宏更实用。

1. ' macro recorded on 05/28/16 by pyczt
   
2. ' Preconditions:条件
   
3. ' 1. Open a part.打开一个零件
   
4. ' 2. Replace path_name with the pathname of an existing DXF/DWG file.同路径下有同名DWG文件
   
5. ' 3. Select a plane or face on which to insert the DXF/DWG image.选择面
   
6. '
   
7. ' Postconditions:
   
8. ' 1. The DXF/DWG image is added as a sketch. 自动插入DWG，形成草图
   
9. '如果有单位问题，可以方法2进行，分解图块问题还没解决，单位改了，块的位置有可能有问题
   
10. ' ******************************************************************************
    
11. Dim swApp                   As SldWorks.SldWorks
    
12. Dim swModel                 As SldWorks.ModelDoc2
    
13. Dim sPathName               As String
    
14. Dim DxfDwgImportData        As SldWorks.ImportDxfDwgData
    
15. Sub main()
    
16. 
    
17. Set swApp = Application.SldWorks
    
18. Set swModel = swApp.ActiveDoc  '设定当前SW文档
    
19. sPathName = swModel.GetPathName        '读取当前SW文档名(含路径)
    
20.     sPathName = Left(sPathName, Len(sPathName) - 6) + "dwg"               '提取当前SW文件名加后缀名
    
21. '***********************************************************************************
    
22. 'Set DxfDwgImportData = swApp.GetImportFileData(sPathName)     这些是InsertDwgOrDxfFile2中采用
    
23. 
    
24. 'Unit单位设定
    
25.    ' DxfDwgImportData.LengthUnit("") = SwConst.swLengthUnit_e.swMM
    
26. 'Position坐标点设定
    
27.    ' bRet = DxfDwgImportData.SetPosition("", swDwgEntitiesCentered, 0, 0)
    
28. 'Sheet scale比例设定
    
29.     'bRet = DxfDwgImportData.SetSheetScale("", 1#, 2#)
    
30. 'Paper size图纸大小
    
31.    ' bRet = DxfDwgImportData.SetPaperSize("", SwConst.swDwgPaperSizes_e.swDwgPaperAsize, 0#, 0#)
    
32. 'Import method :  Import this sheet (layout) into an existing part输入方式
    
33.     'DxfDwgImportData.ImportMethod("") = swImportDxfDwg_ImportMethod_e.swImportDxfDwg_ImportToExistingPart
    
34. 
    
35. Dim myFeature As Object
    
36. 'Set myFeature = swModel.FeatureManager.InsertDwgOrDxfFile2(sPathName, DxfDwgImportData)
    
37. 
    
38. Set myFeature = swModel.FeatureManager.InsertDwgOrDxfFile(sPathName)
    
39. swModel.SketchManager.InsertSketch True
    
40. End Sub

复制代码

附件dwg与想要的零件结果

pyczt 发表于 2020-5-12 08:20
我认为这个插入同名DWG为草图的宏更实用。

谢谢了大神，其他的都没有问题，就是感觉比例上出现了问题，70mm转化后变成700mm了

wutong490 发表于 2020-5-10 23:16
文件可否上传

这是要转化的DWG图和转化好的大致结果