|
AutoLisp : Layer von Objekt(en) ausschalten
Waldemar am 19.10.2005 um 11:59 Uhr (0)
Hallo,habe mir ein Tool geschrieben mit dem ich den Objekt-Layer ausschalten kann. Es funktioniert super! Während der arbeit hab ich festgestellt, es währe schön, wenn ich auch mehrere Objekte auswählen und damit auschalten könnte. Nur da ist mein Lisp am Ende. Kann mir jemand helfen.Schöne GrüßeWaldemar(defun C:LAYFRIWP (/ CM AU LA) ;Systemvariablen werden gespeichert (Setq CM (Getvar "Cmdecho")) ;Systemvariablen werden gesetzt (Setvar "Cmdecho" 0) ;Auswahlsatz wird gebildet (Setq AU (Entget (Car (Entsel ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
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 copytext) copytext)) (entmod neuedxf) )(def ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
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 copytext) copytext)) (entmod neuedxf) )(def ...
|
| 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 : Nummern hochzählen
archtools am 19.10.2005 um 16:29 Uhr (0)
Zitat:Original erstellt von Dober Heinz:@ FuchsiHabe einen Text "M1/2" und der soll erhöht werden auf "M3/4" .... "M5/6" und so weiter, funktioniert auch so nur kann ich gerade bis Nummer 9 Hochzählen ich will aber weiter Hochzählen.Kann auch sein das ich von "M12/13" auf "M14/15" hochzählen muss.also ich nehme einen Vorhanden Text und Zähle von der vorgegebenen Zahl weiter.Hallo Heinz,Dein Problem ist schwerer zu lösen, als Du es auf den ersten Blick für wahrscheinlich hältst - außer, wenn Deine Texte im ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Unterschied set setq
sterei am 20.10.2005 um 08:16 Uhr (0)
Ich hätte mal eine Fragewas ist der Unterschied zwischen setq und set?Aus einem älteren Forenbeitrag habe ich eine ungefähre Vorstellung, verstanden habe ich es aber immer noch nicht. Es hat etwas mit der Evaluierung zu tun. Evaluierung heißt soviel wie Ausführung richtig??? Welche Parameter ich meiner Variablen übergebe??Noch etwas zur Verdeutlichung. Ich habe bisher in der FH C++ programmiert und soll nun im Praxissemester Lisp programmieren. Und da fällt mir der Einstieg gar nicht leicht Ich hoffe ihr k ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Unterschied set setq
mapcar am 20.10.2005 um 08:53 Uhr (0)
Auch wenns wieder keinen interessiert;-)Neben dem funktionalen Unterschied - set ist eine Funktion, die beide Argumente evaluiert, während setq eine special form ist, die das erste (sowie alle weiteren ungeraden) Argument(e) quotiert) gibt es seit der Einführung von Visual Lisp einen weiteren, der nicht zu unterschätzen ist:In Visual Lisp ist setq kein Lisp mehr, sondern ein hartverdrahteter Operator (hat im Compiler den Opcode 06). D.h. dass setq völlig am Interpreter vorbei läuft. Bei set ist das nicht d ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : vla-put-Constant
Bernd10 am 20.10.2005 um 09:32 Uhr (0)
Hallo Wolfgang, Zitat:Original erstellt von WolfgangGutke:P.S.: Konnte nirgendwo entwas über vla-put-constant findenin der Anlage ist er Weg um in der AutoCAD-Entwicklerhilfe etwas zu finden. Hier kurz beschrieben:- Visual LISP-Editor starten- vla-put-constant in der Visual LISP-Konsole eingeben und markieren- auf "Aus Symbolsatz ergänzen" klicken- es öffnet sich das Fenster Apropos-Ergebnisse- darin vla-put-constant markieren und die Hilfe aufrufen- es wird die AutoCAD-Entwicklerhilfe gestartet Weiter kan ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : _dist sysvar
CADmium am 20.10.2005 um 09:39 Uhr (0)
Welchen hiervon meinst du?Befehl: _distErsten Punkt angeben: Zweiten Punkt angeben:Abstand = 45.70, Winkel in XY-Ebene = 0.0, Winkel von XY-Ebene = 0.0Delta X = 45.70, Delta Y = 0.00, Delta Z = 0.00für die Verwendung in Lisp kannst du doch (setq L(distance (getpoint "
Erster Punkt: ") (getpoint "
Zeiter Punkt: ") ))verwenden.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lizenzieren
CADmium am 20.10.2005 um 13:36 Uhr (0)
guck mal z.B. hier .. das sollte man auch von Lisp bzw. über ActiveX ansteuern können. Aber andere wissen da sicher mehr ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lizenzieren
joern bosse am 20.10.2005 um 15:42 Uhr (0)
Hallo,ich selber nutze USB-Sticks oder Dongles von der Firma http://wibu.de . Ich speicher auf den Sticks oder Dongles eindeutige Codes ab. Pro freizuschaltendes Programm kann der Kunde Lizenzschlüssel anfordern. Mit diesen Schlüsseln sind die Programme lauffähig, sobald der USB-Stick am Rechner ist. Für jedes neue Programm, was der Kunde z.B. per update bekommt, kann ein neuer Schlüssel angefordert werden, d.h. ich kann meine Programmpalette nach Belieben erweitern, der Kunde arbeitet weiterhin immer mit ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bei Abruch oder Esc Benützereinstelungen zurücksetzten
vision am 20.10.2005 um 15:45 Uhr (0)
;Die Unterprogamme müssen oben stehen! (defun Init () (setq Err *error* *error* Fehler Osx (getvar "OSMODE") ) ) (defun ReInit () (setvar "OSMODE" Osx) (setq *error* Err) ;(redraw auswahl 4) (princ) ) (defun Fehler (s) (print (strcat "Fehler: "s)) (ReInit) ) (defun c:LispPrg (/ Err Osx) ;das vorhandene Lisp-Prg. (Init); Aufruf Unterprogramm (siehe oben) ;..... ;..... ;.....)Der fette Text muss zum vorhandenen Prog. hinzu gefügt werden!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bei Abruch oder Esc Benützereinstelungen zurücksetzten
Brischke am 20.10.2005 um 19:34 Uhr (0)
@mkronegger,mit deiner Lösung hat man aber nur die halbe Miete drin. Wenn das Programm selber einen Fehler macht, dann ist die Lisp-Lösung, wie die in dem Beitrag, auf den CADmium verlinkt hat, schon die Richtige. Denn in dieser wird auf beide Ereignisse reagiert.Grüße Holger------------------Holger BrischkeCAD on demand GmbH Autodesk User Group Central EuropeIndividuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland Jackpot on demand - Wir eröffnen den Spätsommer mit einer ...
|
| In das Form AutoLisp wechseln |
