---

Hallo,

habe in einem Lispprogramm nachfolgende Zeile:
(Setq FA (Acad_Colordlg 255 1)), die möchte ich auf den Linienpyp anwenden.
Gibt es zu "Acad_Colordlg" entspr. Befehl?

Gruß
Waldemar

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

---

Waldemar,

da musst du schon mal ein wenig mehr erklären, worum es dir geht. Meinst du eine einzige Lisp-Funktion, die den Farbdialog aufruft und deinen Linientyp modifiziert?

Man kann in Lisp sehr effektiv programmieren, klar. Trotzdem meistens in mindestens zwei oder drei Schritten;-)

Gruß, Axel Strube-Zettler

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze

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

---

Hallo Axel,

sorry für meine ungenaue Angaben.

Habe versucht ein vorhandenes LSP Programm etwas zu erweitern.
Mit dem Programm ist es möglich über eine DCL Dialogbox die aktuelle Farbe zu verändern/setzen. Ich möchte (mir meinem kleinem Lisp Wissen) die Funktion übernehmen und auf Linientyp anpassen. Leider fand ich in der Onlinehilfe keine entspr. Funktion. Anbei Teil aus dem LSP Programm:

(Defun DDCOLORSTART (/ NFARBE)
  (If (Or (= (Getvar "cecolor") "BYLAYER")
  (= (Getvar "cecolor") "VONLAYER")
  (= (Getvar "cecolor") "256")
      )
    (Setq NFARBE (Acad_Colordlg 255 1))
    (Setq NFARBE (Acad_Colordlg (Atoi FARBE) 1))
  )
  (If (= NFARBE 256)
    (Setvar "cecolor" "256")
    (Setvar "cecolor" (Itoa NFARBE))
  )
  (Setq FARBE (Itoa NFARBE))
  (C:POSNR)
)

Schöne Grüße
Waldemar

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

---

Nach wie vor, Waldemar, bleibt mir dein Anliegen verhüllt wie das gegenüberliegende Ufer des Sees im frühen Morgennebel...

Willst du jetzt über die Farbauswahl einem Linientyp eine Farbe zuweisen? Das geht doch nicht! Oder lautet die Frage: "Gibt es analog zu acad_colordlg" eine Lisp-Funktion, die den Auswahldialog für Linientypen aufruft und in einem Lisp-Programm den User einen Linientyp auswählen lässt?" Ein acad_linetypedlg? Schau in die Hilfe: In diesem Fall lautet die Antwort NEIN.

Gruß, Axel Strube-Zettler

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze

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

---

Wie wäre es einfach mit

(initdia)(command "_linetype")

da wird der ausgewählte Linientyp gleich aktuell gesetzt!

..und wenn du den gewählten Linientypnamen danach nochmal brauchst :
(getvar "CELTYPE")

------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 30. Jul. 2004 editiert.]

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

---

Hallo Axel,

Du hast die Frage erkannt.
"Gibt es analog zu acad_colordlg" eine Lisp-Funktion..."
Nachdem ich in der Onlinehilfe nichts gefunden haben, hebe ich schone befürchtet dass es nichts vergleichbares zu acad_colordlg gibt. Schade...

Ich danke Dir für die Antwort.

Grüße
Waldemar

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

---

posnrwp.zip

Hallo Thomas,

die Funktion mit (initdia)(command "_linetype") war der Schlüssel zum Erfolg.
Sowohl das LSP als auch DCL Dateien Funktionieren. Vielen Dank.

Es gibt jedoch einen Schönheitsfehler den ich über das ganze Wochenende leider nicht nachvollziehen und lösen konnte:

Obwohl der Wert LTYPE korrekt in dem LSP Teil ausgewertet wird, wird er in der DCL Datei nicht übernommen.
Das Feld wird somit in der Dialogbox nicht ausgefüllt.

Wenn ich im AutoCAD !LTYPE eingebe kommt der Linientyp als String korrekt zurück zBsp: "verdeckt"

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