Hi!
Ich habe bei euch im Forum diesen Code zum Bearbeiten der Zeichnungseigenschaften per Lisp gefunden:
(defun SET_DWG_PROPS_STRING ( STRING NUMMER / PROPS )
(if (and(=(type STRING) 'STR)(= (type NUMMER) 'INT))
(if (setq PROPS (entget(cdr(assoc -1 (dictsearch (namedobjdict) "DWGPROPS")))))
(progn
(if (assoc NUMMER PROPS)
(setq PROPS (subst(cons NUMMER STRING)(assoc NUMMER PROPS)PROPS))
(setq PROPS (append PROPS (list(cons NUMMER STRING))))
)
(entmod PROPS)
)
)
)
)
Ich wollte diesen Code zum Werte eintragen bei den 300er Nummern verwenden. Bei mir ist aber der Fehler aufgetreten, dass wenn ich eine neue Nummer eintrage, auch die alten nochmal eingetragen werden und somit zweimal drinnstehen. Ich denke dass andem das entmod Schuld hat.
Kann mir jemand einen Code oder eine Erklärung geben, die diesen Fehler nicht hat?
Achja, und ich bin nur Laie auf dem Gebiet, also bitte nicht zu komplizierte Erklärungen.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP