|
AutoLisp : Skalierungsfaktor eines Ansichtsfensters
Brischke am 07.03.2003 um 09:13 Uhr (0)
Hallo Walter, jetzt ist s klarer. Dann geht s so: Code: (defun c:test (/ zoomfak) (setq zoomfak(f:VIEWPORT_zoomfak (car (entsel))));Ansichtsfenster wählen ) (defun f:VIEWPORT_zoomfak ( afel / af w1 w2) (setq w1 (cdr(assoc 41 (setq af (entget afel (list "ACAD"))))) w2 (cdar(cdr (member (assoc 1040 (setq w2 (cdar(cdr (assoc -3 af)))))w2))) ) (/ w1 w2) ) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue Tool s im FreeDownload
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Skalierungsfaktor eines Ansichtsfensters
Brischke am 07.03.2003 um 10:55 Uhr (0)
Hallo gmk, das kann ich so nicht nachvollziehen. Werden etwa schon die Stellen vor dem Komma gerundet, oder erst nach dem Komma. Ich bin nicht vom Fach, aber was ist das besondere an Gauss-Krüger-Koordinaten? Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue Tool s im FreeDownload
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Skalierungsfaktor eines Ansichtsfensters
Brischke am 07.03.2003 um 13:22 Uhr (0)
Schau mir das am Wochenende mal an. Euch ein schönes davon. Bis später ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue Tool s im FreeDownload
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Skalierungsfaktor eines Ansichtsfensters
Brischke am 10.03.2003 um 08:25 Uhr (0)
Guten Morgen Ernst, da habe ich wieder was gelernt. :-) Mapcar s Hinweis ist richtig. Die angezeigte Genauigkeit ist nicht das, womit AutoCAD intern arbeitet. Intern wird mit einer Genauigkeit von 16 Nachkommastellen gerechnet. Das sollte auch für Dich ausreichend sein, oder? Ergo: Von der Anzeige nicht täuschen lassen! Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Skalierungsfaktor eines Ansichtsfensters
Brischke am 10.03.2003 um 09:52 Uhr (0)
Hallo, man muss das einfach wissen, eine Sysvar ist mir nicht bekannt. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : elemente aus dem bruch abfragen
Brischke am 10.03.2003 um 15:02 Uhr (0)
Hallo Jan, schau dir mal die folgenden Zeilen an. So hast du beide Elemente. Code: (defun c:br ( / a b) (command "_.break" (setq a (entsel)) (getpoint "
2.Punkt: ")) (setq a (car a) b (entlast) ) (redraw a 3) (redraw b 3) (princ) ) In a ist das erste Element und in b das zweite. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Sortieren einer Liste
Brischke am 10.03.2003 um 15:27 Uhr (0)
Hallo Axel, leider schreibst du nicht, mit welcher Acad-Version du arbeitest. Mit den VL-Befehlen, hast du eine solche Funktion zur Verfügung. Code: (setq li (list (list 1 2 D )(list 2 3 Z )(list 5 6 G ))) (vl-sort li (function (lambda (e1 e2) ( (last e1) (last e2))))) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text in datei schreiben
CADwiesel am 13.03.2003 um 09:34 Uhr (0)
Bin unwissend, wer kann mir bitte helfen???? Dieser Text soll aus Lisp in eine txt-Datei geschrieben werden: (strcat "(if (zerop (getvar "DBMOD"))(command "._OPEN"" item ")(command "._OPEN" "_Y"" item "))" ) Wobei allein item eine Variable ist. Ist da draußen jemand mit nem Sack voll hilfe??? ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text in datei schreiben
Brischke am 13.03.2003 um 10:30 Uhr (0)
Hallo CADwiesel, versuch das: (strcat "(if (zerop (getvar "DBMOD"))(command "._OPEN"" item ")(command "._OPEN" "_Y"" item "))") der "" bewirkt, dass das " als String behandelt wird. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : element drehen
Brischke am 12.03.2003 um 17:46 Uhr (0)
Zitat: Original erstellt von gmk: hi cadwiesel! ...drehung wird dann wohl auf eine transformation rauslaufen). gruss georg Hi Georg, genau so ist das. Willst du das ohne (command ...) hinkriegen ist es ein wenig Koordinatenrechnen. In komplizierten Fällen verschiebe ich dann immer das BKS, damit mir das der (trans ...)-Befehl macht. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Schlecht geschrieben oder veraltet?
STRGALTDEL am 16.03.2003 um 22:48 Uhr (0)
Hi Programmers Ich bin eigentlich ein Lispmuffel, obwohl ich mich schon auf mapcar`s Seiten schlauer gemacht habe,aber warum laufen meist ältere LISP-Funktionen (runtergeladen oder anderswo gefundene...) nicht ohne Weiteres? Ist der Code veraltet oder sind sie einfach nur schlecht geschrieben? Hier ein Beispiel: ; This program extrudes a polygon profile along a 3d spiral path. ; Juan Jose Suarez , 24/9/91 - version 2 ; ;------------------------------------------------------------------ (defun c ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Text in Variable
Brischke am 25.03.2003 um 16:57 Uhr (0)
keine Zeit, deshalb ganz kurz:1) (setq textvar (cdr(assoc 1 (entget (car (entsel))))))2) (entmod (subst (cons 1 textvar)(assoc 1 (setq attdata(entget(car (nentsel))))) attdata))Mit der ersten zeile kannst du den Text wählen, die 2. Zeile weist den Text dem Attribut zu.Wenns nicht reicht, dann poste noch mal, schaue nach 20,00Uhr noch mal rein.Bei Fragen ...Grüße Holger------------------Holger BrischkeCADlon - Lisp over night!Neue Tools im Free-&DownloadZugang zum Download schon gesichert?
|
| In das Form Lisp wechseln |
|
AutoLisp : AutoLISP - könnte es soetwas?
MA28 am 25.03.2003 um 18:40 Uhr (0)
Habe absolut noch keine Ahnung von LISP! Kann man es sich selber beibringen (Buch, wenn welches) oder sollte ich unbedingt einen Kurs besuchen? Würde mir gerne etwas schreiben! Ziel: an allen Schnittpunkten von Bögen und Linien die den selben Layer haben, möchte ich einen Block einfügen. kann LISP das? ------------------ mfG Gambrinus
|
| In das Form AutoLisp wechseln |
