|
AutoLisp : Text Kopieren und ändern
Schachinger am 20.10.2004 um 07:42 Uhr (0)
servus habs grad probiert - das lisp behandelt bereits texte und mtexte.... (0. * TEXT ) ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
|
AutoLisp : Text Kopieren und ändern
Schachinger am 20.10.2004 um 08:36 Uhr (0)
ah... darauf hatte ich nicht geachtet - ich dachte das du meinst das das lisp überhaupt abbricht. guckst du hier: Code: (defun C:KOTA (/ OBJEKT) (while (setq OBJEKT (ssget _:S ((0 . *TEXT )))) (setq OBJEKT (ssname OBJEKT 0)) (command _.copy OBJEKT (if (= (cdr (assoc 0 (entget OBJEKT))) MTEXT ) (cdr (assoc 10 (entget OBJEKT))) (cdr (assoc (if ( 0 (cdr (assoc 72 (entget OBJEKT)))) ...
|
|
AutoLisp : Befehlswiederholung (ODCL)
fuchsi am 20.10.2004 um 15:02 Uhr (0)
da du im clickevent des buttons nur lispausdrücke reingeben kannst, wirst du das so nicht hinkriegen ich nehm mal an du hast den programmaufruf so drin (c:test), da kannst du aber keine begfehlswiederholung machen leider erkennt (command test ) keinerlei c: lisp-programme ein umweg wäre dieser (vlax-invoke (VLA-GET-ACTIVEDOCUMENT (vlax-get-acad-object)) sendcommand test ) wobai das test das c: programm ist (defun c:test (/) ...) da funktioniert die befehlswiederholung, da ja die methode sendcomman ...
|
|
AutoLisp : Externe Lisp in Repeat starten möglich?
cadking am 26.10.2004 um 10:44 Uhr (0)
Hallo Leute, kann mir jemand sagen, ob es in Autolisp möglich ist, innerhalb einer Repeat-Schleife eine externe Lisp-Datei auszuführen und anschließend wieder in die Schleife zurückzukehren? hier ein Auszug aus meiner Lisp. In der vorletzten Zeile soll die externe Lisproutine PVERB.LSP ausgeführt werden und dann soll es in der Repeat-Schleife weitergehen. (command .-layer _th * _on * ) (setq allobj (ssget X (list (-4 . AND )(cons 8 * ) (-4 . AND )))) (Setq objanz (sslength allobj)) ...
|
|
AutoLisp : Externe Lisp in Repeat starten möglich?
CADmium am 26.10.2004 um 13:46 Uhr (0)
..gaaanz ruhig : guck erstmal hier such nach nem defun in der Lisp und gucke, welche mit defun definierte Funktion du brauchst. Guck die überhaupt mal in der Hilfe im Vlispeditor den Text zur funktion defun an ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben.
|
|
Lisp : Layer umschalten bei der Bemassung
fuchsi am 27.10.2004 um 10:33 Uhr (0)
ich vermute eher , dass das reaktor lisp auf abruch mit ESC nicht reagiert, da der :vlr-commandEnded aber nicht der :vlr-commandCancelled eingebaut ist. d.h. beim abbruch mit ESC wird der originale Layer nicht wieder zurückgestellt.(defun reaload ();Initialisierung des Reactors (if (not *DEFUN_DIMLAYER*) (progn (setq *DEFUN_DIMLAYER* (VLR-Command-Reactor "*DEFUN_DIMLAYER*" ((:vlr-commandEnded . after_lay) (:vlrcommandCancelled . after_lay) (:vlr-commandwillstart . pre_lay) ...
|
|
Lisp : Layer umschalten bei der Bemassung
SHP am 27.10.2004 um 10:41 Uhr (0)
Zitat:Original erstellt von fuchsi:ich vermute eher , dass das reaktor lisp auf abruch mit ESC nicht reagiert, da der :vlr-commandEnded aber nicht der :vlr-commandCancelled eingebaut ist. d.h. beim abbruch mit ESC wird der originale Layer nicht wieder zurückgestellt.(defun reaload ();Initialisierung des Reactors (if (not *DEFUN_DIMLAYER*) (progn (setq *DEFUN_DIMLAYER* (VLR-Command-Reactor "*DEFUN_DIMLAYER*" ((:vlr-commandEnded . after_lay) (:vlrcommandCance ...
|
|
Lisp : Layer umschalten bei der Bemassung
mapcar am 27.10.2004 um 18:19 Uhr (0)
Warum macht ihr euch eigentlich so eine Arbeit? Steht alles fix und fertig seit Jahren hier: http://activex.autolisp.info/layreactor.html Der schaltet nicht nur auf den DIM-Layer, sondern (indem er vorher DIMSCALE ausliest) auf verschiedene maßstabsabhängige DIM-Layer. Alles komplett fix und fertig, und auch noch leicht erweiterbar.Aber: wie bei allen reaktorhaltigen AutoCAD-Programmen ist auch hier mit Instabilitäten zu rechnen. Ich übernehme keine Garantie!Gruß, Axel Strube-Zettler------------------(defu ...
|
|
AutoLisp : DCL-Toggle funktion in Lisp einbinden
Jürgen Scheeren am 28.10.2004 um 14:48 Uhr (0)
Hallo Autolisper, ich find einfach kein Beispiel wie ich die Toggle Funktion in eine Lisp-Datei einbinden kann, nicht bei Afro und auch nicht im Forum. Wer kann mir einen Tip geben. Anbei ein Versuchscode der bei value 1 einen Layer anlegen soll. Gruß Jürgen //DCL CODING STARTS HERE //The name of the dialog. Toggle //The start of the dialog definition : dialog //The opening bracket for the dialog definition { //The Label of the dialog definition. //This is what appears in the title bar of the dialog label ...
|
|
AutoLisp : Namenloser Textstill
Proxy am 28.10.2004 um 15:34 Uhr (0)
Ich hab da ein paar Dateien die ich mir einem selfmade lisp Textlich wegen der Optik anpassen wollte. Bei manchen Dateien gibt es jedoch tatsächlich einen Textstill der Namenlos bzw gar keinen Name hat. schnipp (setq tList (append tList (list (cdr (assoc 2 ts))))) liefert mir: schnapp ( Standard PROXYTEXTSTYLE_1 PROXYTEXTSTYLE_2 PROXYTEXTSTYLE_3 PROXYTEXTSTYLE_4 ) und an der 2-ten Stelle ist da die ******** Wie bekommt man den am besten angefasst um ihn den Textobjekten einen ander ...
|
|
AutoLisp : bildauflösung ermitteln
tappenbeck am 29.10.2004 um 14:05 Uhr (0)
hallo cadmium, ich möchte direkt via lisp die auflösung eines bildes abfragen ! für alles andere gibt es genügend andere wege ! trotzdem danke ! gruß Jan :-) ------------------ jan :-)
|
|
AutoLisp : durch ersetzen
mapcar am 29.10.2004 um 17:55 Uhr (0)
Jepp, jetzt dämmert s mir. Dieses kleine Testprogramm zeigt dir, dass in deinem Falle (prin1 ...) statt (write-line) angesagt ist: Code: (defun test( / fhand) (if(setq fhand(open "c:delete.me" "w")) (progn (mapcar (lambda(func / ) ((eval(read func))(strcat func"= c:folderfile
")fhand) ) ("write-line""print""princ""prin1") ) (close fhand) ) ) ) Alternativ kannst du aber auch ersetzen, aber eben nicht "" durch "", sondern "" durch "\" ...
|
|
Lisp : Sound in Lisp?
cadking am 02.11.2004 um 11:22 Uhr (0)
Hallo,gibt es in Autolisp einen Befehl, der mir einen Beep ausgibt?Gruß Stefan
|
