|
Autocad VBA : Zeichnung über einen Menüpunkt öffnen
Brischke am 14.05.2004 um 11:25 Uhr (0)
Man kann doch auch einfach eine Lisp/ ein Macro schreiben, die dem acad-Object ein weiteres Document hinzufügt. Das habe ich schon öfter gemacht, ist kein Problem. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeichnung über einen Menüpunkt öffnen
Brischke am 15.05.2004 um 19:11 Uhr (0)
Hallo, @caladia Richtiger sollte es heißen: Der Documents-Collection ein weiteres Document hinzufügen. Die Documents-Collection hängt direkt unter dem Acad-Object. Das Ganze könnte dann ein VBA-Macro werden, welches über einen Button aufgerufen wird - oder wie folgt in Lisp. Das Prinzip kann ja 1:1 nach VBA übernommen werden. (defun open_dwg (Name) (setq NewDWG (vlax-invoke-method (vlax-get-property (vlax-get-acad-object) Documents ) ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeichnung über einen Menüpunkt öffnen
Brischke am 17.05.2004 um 10:30 Uhr (0)
Zitat: Original erstellt von The VIP: Leider funktioniert auch OPEN_DWG nicht Hmm.. mit dieser Feststellung kann ich jetzt nichts anfangen. Kommen irgendwelche Fehlermeldungen??? Hast du die Zeilen in einer *.lsp-Datei gespeichert. Hast du diese *.lsp geladen, ...??? Etwas mehr Infos, versprechen mehr Lösungen! Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeichnung über einen Menüpunkt öffnen
CADmium am 17.05.2004 um 10:45 Uhr (0)
wenn ich jetzt Axel wär, würd ich fragen : wozu das (setq NewDWG ?? und ein bißchen mehr absicherung ist auch nicht schlecht : (defun OPEN_DWG (Name / VLA-OBJEKT ) (if(not (vl-catch-all-error-p (vl-catch-all-apply vlax-invoke-method (list (vlax-get-property (vlax-get-acad-object) Documents ) Open NAME :vlax-fal ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeichnung über einen Menüpunkt öffnen
Brischke am 17.05.2004 um 10:47 Uhr (0)
@CADmium Du bist nicht Axel .. hast aber dennoch Recht. Das kommt davon, wenn man mal eben schnell Lösungen aus Projekten separiert .. ok, ich werde zukünftig darauf achten. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Automatisches Recover
basti19 am 17.05.2004 um 11:20 Uhr (0)
Hi Leute, ich habe letzte Woche versucht eine Datei per VBA zu recovern... leider scheint es dafür keinen Punkt zu geben. Auch der Versuch mittels SendCommand zu arbeiten ist gescheitert, da ich keine Möglichkeit gefunden habe, die es mir erlaubt, einen Dateinamen zu schicken... Zur Erklärung: ich habe viele DWGs von denen eine DWG hin und wieder stirbt, wodurch AutoCAD abstürzt. Da ich nicht jedes mal suchen will, welche Datei es ist/war, würde ich gern alle mittels Wiederherstellen behandeln und anschli ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Explode von Blöcken
basti19 am 17.05.2004 um 12:05 Uhr (0)
Hi Leute, habe gleich noch eine Frage: Ich habe einen Block, bestehend aus anderen, skalierten Blöcken. Wenn ich diesen Block nur in X-Richtung mit Faktor 2 skaliere und anschließend auflöse, erhalte ich das korrekte Ergebnis (Faktoren des aufgelösten, übergeordneten Blocks wurden auf die enthaltenen Blöcke übertragen) Leider habe ich noch keine Möglichkeit gefunden, diese Funktionalität mit VBA nachzubilden. Version wie gehabt AutoCAD 2004 inkl. SPs Würde mich über Tipps freuen. tia Sebastian
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : lisp-ausdruck auswerten
Brischke am 18.05.2004 um 16:07 Uhr (0)
Hallo Jan, nein, aber schreib es doch in eine User-Systemvariable oder in die Registry oder in eine Textdatei .. aber direkt geht nicht. Sauberer wäre es aber, wenn du diese Funktion in VBA nachbaust. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat! Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich !
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : lisp-ausdruck auswerten
Brischke am 18.05.2004 um 21:17 Uhr (0)
Hallo Jan, wenn du diese arx in Lisp nutzen kannst, dann nutze doch eine der voran genannten Möglichkeiten. Würdest du sagen, was denn die Rückgabe für ein Datentyp ist, dann kann es natürlich sein, dass du damit nicht weiter kommst. Aber auch dafür sollte es eine Lösung geben. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat! Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich !
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : lisp-ausdruck auswerten
Brischke am 19.05.2004 um 12:42 Uhr (0)
Zitat: Original erstellt von fuchsi: @defun Autodesk Anwendertreffen am 15.06. in Steyr/Österreich! klingt interresant, wär nicht so weit zum Fahren für mich @fuchsi wäre eine gute Gelegenheit, sich einmal persönlich kennen zu lernen. Würde mich freuen. Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat! Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich !
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Alle Layouts nach blöcken durchsuchen
dan_rather am 19.05.2004 um 13:45 Uhr (0)
Hallo zusammen, kann mir jemand sagen wie ich alle layouts nach einem bestimmten block durchsuchen kann und die Attribute dann in eine excel-Datei schreiben. Hier mein Ansatz: Sub Ch12_Extract() Dim Excel As Excel.Application Dim ExcelSheet As Object Dim ExcelWorkbook As Object Dim RowNum As Integer Dim Header As Boolean Dim elem As AcadEntity Dim Array1 As Variant Dim Count As Integer Dim Pfad As Variant Pfad = R:/AutocadEinstellungen/Zeichnungskopf/ZeichnungsVerwa ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Alle Layouts nach blöcken durchsuchen
Brischke am 19.05.2004 um 14:00 Uhr (0)
Hallo, erstell dir einen Auswahlsatz über alle Elemente der Zeichnung, die ein Block bestimmten Namens sind. Da werden alle Elemente, egal in welchem Layout, gefunden. Falls es für dich wichtig ist, das Layout zu wissen oder die Blöcke nach Layout sortiert auszugeben, dann kannst du das ja dann aus den Elementeigenschaften ermitteln und entsprechend sortieren. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat! T ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Alle Layouts nach blöcken durchsuchen
Brischke am 19.05.2004 um 14:33 Uhr (0)
Hallo Dan, Vielleicht hilft dir folgendes Code: Sub Test() Dim Bloecke Bloecke = SelAllInsertByName( TestBLK ) End Sub Public Function SelAllInsertByName(BLKName As String) Dim All_E Dim i As Integer Dim Filter(3, 1) As Variant Filter(0, 0) = -4 Filter(0, 1) = AND Filter(1, 0) = 0 DXF-Gruppencode Filter(1, 1) = Insert Blöcke Filter(2, 0) = 2 DXF-Gruppencode Filter(2, 1) = BLKName Name Filter(3, 0) = -4 Filter(3, 1) = AND All_E = Select_All_Filter( All , Filter) SelAllInsertByName = All_E End ...
|
| In das Form Autocad VBA wechseln |
