Führen Sie lisp Anweisungen mit DCL

[monta]

ich bin neu in der lisp sprache.
ich lerne immer noch.
ich verstehe nicht, wie man einen befehl mit dcl leitet.
ich erkläre es besser.
von dcl ich fand eine menge bereits gemacht, mit auch ihre datei lisp,
aber ich verstehe nicht, wie zu tun (die einfachste sache) zum beispiel, wenn ich es weiter mit dem programm drücken (er schreibt hallo auf der kommandozeile) oder ich lade eine andere lisp, wenn ich drücken sie nicht stoppen das programm lisp.
kann jemand auf dem forum die lisp und dcl schreiben, um es studieren zu können?

ich habe es von: http://web2.airmail.net/terrycad/tutorials/mydialogs.htmdiese dcl, aber wie nutze ich sie?

-----------------------------------------------------------------------------------------------------------------------------------------------------------------
// myokcancel
// ordnet ok tanrechen schmeckt ein und gruppenert sie zusammen und geben ihre breite an
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
myokcancel: Dialog {
Label = "mein ok stornieren";
federhalter;
:
fix_width = true;
ausrichtung = zentriert;
: ok_button {\chffffffffffff}
Breite = 11;
?
: Pressemitteilung
Breite = 11;
?
?
♪


---------------------------------------------------------------------------------------------------------------------------------------------------
; c:myokcancel - Individuen ok stornieren tasten und dann princ die rückkehr
; Suche sie, mit den Geschmacknsucht zu verbinden.
; Syntax: myokcancel
---------------------------------------------------------------------------------------------------------------------------------------------------
(defun c:myokcancel (/ dcl_id% return#)
(princ "\nmyokcancel")(princ)
; ladedialog
(setq dcl_id% (load_dialog "mydialogs.dcl"))
(new_dialog "myokcancel" dcl_id%)
; Dialog
(action_tile "accept" (done_dialog 1)));
(action_tile "cancel" (done_dialog 0))
(setq return# (start_dialog)
Entladener Dialog
(unload_dialog dcl_id%)
(princ "\n")(princ return#);optional
(princ)
); defunc c:myokcancel


Ich habe die Datei lisp und die Datei dcl erstellt,
Ich habe es in ihre jeweiligen Codes gesetzt, aber dann weiß ich nicht, wie man die nächste Lisp (oder setzen sie in die Lisp selbst).
Danke für Ihre Hilfe.

 

[GP.]

als mydialogs.dcl zu retten (Definition Datumi Dialog) myokcancel : Dialog {
Label = " my ok Cancel";
federhalter;
:
fix_width = true;
ausrichtung = zentriert;
: ok_button {\chffffff}
Breite = 11;
}
: Pressemitteilung {\chffffff}
Breite = 11;
}
}
}/myokcancel
datei lisp(defun c:myokcancel (/dcl_id% return#)
(princ "\nmyokcancel")(princ)

(setq dcl_id% (load_dialog "mydialogs.dcl")) ;carica il file dcl(new_dialog "myokcancel" dcl_id%) ; Aktivieren Sie das Dialogfeld(aktionen _ tile "accept" (done _ Dialog 1) ;aktion zu bewerten, wenn sie das feld auswählen(action_tile "cancel" (done_dialog 0) ;aktion zu bewerten, wenn sie das feld auswählen(setq return# (start_dialog) ; das fenster anzeigt und beginnt, den eingang zu löschen, an die variable zurück # ist dem von action_tile abgeleiteten wert (hier 1 oder 0) zugeordnet. (unload_dialog dcl_id%) ; die dcl-datei herunterladen(by "n") (by return #) ;viewt den der variable zugewiesenen wert (sie können auch löschen)(Snaps) ; los

; gemäß der ausgewählten box lehren ich die handlungen, die mit der lispe zu tun sind

(wenn (= zurück # 0) (auszug)) ; wenn sie die löschbox auswählen, werde ich austreten

(wenn (= zurück # 1)
(prog.)
(Bla bla bla) ; fügen sie, was sie wollen ich tun
)
));fun c:myokcancel

 

[PlannerRoad]

durch neugier, und wenn sie auch von hilfe sein können, markieren sie diese beiden tutorials:
Programmerung Dialogboxen in autolisp: dcl

visuelle lisp: programmierung benutzeroberflächen mit opendclund dieses programm zum erstellen von dcl dialogfeldern:
http://www.cad3d.it/forum1/showthread.php?t=1417&highlight=dcl

 

[Joseph]

ich kann auch eine andere tolle website vorschlagen:
http://www.afralisp.net/ und insbesondere dcl.

 

[monta]

ära die Wenn-Funktion, die ich nicht verstehen konnte, wo ich einfügen.
Ich konnte kleine Funktionen ausführen, aber ich verstehe nicht, wie man eine Funktion wie diese einfügt:


;tip1261.lsp: sholayer.lsp show layer (c)1996, robert a. perruzzi

(Defun c:sholayer)
(setq laname (getstring "layer name to mark: ")
(oben)
)
(setq ss1a (ssget "x" (cons 8 laname))))
(Sectq)
(länge ss1a)
)
(klar)
(while)
(Rückzug) 1)
(setq slen (1- slen)
; Ende während
) end sholayer.lsp



und machen es allein durch Pressen ok

 

[GP.]

1) wenn der deckel bereits geladen ist (kann in die startgruppe eingefügt werden)...
(wenn (= zurück # 1) (c:sholayer))
...
2) oder direkt die anweisungen des deckels einfügen ...
(wenn (= zurück # 1)
(prog.)(defun c:sholayer) ; stornieren theriga
(setq laname)
(Terpri)
)
(setq ss1a (ssget "x" (list)))
(Setq)
still (lang ss1a)
)
(Klar)
(Während)
(Rückzug) 1
(setq slen (1-slaw)
Ende
) ;end sholayer.lsp; Cancellare la riga)
...
3) oder erinnern sie sich an die lippe als unterroutin (in die lise eingefügt werden) (defun c: myokcancel (/ dcl _ id% return #)
(princ "\ nmyokcancel") (prc)
(setq dcl _ id% (load _ dialog "mydialogs.dcl")
(neu _ Dialog "myokcancel" dcl _ id%)
(aktionen _ tile "accept" (done _ Dialog 1)
(aktionen _ tile "cancel" (done _ Dialog 0)")
(setq return # (start _ dialog)
(Entladung _ dcl _ id% Dialog)
(wenn (= rückgabe # 0) (auszug)
(Frau) (Sholayer))
);fun c:myokcancel

(defun sholayer)gestrichen c:(setq laname (getstring "layer name to mark: "))
(Terpri)
)
(setq ss1a (ssget "x" (list (cons 8 laname))))
(setq)
slen (1- (länge ss1a)
)
(klar)
(while (/= slen -1)
(Rückzug) 1)
(setq slen (1- slen)
;;end im
) ;end sholayer.lsp

 

[monta]

danke und genau das, was ich wissen wollte.
eine welt öffnet sich mir!