mit AktivX ins Layouts wechseln (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: mit AktivX ins Layouts wechseln (833 mal gelesen)
RoyCAD Mitglied Dipl-Ing Energietechnik Beiträge: 206 Registriert: 24.05.2004 Win XP AutoCAD2008-2010 Inventor 2008-2010 Productstream Compass P4 3,0GHz 512MB Ram	erstellt am: 02. Jan. 2007 15:35 <-- editieren / zitieren --> Unities abgeben: Wie kann ich mit AktivX ins Layouts wechseln. (SetVar "CTAB" Layout1) und das gleiche im AktivX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 02. Jan. 2007 18:21 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD z.B: (vla-put-activelayout (vla-get-activedocument(vlax-get-acad-object)) (vla-item (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) "Model" ) ) kannst das DOC aber vorher auch in einer Variablen speichern..und ein Error-catcher wär auch nicht verkehrt.. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADchup Ehrenmitglied V.I.P. h.c. Beiträge: 3329 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz	erstellt am: 02. Jan. 2007 21:19 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD Hi, die Sache mit Rom und den vielen Wegen : (vla-SetVariable (vla-get-ActiveDocument (vlax-get-acad-object)) "CTAB" "Layout1") Gruß CADchup ------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
RoyCAD Mitglied Dipl-Ing Energietechnik Beiträge: 206 Registriert: 24.05.2004 Win XP AutoCAD2008-2010 Inventor 2008-2010 Productstream Compass P4 3,0GHz 512MB Ram	erstellt am: 03. Jan. 2007 08:38 <-- editieren / zitieren --> Unities abgeben: Danke es funk perfekt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator Beiträge: 2490 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)	erstellt am: 03. Jan. 2007 12:31 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD Zitat: Original erstellt von RoyCAD: Danke es funk perfekt. Ja, das setzen einer Sysvar via ActiveX... Ich dachte, es ginge darum das Layout via ActiveX aktuell zu setzen. Es kommt zwar auf's gleiche raus, die Vorgehensweise ist aber eine andere: Code: (defun CAD-DE:LAYOUT-ACTIVATE (LAYOUT / FOUND DOCUMENT) (setq DOCUMENT (vla-get-activedocument (vlax-get-acad-object))) (if (= (type LAYOUT) 'STR) (progn (if (= (strcase LAYOUT) "MODELL") (setq LAYOUT "Model") ) (vlax-for ITEM (vla-get-layouts DOCUMENT ) (if (and (not FOUND) (= (strcase (vla-get-name ITEM)) (strcase LAYOUT)) ) (setq LAYOUT ITEM FOUND 't ) ) ) ) ) (if FOUND (vlax-put-property DOCUMENT 'ACTIVELAYOUT LAYOUT) (setq LAYOUT NIL) ) LAYOUT ) HTH ------------------ Ciao, Marc [Diese Nachricht wurde von marc.scherer am 03. Jan. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 03. Jan. 2007 13:03 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD @Marc: Danke für das Ausfeilen obigen Codes ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator Beiträge: 2490 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)	erstellt am: 03. Jan. 2007 13:27 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD Bitte, bitte. Hatte ich irgendwie überlesen Dein Posting, sorry... ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)