| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Jetzt verfügbar: NVIDIA RTX PRO 6000 Blackwell Server Edition, eine Pressemitteilung
|
|
Autor
|
Thema: Speichern (934 mal gelesen)
|
oldwebber
Mitglied
CAD CNC Fachkraft Holz
   Beiträge: 4
Registriert: 02.12.2002
|
erstellt am: 20. Dez. 2005 16:41  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Forum, ich hätte da mal ein Problem. Nach dem ich mich fast 3 Jahre vor diesem gedrückt habe brauche ich jetzt doch eine Lösung. Grundkenntnisse in VBA und VB6 vorhanden. Routine die mir die Aktuelle Selection als .dxf in ein bestimmtes Verzeichniss ausgibt. Zeichnungspfad z.B. C:\05_00815\dwg\05_12_12_jw_grundriss.dwg dxf Pfad Datei 1 C:\05_00815\dxf\0001jw01.dxf dxf Pfad Datei 2 C:\05_00815\dxf\0001jw02.dxf Der name z.B. 0001jw01 ist ein einem textfeld vorhanden das zur Selection gehört. Gruß Jesse Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH
Beiträge: 4201
Registriert: 17.05.2001 ACAD20XX, defun-tools
|
erstellt am: 22. Dez. 2005 10:01 <-- editieren / zitieren --> Unities abgeben: Nur für oldwebber 
Hallo Jesse, dann schreibe doch einen Wblock raus, oder lösche alle Elemente, die nicht zur Auswahl gehören und speichere die Zeichnung unter einem neuen Namen. Wo ist denn dein Problem genau? Grüße Holger ------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.
 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| |
Stelli1
Moderator
Verm.-Ing.
    
Beiträge: 1526
Registriert: 17.08.2005 Map 2000-2014, Rasterdesign,
MapGuide, Autodesk Topobase,
VS6, VS.net 2013
|
erstellt am: 22. Dez. 2005 10:21 <-- editieren / zitieren --> Unities abgeben: Nur für oldwebber
Hallo, ein Beispiel aus der Hilfe:
Code:
Sub Example_Export()
' This example exports the current drawing to DXF format.
' Note that a valid selection set must be provided, even
' though the contents of the selection set are ignored.
' Define the name for the exported file
Dim exportFile As String
exportFile = "C:\AutoCAD\DXFExprt" ' Adjust path to match your system
' Create an empty selection set
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("TEST")
' Export the current drawing to the file specified above.
ThisDrawing.Export exportFile, "DXF", sset
End Sub
Wenn du dein Selectionset füllst,
- ist schon was gewählt? ( mit Pickfirst)
- wenn nicht dann Auswahl fordern (selectonscreen)
- Das Selectionset durchlaufen und deinen Text finden (für Dateinamen)
- Wenn gefunden export nach dxf
- sonst den Text noch wählen lassenStelli ------------------
Warum lisp'eln wenn's auch anders geht.  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
