|
AutoLisp : Entwicklung einer allgemeinen *Error* Funktion...
CADmium am 28.02.2004 um 12:42 Uhr (0)
Zitat: Original erstellt von mapcar: ...Ich denke im Moment eigentlich eher über eine eher gegenteilige Lösung nach: Ein ErrorHandler-Wizard, bei dem man sich in einem Dialog die gewünschten Features zusammenklickt (wie z.B. [x] Bei Absturz BKS wiederherstellen usw.) Wenn man sich die Features zusammengeklickt hat, erzeugt er eine Datei, die man mit (load ... ) einbindet, und die Aufrufe heissen dann nur noch (StartErrorHandler) und (EndErrorHandler) - ohne jegliche Argumente... Hi Axel, ist das ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fehler in meiner MNU Datei
CADmium am 08.03.2004 um 15:09 Uhr (0)
und ob das MenÜ geladen ist, kannst du damit überprüfen : (vl-load-com) (defun MENU-IS-LOADED ( MENU / MENULISTE ) (if(=(type MENU) STR) (if(member (strcase MENU) (mapcar (function (lambda (X) (car X))) (vlax-for FOR-ITEM (vla-get-menugroups (vlax-get-acad-object)) (setq MENULISTE (cons (cons(strcase (vla-get-name FOR-ITEM)) FOR-ITEM ) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fehler in meiner MNU Datei
CADmium am 09.03.2004 um 10:09 Uhr (0)
So meint Wiesel das: (if (findfile wp-menu.mnc ) (progn (princ
Lade Fremdprogramme: EB-Mü Menü ) (command _menuload WP-MENU ) (if (=(getvar cmdactive )1)(command _Y )) (menucmd P15=+WP-MENU.pop1 ) ) ) Wenns mehrere _y sind gehts auch mit (while (=(getvar cmdactive )1)(command _Y )) ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 09. Mrz. 2004 editiert.]
|
| 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 : Layer die Linienstärke "vorgabe" zuordnen
CADmium am 20.03.2004 um 18:52 Uhr (0)
@vei61 : ist möglich : (command -layer _make moebel _lw _default ) @Marv : klar, kann man - wenn du ne Bibo dafür brauchst... (mit Export/Inport - ASCII-Datei).. ... geht auch mit vl , aber soviel Aufwand für dann nur einen Fuktionsaufruf?? ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Unbenannte Gruppe
CADmium am 29.03.2004 um 13:10 Uhr (0)
@Dober Heinz ..entpackt .. txt-Datei als *.lsp speichern ... im unteren Teil der Datei die Menupunkte in die *.mnu integrieren .. die *.lsp in der *.mnl mit laden lassen ,die Bmp s in den Menupfad usw. Woran hakt es denn genau? ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : binär daten
CADmium am 31.03.2004 um 12:41 Uhr (0)
@gmk : Versuch doch innerhalb von Pascal/Delphi die Daten in Textform rauszuschreiben : record z.B. als Liste usw. und dann das ganze in eine Txt-Datei. AscII Dateien sind als Schnittstelle immer universeller!(siehe DXF ) ------------------ - 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 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 |
|
AutoLisp : Höhen aus Koordinatenliste in Lageplan
CADmium am 24.05.2004 um 11:47 Uhr (0)
mal vereinfacht.. da ist ein (rtos X 2 0) drin ... d.h. keine Nachkommastellen, und dann ist da noch der Einfluß von LUPREC und DIMZIN auf rtos.... hab mal ohne zu testen geändert : (DEFUN C _ASC() (SETVAR CMDECHO 0) (SETVAR OSMODE 0) (SETVAR LUPREC 4) (SETVAR DIMZIN 04) (TEXTSCR) (WRITE-LINE Programm zum lesen von ASC - Dateien zur šbernahme in AUTOCAD ) (TERPRI) (SETQ Qj(GETINT Punkt Nr. lesen ab Spalte ? eingeben: )) (SETQ Q@(GETINT Anzahl der Spalten (einschl. Komma) eingeben: ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehle bei jeder Zeichnung und nur beim Start
CADmium am 30.07.2004 um 08:04 Uhr (0)
.. Na weil ich in dem ganzen Thread nichts über die acaddoc.lsp gelesen hatte .. ? Und dafür wird doch eigentlich der Unterschied gemacht: F1 liefert : AutoCAD lädt den Inhalt von drei benutzerspezifischen Dateien automatisch: acad.lsp, acaddoc.lsp und die MNL-Datei, die zum jeweils aktuellen Menü gehört. Die Datei acad.lsp wird vorgabemäßig nur einmal geladen, wenn AutoCAD gestartet wird, während acaddoc.lsp mit jedem einzelnen Dokument (oder jeder Zeichnung) geladen wird. ... Jedesmal, wenn eine Zeichnun ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : (vla-putPaperMargins LAYOUT LowerLeft UpperRight) ?
CADmium am 02.08.2004 um 16:18 Uhr (0)
Ein ACAD-Layout stellt unter ActivX die Methode (vla-GetPaperMargins) bereit, welche die Druckränder ausliest. (Siehe auch Datei- Plot- Reiter Plotter - Knopf Eigenschaften - Benutzerspezifische Eigenschaften - Weitere Optionen - kleinere Ränder ) Gibt es eine Möglichkeit via Lisp (vla-putPaperMargins LAYOUT LowerLeft UpperRight) zu implementieren, um diese Ränder zu setzen? .. oder einen anderen Trick, diese beim Layouteigenschaftenübertragen zu setzten? Ein (vla-RefreshPlotDeviceInfo an geeigneter ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerstand speichern Button
CADmium am 05.08.2004 um 09:32 Uhr (0)
Schau mal Hier .. evtl hilft dir du statt (princ (entmake DATEI) ein (princ (entmode DATEI) weiter oder eine Fallunterscheidung mit (if (tablesearch LAYER ... ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
