|
AutoCAD VBA : Werte aus PVIEWPORT lesen
Stelli1 am 10.01.2008 um 20:04 Uhr (0)
Hallo Andreas,hab noch was gefunden.Code:Private Sub BT_Bezugspunkt_Click() Dim varPunkt As Variant Dim dblPunkt(0 To 2) As Double Dim Angabe As Boolean Dim Massstab As Double If obj_ACAD_app.ActiveDocument.ActiveSpace = acModelSpace Then MsgBox "Im Modellbereich gibt es keine gültigen Ansichtsfenster!" _ & vbCrLf & vbCrLf _ & "Wählen sie ein Layout aus und versuchen es noch einmal.", vbCritical Exit Sub End If If Not aFenster Is Nothing Then obj_ACAD_app.ActiveDocument.MS ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : noch einmal Selektion
PeterF am 19.08.2008 um 09:14 Uhr (0)
Hallo Carsten,Danke für die Antwort. Klar geht das auch, aber 1. möchte ich prinzipiell wissen, warum ich den Gruppencode 410 nicht abfragen kann2. ich wollte verhindern, eine for each schleife zu durchlaufen um ein bestimmtes Element zu filtern, wenn man es dirket zu fassen bekommen könnteSonst kann ich auch alle betreffenden Blöcke aus allen Papierbereichen selektieren um dann über die OwderID das Layout zu bestimmen. Dann weiß ich wenigstens schon mal, dass ich ein Element mit Typ und Name habe, welches ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layermanager, AF Farbe
CAD-Huebner am 11.02.2011 um 16:21 Uhr (0)
Aber das kann AFLAYER doch (Farbüberschreibungen für ein bestimmtes Ansichtsfenster setzen).gewünschtes Layout aktivieren (mit CTAB)Ansichtfenster aktivieren (z.b. über MBEREICH)Layerfarbe überschreiben mitCode:AFLAYER Option eingeben [?/farBe/Linientyp/linienstÄrke/Frieren/Tauen/Rücksetzen/Neufrier/Afsvorg]: BNeue Farbe [Truecolor/Farbbuch] : 3Einen oder mehrere Layernamen eingeben, die die VP-Eigenschaftenüberschreibung erhalten sollen, oder Layer durch Objektauswahl angeben: 0Ansichtsfenster angeben [AL ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Formular zum ausfüllen meines Zeichnungskopfes
RoSiNiNo am 20.11.2003 um 09:57 Uhr (0)
Jetzt stllt sich auch noch die Frage, ist dein Block schon in der Zeichnung eingesetzt oder nicht? Wenn er schon in der Zeichnung ist, dann musst du nach der jeweiligen Blockreferenz suchen. Wenn du aber den Block erst einfügen musst, dann ist das noch leichter, du kennst ja dann die Blockreferenz schon. Dann stellt sich noch die Frage, gibt es den Block öffter in der Zeichnung, gibt es mehrere Layouts mit je einem Kopf, sollen alle Blöcke geändert werden oder nur der im aktuellen Layout,....? Du solltest ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Suche VBA Befehle für Skriptbefehle
ustra25 am 20.02.2004 um 21:33 Uhr (0)
Hallo, ich schreibe gerade an einem Programm mit Delphi (Object Pascal)geschrieben, mit dem ich Mechanical Desktop 2004 steuere. Bisher habe ich es so gemacht, dass ich Tastaturbefehle an Mechanical Desktop sende (teilweise nicht sehr zuverlässig) und ein Skript ausführe. Jetzt bin ich auf die Möglichkeit gestoßen, dass ich auch mit Delphi auf die VBA-Engine zugreifen kann. Funktioniert vom Prinzip her auch wunderbar. Da ich nun bisher mich mit VBA für Mechanical Desktop noch nicht beschäftigt habe, bräuch ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Makroaufruf über Schaltfläche
Jürgen56 am 15.04.2008 um 14:26 Uhr (0)
Guten Tag liebe Programmiergemeinde.Ich möchte folgendes tun:Ein von mir erstelltes VBA-Makro soll an eine neue Schaltfläche in einem neuen Werkzeugkasten angebunden werden. Die Schaltfläche und der Werkzeugkasten sind schon fertig.Wie erreiche ich jetzt, dass das Makro ausgeführt wird, wenn ich die Schaltfläche anklicke? Ich denke, dass dazu einwenig Kenntnisse in LISP erforderlich sind, oder? Da ich keinerlei Erfahrung darin habe, würde ich gerne auf Eure Erfahrungen zurückgreifen.Das VBA-Makro macht übr ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Linienfarbe filtern die Linienstärke ändern
KlaK am 04.12.2020 um 12:30 Uhr (1)
Wie cadffm schon schrieb, 5000 Linien sind gar nichts. Das sollte schon flott gehen.Ist natürlich auch die Frage wie Dein restlicher Code aussieht. Wenn Du dort auch viel über SendCommand arbeitest könnte das natürlich die Bremse sein.Ich hab Programme bei denen erzeuge ich einzelne Zeichnungen neu incl. Layout und pdf-Plot, wenn die bei 700 Zeichnungen dann mal eine Stunde brauchen - ok aber so kleine Projekte ...Welche Größe haben denn die dwg selber? (wegen Öffnen und Speichern)Oft hilft es auch wenn ma ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Komponenten Platzieren mit VBA
djs0401 am 20.02.2008 um 12:00 Uhr (0)
HalloHabe da ein Problem: In der Firma in der ich grade ein Praktikum mache, soll ich ein Automatisiertes Layout Makro erstellen. Die Zeichnungen, die zusammen gefügt werden sollen sind als Komponenten gespeichert, d.h. 4 Ansichten in der Datei enthalten.Für die gewünschte Zeichnung brauch ich aber nur die draufsicht.Bisher habe ich diesen code benutzt:Code:Private Sub Platzieren(ByRef m() As maschine) Dim einfugPkt(0 To 2) As Double Dim blockObj As AcadBlockReference Dim dateipfad As String m() bekomm ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Plotten aus VBA
GüSo am 22.12.2010 um 17:56 Uhr (0)
Hier erstmal in Kürze, bin nämlich noch unterwegs.Ich plotte den Modellbereich. Der Modellbereich ist auch das aktive Layout. Das ist im Code sicher gestellt (Zeichnung.ActiveLayout = Zeichnung.Layouts("Model"). Was ich vorhin vergaß zu erwähnen: Es handelt sich im mehrere DXF-Dateien, die ich eingelesen habe. If Zeichnung.PlotConfigurations.Count = 0 Then Zeichnung.PlotConfigurations.Add ("VRS") Zeichnung.PlotConfigurations("VRS").PaperUnits = acMillimeters Zeichnung.PlotConfigurations("VRS").PlotTy ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bereich im Modell auswählen und im Papierbereich einfügen
marc.scherer am 17.01.2008 um 10:39 Uhr (0)
Hi Andreas,meine Meinung zu dem was Du da machst mal als Denkanstoß:Warum bastelst Du etwas in VBA und rufst dann für etwas vergleichsweise einfaches wie eine Blockeinfügung ne Lisp Routine auf?Wieso machst Du nicht alles in Lisp ODER VBA?Es gibt sicherlich Fälle in denen es nicht anders geht. Aber in diesem Fall?Alles was Du da gemacht hast geht relativ einfach komplett in Lisp, ICH hätte für das gesamte Projekt Lisp genommen.Einfach weil ich finde, das die Interaktion mit dem User hier besser zu realisie ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 21.09.2007 um 12:38 Uhr (0)
ServusWill aus Excel einen Befehl in Autocad aufrufen und hab das im Forum gefunden. Der Befehl wird durch Formeln zusammengestellt und steht in im Layout Bestimmt Zelle D13.Ich weiß das bei vbastmt der Befehl aus der Zelle reingehört aber wie hab ich keinen Schimmer.Der Befehl dreht in Acad das UCS auf Welt setzt einen Block mit Attribut und dreht dann UCS wieder zurück.Code:(command "_ucs" "_w") (command "_insert" "Kot_Hoehe_LP" "-101941.8499051,203057.2992329" "" "" "" "1023.2" ) (command "_ucs" "_p")Co ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA und Ansichtsfenster
Stelli1 am 27.03.2009 um 15:30 Uhr (0)
Hallo Stolti,Lars hat doch schon geschrieben wie es am einfachsten geht. Zitat:Original erstellt von Lars Geis:Moin Dirk,du kannst es bestimmt auch mit VBA lösen, auf die "herkömmliche" Art und Weise geht es bestimmt schneller und einfacher.Erzeuge dir eine Vorlagenzeichnung, in der die Layer aller Bem. Stile schon drin sind und sage einfach jedem Ansichtsfenster, welche Layer in diesem angezeigt werden sollen und welche nicht. Der Vorteil ist folgender: Du kannst mehrere Ansichtsfenster mit verschiedenen ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auswahlsatz, Filter für selectionsets
otm am 08.10.2009 um 13:50 Uhr (0)
Hallo zusammen,ich versuche seit geraumer Zeit einen funktionierenden Filter für einen Auswahlsatz herzustellen.Filter:Objekt muss haben- Layername xy- im Modellbereich liegen- entweder - eine Polylinie- oder ein Kreis seinNehme ich nur die erste Bedingung sind Objekte im Auswahlsatz.Nehme ich die anderen Bedingungen dazu ist kein Objekt im Auswahlsatz.Sicher ist: Auf dem gesuchten Layer gibt es im Modellbereich eine geschlossene PL und einen Kreis.Hier mein letzter Versuch:Code: Dim ssFarbe As AcadSe ...
|
| In das Form AutoCAD VBA wechseln |
