|
Autocad VBA : dwf erzeugen
Heiko76 am 08.03.2006 um 11:03 Uhr (0)
Hallo,ich habe das mittlerweile so gelöst:Sub Ch9_PrintModelSpace() Verify that the active space is model space If ThisDrawing.ActiveSpace = acPaperSpace Then ThisDrawing.MSpace = True ThisDrawing.ActiveSpace = acModelSpace End If Set the extents and scale of the plot area ThisDrawing.ModelSpace.Layout.PlotType = acExtents ThisDrawing.ModelSpace.Layout. _ StandardScale = acScaleToFit Set the number of copies to one ThisDrawing.Plot.NumberOfCopies = 1 Initiate the plot This ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Seiteneinrichtung bei Plot wählen
KlaK am 13.09.2018 um 19:46 Uhr (1)
Hi,Da hast Du wahrscheinlich nach den falschen Stichwörtern gesucht oder nicht durch alle Einträge. Dürfte so um das Jahr 2009 gewesen sein dass hier viel über automatisches Plotten diskutiert wurde.Im Prinzip kannst Du das was BerndP geschrieben hat auch in VBA machen (SendCommand) oder Du programmierst es selber.Dein Wunsch "oDoc.DruckeMitVorgegebenerSeiteneinrichtung(VariableInDerNameVonSeiteneinrichtungSteht)" heißt in Autocad VBA : oDoc.Plot.PlotToDevice(VariableInDerNameVonSeiteneinrichtungSteht)Du w ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block aus Bibliothekszeichnung einfügen.
KlaK am 17.02.2013 um 12:19 Uhr (0)
Nur mal so zum Nachdenken:Kennst Du die CopyObjects Methode?Deine Bibliothekszeichnung als 2. Dokument im Hintergrund öffnen, Block in die Zeichnung kopieren (Block-Collection) und RefBlock in den Modellspace einfügen, wäre doch das einfachste, anstatt die komplette Bibliothek und hinterher bereinigen zu müssen.Andererseits, wenn ich Rahmen A0 lese. Ist das ein komplettes Layout? Dann könnte man sich den Umweg über den Block sparen und gleich ein neues Layout kopieren. Ihr werdet doch hoffentlich keinen Pl ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block aus Bibliothekszeichnung einfügen.
KlaK am 17.02.2013 um 12:19 Uhr (0)
Nur mal so zum Nachdenken:Kennst Du die CopyObjects Methode?Deine Bibliothekszeichnung als 2. Dokument im Hintergrund öffnen, Block in die Zeichnung kopieren (Block-Collection) und RefBlock in den Modellspace einfügen, wäre doch das einfachste, anstatt die komplette Bibliothek und hinterher bereinigen zu müssen.Andererseits, wenn ich Rahmen A0 lese. Ist das ein komplettes Layout? Dann könnte man sich den Umweg über den Block sparen und gleich ein neues Layout kopieren. Ihr werdet doch hoffentlich keinen Pl ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekte an Layout binden??
c.schojer am 25.03.2008 um 13:02 Uhr (0)
Tatsächlich das ist es!irgendwie schade dachte es wäre was anderes....Mfg Chris
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Text (Beschriftung) in Layout ausrichten
otm am 29.10.2009 um 22:51 Uhr (0)
Hi alfred,wird das Attribut dann um den Blockeinfügepunkt gedreht?------------------Christian
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Layout löschen
rkl3011 am 15.07.2004 um 11:50 Uhr (0)
Hallo, ich möchte programmgesteuert alle Layouts einer Zeichnung löschen, die nicht benutzt werden, d.h. in denen es keine Ansichtsfenster gibt. Es gibt eine Prozedur (hier nicht gezeigt, da unwichtig), die alle Blöcke einer Zeichnung durchläuft und den Block (sowie die Zeichnung selbst) an die folgende Prozedur übergibt. Public Function DeleteLayoutIfEmpty(ByRef objBlock As AcadBlock, ByRef objDWG As AcadDocument) As String Dim objAcadEntity As AcadEntity Dim lngViewports As Long lng ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position suchen
KlaK am 29.03.2009 um 18:17 Uhr (0)
Vielleicht noch zur Ergänzung zu Alfreds Code: Zitat: Dim tSSet As AcadSelectionSet Set tSSet = ThisDrawing.SelectionSets.Add("AA8") Dim tDxfCodes(0) As Integer: tDxfCodes(0) = 0 Dim tDxfValues(0) As Variant: tDxfValues(0) = "INSERT" tSSet.Select acSelectionSetAll, , , tDxfCodes, tDxfValueskönnte man auch so machen:Code: Dim tSSet As AcadSelectionSet Set tSSet = ThisDrawing.SelectionSets.Add("AA8") Dim tDxfCodes(1) As Integer Dim tDxfValues(1) As Variant tDxfCodes(0) = 0 tDxfValues(0) = "INSERT" tDxfCodes ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : umschalten auf Layout nach Namen
dj_assp am 06.12.2006 um 09:43 Uhr (0)
Danke für den TippIst ja einfach wenn man es weis oder die Idee hat
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : noch einmal Selektion
PeterF am 18.08.2008 um 22:35 Uhr (0)
Hallo allerseits,ich habe noch ein Selektionsproblem.Ich möchte aus einem bestimmten Layout einen Block auslesen. Wenn ich das Layout nicht angebe, geht das ja recht einfach:Dim myData(2) As VariantDim myType(2) As IntegerDim mySS As AcadSelectionSetmyType(0) = 0myData(0) = "INSERT"myType(1) = 2myData(1) = blocknammyType(2) = 67myData(2) = 1SelectionSetsClear ActiveDocument, "Temp"Set mySS = ActiveDocument.SelectionSets.Add("Temp")mySS.Select acSelectionSetAll, , , myType, myDataWenn ich nun prüfen möchte, ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Attribute auslesen von aktuellem Blatt
f-m am 01.03.2010 um 16:00 Uhr (0)
leider komm ich mit dieser Aussage nicht weiter.Das ist zum aktuellen Zeitpunkt voll funktionsfähig. Das Tool läuft und läuft und läuft!dieser scan bezieht sich immer auf die gesamte dwg-datei nicht auf ein aktuelles layout in dieser Version... das soll sich ändern....denke liegt an diesem part Private Sub CommandButton1_Click() Dim blockname As String Dim a, blocktotal As Integer UserForm2.Hide ListBox1.Clear blocktotal = ThisDrawing.Blocks.count For a = 0 To blocktotal - 1 blockname = ThisDrawi ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layout von Vorlage per VB(A)
Carsten1210 am 27.08.2008 um 12:54 Uhr (0)
Hi Peter,Vielleicht hilft dir der 3. Beitrag in diesem Thread schon weiter.Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Ploten von Layout
Pitsch52 am 15.10.2006 um 17:37 Uhr (0)
HalloBesten Dank für die Hilfe! Jetzt hab ich es begriffen. Läuft wie geschmiert. Mit freundlichen Grüssen! Pitsch
|
| In das Form Autocad VBA wechseln |
