| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Öffnen von mehreren Dokumenten (SDI = 0) (920 mal gelesen)
|
SEHER
Mitglied
Systemanalytiker
   Beiträge: 1203
Registriert: 13.03.2001 Inventor 2 bis 2022
häufig wechselnder Rechnerverkehr
|
erstellt am: 27. Aug. 2004 12:52  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Forum, habe folgenden Tipp auf http://www.cadditions.de/tipps.htm#lispopen gefunden. Folgendes kann man in AutoLISP nicht machen, wenn SDI=0 ist:
(command "_.open" "c:\\temp\\machauf.dwg")
Der “open”-Befehl kriegt das nicht auf die Reihe. Das Multiple Document Interface scheint an AutoLISP unbemerkt vorbeigegangen zu sein. ;-)
Wer aber unbedingt, auf Teufel komm raus eine weitere Zeichnung per AutoLISP öffnen möchte, kann den Umweg über VBA nehmen. Quasi von hinten durch die Brust:
(command "vbastmt" "AcadApplication.Documents.Open \"C:\\temp\\machauf.dwg\"") Dies funktioniert hervorragend.
Ich möchte jedoch den Dateinamen als Variable übergeben. Ich bekomme es irgendwie nicht hin. Hat einer einen Tipp für z.B.
(setq filenam "C:\\temp\\machauf.dwg")
Wie muß dann der Aufruf aussehen?
Schönes Wochenende
Seher Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
    
Beiträge: 13508
Registriert: 30.11.2003 .
|
erstellt am: 27. Aug. 2004 13:04 <-- editieren / zitieren --> Unities abgeben: Nur für SEHER 
wie wäre es mit (vl-load-com) (defun OPEN (DATEINAME) (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object) ) DATEINAME :VLAX-FALSE ; nicht schreibgeschüzt ) ) ) ------------------
 - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer
Beiträge: 9732
Registriert: 01.12.2003 One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11
|
erstellt am: 27. Aug. 2004 13:14 <-- editieren / zitieren --> Unities abgeben: Nur für SEHER
Na eine Funktion namens OPEN zu definieren, würd ich mir verkneifen, da es diese Funktion in LISP ja bereits gibt. Vieleicht ist z. B. (DEFUN DWGOPEN (Dateiname) ... besser Mit freundlichem Gruß Udo Hübner
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm
Moderator
良い精神
Beiträge: 21533
Registriert: 03.06.2002 Alles
|
erstellt am: 27. Aug. 2004 13:24 <-- editieren / zitieren --> Unities abgeben: Nur für SEHER
mit dem Ursprünglichen Ansatz wäre es so zu machen: (command "vbastmt" (strcat"AcadApplication.Documents.Open" (chr 34)FILENAM (chr 34))) ------------------
Bitte Systemangaben eintragen, wie & warum siehst du HIER [Diese Nachricht wurde von cadffm am 27. Aug. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SEHER
Mitglied
Systemanalytiker
Beiträge: 1203
Registriert: 13.03.2001
|
erstellt am: 27. Aug. 2004 13:58 <-- editieren / zitieren --> Unities abgeben:
|
Brischke
Moderator
CAD on demand GmbH
Beiträge: 4171
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 27. Aug. 2004 14:10 <-- editieren / zitieren --> Unities abgeben: Nur für SEHER
|
Foren auf CAD.de (alle Foren)
| 
