---

Hallo zusammen,

ich habe leider in der Suche nichts gefunden, ich hoffe die Frage wurde noch nicht gestellt:

Unter Datei -> Zeichnungseigenschaften lassen sich ja benutzerdefinierte Werte eintragen, die dann z.B. in verschiedenen Layouts angezeigt werden. Das funktioniert recht gut und wird von mir/uns auch so praktiziert. Ist es möglich, diese Werte z.B. in eine xml - Datei zu exportieren oder z.B. als xml - Datei zu importieren?

Es geht darum, dass bestimmte, projektspezifische Daten bei uns in einer Datenbank verwaltet werden, die dann auch im Layout im Schriftfeld erscheinen. Es wäre toll, wenn wir diese Werte irgendwie "auf Knopfdruck"  aus der Datenbank exportieren und in die DWG importieren könnten. Geht das? Wir benutzen AutoCAD 2015 und Civil 2017.

Danke und viele Grüße
Tobias

[Diese Nachricht wurde von Tobier am 31. Jul. 2017 editiert.]

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

---

Hallo Tobias,

das funktioniert mit Bordmitteln nicht.
Mit einer kleinen Programmierung wäre das jedoch möglich. Wenn man schon programmiert, ist der Umweg über eine XML-Datei nicht  notwendig. Dann kann man die Daten auch gleich in die Datenbank schreiben oder von dort lesen und spart sich die ganze Synchronisation der Info's zwischen der Zeichnung <-> XML <-> Datenbank.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Ok danke für die Info  dann werde ich mal unseren Programmierer fragen 

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

---

Hy also vom Ansatz her kann man ein db mit ACAD verbinden aber ob das dann euren Ansprüchen genügt

http://help.autodesk.com/view/ACD/2015/DEU/?guid=GUID-8374B198-C4F9-485B-8062-8996D8571304

cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Hab den Thread erst jetzt gesehen.

Mein Lisp-Gebastel hier kopiert bzw. liest die benutzerdefinierten Zeichnungseigenschaften "Haupttitel", "Untertitel" und "Plannummer".
Diese Namen muss man also so ändern oder ergänzen, dass sie den eigenen Eigenschaften entsprechen.

; dinfo
; Lisp zum Kopieren und Einfügen von benutzerdefinierten Zeichnungseigenschaften
; "dinfo_exp" -> schreibt die Zeichnungseigenschaften in eine Textdatei
; "dinfo_imp" -> kopiert die Zeichnungseigenschaften aus der Textdatei in die Zeichnung

(defun dinfo (/ dProbs)
  (setq INFOFILE "c:\\Temp\\dwginfo.txt"); <- Speicherort
  (vl-load-com)
  (setq acadObject (vlax-get-acad-object))
  (setq acadDocument (vla-get-ActiveDocument acadObject))
  (setq dProps (vlax-get-Property acadDocument 'SummaryInfo))

  (vla-getCustomByKey dProps "Haupttitel" 'HAUPTTITTEL)
  (vla-getCustomByKey dProps "Untertitel" 'UNTERTITEL)
  (vla-getCustomByKey dProps "Plannummer" 'PLANNUMMER)

(defun currinfo (/)
  (princ "\n")
  (princ (strcat "Haupttitel      = " HAUPTTITTEL "\n"))
  (princ (strcat "Untertitel      = " UNTERTITEL "\n"))
  (princ (strcat "Plannummer      = " PLANNUMMER "\n"))
  )

;; Befehl zum Exportieren der Datei-Infos in eine Textdatei
(defun c:dinfo_exp (/ FW)
  (dinfo)
  (setq FW (open INFOFILE "w"))

  (prin1 (LIST (cons "Haupttitel" HAUPTTITTEL)
      (cons "Untertitel" UNTERTITEL)
      (cons "Plannummer" PLANNUMMER)
      )
FW
)
  (close FW)
  (currinfo)
  )

;; Befehl zum Importieren der Datei-Infos
(defun c:dinfo_imp (/ FR)
  (dinfo)
  (setq FR (open INFOFILE "r"))
  (setq IMPORT (read (read-line FR)))
  (close FR)

  (vla-setCustomByKey
    dProps
    "Haupttitel"
    (cdr (assoc '"Haupttitel" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Untertitel"
    (cdr (assoc '"Untertitel" IMPORT))
    )
  (vla-setCustomByKey
    dProps
    "Plannummer"
    (cdr (assoc '"Plannummer" IMPORT))
    )

  (dinfo)
  (currinfo)
  )

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt! 

Wollte noch ein File anhängen, aber habe die Kiste schon heruntergefahren.

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

---

Hallo,
ich habe die LISP ausprobiert und bekomme die Meldung "Falsch formartierte Liste in Eingabe" nach erfolgreichen Laden.

Habe den gesamten Code so kopiert und erstmal nichts verändert zum Testen.
DWG-Eigenschaften habe ich gleich der Lisp angelegt sprich Haupttittel, Untertitel und Plannummer

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

---

Es fehlt eine schließende Klammer..

  ..
  (vla-getCustomByKey dProps "Plannummer" 'PLANNUMMER)
) ; DIESE hier fehlt

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Danke für die schnelle Hilfe.

Nun bekomme ich die Meldung Autmoatisierungsfehler Schlüssel nicht gefunden.

Habe Klammern zählen lassen die Anzahl passt jetzt. Was könnte es sein?

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

---

@ CADuceus:  Das Progi funzt prima, danke dafür.

@ Basket4u: im Programmcode wird auf die "benutzerspezifischen "Eigenschaften" der Zeichnung verwiesen.
Die sind natürlich zunächst leer und müssen erst gefüllt werden, vorher ist da schlicht nix was ausgelesen werden kann.
Und deswegen wird der Schlüssel auch nicht gefunden.

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

---

Zitat:

---

Original erstellt von Basket4u:
sprich Haupttittel

---

??

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Ich habe jetzt gemerkt woran es liegt.

Ich dachte ich könnte eigenschaften exportieren und und in einer neuen dwg importieren also eigenschaft erzeugen und wert einsetzen bzw es ging mir mehr ums erzeugen dies scheint aber wohl nicht zu gehen.

Sorry für die Verwirrung.

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

---

DwgPropsEditor.zip

Geht auch ...  Export als txt ... Import von dieser txt .... Könnte man auch ohne den Umweg über die txt-Datei realisieren ....

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Hallo zusammen

@cadffm: Danke für verloren gegangene Klammer.  

Und ja, es ist so:
Das Lisp erzeugt keine neuen Namen in den Eigenschaften
und es liest auch keine Namen (und deren Werte) aus, die nicht im Lisp genannt sind.

Die Namen müssen zuerst selbst in den Dateieigenschaften definiert werden UND dann sind die gleichen Namen im Lisp zu verwenden.

Will man den Wert eines Namens dann in eine neue DWG kopieren, muss der Name auch dort bereits vorhanden sein, sonst bricht das Lisp ab.

Dass nur bestimmte (und nicht alle) Eigenschaften kopiert werden habe ich bewusst so gemacht, weil viele Eigenschaften wirklich nur diese Datei betreffen und in anderen Dateien nichts verloren haben.

Freut mich wenns brauchbar ist.

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt!  

Wollte noch ein File anhängen, aber habe die Kiste schon heruntergefahren.

[Diese Nachricht wurde von CADuceus am 30. Jan. 2018 editiert.]

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

---

Guten Tag Zusammen,

als erstes möchte ich mich für alles bedanken was in dieser Community alles diskutiert wurde, ich habe sehr viel gelernt.

CADuceus
vielen dank für dein LISP funktioniert super.

hierzu eine frage:

meine DWGŽs sind immer Auftrags bezogen in nem Ordner gespeichert.

wie müsste ich diese zeile "(setq INFOFILE "c:\\Temp\\dwginfo.txt"); <- Speicherort" umschreiben damit immer die .txt geladen wird die in dem entsprechenden Ordnerpfad gespeichert ist?

habe noch nicht genügend wissen mit LISP zu Programmieren bin aber sehr bemüht es zu lernen 

geht z.b. DWGpräfix oder ähnliches?

vielen Dank im Vorraus für deine Antwort

mfg
Stefan

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

---

Wenn die TXT in den selben Ordner soll wie die aktuelle DWG, dann ist es einfach.
(setq INFOFILE (strcat (getvar 'DWGPREFIX) "dwginfo.txt"))

Sollte es ein andere Ordner sein, so müßtest du die logik ermitteln wie das
Programm zu dieser Ordnerinformation kommen kann.

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

---

Vielen Dank für die schnelle Antwort

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

---

Vielen Dank für die schnelle Antwort

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

---

Vielen Dank für die schnelle Antwort

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

---

ups ich blicke es noch nicht ganz sorry

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

---

Hallo Cadmium,

die Lisp-Datei ist cool. Bin gerade dabei einen neuen Kopf in unserer Firma zu erstellen.

Kann man dieses auch auf Zeichnung für Plant3D anwenden?

------------------
-----------------------------------------------
Gruß

Steffan

-----------------------------------------------

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

---

Hallo Cadmium,

die Lisp-Datei ist cool. Bin gerade dabei einen neuen Kopf in unserer Firma zu erstellen.

Kann man dieses auch auf Zeichnung für Plant3D anwenden?

------------------
-----------------------------------------------
Gruß

Steffan

-----------------------------------------------

Sorry für den Doppel Post. Mei Internet Explorer hat nicht wie sonst die Ansicht zu dem Beitrag gewechselt

[Diese Nachricht wurde von Epi-Zentrum am 19. Jun. 2019 editiert.]

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

---

Keine Ahnung .. habe kein Plant3D  und kann somit nicht testen …. wenn das ACAD-Basiert ist, sollte es gehen

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Zitat:

---

Original erstellt von Epi-Zentrum:
Hallo Cadmium,

die Lisp-Datei ist cool. Bin gerade dabei einen neuen Kopf in unserer Firma zu erstellen.

Kann man dieses auch auf Zeichnung für Plant3D anwenden?

---

Hy
noch hat Plant auch die Benutzerdefinierten Felder sollte auch gehn , die Frage von mir wäre wozu ?
du hast doch in dem Projekt bzw in deiner Projektvorlage sehr viel mehr an Möglichkeiten ?

Kann auch sein das ich den Baum wieder mal nicht sehe.

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Hallo
Ich bin hier neu und habe mir die Lisp zu recht geschrieben, aber wenn ich diese nun anwenden will kommt die Fehlermeldung: Fehler: Zu viele tatsächliche Parameter.

Schon mal vielen Dank im voraus.

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

---

>"Ich bin hier neu"
Hi & willkommen,  

>"habe mir die Lisp zu recht geschrieben"
Was/welche "die Lisp"? Meinst du den Code aus dieser Antwort oben(Klick!)?
Dann hast du wohl beim Versuch meinem Hinweis zu folgen (siehe HIER!) die Klammer an anderer/falscher Stelle ergänzt.

>"wenn ich diese nun anwenden will kommt die Fehlermeldung: Fehler: Zu viele tatsächliche Parameter."
Dann hast du mehr Parameter an eine vla-Funktion übergeben wie die Funktion erwartet..

>"Ich bin hier neu und habe mir die Lisp zu recht geschrieben,"
Da du deinen Versuch nicht zeigst kann man den Fehler nicht zeigen.

>"Schon mal vielen Dank im voraus."
Du hast wohl vergessen eine Frage zu stellen auf deren Antwort du dich vermutlich im Voraus bedanken wolltst?  
Angabe der Systeminformation wie Betriebssystem und Grafikkarte sind gut, die Angabe von CAD-Software Produktversion oft nötig
und natürlich auch die Frage um die es geht.

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

---

DINFO.LSP

Ähm ja, habe ganz vergessen die Datei anzuhängen.

Ich hoffe nun ist sie mit dran gehängt. Könntet Ihr euch die Datei mal ansehen? Leider verstehe ich noch nicht so viel von den Lisp Dateien.

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

---

Hast du mal die entsprechend vorbereitet DWG?
Auf den ersten Blick sieht es erst mal gut aus..

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

---

TEST.dwg

Mit dieser Datei habe ich das ganze versucht.

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

---

Ok, hier ist das Übel:

(vla-getCustomByKey dProps "Bauvorhaben 1-1" 'BAUVORHABEN 1-1)

Ein Symbolname/Variablenname können keine Leerzeichenenthalten..
Du darfst diese gerne durch einen Unterstrich ersetzen,
auch empfehle ich ganz pauschal auf UMLAUTE und sonstige Sonderzeichen zu verzichten bei der Programmierung,
dann passieren auch nicht aus versehen Fehler mit diesen Sonderlingen.

BAUVORHABEN 1-1
sind ZWEI Argumente/Parameter

BAUVORHABEN_1-1
ist EIN Argument/Paramter

Wie die Felder benannt sind ist egal, aber der Symbolname nicht -> Öffne deine DWG im VLide. Acad, Befehl: VLIDE oder VLISP.

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

---

DINFO.LSP

Habe nun die Datei so bearbeitet, aber wenn ich den Befehl eingebe, bekomme ich nur das zu lesen Fehler: Automatisierungsfehler Schlüssel nicht gefunden. Anbei lade ich noch mal die bearbeitet Datei hoch. Langsam verzweifle ich.

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

---

"Schlüssel nicht gefunden", deutet darauf hin, das du was auslesen willst, was es nicht gibt ..

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Muss ich jetzt in meiner Zeichnung auch die "Beschreibung" anpassen, also aus Bauvorhaben 1-1 in Bauvorhaben_1-1 umbenennen?

Entschuldigt wenn ich so doof nachfrage, aber ich verstehe es einfach nicht.

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

---

Du hast zuvor "zuviel" geändert..

Alles das was vorher Magenta farben war (=STRINGS), sollte so bleiben wie es war, denn das ist der Name der Einträge in DwgProps.
Magenta? Öffne die LSP in dem VLide/VLisp-Editor, dann siehst du es.

In deiner DWG steht jetzt "Bauvorhaben 1-1" und dein Program versucht "Bauvorhaben_1-1" auszulesen,
dann kracht es weil es a) "Bauvorhaben_1-1" nicht gibt und b) keine Fehlerroutine implementiert ist.

(vla-getCustomByKey dProps "Bauvorhaben_1-1" 'BAUVORHABEN_1-1)

(
vla-getCustomByKey ; lese benutzerdefinierten Schlüssel aus
dProps             ; aus dem Objekt was mit dprops verknüpft ist
"Bauvorhaben 1-1"  ; der auszulesende Schlüsselname (also was in DWGPROPS steht als Name)
'BAUVORHABEN_1-1   ; und packe den ausgelesenen Wert an das Symbol/Variable BAUVORHABEN_1-1
)

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

---

dwginfo.txt

OK das habe ich nun verstanden    und habe es nun geändert.
Es hat auch was ausgelesen, allerdings hat die neue Zeichnung Probleme das wieder einzulesen.
; Fehler: Keine Umwandlung des lisp-Wertes in VARIANT mit folgendem Typ:  BEARBEITET das wird mir nur angezeigt.
Ich hänge mal die Datei an, die ausgelesen worden ist und danke schön das ihr mir so toll weiter hilft. Ohne euch würde ich es im Leben nicht hin bekommen.

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

---

Original:

(defun c:dinfo_exp (/ FW)
...
(cons "Haupttitel" HAUPTTITTEL)
(cons "Untertitel" UNTERTITEL)
(cons "Plannummer" PLANNUMMER)
...
)

aus deiner c:dinfo_exp Routine:
...
(cons "Bearbeitet" 'BEARBEITET)
(cons "Gezeichnet" 'GEZEICHNET)
(cons "Geprüft" 'GEPRÜFT)
...

versuche es mal so:
...
(cons "Bearbeitet" BEARBEITET)
(cons "Gezeichnet" GEZEICHNET)
(cons "Geprüft" GEPRÜFT)
...

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

---

Oh mein Gott es funktioniert endlich         
Vielen, Vielen dank.         

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

---

Hallo CW,

Ja die Eigenschaften über den Projektmanager kenne ich auch. Da wir hier im Hause aber auch plätze nur mit ACAD bzw. ACAD-Mechanical belegt haben, wollte ich eine Vorlage für alle bauen und durch eventuelles angleichen des Schritkopfes beide Systeme überein bringen.

Hat aber nicht ganz funktioniert. Werden nun zwei Vorlagen haben. Einmal nur Plant und nur ACAD

------------------
-----------------------------------------------
Gruß

Steffan

-----------------------------------------------

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

---

Hy

also ganz im Ansatz .. doch sowas geht IngSuite konnte das schon vor 20 Jahren aber .. kostet halt auch

aber ich denke das geht nur müssen dazu die Projektdaten in einer db Liegen

Sofistik hat das seinerzeit über eine MdB gemacht

Plant hat so was on Bord
wenn du also dir eine Projektverwaltung ( im kleinsten Fall  Excel ) einrichtest
brauchst du nur noch die Tools die dir die Daten dort abholen und in deine ACAD / Plant / Mech einlesen bzw aktuallisieren

Lee Mac hat das was für "einfach" Update Titleblock Attributes
bin grad nicht auf dem Laufenden wie das in Mech und ACAD mit Datenbankanbindung aussieht
und die Gretchenfrage .. lohnt es sich was Programmieren zu lassen ?

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Zeichnungseigenschaften_Test.dwg LISP_Zeichnungseigenschaften.lsp

Hallo zusammen

Erstmal vielen Dank für die sehr Hilfreiche LISP.

Ich habe sie auf meine benutzerdefinierten Eigenschaften angepasst und bekomme nun folgende Fehlermeldung:

error : Automation Error DISP_E_PARAMNOTOPTIONAL; [IAcadSummaryInfo] Required argument is not optional for [SETCUSTOMBYKEY] method.

Könnte mir jemand helfen und mir erklären woran das liegt?

Ich habe die Beispiel DWG sowie die LISP angehängt.

Vielen Dank im Voraus

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