|
AutoLisp : Befehlsausgaben umleiten ??
fuchsi am 26.11.2003 um 09:52 Uhr (0)
LOGFILEMODE LOGFILENAME damit wird die ausgabe des textfensters in einer protokolldatei mitgeschrieben ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linie versetzen um Prozentwert der Länge
fuchsi am 26.11.2003 um 11:36 Uhr (0)
in etwa so: Befehl: Myversetz Objekt wählen: linie antippen Prozent eingeben: 10 Punkt auf Seite angeben, auf die versetzt werden soll: punkt picken (defun c:MyVersetz (/) (while (setq ename (car (entsel))) (setq edate (entget ename)) (cond ((= (cdr (assoc 0 edate)) LINE ) (setq dist (distance (cdr (assoc 10 edate)) (cdr (assoc 11 edate)))) (setq proz (getreal (strcat
Prozent eingeben : ))) (command versetz (* 0.01 proz dist) ename PAUSE ) ) ) ) ) ----- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linie versetzen um Prozentwert der Länge
fuchsi am 26.11.2003 um 11:41 Uhr (0)
habs noch etwas verbessert ! jetzt merkt sich der befehl die letzte Prozent-eingabe und schlägt diese als vorschlag vor man braucht dann, wenn man immer die gleiche prozent-anzahl braucht nur mit enter bestätigen (defun c:MyVersetz (/ ename edate dist proz) (while (setq ename (car (entsel
Linie wählen : ))) (setq edate (entget ename)) (cond ((= (cdr (assoc 0 edate)) LINE ) (setq dist (distance (cdr (assoc 10 edate)) (cdr (assoc 11 edate)))) (if (not tmpProz) (setq tmpProz 10)) ( ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linie versetzen um Prozentwert der Länge
Brischke am 26.11.2003 um 11:54 Uhr (0)
Hallo Walter, so geht s: Code: (defun c:mvs (/ ld ln abst prze) (princ
Linie wählen: ) (setq ld (ssget _:S ((0 . LINE )))) (if ld (progn (setq prze (getreal (strcat
Prozentwert (if prz (rtos (* 100.0 prz) 2 2) 100 ) : ) ) prz (if prze (/ prze 100.0) prz) ld (entget (setq ln (ssname ld 0))) abst (* prz (distance (cdr(assoc 10 ld))(cdr(assoc 11 ld)))) ) (command _.offset abst ln) ) (progn(princ
Keine Linie ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : mal wieder ein reaktor...
Brischke am 26.11.2003 um 14:16 Uhr (0)
Hallo Frank, das sind erweiterte Elementdaten. Gruppencode 3. Mein Ansatz wäre: einen Command-ENDE-Reaktor, der den Rechteckbefehl abfängt und an das zuletzt erstellte Rechteck einen Objektreaktor dranhängt. Zusätzlich dazu werden in dieser Funktion die Texte für Höhe und Breite erstellt. Die Handle dieser neu erstellten Texte wird als XDATA im Rechteck gespeichert. Dann brauchst du nur noch eine Reaktorfunktion, die aufgrund des Rechteck-Objektreaktors anspringt. Diese liest dann die neuen Maße und die Te ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fehler in AutoCAD 2004???
cadwomen am 24.11.2003 um 14:21 Uhr (0)
schuß ins blaue, mach mal ein _davor cw
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fehler in AutoCAD 2004???
axeld am 26.11.2003 um 14:48 Uhr (0)
Nein, das bringt nicht, das habe ich ja schon gemeint mit den englischen Befehlen. ------------------ Axel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fehler in AutoCAD 2004???
WolfgangE am 27.11.2003 um 08:46 Uhr (0)
Hallo Axel, dürfte das gleiche sein, was am Ende dieses Beitrages angesprochen wurde: http://ww3.cad.de/foren/ubb/Forum145/HTML/000230.shtml Hab dazu leider auch noch immer keine Lösung (den Umweg über die Skriptdatei möchte ich nicht als Lösung betrachten). Ciao, WolfgangE ------------------ An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : mal wieder ein reaktor...
Brischke am 27.11.2003 um 10:17 Uhr (0)
Hallo Frank, das ist die Objektreferenz Gruppencode 5 des Textobjektes. Diese ID bleibt im Gegensatz zum Gruppencode -1, dem Elementnamen, auch beim erneuten Öffnen gleich. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Aus Datei lesen
Emperor am 17.01.2002 um 22:04 Uhr (0)
moin moin! ich hätte da noch ein paar fragen, aber alles nach der reihe wie kann ich aus einer datei lesen und z.b. genau eine zeile ansprechen und daraus lesen? mit der write-line beschreibeung in der hilfe von acad 14 werd ich einfach nicht schlau. und wie kann ich von acad (also mittels einer lisp-anwendung) auf die registry zugreifen? dort schlüssel erstellen, editieren und entfernen? geht das überhaupt???? danke schonmal gruß Emperor
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Aus Datei lesen
pirilao am 21.01.2002 um 12:14 Uhr (0)
Hi Emperor! Du musst in der Hilfe bei read-line schauen. Generell ist es so: (defun ..... code... code.. (setq fileindex (open test.ini r )) die Variable fileindex wir nun dazu verwendet um die Test.ini anzusprechen bzw. auszulesen,bearbeiten etc. (Siehe Hilfe Open-Modus) Jetzt kannst Du zb in einer while schleife mit (read-line fileindex) jede zeile auslesen und auswerten oder was auch immer. zB: (setq lesezeile (read-line fileindex)) (while (/= lesezeile nil) (if (wcmatch lesezei ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Aus Datei lesen
Emperor am 28.01.2002 um 21:42 Uhr (0)
danke. hab nicht so ganz mit wcmatch gerechnet ;o) man kann doch anders in ACAD programmieren oder? ich hab mich damit noch nciht ganz so dolle auseinander gesetzt. ich schreib nur abundzu auf der arbeit ein paar hilfsprogramme . womit kann man denn noch in ACAD schreiben? danke EMPEROR
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Aus Datei lesen
benwisch am 06.02.2002 um 12:38 Uhr (0)
schade, daß hier noch nicht so viel los ist.... @pirilao tolle Antwort !!! aber mal ne frage zu lisp-bücher.... habe bisher noch keine deutschsprachigen bücher gefunden.....habe ich falsche suchbegriffe verwendet, oder gibt es tatsächlich nur englischsprachige (was mir aber dann doch zu schwer ist)?? deine links werde ich mir mal gleich anschauen
|
| In das Form AutoLisp wechseln |
