| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Führung mit Dialogbox (479 mal gelesen)
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001
|
erstellt am: 15. Mai. 2006 11:37 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich bin schon lange auf der Suche nach einem Tool, mit dem ich voergefertigte Texte via Dialogbox mit einer assoziativen Führung in meine Zeichnung einfügen kann. Habe jetzt durch Zufall so etwas ähnliches gefunden. ABER: Hier wird der Text über "_dim" -> "_leader" eingefügt. Schade! BTN! Code: ;; Note with leader by Ken Jolly 1997 ;; Web Site http://members.aol.com/autolisper/index.htm ;; E-mail Bilgeslime@aol.com ; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED ; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR ; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED. ; **************************************************************** (defun C:NOTE ( ) (setq args '( )) (setvar "CMDECHO" 0) (setvar "BLIPMODE" 0) (setq NAMES '( "1/4 W x 1 1/4 DP SLOTS" "3/8 W x 1 1/4 DP SLOTS" "1/4 W x 1 1/4 DP CONT SLOT" "3/8 W x 1 1/4 DP CONT SLOT" "3/4 DIA x 2 DP HOLE" "3/8 W x 3/8 DP FALSE JOINT" "MS" "MS EDGE" "MS TOP" "MS BOTTOM" "MS FACE" "MS END" "PITCH" "HONE" "ANTIQUA" "3/8 W x 3/8 DP DRIP" "BULLNOSE" "1/8 x 1 ANCHOR STRAP" "MASONRY LEDGE" "FLASHING" "WEEP AT VERTICAL jOINTS" "PLEASE VERIFY ?" "PLEASE PROVIDE ?" "STUCCO" "CONCRETE" "GYP BD" "BRICK" "CMU" "PLASTER" "CREAM" "INDIANA" "SHELL" "SLOT STOPS HERE" "EASED EDGE" "MARK BACK OF STONE")) (setq dcl_id (load_dialog "CHAN.dcl")) (if (not (new_dialog "CHAN" dcl_id) ) (exit)) (start_list "selections") (mapcar ' add_list NAMES) (end_list) (action_tile "cancel" "(done_dialog) (reset nil)") (action_tile "accept" (strcat "(progn (setq SIZ (atof (get_tile \"selections\")))" " (done_dialog))" ) ) (start_dialog) (unload_dialog dcl_id) (setq SIZ (fix SIZ)) (setq SIZ (nth SIZ NAMES)) (SETVAR "ORTHOMODE" 0) (SETVAR "OSMODE" 512) (SETVAR "DIMTAD" 0) (PRINC "\nSelect 1ST & 2nd point of leader") (COMMAND "_DIM" "_LEADER" PAUSE PAUSE "" SIZ "EXIT") (SETVAR "DIMTAD" 1) (SETVAR "OSMODE" 107) (PRINC) )
Die Zeile (COMMAND "_DIM" "_LEADER" PAUSE PAUSE "" SIZ "EXIT") habe ich schon versucht zu ändern, klappt nicht, weil bei "_qleader" sich die Dialogbox nicht öffnet. Ist es möglich die Lispdatei (Im Anhang mit *.dcl) so zu editieren? Die Links des Autors sind tot. Getestet mit ADT2004 Grüße, Lothar
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 15. Mai. 2006 12:52 <-- editieren / zitieren --> Unities abgeben: Nur für Kramer24
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001
|
erstellt am: 15. Mai. 2006 12:58 <-- editieren / zitieren --> Unities abgeben:
|
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 15. Mai. 2006 20:12 <-- editieren / zitieren --> Unities abgeben: Nur für Kramer24
Hallo, nur eine Verständnis-Frage zu dem schönen Tool. Könnte diese Funktion: --------------------------------------------------------- (action_tile "accept" (strcat "(progn (setq SIZ (atof (get_tile \"selections\")))" " (done_dialog))" ) ) ----------------------------------------------------------- auch so: ------------------------------------------------------------ action_tile "accept" "(setq SIZ (atof (get_tile \"selections\")))(done_dialog)" ) ------------------------------------------------------------- aussehen? Gruß Theodor Schönwald Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 16. Mai. 2006 07:31 <-- editieren / zitieren --> Unities abgeben: Nur für Kramer24
Hallo Theodor, ich würde mal sagen ja, das "progn" ist unnötig, weil alle Funktionen innerhalb des STrings nacheinander ausgewertet werden. Und das "strcat" ist hier auch nicht notwendig, das würde vielleicht Sinn machen, wenn man sehr viele Funktionen in dem String unterbringen will (dann ist es übersichtlicher, weil nicht alles in einer ganz langen Zeile steht). ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |