Bir AutoCAD çizimini başka bir uygulamada kullanmanız gerekiyorsa, onu belirli bir formata dönüştürmek için aşağıdaki komutu kullanabilirsiniz. İhracatyöntem.
O İhracatBu yöntem, bir AutoCAD çizimini WMF, SAT, EPS, DXF veya BMP formatına dışa aktarır. İhracatBu yöntem, girdi olarak üç değer alır: oluşturulacak yeni dosyanın adı, yeni dosyanın uzantısı ve dışa aktarılacak nesnelerin seçim kümesi.
WMF, SAT veya BMP formatına dışa aktarırken, boş olmayan bir seçim kümesi belirtmeniz gerekir. Bu seçim kümesi, çizimden dışa aktarılacak nesneleri belirtir. Seçim kümesi belirtilmezse, hiçbir şey dışa aktarılmaz ve yakalanabilir geçersiz argüman hatası oluşur.
EPS ve DXF formatlarına dışa aktarırken, Dışa Aktar seçeneği seçim kümesi argümanını yok sayar, ancak bu yine de gereklidir. Bu formatlar için çizimin tamamı otomatik olarak dışa aktarılır.
Çizimi DXF dosyası olarak dışa aktarın ve tekrar içe aktarın. #
Bu örnek, mevcut çizimde bir daire oluşturur. Ardından çizimi DXFExport.dxf adlı bir dosyaya dışa aktarır , yeni bir çizim açar ve dosyayı içe aktarır. Boş bir seçim kümesinin argüman olarak sağlandığına dikkat edin. İhracatyöntem. İhracatBu yöntem, DXF dosyası dışa aktarılırken seçim kümesi bilgilerini dikkate almaz, ancak bağımsız değişken atlanırsa sözdizimi hatası oluşur.
- AutoLISP
-
( defun c : Ch3_ImportingAndExporting () ( setq acadObj ( vlax - get - acad - object ) doc ( vla - get - ActiveDocument acadObj ) moSpace ( vla - get - ModelSpace doc ) acadPref ( vla - get - Preferences acadObj )) ;; Görsel temsil için daireyi oluşturun ( setq centerPt ( vlax - 3d - point 2 2 0 ) radius 1 ) CH3_IMPORTINGANDEXPORTING ( setq circleObj ( vla - AddCircle moSpace centerPt radius )) ( vla - ZoomAll acadObj ) ;; Boş bir seçim kümesi oluşturun ( setq sset ( vla - Add ( vla - get - SelectionSets doc ) "NEWSSET" )) ;; Geçerli çizimi AutoCAD geçici dosya dizinine bir DXF dosyası olarak dışa aktarın ( setq dxfname " DXFExport" tempPath ( vla - get - TempFilePath ( vla - get - Files acadPref )) exportFile ( strcat tempPath dxfname )) ( vla - Belgeyi dışa aktarma Dosyası "DXF" sset'i dışa aktarın ) ;; Boş seçim kümesini sil ( vla - Delete ( vla - Item ( vla - get - SelectionSets doc ) "NEWSSET" )) ;; Yeni bir çizim açın ( setq newDoc ( vla - Add ( vla - get - Documents acadObj ) "acad.dwt" )) ;; İçe aktarmayı tanımlayın ( setq importFile ( strcat tempPath dxfname ".dxf" ) insertPoint ( vlax - 3d - point 0 0 0 ) scalefactor 2 ) ;; Dosyayı içe aktar ( vla - Import newDoc importFile insertPoint scalefactor ) ( vla - put - ActiveDocument acadObj newDoc ) ;; Belge henüz güncel olmayabileceği için vla - ZoomAll yerine vla - PostCommand kullanılıyor ( vla - PostCommand newDoc "_zoom a " ) )
- VBA (Sadece AutoCAD için)
-
Sub Ch3_ImportingAndExporting () ' Görsel temsil için daireyi oluştur Dim circleObj As AcadCircle Dim centerPt(0 To 2) As Double Yarıçapı Çift Olarak Azalt merkezPt(0) = 2: merkezPt(1) = 2: merkezPt(2) = 0 yarıçap = 1 Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPt, radius) BuÇizim.Uygulama.TümünüYakınlaştır ' Boş bir seçim kümesi oluşturun Dim sset As AcadSelectionSet Set sset = ThisDrawing . SelectionSets . Add ( "NEWSSET" ) 'Mevcut çizimi DXF dosyası olarak dışa aktarın' ' AutoCAD geçici dosya dizini Dim tempPath As String Dim exportFile As String Const dxfname As String = "DXFExport" tempPath = ThisDrawing . Application . preferences . Files . TempFilePath exportFile = tempPath & dxfname ThisDrawing . Export exportFile , "DXF" , sset 'Boş seçim kümesini sil' BuÇizim.SeçimKümeleri.Öğe("YENİKÜME").Sil ' Yeni bir çizim açın Dim newDoc As AcadDocument Set newDoc = ThisDrawing . Application . Documents . Add ( "acad.dwt" ) 'İçe aktarmayı tanımlayın Dim importFile As String Dim insertPoint(0 To 2) As Double Dim scalefactor As Double importFile = tempPath & dxfname & ".dxf" insertPoint(0) = 0: insertPoint(1) = 0: insertPoint(2) = 0 ölçek faktörü = 2# ' Dosyayı içe aktar ThisDrawing.Import importFile , insertPoint , scalefactor ThisDrawing.Application.ZoomAll End Sub
