Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Führung mit Dialogbox

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Führung mit Dialogbox (477 mal gelesen)
Kramer24
Ehrenmitglied V.I.P. h.c.
Architekt


Sehen Sie sich das Profil von Kramer24 an!   Senden Sie eine Private Message an Kramer24  Schreiben Sie einen Gästebucheintrag für Kramer24

Beiträge: 5881
Registriert: 09.11.2001

erstellt am: 15. Mai. 2006 11:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


note.zip

 
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


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 15. Mai. 2006 12:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Kramer24 10 Unities + Antwort hilfreich

Hallo Lothar,
so hat es bei mir geklappt:

(COMMAND "_leader" PAUSE PAUSE "" SIZ "")

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

Jörn

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

Kramer24
Ehrenmitglied V.I.P. h.c.
Architekt


Sehen Sie sich das Profil von Kramer24 an!   Senden Sie eine Private Message an Kramer24  Schreiben Sie einen Gästebucheintrag für Kramer24

Beiträge: 5881
Registriert: 09.11.2001

erstellt am: 15. Mai. 2006 12:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

...ein Traum ist das...

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

Theodor Schoenwald
Ehrenmitglied



Sehen Sie sich das Profil von Theodor Schoenwald an!   Senden Sie eine Private Message an Theodor Schoenwald  Schreiben Sie einen Gästebucheintrag für Theodor Schoenwald

Beiträge: 1672
Registriert: 16.04.2002

erstellt am: 15. Mai. 2006 20:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Kramer24 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 16. Mai. 2006 07:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Kramer24 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz