|
Autocad VBA : Massstab von Layout -Ansichtsfenster
Stelli1 am 31.08.2005 um 10:50 Uhr (0)
Hallo pitsch,Lege mal ein paar Ansichtsfenster im Layout an.Code:Dim Pview As AcadPViewportDim Layout As AcadLayoutDim Entity As AcadEntityDim Anzahl As IntegerThisDrawing.ActiveSpace = acPaperSpaceSet Layout = ThisDrawing.ActiveLayout Für jedes Entity im LayoutFor Each Entity In Layout.Block If Entity.EntityType = acPViewport Then Erster Viewport ist das Papier Anzahl = Anzahl + 1 If Anzahl 1 Then Set Pview = Entity Pview.CustomScale = Pview.CustomScale * 1.2 End If End IfNext En ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout löschen
rkl3011 am 16.07.2004 um 08:48 Uhr (0)
Brat mir einer n Stoch, du hast Recht. Danke für den Tipp. Wird belohnt. Gruß, Ronny Klinder Anmerkung: Das Layout selbst wird auch als Viewport gezählt, d.h. wenn es insgesamt zwei sind, dann ist ein richtiges Ansichtsfenster im Layout.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : umschalten auf Layout nach Namen
dj_assp am 06.12.2006 um 09:28 Uhr (0)
Mein Problem ist das ich auf ein Layout umschalten möchteich weis den Namen des Layout. Ich habe aber keine Möglichkeit gefunden wie ich umschalten kann.
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Text (Beschriftung) in Layout ausrichten
otm am 29.10.2009 um 22:27 Uhr (0)
Hallo zusammen,ich habe einen Text, an einem Punkt x1, y1 in den Modelbereich eingefügt mit folgenden Eigenschaften.Ausrichtung = Mitte zentriertDrehung = 0Text an Layout ausrichten = JaWenn ich diesen Text im Layout ansehe, wird er ausgerichtet, aber der Drehpunkt ist nicht identisch mit dem Punkt der Ausrichtung sondern ist der Griff links vom Text.Ist der Text lang steht der Text im Layout an einer ganz anderen, falschen Stelle.Ich möchte den Text gerne um den Punkt "Mitte zentriert" drehen, wenn er im ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Plotten
Tut_Ench_Ammun am 25.07.2007 um 14:58 Uhr (0)
Klingt logisch und jetzt funktionierts. Vielen Dank Fuchsi. So weiteres Problem - ich verzweifle langsam . Folgender Code der bis zum Ende funktioniert.Im ACAD-Fenster zeigt er mir an, dass der Druckvorgang abgeschlossen wurde, aber nichts tut sich - kein Blatt kommt irgendwo raus.Code:Sub druckenfertig()############################# verfügbare Drucker #############################Dim Druckerliste As VariantDruckerliste = ThisDrawing.ModelSpace.Layout.GetPlotDeviceNames################################### ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Verfügbare Blattgrössen von bestimmten Drucker
CADmium am 10.01.2008 um 10:19 Uhr (0)
1.aktives Layout ermitteln2.Drucker und Paper des aktiven Layout merken3.zu untersuchenden Drucker im aktiven Layout setzen4.RefreshPlotDeviceInfo fürs aktive Layout aufrufen5.Medianames mit GetCanonicalMediaNames auswerten6.für jedes Medianame -Papiername mit GetLocaleMediaName auslesen mit RefreshPlotDeviceInfo System refreshen -Papiergröße mit GetPaperSize auslesen7.Einstellungen aus 2. zurückspeichernfertig------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Probl ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Layout wechseln
dan_rather am 08.09.2004 um 09:01 Uhr (0)
Hallo nancy, genau so schauts aus! Hier ein kleiner Ausschnitt aus dem Code: Antwort = (MsgBox( Vorlage wählen , vbOKOnly, Layout wechseln )) If Antwort = vbOK Then msg = vbCrLf & vbCrLf Start with a space For Each Layout In Layouts msg = msg & Layout.Name & vbCrLf Next Set aws = ThisDrawing.SelectionSets.Add( ausw001 ) ThisDrawing.ActiveLayout = Layouts(1) aws.SelectOnScreen For Each ausw In aws If ausw = IAcadBlockReference Then varAttributes = ausw.GetAt ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Material herauslesen
floe am 20.10.2006 um 15:21 Uhr (0)
bin doch einen schritt weiter gekommen.. für alle die wissen wollen wie man ganz simpel den Massstab herausbekommen will:Code: Dim layouts As McadLayouts Dim layout As McadLayout Dim oMcadViews As McadDrawingViews Dim oMcadView As McadDrawingView Get Layouts in Drawing Set layouts = oMcadDoc.DrawingMgr.layouts For Each layout In layouts Get Views in Layout Set oMcadViews = layout.Views For Each oMcadView In oMcadViews Debug.Print "Scale: " & oMcadView.Descriptor.ViewScale Next ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Plotten
Tut_Ench_Ammun am 25.07.2007 um 07:40 Uhr (0)
Hallo an alle,es ist ja schon viel über das Thema Plotten geschrieben worden, jedoch tritt bei mir ein Problem auf, das ich den vorhandenen Beiträgen noch nicht gelesen habe. Folgenden Code habe ich zum Drucken erstellt:Code:Sub test2()Dim p1(0 To 1) As DoubleDim p2(0 To 1) As Doublep1(0) = 0p1(1) = 0p2(0) = 210p2(1) = 297ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfoThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3"ThisDrawing.ModelSpace.Layout.StyleSheet = "acad.ctb"ThisDrawing.ModelSpace.Layou ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Layout wechseln
dan_rather am 07.09.2004 um 14:37 Uhr (0)
Hallo zusammen, habe folgendes Problem. Ich möchte ein selectionset erstellen. Die auswahl erfolgt über selectOnscreen . Ich möchte aber in diesem moment auch das Layout wechseln(für den rest des Progs wichtig). Wenn ich aber nun das Layout wechseln möchte, ist die Auswahl für das sels. natürlich schon aktiv. Wie lautet der Code für vor dem Auswählen des sels. das Layout wählen das der Benutzer angeklickt hat ? Wenn jemand eine Idee hat bitte Antworten Danke schon mal im vorraus
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Mittels VBA den Layoutnamen ändern ?
Dirk.B am 12.03.2010 um 15:32 Uhr (0)
Hi!Noch ne Nachfrage zur Fehlerbehandlung hätte ich da.Die Übergabe des Layout.name funktioniert soweit.Nur könnte es ja sein, daß bereits ein Layout den geradevergeben Namen hat.Um hier einem Fehler und somit einem Programmabbruch vorzubeugen,möchte ich noch einen ErrorHandler einbauen.Nur beim Abgleich der Layoutnamen, erkennt das Programm ja auch das active Layout!!!!Hätte da noch jemand eine Lösung für mich?Code:Private Sub cmdOK_Click()Dim Layout As AcadLayout, Layouts As AcadLayouts, Layout1 As AcadL ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : mehrere Layouts mit Schriftfeldern
vittorio0 am 22.11.2012 um 23:35 Uhr (0)
Liebes Forum,Mittels VBA hab schreibe ich die Attribute einer Form in das Schriftfeld das in einem Layout vorhanden ist. Das funktioniert auch solange nur ein Layout vorhanden ist. Erstelle ich ein 2. Layout das dasselbe Schriftfeld benutzt kann ich weder vom Schriftfeld Lesen oder ins Schriftfeld schreiben. Wie unterscheidet man in welches Schriftfeld man schreibt mit VBA code?Danke für Eure Hilfe.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Indirekte Adressierung
KlaK am 17.06.2008 um 17:59 Uhr (0)
Hallo,so ganz genau weiß ich ja nicht was Du machen möchtest.Schau Dir doch mal diesen Artikel von Andreas an.Mit dieser Routine kannst Du Dir die Papierformate eines Druckers holen und diese einer Liste zuweisen.Wenn Du noch die verfügbaren Plotter (System und .pc3) brauchst, benützt Du diesen Code:Dim plotDevices As VariantplotDevices = Layout.GetPlotDeviceNames()Die tatsächlichen Blattgrößen kannst Du durch Setzen von Layout.CanonicalMediaName = mediaNames(x)und Abrufen über Layout.GetPaperMargins Margi ...
|
| In das Form AutoCAD VBA wechseln |
