---

TBT_MTEXT.lsp.txt

Hallo Forum,
hier nun mal etwas kreatives von mir ;-) sowie zum nachdenken bzgl. der Geschäftspolitik von Autodesk in Hinsicht auf den Versionswechsel AutoCAD2004 ->2005.
Es war ja schon irgendwie „lustig“ das die Autodeskkunden mit einem Wartungsvertrag (2004) zusätzliche Programme downloaden konnten (Befehle in Werkzeugpaletten) die es auch so schon gab (man musste sie halt nur aktivieren), aber das Funktionen in der 2005er Version als neu verkauft werden die in der 2004er Version nur nicht aktiv sind finde ich persönlich schon mehr als dreist.

Es ist nämlich auch in 2004 möglich Mtexte mit einem Hintergrund, ähnlich wie Text-Mask aus den Expresstools, zu versehen. Der Vorteil der versteckten Funktion liegt aber darin das sich dieser Hintergrund assoziativ zum Mtext verhält und der Text permanent im Hintergrund liegt.

Das ist jetzt schon die zweite Funktion in 2004 die erst auftaucht wen man zusätzliches Geld für einen Wartungsvertrag oder ein Update ausgibt. Mal sehen was sich in der 2004er Version noch so alles versteckt.

Hier der Lispcode für den Hintergrund von Mtexten, ist mit Sicherheit noch ausbaufähig:

;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;; Aufruf der Funktion nach dem laden von TBT_MTEXT durch:
;; (C:TBT_MTEXT_FREI 3 9) -> zum freistellen mit "WEISS"
;;
;; Durch hinzufügen der Gruppencodes 90 63 45 wird ein Hintergrund
;; für Mtexte, wie es in Autocad2005 möglich ist, auch in
;; Autocad2004 hinzugefügt.
;;
;; Hintergrund  Code-90  Code-63
;; FREIGESTELLT  3        9      "WEISS"
;; ROT          1        1
;; GELB          1        2
;; GRÜN          1        3
;; CYAN          1        4
;; BLAU          1        5
;; MANGENTA      1        6
;; SCHWARZ      1        7
;; FARBE_8      1        8
;; FARBE_9      1        9
;; und so weiter...
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
(defun C:TBT_MTEXT_FREI (#90# #63# / #el# #TEMP#)
(while
  (setq #el# (entget(car (nentsel "\nMtext wählen: "))))

;;================================================================
    (setq    #TEMP# (list (cons 90 #90#)))
    (if (= (assoc 90 #el#) nil)
      (setq #el# (append #el# #TEMP#))
      (setq #el# (subst (cons 90 #90#) (assoc 90 #el#) #el#))
    )
;;================================================================
    (setq    #TEMP# (list (cons 63 #63#)))
    (if (= (assoc 63 #el#) nil)
      (setq #el# (append #el# #TEMP#))
      (setq #el# (subst (cons 63 #63#) (assoc 63 #el#) #el#))
    )
;;================================================================
    (setq    #TEMP# (list (cons 45 1.5)))
    (if (= (assoc 45 #el#) nil)
      (setq #el# (append #el# #TEMP#))
      (setq #el# (subst (cons 45 1.5) (assoc 45 #el#) #el#))
    )
;;================================================================
  (entmod #el#)(princ) 
);;ENDE while
);;ENDE C EFUN

;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;; Funktion zum "entfernen" des Hintergrundes von Mtexten
;; Aufruf der Funktion nach dem laden von TBT_MTEXT durch:
;; (C:TBT_MTEXT_UNFREI)
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
(defun C:TBT_MTEXT_UNFREI (/ #att# #el#)
(while
(setq #att# (car (nentsel "\nMtext wählen: ")))
(setq #el# (entget #att#))

(entmake
  (list
(cons 0 "MTEXT")
(cons 100 "AcDbEntity")
(assoc 8 #el#)
(cons 100"AcDbMText")
(assoc 10 #el#)
(assoc 1 #el#)
(assoc 40 #el#)
(assoc 41 #el#)
(assoc 71 #el#)
(assoc 72 #el#)
(assoc 7 #el#)
(assoc 210 #el#)
(assoc 11 #el#)
(assoc 42 #el#)
(assoc 43 #el#)
(assoc 50 #el#)
(assoc 73 #el#)
(assoc 44 #el#)
  )
)
(entdel #att#)
);;ENDE while
);;ENDE C EFUN

------------------
Grüße Thomas   

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

---

Danke für den Beitrag, 10-4u

EDIT:

Undokumentierte Objekteigenschaft -
Das ist eigentlich das was ADESK nicht tun sollte (ADesk sind die einzigen die Ihre Objekte "gescheit" dokumentieren)

keine Hilfsobjekte (Pixelbilder) - keine Probleme beim Datenaustausch...(hoffe ich)

keine "Gruppenbildung" - also arbeiten wie gewohnt...

Freistellen (=Hintergrundfarbe) oder farbig unterlegen - super !

------------------
- Sebastian -

[Diese Nachricht wurde von cadffm am 27. Mai. 2004 editiert.]

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