|
AutoLisp : Funktion mit Variablem Namen bauen...
Brischke am 26.05.2003 um 09:19 Uhr (0)
Hallo, ich habe mir auch mal Gedanken gemacht, und bin zu folgendem Ergebnis gekommen: Code: (setq func (princ blablabla )) (mapcar (lambda (FNAME) (eval (read(strcat ( defun FNAME ()(eval func)(princ)) ))) ) ( C:RWK C:SWK C:RWP C:SWP C:Test ) ) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
|
AutoLisp : Funktion mit Variablem Namen bauen...
Brischke am 26.05.2003 um 10:07 Uhr (0)
Zitat: Original erstellt von marc.scherer: (Und natürlich wie blöd ich bin, daß ich da nicht selbst drauf gekommen bin *schnüff*) Hallo Marc, ... da sag ich jetzt nix zu Man lernt ja nie aus! Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
|
AutoLisp : Funktion mit Variablem Namen bauen...
Brischke am 28.05.2003 um 11:59 Uhr (0)
Hallo Achim (man kennt sich ja bereits aus anderen Foren), na denn mal herzlich willkommen - war doch bestimmt auch nicht das letzte Posting. Dem (vlax-add-cmd ...) habe ich bisher noch keine Beachtung geschenkt, zeigt aber mal wieder, dass man sich so langsam mit den vl-irgendwas Befehlen beschäftigen sollte. Da ist doch schon eine Menge mehr möglich, wozu man mit den normalen Befehlsumfang ganz schöne *Hockstrecksprünge* machen müsste. Grüße Holger ------------------ Holger Brischke CADlon - Lisp ove ...
|
|
AutoLisp : Dateiname plus Layout1
Brischke am 02.06.2003 um 15:49 Uhr (0)
Hallo Martin, versuchs mal hiermit: Code: (strcat u:druckin (vl-filename-base (getvar dwgname )) - (vla-get-Name(vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object)))) ) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool s im FreeDownload (gesamt 33)!?
|
|
AutoLisp : Dateiname plus Layout1
Brischke am 03.06.2003 um 12:43 Uhr (0)
Hallo Martin, du darfst nur den (strcat ... ) durch mein (strcat ...) ersetzen. Du ersetzt zu viel. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool s im FreeDownload (gesamt 33)!?
|
|
AutoLisp : Dateiname plus Layout1
Brischke am 03.06.2003 um 13:25 Uhr (0)
Martin, hier gehts nicht um Zeilen tauschen sondern um den (srcat- befehl. Jeder Befehl hat eine öffnende und eine schließende Klammer. Und genau von der Öffnenden bis zur schließenden Klammer deines (strcat ...) mußt du tauschen. Dann sollte es passen. Im VLisp-Editor, stelle den Cursor mal links neben die offnende Klammer und drücke dann [Shift]+[Strg]+[9] dann hast du genau den Bereich der getauscht werden muß. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! ...
|
|
AutoLisp : text in gleichnamigen block konvertieren
Brischke am 10.06.2003 um 11:53 Uhr (0)
Hallo Jan, wahrscheinlich hast du jetzt länger auf ne Antwort gewartet, als die Zeit die du zum Schreiben gebraucht hättest. Nachfolgende Zeilen tauschen dir den Text gegen die Dummy-Blöcke aus. Diese sollten natürlich schon existieren. Hat der Dummy-Block irgendwelche Attribute, dann solltest du nicht vergessen die Sysvar s so zu setzen, dass diese nicht abgefragt werden, oder eben die Werte der Attribute in der Command-Anweisung mit berücksichtigen. Code: (mapcar (lambda (NAME / as) (se ...
|
|
AutoLisp : wipeouts finden
Brischke am 12.06.2003 um 11:38 Uhr (0)
Hallo Heidi, hiermit geht s: (command _.erase (ssget _X (list (0 . WIPEOUT ))) ) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool s im FreeDownload (gesamt 33)!?
|
|
AutoLisp : Dateinamen übernehmen
Brischke am 23.06.2003 um 12:53 Uhr (0)
Hallo Stffen, zunächst würde ich die Datei mit Pfad auslesen, dann würde es so aussehen. Code: (setq NAME (strcat (getvar DWGPREFIX ) (getvar DWGNAME )) f (open c:
ame.txt w ) ) (write-line NAME f) (close f) ;... (setq f (open c:
ame.txt r )) (setq NAME (read-line f)) (close f) (command _.saveas NAME) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool s im FreeDownload (gesamt 33)!?
|
|
AutoLisp : Problem mit mapcar
Brischke am 26.05.2003 um 15:37 Uhr (0)
Hallo Andrea, dann eben hier ;-) So sollte es gehen: (mapcar (lambda (L1 L2) (mapcar - l1 l2) ) (list (10 9 8) (7 6 5)) (list (1 2 3) (4 5 6)) ) - ((9 7 5) (3 1 -1)) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
|
AutoLisp : Problem mit mapcar
Brischke am 27.05.2003 um 08:30 Uhr (0)
Zitat: Original erstellt von mapcar: Probleme mit mapcar? Mit mapcar muss aber wirklich keiner einer Problem haben! *grien* [/code] [/B] Hallo mapcar, stimmt! - aber bei der Ergründung deiner Lösungen (manchmal) schon *grins*. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
|
AutoLisp : Problem mit mapcar
Brischke am 23.06.2003 um 14:45 Uhr (0)
Hallo Dea, du kannst natürlich so viele Variablen vereinbaren, wie du gern möchtest. Schneller macht s das aber nicht. In diesem Fall gehts auch mit den 2en, da die Lambda-Funktion einen eigenen Namensraum hat. Warum also mit verschiedenen Variablen noch mehr Verwirrung stiften . Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool s im FreeDownload (gesamt 33)!?
|
|
AutoLisp : initget "2punkte"
Brischke am 26.06.2003 um 10:58 Uhr (0)
Hallo Jan, schau mal dort: http://ww3.cad.de/foren/ubb/Forum145/HTML/000136.shtml da gings um s Gleiche. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool s im FreeDownload (gesamt 33)!?
|
