|
AutoCAD VBA : Ansichtsfenster im Modellbereich vertikal teilen
GJ-Werner am 27.01.2010 um 12:13 Uhr (0)
hi alfred,das mit dem Layout wird leider nicht gehen, da ich in den Ansichtsfenstern im Modellweiterarbeiten möchte, zumindest wüsste ich nicht wie.... Ich brauche quasi ein Fenster mit der Draufsicht und ein Fenster mit einer Seitenansicht im Modell. Im Autocad kann man die ganz einfach erstellen, darin arbeiten,und durch reinklicken aktivieren.Ich habe in meinem Programm verschiedene BKS erstellt und möchte dem User nachProgrammablauf diese beiden Ansichten als Start zur weiteren Bearbeitung anzeigen.In ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Ansichtsfenster im Layout
BloodyMess am 16.08.2005 um 08:22 Uhr (0)
Hallo Ines,probier mal folgenden Code ...Code:Option ExplicitSub test()Dim oLayout As AcadLayoutDim iZaehler As IntegerFor Each oLayout In ThisDrawing.Layouts For iZaehler = 0 To oLayout.Block.Count - 1 Step 0 If oLayout.Block.Item(iZaehler).ObjectName = "AcDbViewport" Then oLayout.Block.Item(iZaehler).Delete End If Next iZaehlerNext oLayoutEnd SubDas Problem an der Sache ist, dass wenn Du das Object löscht, werden die Item wieder neu durchnummeriert und das nachfolgende Object ist ...
|
| 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 : Textgröße in Ansichtsfenster bestimmen
veydan am 06.11.2008 um 20:00 Uhr (0)
Hallo!Ich möchte gerne folgendes erreichen.Bei Autocad Zeichnungen alle Elemente durchgeben, und wenn ein Text gefunden wird, je nach größe, etwas einstellen.Das Problem liegt darin, dass im Layout Ansichtsfenster mit verschiedenem Maßstab erstellt werden können, d.H ein und derselbe Text aus dem Modell erscheint unterschiedlich groß. ich möchte aber, dass bei beiden die gleichen Einstellungen getroffen werden, da der Text in wirklichkeit ja nur eine Größe hat.Hat da jemand eine Idee?Es sind viele Texte im ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Gruppen bilden und löschen
Stefan1905 am 26.03.2009 um 12:17 Uhr (0)
Hallo Alfred,ich sende Dir eine bereinigte Zeichnung.Mein Programm lädt eine Vorlagedatei, die atomisierte Elemente enhält, z.B. einen Fördererquerschnitt mit 1mm Länge, und andere Einzelelemente. Beim Zeichnen werden sie auf die entsprechende Größe extrudiert, gedreht und 3D gezeichnet. An den fertigen Förderer (als Block) werden Attribute angehangen. In der Entwurfsphase eines Fördererlayouts ist keine Positionierung erforderlich, erst dann, wenn ein Leistungsverzeichnis erstellt werden muß.Wird das Layo ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Ansichtsfenster im Layout
BloodyMess am 16.08.2005 um 09:49 Uhr (0)
Hallo Ines,so sollte es nun aber funktionieren. Bissle umständlich, wirst es denke aber nur einmalig einsetzen.Code:Option ExplicitSub test()Dim oLayout As AcadLayoutDim iZaehler As IntegerDim nZaehler As IntegerDim arrViewPorts() As AcadPViewportFor Each oLayout In ThisDrawing.Layouts nZaehler = 0 For iZaehler = 0 To oLayout.Block.Count - 1 Step 1 If oLayout.Block.Item(iZaehler).ObjectName = "AcDbViewport" Then ReDim Preserve arrViewPorts(iZaehler) Set arrViewPorts(iZaehler) = oLayo ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Batchprogramm
alfred neswadba am 21.01.2009 um 13:58 Uhr (0)
Hi Gerhard,Code: On Error Resume Next t2 = rs!dateiname So öffne ich auch die DXF-Files AutoCAD.Documents.Open t2, True Mit diesem Sub erstelle ich PNG-Dateien je Layout für unser ERP-System Call pngPlot ThisDrawing.Close Falsewenn ich es (ohne zu probieren) richtig verstehe, dann solltest Du eigentlich folgendes ändern können:Code:AutoCAD.Documents.Open t2, Trueif Err.Number = 0 then nur plotten, wenn problemlos geöffnet Call pngPlot ThisDrawing.Close Falseelse Err.Clear Call de ...
|
| In das Form AutoCAD VBA wechseln |
projPlot.zip |
AutoCAD VBA : Plotten-Dialog starten
AndreasDEU am 05.11.2013 um 06:24 Uhr (1)
Guten Morgen!Das Makro is hochgeladen.Die Routine ShowSettings() zeigt den Formular.Die Routine SetLayout() weist die Einstellungen zum aktuellen Layout zu.Die Routine liest die Einstellungen aus der Systemregistrierungin die Variable oitmPC und dann weist diese zum Aktuellem LayoutAlle Einstellungen werden in dieser globalen Variable abgespeichert.Zusätzlich wenn der Benutzerformular angezeigt wird auchneue Plotkonfiguration erstellt mit dem Namen "NEW_CONFIGURATION"Variable (s_NewConfiguration). Beim Sch ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bereich im Modell auswählen und im Papierbereich einfügen
AandreasH am 08.01.2008 um 16:29 Uhr (0)
Hallo Holger,zu1)ich lege ein neues Layout nach Benutzerauswahl an. Es können zB DinA4, DinA3... gewählt werden.Die Auswahl erfolgt über ein Userform wo eben die Blattgrösse und einige Beschriftungsattribute gewählt werden können.zu2)es sollen Blätter (Lageplanausschnitt) für Überprüfungen ausgedruckt werden.Den Massstab für die jeweilige Layoutgrösse gebe ICH vor zB DinA3 = 1:100(Die Werte haben sich in der Praxis als geeignet herausgestellt)Daher sollte wenn der Benutzer A3 wählt das Rechteck für die Aus ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Automatische Legende erstellen über Layernamen
cadffm am 19.11.2021 um 12:49 Uhr (1)
Da kann selbst ich helfen: Ja, das ist überhaupt kein Problem!Entweder so ein Programmierer hat schon ein super Programm was man anpassen kann,oder aber man gibt sich auch mit kleinen Lösungen zufrieden,dann kann das auch relativ wenig Aufwand(Zeit) sein.Komplett fertige Lösungen wirst du nicht finden,denn für gewöhnlich dokumentiert man in der Legendeentweder Blöcke, oder Layer,von einem Layer zu einem Block(als Legendenbestandteil) ist eher ungewöhnlichund dein Wunsch nach einem bestimmten Layout kannja ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Save event
mapcar am 02.04.2004 um 00:34 Uhr (0)
Na ja, auch _copyclip ist ein save-event, da ja ein verkapptes WBLOCK vorliegt. Der Grund dafür, warum z.B. alle Einstellungen verlorengehen, wenn man ein Mansfen über das Clipboard von einem Layout in ein anderes kopiert. Ich denke, es ist besser so, dass auch hier getriggert wird. Abhilfe, wenn nicht gewollt: Das Event-Argument (filename) mit dem aktuellen Zeichnungsnamen vergleichen. Das ist doch nicht so schwer... Gruß, Axel [Nachtrag:] Der Autosave triggert ja auch... ------------------ Meine A ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Referenzen eines Blocks ermitteln
BerryB am 13.12.2021 um 12:31 Uhr (1)
Hallo Leute,ich versuche auf alle Referenzen einer Blockdefinition zuzugreifen. Diese befinden sich vor allem auf den Layouts.Ich möchte die Attribute dann auslesen und ändern.Dazu brauche ich auch die Info, auf welchem Layout/Modelspace sich die Blockreferenz befindet.Die Variante, alle Layouts zu aktivieren und dann alle Objekte druchzulaufen, halte ich für zeitintensiv und unpraktisch.Gibt es eine sinnvollere Variante z.B. über die Blockdefinitionen (ACAD.Blocks)?Diesen Artikel https://ww3.cad.de/foren/ ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Layout wechseln
dan_rather am 10.09.2004 um 09:21 Uhr (0)
Hallo Nancy, ich habe absolut kein Problem mit Kritik. Danke dafür!!! zum Code: Es war für mich das erste umfanreichere Makro das ich geschrieben habe und war erstmal glücklich das es bei mir läuft. Mit dem zusammenkopiert hast Du teilweise recht. Ich habe mir halt aus der Acad Hilfe und aus den Anregungen in diesem Forum die Sachen zusammen gesucht und umgestellt die ich brauchte. Da ich ein Newbe in Sachen VBA bin sieht das ganze halt etwas umstänlicher aus als es warscheinlich sein müßte. Mich würde Int ...
|
| In das Form Autocad VBA wechseln |
