|
AutoCAD VBA : Mittels VBA den Layoutnamen ändern ?
Dirk.B am 11.03.2010 um 20:12 Uhr (0)
Hallo CADmium!Danke für den "Anschubser".So gehts nun:Code:Dim Layout As AcadLayoutSet Layout = ThisDrawing.ActiveLayoutIf TextBox9.Text = "Model" Then GoTo MyErrorHandler4If Layout.ModelType = False Then Layout.Name = TextBox9.TextEnd If......GrußDirk
|
| 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 : Mittels VBA den Layoutnamen ändern ?
Dirk.B am 11.03.2010 um 20:34 Uhr (0)
Hallo!Noch ne kleine Nachfrage zu Blöcken (Schriftkopfblock) im Layoutberech.Wenn ich die Blockreferenzen in dem Schriftkopfblock in einem Layout mittels VBA ändern möchte, wie Filter ich diesen nur in dem activen Layout heraus?Geht das auch über DXF - GruppencodeCode:Dim EntGrp(0) As IntegerDim EntPrp(0) As VariantSet ssnew = ThisDrawing.SelectionSets.Add("DB08")EntGrp(0) = 2EntPrp(0) = "dbattab-info"ssnew.Select acSelectionSetAll, Pt1, Pt2, EntGrp, EntPrp...oder wie kann ich diesen direkt ansprechen?Gruß ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Layoutnamen an TextBox übergeben
Dirk.B am 07.02.2004 um 18:40 Uhr (0)
Hallo Nancy! Danke für den Tip! Hab s für mein Programm so abgewandelt: UserForm.tbo6.Text = ThisDrawing.PaperSpace.Layout.Name Gruß Dirk
|
| In das Form Autocad VBA wechseln |
 |
AutoCAD VBA : VBA - Programm aus Kontextmenü starten ?
Dirk.B am 04.07.2012 um 16:37 Uhr (0)
Hallo Wilfried!Kann es sein, dass es für das Kontextmenü auf die Layout - Registerkate - siehe Bildchen - keinen Zugriff über die CUIgibt?------------------GrußDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Anzahl von Layout / 2 von 25
Dirk.B am 07.01.2011 um 15:55 Uhr (0)
Vielen Dank!So funktioniert es nun:Code:Sub Layout_Angaben()Dim i As IntegerDim LName As StringDim ALayout As AcadLayoutLName = ThisDrawing.ActiveLayout.NameSet ALayout = ThisDrawing.ActiveLayoutFor i = 0 To ThisDrawing.Layouts.Count - 1Next iMsgBox ALayout.TabOrder & " von " & i & " / " & LNameEnd Sub------------------GrußDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Mittels VBA den Layoutnamen ändern ?
Dirk.B am 12.03.2010 um 09:22 Uhr (0)
Hallo CADmium!Hallo Alfred!Vilen Dank, funktioniert prima.Code:...EntGrp(0) = 0: EntPrp(0) = "INSERT"EntGrp(1) = 2: EntPrp(1) = "dbattab-info"EntGrp(2) = 410: EntPrp(2) = Layout.Name...Mein Dank ist unterwegs.GrußDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA - Programm aus Kontextmenü starten ?
Dirk.B am 03.07.2012 um 10:45 Uhr (0)
Hallo zusammen!Kann man in einem Kontextmenü eine Sytax zum Start eines VBA - Programms einrichten?Bei einem Werkzeugkasten würde das ja z. B. so lauten:^C^C-vbarun PlotToBorm.dvb!ThisDrawing.PDFDiesen Befehl würde ich gern in dem Kontextmenü integrieren, der sich öffnet, wenn ich ein Layout anklicke und die rechte Maustaste betätige.Vielen Dank im Voraus.------------------GrußDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Anzahl von Layout / 2 von 25
Dirk.B am 07.01.2011 um 13:09 Uhr (0)
Hallo zusammen!Wir bekommen von einem Neukunden Zeichnungen mit bis zu 30 Layouts.Diese sind leider nicht benannt wie z.B. 1 von 30 bzw. 11 von 30, sondern nennen sich irgendwie.Um schnell zu ermitteln wieviele Lauyouts es gibt und in welchem ich gerade bin, wollte ich mir mal schnell ein kleines Tool schreiben und mir die Infos in einer MsgBox anzeigen lassen.Code:Sub Layout_Angaben()Dim i As IntegerDim a As IntegerDim LName As StringDim AnzahlLayout As AcadLayoutFor i = 0 To ThisDrawing.Layouts.Count - 1 ...
|
| In das Form AutoCAD VBA wechseln |
 |
AutoCAD VBA : Inhalte eines ListViews an AutoCAD - Tabelle übergeben
Dirk.B am 19.10.2011 um 12:45 Uhr (0)
Hallo zusammen!Ich habe unter VBA ein ListView, in dem mir Daten aus einer Datenbank angezeigt werden.Ist es möglich bestimmte Einträge in dem ListView zu makierenund dann per Buttomklick in eine AutoCAD Tabelle zu schreiben, sodas mir diese im Layout angezeigt wird?Wäre schön, wenn mir da jemand bei helfen könnte.So befüll ich das ListView:Code:---ListView Einstellungen----------------------------------------------With ListView1 .ListItems.Clear .ColumnHeaders.Clear .View = lvwReport .SmallIcons = Ima ...
|
| In das Form AutoCAD VBA wechseln |
