---

Hallo,

bin etwas ratlos!

Bei dem u. a. Programm funktionieren unter Windows XP die Funktionen:
XLINE, CIRCLE und TEXT einwandfrei.
Mit Windows 2000 funktioniert TEXT nicht (es wird kein TEXTLAYER erzeugt).
Fragen:
1. besteht zwischen Win XP und Win 2000 mit AutoCAD 2002 ein Funktionsunterschied?
2. warum funktioniert das Prg. nicht mit Bemassung u. 2D-Polylinien?

Für Eure Bemühungen bedanken ich mich im Voraus.

(Ein Beispiel aus dem Forum)

(vl-load-com)
(vlr-remove-all :vlr-editor-reactor)
(vlr-editor-reactor nil
  '((:vlr-commandWillStart . MyCommandWillStart)
    (:vlr-commandEnded . MyCommandEnded)
    (:vlr-commandCancelled . MyCommandEnded)
    )
)

(defun MyCommandWillStart (reactor value / )
  (setq value (car value))
  (cond ((= value "XLINE")  (setlayer "XLINE" 6))
        ((= value "DIMENSION")    (setlayer "BEM"  3))
((= value "CIRCLE") (setlayer "KREISLAYER"  7))
((= value "TEXT")  (setlayer "TEXTLAYER"  7))
  )
)
(defun MyCommandEnded (reactor value / )
  (setvar "CLAYER" "0")
)

(defun setlayer ( layer farbe / )
  (if (not (tblsearch "LAYER" layer))
    (entmake
      (list
      (cons 0 "LAYER")
      (cons 100 "AcDbSymbolTableRecord")
      (cons 100 "AcDbLayerTableRecord")
      (cons 2 layer)
      (cons 70  0)
      (cons 62  farbe)
      )
    )
  )
  (setvar "clayer" layer)
)

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

---

Hallo vision,

eretze mal die Zeile
(= value "TEXT")
durch
(wcmatch value "*TEXT")
Dann wird auch MTEXT und DTEXT beachtet.
Vielleicht liegt es daran?

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Holger,

Du hast (wie meistens) recht!

Mit "(wcmatch value "*XXX") bzw. "XXX*" " funktionierts mit allem!

Vielen DANK!

PS: bekomme beim LISP laden noch folgende Meldung:
Befehl: '_textscr ; Fehler: Einstellung für AutoCAD-Variable zurückgewiesen:
"CLAYER" "0"

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

---

Hallo Vision,

das verstehe ich nicht wirklich, denn
(wcmatch value "*XXX") sollte eigentlich nil ergeben, wenn value = TEXT oder DTEXT oder MTEXT ist.
???

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Holger,

die "XXX" sind nur Platzhalter bei der Antwort für die verschieden Möglichkeiten die ich benutze!

  (cond ((= value "XLINE")  (setlayer "HILFSLINIE" 213))
        ((wcmatch value "DIM*")  (setlayer "BEMASSUNG"  8))
        ((wcmatch value "*HATCH") (setlayer "SCHRAFFUR"  8))
((wcmatch value "*LINE")  (setlayer "LINIE"  7))
((wcmatch value "*TEXT")  (setlayer "TEXT"  7))

MfG

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

---

Die Fehlermeldug kommt von einem Fehlerhaften Versuch den Layer 0 aktuell zu setzen

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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