|
AutoLisp : Mehrere Basispunkte!
CADmium am 29.02.2004 um 21:50 Uhr (0)
Definier mal deinen Block so, daß der Basispunkt genau mittig ist, dann meß ihn aus und schreibe Breite und Höhe in folgendes Lisp. Wenn dann ser Block in der Zeichnung vorhanden ist, kannst du die Refernzen mit entsprechenden Einfügepunkt mit dem Lisp erstellen. (defun c:4PKT-INSERT () (setq BLOCKNAME Test ) ; hier deine Werte reinschreiben (setq BLOCKBREITE 20) (setq BLOCKHOEHE 10) (setq PKT (getpoint Einfügepunkt : )) (initget R L O U ) (if (not(setq MOD(getkword
Ausrichtung [R] ...
|
| In das Form AutoLisp wechseln |
|
Lisp : 2. Punkt von GETDIST
CADmium am 09.03.2004 um 11:24 Uhr (0)
Die Systemvariable LASTPOINT speichert den letzten eingegebenen Punkt als BKS-Koordinate des aktuellen Arbeitsbereiches.Wenn du nach GETDIST noch woanders hinklickst, ist das Ergebnis natürlich nicht das von dir erwünschte! Deshalb , wenn du explizid den zweiten Punkt brauchst, verwende das obige Lisp!und :getpoint [pt] [msg]) The user can specify a point by pointing or by entering a coordinate in the current units format. If the pt argument is present, AutoCAD draws a rubber-band line from that point to t ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Systemvariable "Bais" über LISP mit SetVar setzen
CADmium am 18.03.2004 um 09:13 Uhr (0)
(setvar insbase (0.0 0.0 0.0)) ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 18. Mrz. 2004 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Variable in Variable?
CADmium am 23.03.2004 um 10:28 Uhr (0)
vl ... ist Visual-Lisp .. mach mal in den im ACAD integrierten Lisp-Editor auf .. und dann die Hilfe- Befehlsreferenz .... ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp/Script Anzeigenreihenfolge
CADmium am 18.04.2004 um 13:20 Uhr (0)
oder - wenn du immer die gleiche Layerreihenfolgehaben willst - (defun c:SORT_BY_LAYER () (SORT_BY_LAYER ("AM_8" "AM_3" "AM_1" "AM_0" "AM_5")) ) oder mit Abfrage (defun c:SORT_BY_LAYER ( / LAYER LAYERLIST) (while (setq LAYER(getstring "
LAYER : ")) (if (tblsearch "LAYER" LAYER) (setq LAYERLIST (cons LAYER LAYERLIST)) (princ "
Eingegebener Layer existiert nicht!") ) ) (if LAYERLIST (SORT_BY_LAYER (reverse LAYERLIST)) ) ) .. alles ungetestet.. bei Probs noch mal me ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mauskoordinaten bei Klick ?
CADmium am 21.04.2004 um 08:41 Uhr (0)
Hallo Leute! ...weiß einer zufällig, wie ich an die Mauskoordinaten ( in xy-Pixel )bezüglich des Bildschirms aus Lisp heraus rankomme ? Der vlr-mouse-reactor liefert ja bloß Zeichnungskoordinaten und (cadr (grread T 1))ebenfalls. Der Maustreiber muß ja aber die Bildschirmkoordinaten liefern. Über Win-API kommt man da auch sicher ran. Hat einer da was ??.. ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mauskoordinaten bei Klick ?
CADmium am 21.04.2004 um 09:33 Uhr (0)
Danke erstmal .. also über WINAPI ( user32 ) muß auch irgentwie per Lisp gehen. - Projekt mischen will ich nicht. Ich warte erstmal noch .. Warum soll ich das Rad neu erfinden ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mauskoordinaten bei Klick ?
CADmium am 22.04.2004 um 08:39 Uhr (0)
... Dank euch allen ... aber TOMOS Lösung ist schon das, was ich Suche ... jetzt nur noch auf Lisp. Hatt einer eigentlich schon mal WinApi-Funktionen aus user32.dll oder so für Lisp gekapselt? So ein Beispiel wäre auch nicht schlecht. ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp schreiben, verwalten, verschlüsseln
CADmium am 05.05.2004 um 08:30 Uhr (0)
Schreibe mit dem im Autocad integrierten Editor, verschlüssele normalerweise nichts (hat sowieso keinen Zweck ) und für die Verwaltung habe ich unterschiedlich benannte Verzeichnisse wie BIBO In Arbeit usw .... Machs nicht zu kompliziert, fällt dir sonst irgentwann auf die Füße ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp schreiben, verwalten, verschlüsseln
CADmium am 05.05.2004 um 08:52 Uhr (0)
wenn nicht ... zur Not kannste dir dafür doch ein Lisp schreiben ;D ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zeichnungseinheiten in einen Lisp -Befehl
CADmium am 06.05.2004 um 10:50 Uhr (0)
Ansonsten : Folgende Funktion rundet die übergebene ZAHL aud die angegebenen STELLEN (defun ROUND (ZAHL STELLEN / TEMP ) (if (and(numberp ZAHL) (=(type STELLEN) INT)) (progn (setq TEMP (abs ZAHL)) (repeat STELLEN (setq TEMP (* TEMP 10.0))) (cond ( ( (mod TEMP) 0.5) (setq TEMP (+ (fix TEMP) 1))) ( ( (mod TEMP) 0.5) (setq TEMP (fix TEMP) )) ( (= (mod TEMP) 0.5) (if (equal (/ (fix TEMP) 2.0) (fix(/ (fix TEMP) 2.0)) 0.001) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zeichnungen wiederherstellen
CADmium am 07.05.2004 um 14:56 Uhr (0)
Sicherlich.. aber du brauchst ein SCRIPT .. ein Lisp-prog läuft nicht über mehrere Zeichnungen. (so ohne weiteres) ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 07. Mai. 2004 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp automatisch starten...
CADmium am 11.05.2004 um 08:30 Uhr (0)
du hast zum Menu auch eine *mnl Datei erstellt in der dann auch die Zeile (load LISP.lsp ) vorkommt? Die *mnl wird beim Laden des Menus mit ausgeführt und damit auch alle darin enthaltenen Anweisungen... d.h. einfach die load-Zeilen für deine Lisps mit reinpacken ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 11. Mai. 2004 editiert.]
|
| In das Form AutoLisp wechseln |
