Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Autodesk GIS Produkte
  Zeichnungszuordnung speichern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Zeichnungszuordnung speichern (929 mal gelesen)
Goofy007
Mitglied
Vermessungstechniker


Sehen Sie sich das Profil von Goofy007 an!   Senden Sie eine Private Message an Goofy007  Schreiben Sie einen Gästebucheintrag für Goofy007

Beiträge: 578
Registriert: 06.11.2004

Map3D 2018 und Civil3D 2018

erstellt am: 31. Jan. 2005 15:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Forum,

kann mir bitte jemand sagen, ob es möglich ist die Zeichnungszuordnungen zu speichern?

Ich habe meiner aktuellen Zeichnung viele DKM-Blätter zugordnet, nach Abfrage der nötigen Layer möchte ich die Zuordnungen wieder lösen.

Falls ich später doch noch was brauche muss ich alle Zeichnungen wieder zuordnen.

Dafür möchte ich die Liste der zugeordneten Zeichnungen gerne speichern.

Geht das ???


mfg Didi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

marc.scherer
Moderator
CAD-Administrator




Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

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: 01. Feb. 2005 08:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Goofy007 10 Unities + Antwort hilfreich

Hi,
wieso mußt Du die Zuordnung lösen? Reicht es nicht die zugeordneten Zeichnungen zu "deaktivieren"?
Das Deaktivieren der Zeichnungen findest Du im Kontextmenü der markierten DWG's im Arbeitsbereich von Map 3D...

------------------
Ciao,
Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Goofy007
Mitglied
Vermessungstechniker


Sehen Sie sich das Profil von Goofy007 an!   Senden Sie eine Private Message an Goofy007  Schreiben Sie einen Gästebucheintrag für Goofy007

Beiträge: 578
Registriert: 06.11.2004

erstellt am: 01. Feb. 2005 09:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Marc,

ich verwende Scriptdateien zum Erzeugen von Schraffuren für bestimmte Nutzungen in der DKM (zB. Gebäude). Dies (nicht von mir geschriebenen) Scripts laufen nicht richtig wenn Zeichungen zugeordnet sind, weil Acad in dem Fall eine Frage mehr stellt als der Script erwartet.
Deshalb wäre für mich das Lösen der Zeichnungen einfacher als das (mir bekannte) deaktivieren der zugeordneten Zeichnungen.

mfg Didi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

marc.scherer
Moderator
CAD-Administrator




Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

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: 01. Feb. 2005 15:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Goofy007 10 Unities + Antwort hilfreich

Hi Goofy,
hmm, da es da nix zu geben scheint und ich das auch gerade benötige hab' ich mal was geproggt:

(Für Infos über die Verwendung von LISP-Proggies usw. guckst Du hier: http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml#000000
Anweisungen zur Verwendung dieser speziellen Funktionen findest Du jeweils im Kommentar vor den Funktionen:
MAP:DWG-ALIAS->LST (zum "Sichern" Deiner DWG Zuordnung...)
und
MAP:DWGLST->ATTACH (zum "Wiederherstellen" Deiner DWG Zuordnung
)

Edit: ******-Smilie-Kacke :motz

Edit2: S.C.H.E.I.S.S. Zensur :motz2

Code:

;|
Funktion schreibt eine Liste der aktuell in Map Zugeordneten DWG's in eine externe Datei

Argumente:
STR-FULLPATHFILENAME = String der die KOMPLETTE Zieldateiinformation enthält
also Pfad + Dateiname + Dateierweiterung
Achtung bei Pfadangaben, es gelten hier die Lisp-Regeln
für Backslashes -> EIN Backslash muß als ZWEI Backslashes
eingegeben werden. Alternativ ist es auch möglich
EINEN Backslash als EINEN Slash anzugeben.
Beispiel:
"c:\\temp\\test.txt" oder "c:/temp/test.txt"
"\\\\SERVERNAME\\FREIGABENAME\\test.cad" oder
"//SERVERNAME/FREIGABENAME/test.cad"

Rückgabe = String der die KOMPLETTE Zieldateiinformation enthält
bei ERFOLG,
nil wenn Datei nicht angelegt wurde

Aufrufbeispiel:
(MAP:DWG-ALIAS->LST "//Server/Freigabe/$test.cad")

oder

(MAP:DWG-ALIAS->LST "c:\\test.tmp")

|;
(defun MAP:DWG-ALIAS->LST
(STR-FULLPATHFILENAME /
ALIAS INDEX LST-ALIAS
LST-DWG RETVAL
)
(if (setq LST-DWG (ade_dslist))
(progn
(setq LST-DWG (mapcar 'ade_dwgactualpath LST-DWG))
(if (setq LST-ALIAS (ade_aliasgetlist))
(setq
LST-ALIAS (vl-sort LST-ALIAS
'(lambda (X Y)
(> (strlen (cadr X)) (strlen (cadr Y)))
)
)
LST-DWG (mapcar
(function
(lambda (X)
(setq INDEX 0)
(while (< INDEX (length LST-ALIAS))
(if (vl-string-search
(cadr (nth INDEX LST-ALIAS))
X
)
(setq ALIAS (nth INDEX LST-ALIAS)
INDEX (length LST-ALIAS)
)
(setq INDEX (1+ INDEX))
)
)
(list ALIAS (vl-string-subst "" (cadr ALIAS) X))
)
)
LST-DWG
)
RETVAL (LIST>FILE 'LST-DWG STR-FULLPATHFILENAME)
)
)
)
)
RETVAL
)

;|
Funktion liest eine von der Funktion "MAP:DWG-ALIAS->LST" geschriebene Liste
der zugeordneten DWG-Files aus einer Text-Datei und stellt diese Zuordung
unter Berücksichtigung der vorher verwendeten Aliasnamen wieder her.

Argumente:
STR-FULLPATHFILENAME = String der die KOMPLETTE Zieldateiinformation enthält
also Pfad + Dateiname + Dateierweiterung
Achtung bei Pfadangaben, es gelten hier die Lisp-Regeln
für Backslashes -> EIN Backslash muß als ZWEI Backslashes
eingegeben werden. Alternativ ist es auch möglich
EINEN Backslash als EINEN Slash anzugeben.
Beispiel:
"c:\\temp\\test.txt" oder "c:/temp/test.txt"
"\\\\SERVERNAME\\FREIGABENAME\\test.cad" oder
"//SERVERNAME/FREIGABENAME/test.cad"

Rückgabe = Liste die aus dem Textfile gelesen wurde, wenn
erfolgreich gelesen werden konnte,
nil wenn nicht möglich

Aufrufbeispiel:
(MAP:DWGLST->ATTACH "//Server/Freigabe/$test.cad")

oder

(MAP:DWGLST->ATTACH "c:\\test.tmp")

|;
(defun MAP:DWGLST->ATTACH (STR-FULLPATHFILENAME
/ FOUND
LST-ALIAS LST-DWG
STR-FILENAME OLD-CMDDIA
RETVAL OLD-FILEDIA
)
(if (not
(= (setq LST-DWG (load STR-FULLPATHFILENAME "err")) "err")
)
(progn
(setq LST-ALIAS (ade_aliasgetlist))
;; prüfen der Alias ggf. Abändern der Pfade...
(foreach ELEM (DT:LIST-REMOVE-DOUBLE (mapcar 'car LST-DWG))
(if (setq FOUND (MS-ASSOC (car ELEM) LST-ALIAS))
(if (/= (cadr ELEM) (cadr FOUND))
(ade_aliasupdate (car FOUND) (cadr ELEM))
)
;; Nicht gefunden, erzeuge neu
(ade_aliasadd (car ELEM) (cadr ELEM))
)
)
(setq OLD-CMDDIA (getvar "cmddia")
OLD-FILEDIA (getvar "filedia")
)
(setvar "cmddia" 0)
(setvar "filedia" 0)
(foreach ELEM LST-DWG
(setq STR-FILENAME
(strcat (caar ELEM)
":"
(cadr ELEM)
)
)
(command "_ADEDRAWINGS" "_attach" STR-FILENAME "")
)
(setvar "cmddia" OLD-CMDDIA)
(setvar "filedia" OLD-FILEDIA)
(setq RETVAL LST-DWG)
)
)
RETVAL
)


(defun MAP:DWG->LST (STR-FULLPATHFILENAME / FILE-DESC LST-DWG RETVAL)
(if (setq LST-DWG (ade_dslist))
(progn
(setq LST-DWG (mapcar 'ade_dwgactualpath LST-DWG))
(if (setq FILE-DESC (open STR-FULLPATHFILENAME "w"))
(progn
(foreach ELEM LST-DWG
(write-line ELEM FILE-DESC)
)
(close FILE-DESC)
(setq RETVAL STR-FULLPATHFILENAME)
)
)
)
)
RETVAL
)


;|
Funktion schreibt eine oder mehrere Listen in eine Datei
Argumente:
SYMLIST = Symbol oder Liste von Symbolen
z.B. (setq sym1 '(1 2 3))
-> (LIST>FILE 'Sym1 "c:\\test.txt")
oder (setq sym1 '(1 2 3) sym2 "Haseldasel")
-> (LIST>FILE '(Sym1 sym2) "c:\\test.txt")

FILENAME = STRING für Name der Datei in die geschrieben werden soll
-> c:\\temp\\test.txt
Bitte hierbei beachten: Lisp konforme Verwendung von Pfaden
Entweder ZWEI Backslashes für jeden Backslash der Pfadangabe
(bei UNC Pfaden also z.B.: "\\\\SERVERNAME\\FREIGABENAME")
oder für jeden Backslash EIN Slash verwenden
(z.B. "//SERVERNAME/FREIGABENAME")
|;

(defun LIST>FILE (SYMLIST FILENAME / FH RETVAL)
(if (setq FH (open FILENAME "w"))
(progn
(foreach SYM (if (listp SYMLIST)
SYMLIST
(list SYMLIST)
)
(princ "(setq " FH)
(princ SYM FH)
(foreach ITEM (list (cons 'quote (list (eval SYM))))
(prin1 ITEM FH)
)
(princ ")" FH)
)
(close FH)
(setq RETVAL FILENAME)
)
)
RETVAL
)

;;; Ersatz für Assoc. Assoc ist in diesem Fall case-sensitive
;;; ms-assoc nicht. Kontrolle für doppelte Einträge fehlt hier
;;; aber assoc gibt ja auch immer nur den ersten zurück...
(defun MS-ASSOC (STR LST / RETVAL)
(if (setq
RETVAL (vl-remove-if-not
'(lambda (X) (equal (strcase (car X)) (strcase STR)))
LST
) ;_ end of vl-remove-if-not
) ;_ end of setq
(car RETVAL)
) ;_ end of if
) ;_ end of defun

(defun DT:LIST-REMOVE-DOUBLE (LISTE / RETURNLISTE)
(if (= (type LISTE) 'list)
(progn
(foreach ELEMENT LISTE
(if (not (member ELEMENT RETURNLISTE))
(setq RETURNLISTE (cons ELEMENT RETURNLISTE))
) ;_ end of if
) ;_ end of foreach
(reverse RETURNLISTE)
) ;_ end of progn
) ;_ end of if
) ;_ end of defun


Viel Spaß damit...


------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 01. Feb. 2005 editiert.]

[Diese Nachricht wurde von marc.scherer am 01. Feb. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Goofy007
Mitglied
Vermessungstechniker


Sehen Sie sich das Profil von Goofy007 an!   Senden Sie eine Private Message an Goofy007  Schreiben Sie einen Gästebucheintrag für Goofy007

Beiträge: 578
Registriert: 06.11.2004

erstellt am: 01. Feb. 2005 20:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Marc!

Dank dir, das ist ja ein super Service!

LG Didi

PS: hab dir 10 Units überwiesen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

marc.scherer
Moderator
CAD-Administrator




Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

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: 01. Feb. 2005 23:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Goofy007 10 Unities + Antwort hilfreich

Hi,
Du mußt an den Anfang der Datei noch ein:
Code:

(vl-load-com)


schreiben.
Sorry, hatte ich vergessen...

------------------
Ciao,
Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Heike Preunkert
Mitglied
Application Engineer



Sehen Sie sich das Profil von Heike Preunkert an!   Senden Sie eine Private Message an Heike Preunkert  Schreiben Sie einen Gästebucheintrag für Heike Preunkert

Beiträge: 211
Registriert: 02.07.2004

AutoCAD 2009, Map 3D 2009, Civil 2009, Map 2008, Civil 2008
Windows xp

erstellt am: 02. Feb. 2005 09:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Goofy007 10 Unities + Antwort hilfreich

10 U´s 4U!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Goofy007
Mitglied
Vermessungstechniker


Sehen Sie sich das Profil von Goofy007 an!   Senden Sie eine Private Message an Goofy007  Schreiben Sie einen Gästebucheintrag für Goofy007

Beiträge: 578
Registriert: 06.11.2004

erstellt am: 02. Feb. 2005 12:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hab´s bereits verwendet, funktioniert wunderbar.

mfg Didi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz