| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Acad_Colordlg (1316 mal gelesen)
|
Waldemar Mitglied Applikationsingenieur
Beiträge: 264 Registriert: 06.09.2001
|
erstellt am: 29. Jul. 2004 16:10 <-- editieren / zitieren --> Unities abgeben:
|
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 30. Jul. 2004 01:21 <-- editieren / zitieren --> Unities abgeben: Nur für Waldemar
|
Waldemar Mitglied Applikationsingenieur
Beiträge: 264 Registriert: 06.09.2001
|
erstellt am: 30. Jul. 2004 08:13 <-- editieren / zitieren --> Unities abgeben:
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 |
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 30. Jul. 2004 12:28 <-- editieren / zitieren --> Unities abgeben: Nur für Waldemar
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 30. Jul. 2004 12:31 <-- editieren / zitieren --> Unities abgeben: Nur für Waldemar
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 |
Waldemar Mitglied Applikationsingenieur
Beiträge: 264 Registriert: 06.09.2001
|
erstellt am: 30. Jul. 2004 12:54 <-- editieren / zitieren --> Unities abgeben:
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 |
Waldemar Mitglied Applikationsingenieur
Beiträge: 264 Registriert: 06.09.2001 Windows 7, Intel Core 2 Duo, P8600 AutoCAD, AutoCAD MEP, Revit MEP Navisworks
|
erstellt am: 01. Aug. 2004 17:13 <-- editieren / zitieren --> Unities abgeben:
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 |