---

Dieser tolle Beitrag aus dem Forum zum Thema externe Referenzen ist ebenfalls gut gelaufen unter 2004.
Nämliches Problem 2006LT und Extender.
Läuft einfach nicht.

;;; Alle Textstile auf Schriftart isocp.shx umstellen

(defun c:xreftxt2isocp.lsp ()

    (command "_regenauto" "_off")

    (setq oldTextstyle (getvar "Textstyle"))

    (setq temp (cdr (assoc '2 (tblnext "style" t))))

    (setq stylelist (list temp))

    (while temp

            (setq temp (cdr (assoc '2 (tblnext "style"))))

            (setq stylelist (append

                                      (list temp)

                                      stylelist

                                  )

            )

    )

    (setq stylelist (cdr stylelist))

    (foreach style stylelist

            (command "_style" style "isocp.shx" "" "" "" "" "")

    )

    (setvar "Textstyle" oldTextstyle)

    (command "_regenauto" "_on")

    (command "_regen")

    (princ "\nAlle Textstile auf Font isocp.shx gesetzt")

    (princ)

)

LG

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

---

ändere mal den Anfang in

(defun c:xreftxt2isocp ()

Gruß
Markus

PS: mit der 1ten Zeile lief's auch nicht in 2004 

[edit]
Läuft doch, wenn du an der Eingabeaufforderung nur "xreftxt2isocp" eintippst 
[edit]

[Diese Nachricht wurde von majowi am 26. Aug. 2005 editiert.]

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