|
AutoLisp : verunsichert über (ssget _p)
fuchsi am 08.09.2005 um 13:02 Uhr (0)
Zitat:(defun fnkSset (Slist / i Sset) (setq i 0 Sset (ssget)) (while ( i (length Slist)) (setq Sset (ssadd (nth i Slist) Sset)) (setq i (1+ i)) ) Sset );defunich versteh jetzt zwar nicht, warum du da ein ssget drin hast (laut deiner beschreibung soll lediglich einem liste mit enames zu einem Auswahlsatz werden), aber egal.Warum willst du diesen Auswahlsatz mit (ssget "_p") ansprechen ? Wir arbeiten in Lisp, da gibt es doch bekanntlich Variablen. Wenn du diesen erstellten Auswahlsatz brauchst, da ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : now bzw. datum in Lisp?
fuchsi am 21.09.2005 um 11:09 Uhr (0)
(print (now))(defun now ( / wert) (setq wert (rtos (getvar "CDATE") 2 6)) (setq wert (strcat (substr wert 7 2) "." (substr wert 5 2) "."(substr wert 1 4) " " (substr wert 10 2) ":" (substr wert 12 2) ":" (substr wert 14 2))) (if wert wert ""))------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Datum überprüfen
fuchsi am 17.10.2005 um 13:53 Uhr (0)
Zitat:Original erstellt von wasc:danke auch für die antwort ! da ich mit VBSkript noch sehrwenig zu tun hatte, ist es ein bisschen schwer für mich nachzu-vollziehen was da genau passiert !! der code funktioniert aber super !!!ich verwende das VB Scripting sehr häufig in Lisp, da man damit alles machen kann, was die VB Scriptsprache ermöglicht.Es gibt z.B.: zwar ein Alert in Lisp, jedoch kein OK Cancel Abfrage oder ien Inputbox.Das ist mit diesem Tools sehr leicht realisierbar(defun InputBox ( _prompt _tit ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
fuchsi am 19.10.2005 um 15:58 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 c ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp und Datenbanken
fuchsi am 20.04.2006 um 10:29 Uhr (0)
In diesem Beitrag habe ich kurz erklärt, wie man mit Lisp auf Acsess Datenbanken zugreifen kann http://ww3.cad.de/foren/ubb/Forum145/HTML/001285.shtml#000001------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp und Datenbanken
fuchsi am 20.04.2006 um 10:54 Uhr (0)
zu 2(setq x (open "WYPRINTWNWY00020PR" "w"))(print "test" x)(close x)Druckt am Netzwerkdrucker wy00020pr des printservers wyprintwn eine Seite mit dem Text test aus.Alternativ geht auch LPT1 (wenn der drucker direkt am lpt-Port hängt)------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form AutoLisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
fuchsi am 21.05.2007 um 12:54 Uhr (0)
Ich mache sowas eigentlich in dieser Art(defun c:Test (/ a1 ) (if (not Name) (setq name "keiner")) (setq a1 (getstring (strcat "Namen eingeben " name " : "))) (if (/= a1 "") (setq name a1)) (alert (strcat "Ihr Name ist " name)))in einem Werkzeugkasten kann man dann ganz einfach das Ding so ablegen^c^cTEST Anton[Diese Nachricht wurde von fuchsi am 21. Mai. 2007 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Programm sauber verlassen
fuchsi am 27.07.2007 um 11:21 Uhr (0)
Es gibt doch jetzt in LISP die Fehlerbehandlung ! (vl-catch-all-apply)Da kannst Du im Lisp schon fehler abfangen !(setq suc (vl-catch-all-apply getpoint ))(cond ((vl-catch-all-error-p suc) (print "Escape gedrückt oder sonstiger Abbruch")) ((= (type suc) LIST) (print "Punkt gewählt")) ((not suc) (print "rechte Maustatse"))); cond------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form Lisp wechseln |
|
Lisp : Region in Polylinie verwandeln.
fuchsi am 07.08.2007 um 15:06 Uhr (0)
@JanIch wollte eigentlich nur darauf hinweisen, dass ein (entlast) nicht unbedingt das letzte Element in der Datenbank beinhaltet.Das hat aber mit dem Problem in diesem Post eigentlich nichts zu tun.Also in folgendem Beispiel von CAD-HUEBNER(defun c:test ( / reg last_obj aws_temp) (setq reg (car(entsel "
Region auswählen:")) last_obj (ENTLAST) ; regaws_temp (ssadd)) (command "_.explode" reg) (while (setq last_obj(entnext last_obj)) (ssadd last_obj aws_temp)) (command "_.pedit" (ssname aws_temp 0) "_Y" ...
|
| In das Form Lisp wechseln |
|
Lisp : Bildschirmausgabe unterdrücken
fuchsi am 02.08.2007 um 08:30 Uhr (0)
Systemvariablen werden in meinem System immer automatisch zurückgestellt.Mittels den Reaktoren LispWillStart, LispEnded, LispCancelled, und sysVarWillChange weiss ich genau welche Systemvariablen von einem LISP Programm verändert wurden. Diese werden mitprotokolliert und im Ereigniss LispEnded und LispCancelled wieder auf ihrem Ausgangswert zurückgestellt.------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form Lisp wechseln |
|
Lisp : Script aus Lisp mit Command aufrufen
fuchsi am 11.09.2007 um 10:53 Uhr (0)
Soweit ich mich noch erinnern kann, werden SCripte, die über Command aus Lisp gestartet werden, erst ganz zum Schluss nach Beendigung der Lisproutinen angestossen, wobei eineige nachfolgende (also nach (command "Script" ..) LispBefehle diese Ausführung jedoch unterbinden.Ein Einbinden in einer Subroutine bringt hier gar nichts, das der Aufruf innerhalb der Subrotuine vielelicht der letzte Aufruf ist, jedoch nicht im ganzen Lisp-Ablauf.An und für sich fällt mir aber keine sinnvolle Anwendung von LISP und SC ...
|
| In das Form Lisp wechseln |
|
Lisp : Script aus Lisp mit Command aufrufen
fuchsi am 11.09.2007 um 12:39 Uhr (0)
Also , da in ACAD 2006 das eine C : Lisp Funktion ist, und die Eingaben mittels entsel abgefragt werden , geht es wohl nur über den Umweg mittels dem AxtiveX-efehl Command ein SendCommand abzusetzten !Achtung : ist für meine englischen expresstools !!!!(vlax-invoke (vlax-get (vlax-get-acad-object) "ActiveDocument") "SendCommand" (strcat "LayMrg" (chr 13) "T" (chr 13) "Layer1" (chr 13) (chr 13) "T" (chr 13) "Layer2" (chr 13) "YES" (chr 13)))------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form Lisp wechseln |
|
Lisp : Script aus Lisp mit Command aufrufen
fuchsi am 11.09.2007 um 16:37 Uhr (0)
Anscheinend verhält sich die ActiveX Methode SendCommand aufgerufen aus Lisp doch ein wenig anders als ind er VBA Umgebung.In der VBA-Umgebung (Thisdrawing.Sendcommand ..) wird das ganze sofort ausgeführt, inder LISP-Umgebung wird anscheinend die einzelnen SendCommands erst abgearbeitet, wenn LISP komplett beendet ist.Das erklärt auch, warum zuerst die ganzen Princ kommen, und dann die Meldungen des Laymrg.Die komischen Sachen wie Propertyeditor usw. erkläre ich mir eher daher, dass aus irgeneinem Grund, d ...
|
| In das Form Lisp wechseln |
