---

Ich krieg es nicht richtig hin die Funktion getkword umzusetzen

(setq AW (getkword "\nHatchtype [Line/Net/Solid]\n"))
      (while (= AW "L")
(command "_hatch" "ansi31" "0.1" "0" OBJ "") (setvar "clayer" OLAY))
      (while (= AW "N")
         (command "_hatch" "net" "0.1" "0" OBJ "") (setvar "clayer" OLAY))

[Diese Nachricht wurde von cadplayer am 23. Sep. 2011 editiert.]

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

---

wo ist denn die Initget Zeile ?
(und entferne das \n am Ende des Strings / setze dafür einen Doppelpunkt oder Doppelpunkt und Leerzeichen)

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

[Diese Nachricht wurde von cadffm am 23. Sep. 2011 editiert.]

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

---

(initget "Line Net Solid")
(setq AW (getkword "\nHatchtype [Line/Net/Solid]<Solid>:"))
(cond
  ((= AW "Line")
    (command "_hatch" "ansi31" "0.1" "0" OBJ "")   
  )
  ((= AW "N")
    (command "_hatch" "net" "0.1" "0" OBJ "")   
  )
  ('T
    (command "_hatch" "solid" "0.1" "0" OBJ "")   
  ) 
)

vielleicht so ? ( ungetestet)

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

wie kann ich die Meldung: Invalid option keyword. interpretieren, wenn ich doch die die richtige Eingabe vornehme.

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

---

Keine Ahnung.. und wenn wir das für dich tun sollen , brauchen wir noch ein paar Anghaben: .... dein Code .. deine Eingaben .... die ACadmeldungen!

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

ich hab das wie folgt in meine routine eingebaut, wenn die var AW leer ist wird richtig die Schraffur Ansi32 genommen, dennoch kommt Fehler T no definition

(defun c:sa ( /
      OBJ
      LAYER
      FL)
  (setq OLAY (getvar "clayer"))
  (setvar "attreq" 1)
  (if (and (setq OBJ (car (entsel "\nselect hatch or pline !\n")))
  (setq LAYER (cdr (assoc 8 (entget OBJ))))
  (setq FL (rtos (vla-get-area (vlax-ename->vla-object OBJ)) 2 2))
      )
    (progn
      (command "_-insert" "flache" (getpoint "\npik point\n") (getvar "DIMSCALE") (getvar "DIMSCALE") 0 LAYER FL ))
    )
  (initget "Line Net Solid")
  (setq AW (getkword "\nHatchtype [Line/Net/Solid]<Line>:"))
  (cond
    ((= AW "Solid")
    (setvar "clayer" LAYER)
    (command "_hatch" "solid" "0.1" "0" OBJ "")
    (setvar "clayer" OLAY))
    ((= AW "Net")
    (setvar "clayer" LAYER)
    (command "_hatch" "net" "0.1" "0" OBJ "")
    (setvar "clayer" OLAY))
    (('T
      (setvar "clayer" LAYER)
      (command "_hatch" "ansi31" "0.1" "0" OBJ "")
      (setvar "clayer" OLAY))
    ))
  (princ)
  )

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

---

hallo cadplayer,
nimm bei
(('T
  (setvar "clayer" LAYER)
  (command "_hatch" "ansi31" "0.1" "0" OBJ "")
  (setvar "clayer" OLAY))
)

die aeusseren klammern weg, also
('T
  (setvar "clayer" LAYER)
  (command "_hatch" "ansi31" "0.1" "0" OBJ "")
  (setvar "clayer" OLAY))

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

[Diese Nachricht wurde von neurosis am 23. Sep. 2011 editiert.]

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

---

Herzlichen Dank

PS.: Warum wird bei der Solid-schraffur generell Texte ausgespart, bei Ansi32 oder Net-schraffur jedoch nicht, ist das eine Einstellungsfrage?

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

---

Hallo liebe Community!

Ich habe mich aus diesem Grund diesem Beitrag angehängt, weil die GetKword & Initget funktionion bei mir auch nicht funktioniert.

Kann es am X und XY liegen?

eintrag --> Abfrage ob Eintrag korrigiert werden soll
einstr  --> Der String der Bearbeitet wird

Code:

---

(if eintrag
  (progn
    (initget "Z X xR")
    (setq Eintr_wert (getkword (strcat "\nIst der Eintrag " eintstr " den Wert Z, X oder XR zuzuweisen? /<Z>: ")))
      (cond
        ((= Eintr_wert "X")
          (setq E_wert "X-")
        )
        ((= Eintr_wert "XR")
            (setq E_wert "XR-")
        )
        (T
            ((not Eintr_wert)
              (setq E_wert "")
            )
        )
      )
  )
  (setq E_wert "")
)

---

Was passiert wenn ich dann X nehme?
  Nimmt er den Wert X oder XR?

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

Christian

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

---

Hallo Christian,
(initget "Z X xR")

dann mußt Du auch in der COND-Abfrage (= Eintr_wert "xR")  =>Kleinschreibung beachten

Noch 2 Verbesserungsvorschläge:
Verwenden im Syntax der Abfrage die normale AutoCAD-Schreibweise:
z.B. (getkword "\nWert zuweisen[Z/X/xR]<Z>:")
Vorteil: der Benutzer weiß, das er für den Eintrag "xR" auch einfach nur ein "r" eintippen kann und die Optionen sind im Kontextmenü der rechten Maustaste vorhanden.

Wenn Du "Z" als Vorgabe hast, dann solltest Du vorweg ein (setq Eintr_wert "Z") als Initialisierung verwenden.

Zitat:

---

Was passiert wenn ich dann X nehme?
  Nimmt er den Wert X oder XR?

---

Bei "x" wird der Wert "X" zurückgegeben, bei "xr" der Wert "xR", bei "r" der Wert "xR".
Verwendest Du den VLIDE-Editor von AutoCAD?? Dort kannst Du in der Debug-Umgebung alle aktuellen Variablenwerte zur Laufzeit überwachen: http://www.bosse-engineering.com/JB_Data/Bosse-engineering/090501_VisualLISP-Editor.pdf

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Liniensignaturen Youtube

[Diese Nachricht wurde von joern bosse am 08. Jun. 2015 editiert.]

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

---

Zitat:

---

[Z/X/xR]<Z>:

---

Der Vorteil mit dieser Anweisung in []Klammern ist auch, du kannst die Kürzel mit der Maus anklicken

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

Danke für die Hilfe,

Mit X & xR funktioniert es.
Aber wenn ich bei der Abfrage v. getkword auf Enter drücke,
sollte das die Option Cond --> T verwendet werden oder?

Code:

---

      (cond
          .......
        (T
            ((not Eintr_wert)
              (setq E_wert "")
      )
            )

---

Ich bekomme immer eine Fehlermeldung.

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

Christian

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

---

Code:

---

((not Eintr_wert)
              (setq E_wert "")
      )

---

Das kannst du dir eigentlich sparen, sondern gleich den Aufruf bei Auswahl <enter> starten
(getkword "\...") <enter> ergibt nil (null)

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

Vielleicht so hier:

Code:

---

(progn
    (initget "Z X xR")
    (setq Eintr_wert (getkword (strcat "\nIst der Eintrag " (if (not eintstr) "Standard") " den Wert Z, X oder XR zuzuweisen? /<Z>: "))
  Eintr_wert (if (/= nil Eintr_wert) (strcase Eintr_wert))
  )
 
      (cond
        ((= Eintr_wert "X")
          (princ "\nAuswahl 'X'")
        )
        ((= Eintr_wert "XR")
            (princ "\nAuswahl 'XR'")
        )
        (T (= "Standard" Eintr_wert) (princ "\nAuswahl Enter")
      )
      )
  )

---

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

auch ich habe Probleme mit getkword.
warum bekomme ich in AutoCAD 2015 immer die Rückmeldung:
Ungültiger Optionstitel
egal ob ich die Optionen mit der Maus wähle, oder über Tastatur eingebe.

Code:
(initget "Ja Nein")
(setq Abfrage (getkword "\nSoll ich wirklich alles löschen? [Ja/Nein] :"))

AutoCAD-Meldung:
Soll ich wirklich alles löschen? [Ja/Nein] :J
Ungültiger Optionstitel.
Soll ich wirklich alles löschen? [Ja/Nein] :N
Ungültiger Optionstitel.
Soll ich wirklich alles löschen? [Ja/Nein] :J
Ungültiger Optionstitel.
Soll ich wirklich alles löschen? [Ja/Nein] :j
Ungültiger Optionstitel.
Soll ich wirklich alles löschen? [Ja/Nein] :N
Ungültiger Optionstitel.
Soll ich wirklich alles löschen? [Ja/Nein] :n
Ungültiger Optionstitel.
Soll ich wirklich alles löschen? [Ja/Nein] :Ja
Ungültiger Optionstitel.
Soll ich wirklich alles löschen? [Ja/Nein] :Nein
Ungültiger Optionstitel.

------------------
Danke Stefan

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

---

initget hat auch noch Flags
probim mal einfach (initget "Ja Nein" 1)

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

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

---

Hallo CADwiesel,

in AutoCAD 2012 funktioniert es, in AutoCAD 2015 funktioniert es nicht.
Irgendeine Idee warum?

------------------
Danke Stefan

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

---

komisch, mal geht es, mal geht es nicht.
momentan funktioniert:
(initget (+ 1 2 4 8 16 64) "Ja Nein")
(setq Abfrage (getkword "\nSoll ich wirklich alles löschen? [Ja/Nein] :"))

------------------
Danke Stefan

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

---

moin zusammen,

ich verweise mal auf
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/getkword-not-honoring-keywords/td-p/7356487
bzw.
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/sticky-initget-or-getkword-recognizing-only-the-first-initget/td-p/6409452

kurz zusammengefasst:
es ist ein konsolenproblem, in einer funktion funktioniert es.

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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