|
AutoCAD VBA : PDF erstellen per VBA-Makro
insidERR am 10.06.2009 um 16:12 Uhr (0)
Ich habe mir für diesen Zweck in Excel ein Tool geschrieben, welches unser System nach Zeichnungen(DWG) durchsucht und prüft, ob es davon bereits PLT und PDF Datein gibt.Dann kann man auf Knopfdruck von allen Zeichnungen PLT und PDF erstellen lassen.Excel sagt AutoCAD weche Zeichnung aufgemacht werden soll. Dann wird geprüft ob die Zeichnung frei gegeben ist und die Blattgröße ermittelt.Für verschiedene PDFs hab ich unterschiedliche PC3 vorkonfiguriert.Excel übergibt an AutoCAD die benötigten Druckparamete ...
| | In das Form AutoCAD VBA wechseln |
DWG,PLT,PDFBestandsübersicht.zip |
AutoCAD VBA : PDF erstellen per VBA-Makro
insidERR am 24.08.2009 um 11:34 Uhr (0)
Hallo "fritz101"Sorry, dass ich so spät antworte. Habe hier schon lange nicht geguckt.Habe hier die Exceldatei soweit kommentiert. Wird bei dir aber so nicht laufen, da alles auf unser Systen abgestimmt ist.Musst dich mit "F8" durch das Makro durchklicken und gucken wie es funktioniert. Habe einiges kommentiert. Hoffe du kommst damit klar.Damit Excel die Parameter an AutoCAD übergeben kann muss AutoCAD bereits geöffnet sein.
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Teilereferenz auslesen/bearbeiten
insidERR am 03.07.2009 um 09:13 Uhr (0)
Suuuuuper....Vielen Dank Wilfried !!! (Punkte sind unterwegs)Jetz hab ich es...Habe deinen Code ein wenig geändert, jetzt läuft es wie gewünscht.Code:Public Sub findRefPoints() Dim BlockCol As Collection, Objekt As Object, maxRef As Single: maxRef = 0 Set BlockCol = New Collection For Each Objekt In ThisDrawing.ModelSpace In Excel muss "Thisdrawing" durch "ActiveDocument" ersetzt werden If Objekt.ObjectName = "AcmPartRef" Then BlockCol.Add Objekt maxRef = maxRef + ...
| | In das Form AutoCAD VBA wechseln |
 |
Inventor VBA : Prüfmaße, Inventor
insidERR am 25.09.2017 um 16:16 Uhr (1)
Hallo Leute,ich versuche momentan in AutoCAD und Inventor eine Prüfmaßeexportfunktion zu erstellen.In AutoCAD läuft es schon sehr gut. Das Makro durchläuft alle Maße und wenn es ein Prüfmaß ist, wird daraus der Text inkl. Passungen und ober/untertolleranzen extrahiert. Danach wird es an Excel übergeben, wo alles auf einem Formular landet. Siehe Screenshot der extrahiere Daten.Jetzt will ich das gleiche auch noch in Inventor erstellen.Pos.Nr., Textvorsatz, Art(Ø, R oder Winkel), Bemaßungswert, Passung, ob.T ...
| | In das Form Inventor VBA wechseln |
|
DWG Editor : Blockreferenzen mit VBA bearbeiten
insidERR am 21.06.2010 um 16:58 Uhr (0)
Problem selbst gelöst.Hier der Code(vielleicht kanns jemand gebrauchen):Code:Public Sub fillTypenschild(MaschinenNr As String, Maschinenbezeichnung As String, Pumpenbezeichnung As String, Jahr As String, _ qWert As String, nWert As String, tWert As String, hWert As String, pWert As String, RhoWert As String) Typenschildfelder ausfüllen Dim BlockCol As Collection, Objekt As Object Set BlockCol = New Collection For Each Objekt In ActiveDocument.ModelSpace In Excel muss "Thisdrawing" durch "Acti ...
| | In das Form DWG Editor wechseln |
|
DWG Editor : Blockreferenzen mit VBA bearbeiten
insidERR am 17.06.2010 um 13:28 Uhr (0)
Hallo Leute,ich suche nach einer Möglichkeit via VBA Blockreferenzen, die in einem Block sind zu bearbeiten.In AutoCAD läuft es wurderbar, jetz würde ich es gerne auch im DWGeditor zum laufen kriegen.Code:Public Sub fillTypenschild(MaschinenNr As String, Maschinenbezeichnung As String, Pumpenbezeichnung As String, Jahr As String, _ qWert As String, nWert As String, tWert As String, hWert As String, pWert As String, RhoWert As String) Typenschildfelder ausfüllen Dim BlockCol As Collection, Objek ...
| | In das Form DWG Editor wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
