| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Xrefs binden und exportieren (970 / mal gelesen)
|
Harry Plotter Mitglied
Beiträge: 509 Registriert: 12.12.2003 Windows 8 64bit Architecture 2019
|
erstellt am: 05. Dez. 2018 08:34 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen, ich habe mir über die Jahre mit eurer Hilfe folgenden Code zusammengebaut. Dabei soll die Datei schreibgeschützt geöffnet werden, die Xrefs gebunden, die Datei bereinigt und im Format 2018 exportiert werden. Leider funktioniert er nicht mehr in ACAD 2019. Er bleibt bei "bindtype" nil hängen. Vielleicht kann mal ein Profi einen Blick drauf werfen. Vorerst vielen Dank
Code: (defun *error*(msg) (setvar "modemacro" ".") (setvar "bindtype" oldBnType) (setvar "cmdecho" 1) (princ "\Xrefs Loesen/Pruefen/Binden/Bereinigen abgebrochen ") (princ) ); end of *error* (defun c:A2A-2018 () (command "modell") (vl-load-com) (if(=(vla-get-readonly(vla-get-activedocument(vlax-get-acad-object))):vlax-true) (A2A) (alert "ABBRUCH - Achtung Zeichnung schreibgeschützt öffnen") ) ); end of c:A2A-2018
(defun A2A-2018 ( / oldBnType) (setq oldBnType(getvar "bindtype")) (setvar "modemacro" "Xrefs Loesen/Pruefen/Binden/Bereinigen in Arbeit......bitte warten......") (prompt "\Xrefs Loesen, Pruefen, Binden, Bereinigen---") (prompt "\nDetaching...") (vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (if (and (= :vlax-true (vla-get-isxref block)) (= 0 (vla-get-count block)) ) (vla-detach block) ) ) (setvar "cmdecho" 0) (prompt "...done") (prompt "\Pruefen...");(terpri) (command "_audit" "j") (prompt "\alle Xrefs binden...") (setvar "bindtype" 1) (command "-xref" "b" "*") (prompt "...fertig");(terpri) (prompt "\Bereinigen #1");(terpri) (command "_-purge" "al" "*" "N") (prompt "\Bereinigen #2");(terpri) (command "_-purge" "al" "*" "N") (prompt "\Bereinigen #3");(terpri) (command "_-purge" "al" "*" "N") (command "_AecExportToAutoCAD2018") (prompt "\Operation erfolgreich fertiggestellt!---") (setvar "modemacro" ".") (setvar "cmdecho" 1) (princ) ); end of A2A-2018
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1968 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 05. Dez. 2018 09:50 <-- editieren / zitieren --> Unities abgeben: Nur für Harry Plotter
|
-ikarus- Mitglied Zeichner
Beiträge: 142 Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015 Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro, Visual Studio 2013 Notepad++ Rechner: HP Z620 Workstation NVIDIA Quadro K4000
|
erstellt am: 05. Dez. 2018 10:00 <-- editieren / zitieren --> Unities abgeben: Nur für Harry Plotter
|
Harry Plotter Mitglied
Beiträge: 509 Registriert: 12.12.2003 Windows 8 64bit Architecture 2019
|
erstellt am: 05. Dez. 2018 15:20 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|