Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Lisp Befehl dinfo

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:  Lisp Befehl dinfo (624 / mal gelesen)
Germanu
Mitglied
Technikerin

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

Beiträge: 6
Registriert: 04.03.2014

BricsCad V22, (x64)

erstellt am: 13. Apr. 2023 10:56    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

Moin an alle,
das ist hier mein erster Fragefall. Bisher konnte ich viele Probleme mit Hilfe der schon gestellten Fragen lösen, aber im Moment bin ich völlig überfordert. Wir haben umgestellt von AutoCad auf BricsCaD, ist ja auch alles nicht so schwer, mit ein bißchen suchen, haben wir es gut hinbekommen. Aber der Befehl DINFO bringt uns an unsere Grenzen. Wir haben herausgefunden, dass der Befehl für die Lispdatei in BrIcsCAD DWGINFO lautet. Hat auch ein paar Tage gut funktioniert, aber nun geht gar nichts mehr. Wir stehen alle vor einem großen Rätsel, das Problem ist auf allen Rechnern das Gleiche. Hat vielleicht jemand eine Ahnung, was das Problem sein könnte. Die LISP Datei ist unverändert, nicht überschrieben o.ä.

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

cadffm
Moderator
良い精神




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

Beiträge: 21629
Registriert: 03.06.2002

Alles

erstellt am: 13. Apr. 2023 12:15    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 Germanu 10 Unities + Antwort hilfreich

Ich kenne mich da nicht so aus, aber DINFO gibt es in AutoCAD nicht.
DWGINFO aus den Expresstools, oder alternativ der Aufruf PROPULATE,  ist auch in den originalen AutoCAD Expresstools PROPULATE

>" Hat auch ein paar Tage gut funktioniert, aber nun geht gar nichts mehr"


"DINFO" bringe ich in Verbindung mit den DWGEIGEN in diesem Thread:
https://ww3.cad.de/foren/ubb/Forum54/HTML/033585.shtml#000004
Vielleicht hat das was mit deinem DINFO zutun?

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

Germanu
Mitglied
Technikerin

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

Beiträge: 6
Registriert: 04.03.2014

BricsCad V22, (x64)

erstellt am: 13. Apr. 2023 12:24    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

Hi, danke für die schnelle Antwort. Ich weiß nicht ob hier so einfach eine Lisp Datei hochladen darf, daher versuche ich mal zu erklären, was dinfo beinhaltet. Damit kann man einen ausgefüllten Stempel (Projektdaten) im Layout exportieren und dann in eine weitere DWG wieder importieren. Puh schwer zu erklären. Man spart sich jedenfalls das ganze Ausfüllen der Projektdaten.

Mit DWGEIGEN füllt man den Stempel aus und mit DINFO kann man dann den ausgefüllten Stempel in andere DWG´s  exportieren

[Diese Nachricht wurde von Germanu am 13. Apr. 2023 editiert.]

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

cadffm
Moderator
良い精神




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

Beiträge: 21629
Registriert: 03.06.2002

Alles

erstellt am: 13. Apr. 2023 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 Nur für Germanu 10 Unities + Antwort hilfreich

Ja,
schau wo die Datei liegt und was deren Inhalt ist,
vielleicht siehst du ja Informationen welche dich weiterbringen.

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

Germanu
Mitglied
Technikerin

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

Beiträge: 6
Registriert: 04.03.2014

BricsCad V22, (x64)

erstellt am: 13. Apr. 2023 12:54    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

ok, ich such mal weiter. Danke

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

Andreas Kraus
Mitglied
Elektrotechniker


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

Beiträge: 1385
Registriert: 11.01.2006

WIN 10
ACAD 2022

erstellt am: 13. Apr. 2023 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 Germanu 10 Unities + Antwort hilfreich

Sind das Attributinhalte die da von einer Zeichnung in die andere übertagen werden sollen ?
Hier mal zwei ganz einfache Funktionen die das machen. Die eine zum kopieren und die andre zum in der anderen Zeichnung ausfüllen.
Bitte keine mehrfachen Attributbezeichnungen, Layer entsperren usw. (wie gesagt, einfach also ohne das ganze Überwachungszeugs)

Code:
(defun c:attcopy< (/ ATT_LIST< OBJ OBJ_NAME)
  (setq obj_name (vlax-ename->vla-object (car (entsel))))
  (if (and (vlax-property-available-p obj_name "hasattributes")
   (= (vla-get-hasattributes obj_name) :vlax-true)
   (not (minusp (vlax-safearray-get-u-bound
  (vlax-variant-value
    (vla-getattributes obj_name)
  )
  1
)
)
   )
      )
    (setq att_list<
   (mapcar
     '(lambda (obj)
(list (vla-get-tagstring obj)
      (vla-get-textstring obj)
)
      )
     (vlax-invoke obj_name 'GetAttributes)
   )
    )
  )
  (vl-bb-set "attcopy" att_list<)
)

(defun c:attcopy> (/ ATT_LIST< ATT_LIST> DUMMY OBJ OBJ_NAME)
  (setq obj_name (vlax-ename->vla-object (car (entsel))))
  (setq att_list< (vl-bb-ref "attcopy"))
  (if (and (vlax-property-available-p obj_name "hasattributes")
   (= (vla-get-hasattributes obj_name) :vlax-true)
   (not (minusp (vlax-safearray-get-u-bound
  (vlax-variant-value
    (vla-getattributes obj_name)
  )
  1
)
)
   )
      )
    (setq att_list>
   (mapcar
     '(lambda (obj)
(list (vla-get-tagstring obj)
      obj
)
      )
     (vlax-invoke obj_name 'GetAttributes)
   )
    )
  )
  (foreach att att_list<
    (if (setq dummy (assoc (car att) att_list> ) )
      (vla-put-textstring (cadr dummy) (cadr att))
    )
  )
)


------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

[Diese Nachricht wurde von Andreas Kraus am 13. Apr. 2023 editiert.]

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

Germanu
Mitglied
Technikerin

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

Beiträge: 6
Registriert: 04.03.2014

BricsCad V22, (x64)

erstellt am: 27. Apr. 2023 08:19    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


dinfo.txt

 
Guten Morgen,
sorry dass ich mich jetzt erst melde, aber ich hatte eine Woche echt verdienten Urlaub
Leider ist attcopy< nicht das was wir suchen. Da ich leider keine Datei anhängen konnte, hänge ich jetzt einfach mal die Lisp hier an. Wie gesagt, es erleichtert uns die Arbeit ungemein und in ACad lief sie auch ohne weiteres aber in BricsCad geht sie gar nicht Ich bin allerdings auch Sachen Lisp nicht sehr bewandert.
(defun dinfo (/ dProbs)
(setq INFOFILE (strcat (getvar 'DWGPREFIX) "Projektdaten.txt"))
  (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 "Ort" 'Ort)
  (vla-getCustomByKey dProps "Bauvorhaben 1-1" 'Bauvorhaben_1-1)
  (vla-getCustomByKey dProps "Bauvorhaben 1-2" 'Bauvorhaben_1-2)
  (vla-getCustomByKey dProps "Bauvorhaben 2-2" 'Bauvorhaben_2-2)
  (vla-getCustomByKey dProps "Bauvorhaben 1-3" 'Bauvorhaben_1-3)
  (vla-getCustomByKey dProps "Bauvorhaben 2-3" 'Bauvorhaben_2-3)
  (vla-getCustomByKey dProps "Bauvorhaben 3-3" 'Bauvorhaben_3-3)
  (vla-getCustomByKey dProps "Ort Wappen" 'Ort_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 1-1 Wappen" 'Bauvorhaben_1-1_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 1-2 Wappen" 'Bauvorhaben_1-2_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 2-2 Wappen" 'Bauvorhaben_2-2_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 1-3 Wappen" 'Bauvorhaben_1-3_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 2-3 Wappen" 'Bauvorhaben_2-3_Wappen)
  (vla-getCustomByKey dProps "Bauvorhaben 3-3 Wappen" 'Bauvorhaben_3-3_Wappen)
  (vla-getCustomByKey dProps "Baumaßnahme 1-1" 'Baumassnahme_1-1)
  (vla-getCustomByKey dProps "Baumaßnahme 1-2" 'Baumassnahme_1-2)
  (vla-getCustomByKey dProps "Baumaßnahme 2-2" 'Baumassnahme_2-2)
  (vla-getCustomByKey dProps "Baumaßnahme 1-3" 'Baumassnahme_1-3)
  (vla-getCustomByKey dProps "Baumaßnahme 2-3" 'Baumassnahme_2-3)
  (vla-getCustomByKey dProps "Baumaßnahme 3-3" 'Baumassnahme_3-3)
  (vla-getCustomByKey dProps "Bauherr 1-1" 'Bauherr_1-1)
  (vla-getCustomByKey dProps "Bauherr 1-2" 'Bauherr_1-2)
  (vla-getCustomByKey dProps "Bauherr 2-2" 'Bauherr_2-2)
  (vla-getCustomByKey dProps "Bauherr 1-3" 'Bauherr_1-3)
  (vla-getCustomByKey dProps "Bauherr 2-3" 'Bauherr_2-3)
  (vla-getCustomByKey dProps "Bauherr 3-3" 'Bauherr_3-3)
  (vla-getCustomByKey dProps "Straße - Nr des Bauherren" 'Strasse_-_Nr_des_Bauherren)
  (vla-getCustomByKey dProps "Postleitzahl - Ort des Bauherren" 'Postleitzahl_-_Ort_des_Bauherren)
  (vla-getCustomByKey dProps "Tel - des Bauherren" 'Tel_-_des_Bauherren)
  (vla-getCustomByKey dProps "Projektnummer" 'Projektnummer)
  (vla-getCustomByKey dProps "Phase" 'Phase)
  (vla-getCustomByKey dProps "bearbeitet Datum" 'bearbeitet_Datum)
  (vla-getCustomByKey dProps "bearbeitet" 'bearbeitet)
  (vla-getCustomByKey dProps "gezeichnet Datum" 'gezeichnet_Datum)
  (vla-getCustomByKey dProps "gezeichnet" 'gezeichnet)
  (vla-getCustomByKey dProps "geprüft Datum" 'geprueft_Datum)
  (vla-getCustomByKey dProps "geprüft" 'geprueft)
  (vla-getCustomByKey dProps "Aufstellungsort den" 'Aufstellungsort_den))

(defun currinfo (/)
  (princ "\n")
  (princ (strcat "Ort      = " Ort "\n"))
  (princ (strcat "Bauvorhaben 1-1      = " Bauvorhaben_1-1 "\n"))
  (princ (strcat "Bauvorhaben 1-2      = " Bauvorhaben_1-2 "\n"))
  (princ (strcat "Bauvorhaben 2-2      = " Bauvorhaben_2-2 "\n"))
  (princ (strcat "Bauvorhaben 1-3      = " Bauvorhaben_1-3 "\n"))
  (princ (strcat "Bauvorhaben 2-3      = " Bauvorhaben_2-3 "\n"))
  (princ (strcat "Bauvorhaben 3-3      = " Bauvorhaben_3-3 "\n"))
  (princ (strcat "Ort Wappen      = " Ort_Wappen "\n"))
  (princ (strcat "Bauvorhaben 1-1 Wappen      = " Bauvorhaben_1-1_Wappen "\n"))
  (princ (strcat "Bauvorhaben 1-2 Wappen      = " Bauvorhaben_1-2_Wappen "\n"))
  (princ (strcat "Bauvorhaben 2-2 Wappen      = " Bauvorhaben_2-2_Wappen "\n"))
  (princ (strcat "Bauvorhaben 1-3 Wappen      = " Bauvorhaben_1-3_Wappen "\n"))
  (princ (strcat "Bauvorhaben 2-3 Wappen      = " Bauvorhaben_2-3_Wappen "\n"))
  (princ (strcat "Bauvorhaben 3-3 Wappen      = " Bauvorhaben_3-3_Wappen "\n"))
  (princ (strcat "Baumaßnahme 1-1      = " Baumassnahme_1-1 "\n"))
  (princ (strcat "Baumaßnahme 1-2      = " Baumassnahme_1-2 "\n"))
  (princ (strcat "Baumaßnahme 2-2      = " Baumassnahme_2-2 "\n"))
  (princ (strcat "Baumaßnahme 1-3      = " Baumassnahme_1-3 "\n"))
  (princ (strcat "Baumaßnahme 2-3      = " Baumassnahme_2-3 "\n"))
  (princ (strcat "Baumaßnahme 3-3      = " Baumassnahme_3-3 "\n"))
  (princ (strcat "Bauherr 1-1      = " Bauherr_1-1 "\n"))
  (princ (strcat "Bauherr 1-2      = " Bauherr_1-2 "\n"))
  (princ (strcat "Bauherr 2-2      = " Bauherr_2-2 "\n"))
  (princ (strcat "Bauherr 1-3      = " Bauherr_1-3 "\n"))
  (princ (strcat "Bauherr 2-3      = " Bauherr_2-3 "\n"))
  (princ (strcat "Bauherr 3-3      = " Bauherr_3-3 "\n"))
  (princ (strcat "Straße - Nr des Bauherren      = " Strasse_-_Nr_des_Bauherren "\n"))
  (princ (strcat "Postleitzahl - Ort des Bauherren      = " Postleitzahl_-_Ort_des_Bauherren "\n"))
  (princ (strcat "Tel - des Bauherren      = " Tel_-_des_Bauherren "\n"))
  (princ (strcat "Projektnummer      = " Projektnummer "\n"))
  (princ (strcat "Phase      = " Phase "\n"))
  (princ (strcat "bearbeitet Datum      = " bearbeitet_Datum "\n"))
  (princ (strcat "bearbeitet      = " bearbeitet "\n"))
  (princ (strcat "gezeichnet Datum      = " gezeichnet_Datum "\n"))
  (princ (strcat "gezeichnet      = " gezeichnet "\n"))
  (princ (strcat "geprüft Datum      = " geprueft_Datum "\n"))
  (princ (strcat "geprüft      = " geprueft "\n"))
  (princ (strcat "Aufstellungsort den      = " Aufstellungsort_den "\n"))
  )

(defun c:dinfo_exp (/ FW)
  (dinfo)
  (setq FW (open INFOFILE "w"))

  (prin1 (LIST (cons "Ort" Ort)
      (cons "Bauvorhaben 1-1" Bauvorhaben_1-1)
      (cons "Bauvorhaben 1-2" Bauvorhaben_1-2)
      (cons "Bauvorhaben 2-2" Bauvorhaben_2-2)
      (cons "Bauvorhaben 1-3" Bauvorhaben_1-3)
      (cons "Bauvorhaben 2-3" Bauvorhaben_2-3)
      (cons "Bauvorhaben 3-3" Bauvorhaben_3-3)
      (cons "Ort Wappen" Ort_Wappen)
      (cons "Bauvorhaben 1-1 Wappen" Bauvorhaben_1-1_Wappen)
      (cons "Bauvorhaben 1-2 Wappen" Bauvorhaben_1-2_Wappen)
      (cons "Bauvorhaben 2-2 Wappen" Bauvorhaben_2-2_Wappen)
      (cons "Bauvorhaben 1-3 Wappen" Bauvorhaben_1-3_Wappen)
      (cons "Bauvorhaben 2-3 Wappen" Bauvorhaben_2-3_Wappen)
      (cons "Bauvorhaben 3-3 Wappen" Bauvorhaben_3-3_Wappen)
      (cons "Baumaßnahme 1-1" Baumassnahme_1-1)
      (cons "Baumaßnahme 1-2" Baumassnahme_1-2)
      (cons "Baumaßnahme 2-2" Baumassnahme_2-2)
      (cons "Baumaßnahme 1-3" Baumassnahme_1-3)
      (cons "Baumaßnahme 2-3" Baumassnahme_2-3)
      (cons "Baumaßnahme 3-3" Baumassnahme_3-3)
      (cons "Bauherr 1-1" Bauherr_1-1)
      (cons "Bauherr 1-2" Bauherr_1-2)
      (cons "Bauherr 2-2" Bauherr_2-2)
      (cons "Bauherr 1-3" Bauherr_1-3)
      (cons "Bauherr 2-3" Bauherr_2-3)
      (cons "Bauherr 3-3" Bauherr_3-3)
      (cons "Straße - Nr des Bauherren" Strasse_-_Nr_des_Bauherren)
      (cons "Postleitzahl - Ort des Bauherren" Postleitzahl_-_Ort_des_Bauherren)
      (cons "Tel - des Bauherren" Tel_-_des_Bauherren)
      (cons "Projektnummer" Projektnummer)
      (cons "Phase" Phase)
      (cons "bearbeitet Datum" bearbeitet_Datum)
      (cons "bearbeitet" bearbeitet)
      (cons "gezeichnet Datum" gezeichnet_Datum)
      (cons "gezeichnet" gezeichnet)
      (cons "geprüft Datum" geprueft_Datum)
      (cons "geprüft" geprueft)
      (cons "Aufstellungsort den" Aufstellungsort_den)
      )
FW
)
  (close FW)
  (currinfo)
  )


(defun c:dinfo_imp (/ FR)
  (dinfo)
  (setq FR (open INFOFILE "r"))
  (setq IMPORT (read (read-line FR)))
  (close FR)

(vla-setCustomByKey dProps "Ort"
    (cdr (assoc '"Ort" IMPORT)))

(vla-setCustomByKey dProps "Bauvorhaben 1-1"
    (cdr (assoc '"Bauvorhaben 1-1" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 1-2"
    (cdr (assoc '"Bauvorhaben 1-2" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 2-2"
    (cdr (assoc '"Bauvorhaben 2-2" IMPORT)))
 
(vla-setCustomByKey dProps "Bauvorhaben 1-3"
    (cdr (assoc '"Bauvorhaben 1-3" IMPORT)))
 
(vla-setCustomByKey dProps "Bauvorhaben 2-3"
    (cdr (assoc '"Bauvorhaben 2-3" IMPORT)))
 
(vla-setCustomByKey dProps "Bauvorhaben 3-3"
    (cdr (assoc '"Bauvorhaben 3-3" IMPORT)))

  (vla-setCustomByKey dProps "Ort Wappen"
    (cdr (assoc '"Ort Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 1-1 Wappen"
    (cdr (assoc '"Bauvorhaben 1-1 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 1-2 Wappen"
    (cdr (assoc '"Bauvorhaben 1-2 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 2-2 Wappen"
    (cdr (assoc '"Bauvorhaben 2-2 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 1-3 Wappen"
    (cdr (assoc '"Bauvorhaben 1-3 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 2-3 Wappen"
    (cdr (assoc '"Bauvorhaben 2-3 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Bauvorhaben 3-3 Wappen"
    (cdr (assoc '"Bauvorhaben 3-3 Wappen" IMPORT)))

  (vla-setCustomByKey dProps "Baumaßnahme 1-1"
    (cdr (assoc '"Baumaßnahme 1-1" IMPORT)))

  (vla-setCustomByKey dProps "Baumaßnahme 1-2"
  (cdr (assoc '"Baumaßnahme 1-2" IMPORT)))

  (vla-setCustomByKey dProps "Baumaßnahme 2-2"
  (cdr (assoc '"Baumaßnahme 2-2" IMPORT)))

  (vla-setCustomByKey dProps "Baumaßnahme 1-3"
  (cdr (assoc '"Baumaßnahme 1-3" IMPORT)))

  (vla-setCustomByKey dProps "Baumaßnahme 2-3"
  (cdr (assoc '"Baumaßnahme 2-3" IMPORT)))

  (vla-setCustomByKey dProps "Baumaßnahme 3-3"
  (cdr (assoc '"Baumaßnahme 3-3" IMPORT)))

  (vla-setCustomByKey dProps "Bauherr 1-1"
    (cdr (assoc '"Bauherr 1-1" IMPORT))) 

  (vla-setCustomByKey dProps "Bauherr 1-2"
    (cdr (assoc '"Bauherr 1-2" IMPORT))) 
 
  (vla-setCustomByKey dProps "Bauherr 2-2"
    (cdr (assoc '"Bauherr 2-2" IMPORT)))
 
  (vla-setCustomByKey dProps "Bauherr 1-3"
    (cdr (assoc '"Bauherr 1-3" IMPORT)))

  (vla-setCustomByKey dProps "Bauherr 2-3"
    (cdr (assoc '"Bauherr 2-3" IMPORT)))

  (vla-setCustomByKey dProps "Bauherr 3-3"
    (cdr (assoc '"Bauherr 3-3" IMPORT)))

  (vla-setCustomByKey dProps "Straße - Nr des Bauherren"
    (cdr (assoc '"Straße - Nr des Bauherren" IMPORT)))

  (vla-setCustomByKey dProps "Postleitzahl - Ort des Bauherren"
    (cdr (assoc '"Postleitzahl - Ort des Bauherren" IMPORT)))

  (vla-setCustomByKey dProps "Tel - des Bauherren"
    (cdr (assoc '"Tel - des Bauherren" IMPORT)))

  (vla-setCustomByKey dProps "Projektnummer"
    (cdr (assoc '"Projektnummer" IMPORT)))

  (vla-setCustomByKey dProps "Phase"
    (cdr (assoc '"Phase" IMPORT)))

  (vla-setCustomByKey dProps "bearbeitet Datum"
    (cdr (assoc '"bearbeitet Datum" IMPORT)))

  (vla-setCustomByKey dProps "bearbeitet"
    (cdr (assoc '"bearbeitet" IMPORT)))

  (vla-setCustomByKey dProps "gezeichnet Datum"
    (cdr (assoc '"gezeichnet Datum" IMPORT)))

  (vla-setCustomByKey dProps "gezeichnet"
    (cdr (assoc '"gezeichnet" IMPORT)))

  (vla-setCustomByKey dProps "geprüft Datum"
    (cdr (assoc '"geprüft Datum" IMPORT)))

  (vla-setCustomByKey dProps "geprüft"
    (cdr (assoc '"geprüft" IMPORT)))

  (vla-setCustomByKey dProps "Aufstellungsort den"
    (cdr (assoc '"Aufstellungsort den" IMPORT)))
)

  (dinfo)
  (currinfo)
  )

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

cadffm
Moderator
良い精神




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

Beiträge: 21629
Registriert: 03.06.2002

Alles

erstellt am: 27. Apr. 2023 09:04    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 Germanu 10 Unities + Antwort hilfreich


230427_DINFO.dwg

 
Super,
dann geht es also um DINFO welches kein Mensch kennen konnte,
ich aber bereits zufällig das richtige Tool bzw. dessen Ursprung gefunden und oben verlinkt hatte <Klick>


1. Von der Programmierung her sollte das Programm problemlos in Bricscad laufen.
2. Deine angehängt Datei ist nicht die richtige Datei, die läuft sicher auch nicht in AutoCAD.
   Hier ist die Frage: Hast du das extra für uns gemacht (uns könnte ja Langweilig sein),
   oder ist das bereits dein Problem -> die falsche Datei?!

Ziehe die Datei per Drag&Drop in den Zeichenbereich, welche Fehlermeldung erhälst du? [F2]
Falls es "Error: extra right paren.." ist, öffne die Lsp Datei und lösche die letzte Klammer, Datei speichern,
versuche es erneut.
Wie lautet die Fehlermeldung jetzt oder funktioniert es?

  

PS: Dieses Tool ist noch "unvollendet", es benötigt zwingend die festgelegten Eigenschaften in der DWG, mögliche Helfer freuen sich daher über eine entsprechend vorbereitete DWG von dir. Jetzt ergänzt.

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

Germanu
Mitglied
Technikerin

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

Beiträge: 6
Registriert: 04.03.2014

BricsCad V22, (x64)

erstellt am: 27. Apr. 2023 09: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

cadffm du hast mir gerade meinen Tag gerettet. Ich habe die letzte Klammer entfernt und nun funktioniert es wieder. Du hast deine gute Tat für heute getan. Vielen, vielen, vielen Dank.
Viele Grüße aus dem hohen Norden

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

cadffm
Moderator
良い精神




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

Beiträge: 21629
Registriert: 03.06.2002

Alles

erstellt am: 27. Apr. 2023 09:33    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 Germanu 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von cadffm:
2. Deine angehängt Datei ist nicht die richtige Datei, die läuft sicher auch nicht in AutoCAD.

Die Aussage ist nicht ganz richtig und erklärt dann auch einiges:
Autocad liest die lsp Datei Zeile für Zeile ein, also sind alle Programmteile bereits ordentlich definiert&geladen, bis es in der letzten Zeile über ein Problem stolpert.
(die Fehlermeldung wurde wohl bisher einfach jahrelang ignoriert bei euch?)

In Bricscad wird aber der Fehler vor dem definieren festgestellt und der Vorgang abgebrochen,
daher ist erst mit Einsatz von Bricscad der Fehler in der Datei aufgefallen.

 

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

Germanu
Mitglied
Technikerin

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

Beiträge: 6
Registriert: 04.03.2014

BricsCad V22, (x64)

erstellt am: 27. Apr. 2023 10:20    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

Uns ist in AutoCad nie eine Fehlermeldung aufgefallen, aber das kann auch aktute Betriebsblindheit gewesen sein

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