|
Lisp : Welche Dias sind in SLB ?
fuchsi am 11.12.2007 um 12:28 Uhr (0)
Habe schnell mal aufgrund der Datei Beschreibung in VB was geschrieben.Code: file = "d:hicad10b10A0ART2.SLB" Set fs = CreateObject("SCRIPTING.FILESYSTEMOBJECT") Set f = fs.OpenTextFile(file) ok = True a1 = f.Read(32) ersten 32 Byte ignorieren. Hier könnte noch eine Prüfung stattfinden, ob es eh einen SLB ist While ok = True a1 = f.Read(36) If Mid$(a1, 1, 1) Chr(0) Then a2 = Mid$(a1, 1, InStr(a1, Chr(0)) - 1) Debug.Print a2 ausgeben des DIA Names Else ok = False ...
|
| In das Form Lisp wechseln |
|
Lisp : Welche Dias sind in SLB ?
fuchsi am 11.12.2007 um 12:20 Uhr (0)
Im Handbuch für Benutzanpassungen der 12er Version war das SLB Dateiformat sehr genau beschrieben.Im jetzigen findet man nur nochCode:In diesem Abschnitt wird das Format von AutoCAD-Diabibliotheken (ab Release 9) für Entwickler beschrieben, die eine Unterstützung von Diabibliotheken in ihre Programme einbauen möchten. Eine Diabibliothek weist im allgemeinen das folgende Format auf: "AutoCAD-Diabibliothek 1.0" CR LF ^Z NUL NUL NUL NUL Kopfzeile (32 Byte) Ein oder mehrere Diaverzeichniseinträge (je 36 Byte) ...
|
| In das Form Lisp wechseln |
|
Lisp : Wie kann ich Scripte automatisch laden?
fuchsi am 15.12.2007 um 19:46 Uhr (0)
Als automatische Ladevorgänge gibts es einige verschiedene Möglichkeiten.Vobn der angesprochenen acad.lsp acaddoc.lsp usw über eine angelegte mnl-Datei.Ich empfehle da Anfängern jedoch eher die einfachste Variante. Über die Autostart Gruppe im APPLOAD Dialog.------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form Lisp wechseln |
|
Lisp : AutoLISP englisch - deutsch
fuchsi am 29.02.2008 um 11:16 Uhr (0)
diese Lisps werdet ihr wohl händisch überarbeiten müssen.Dazu ein TippNehmt immer die englischen Befehle mit einem vorangestelltem Unterstrich(command "_MOVE"..) anstatt (command "SCHIEBEN"..)diese Schreibweisefunktioniert auf allen Autocadversionen, udn sit damit sprachunabhängig.Bei den Optionen niemals die Optionskürzel verwenden, sondern die Optionen immer auschreiben(command "_layer" "_Thaw" ..) statt (command "_layer" "_t" ...)ist erstens lesbarer, und zweitens kann man sich sicher sein, dass das Lis ...
|
| In das Form Lisp wechseln |
|
Lisp : Warnung beim Comilieren (LIST)
fuchsi am 04.03.2008 um 10:46 Uhr (0)
Das schaut irgendwie nach Artikel-Daten aus.Sowas mache ich immer so, dass ich mir die Daten aus dem ERP-System direkt in eine Access Datei ziehe, und diese dann mittels SQL-Statements abfrage.Hat in Lisp nichts verloren.------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form Lisp wechseln |
|
Lisp : Blockade nach fertig durlaufenem Lisp
fuchsi am 05.03.2008 um 12:23 Uhr (0)
Autocad 2008 deutsch Vollversion KEINE Gedenkminute bei mir.------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form Lisp wechseln |
|
Lisp : lisp aus lisp
fuchsi am 03.04.2008 um 11:36 Uhr (0)
Zitat:Original erstellt von AutoCADuser:[i@fuchsi: den wilden Teil mit den defuns hab ich doch von ober. Und wie die Routine reagiert, gab ich doch auch schon ober erwähnt.Aber dann geht ja doch nicht was ich vor hatte. Den code von zwei Routinen in eine LSP-Datei zu kopieren schaffe ichja auch, aber mehrere LSP-Dateien hintereinander ablaufen zu lassen, ohne dass ich diecodes jeder einzelnen LSP-Datei in eine LSP-Datei zusammenkopiere geht wahrscheinlich doch nicht...aber trotz dem, DANKE!![/i]Zum Verstä ...
|
| In das Form Lisp wechseln |
|
Lisp : Reaktor wieder laden
fuchsi am 31.03.2008 um 14:32 Uhr (0)
Code:; Anfang der Datei; Funktion zum Setzen des Reaktors(defun add-cmd-reactors( / ) (vl-load-com) (vlr-command-reactor nil ((:vlr-commandWillStart . cmd-start-callback) ) (vlr-command-reactor nil ( (:vlr-commandEnded . cmd-end-callback)) )); Funktion zum Setzen der Reaktoren(defun add-cmd-reactors( / ) (vl-load-com) (if(not *cmd-reactor-added*) (progn (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-commandEnded . cmd-end-callback)) ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp aus Delphi starten
fuchsi am 13.05.2008 um 10:45 Uhr (0)
Hm. Delphi. Schwierige Frage. Delphi verwendet meines Wissens nach lediglich die COM-Schnittstelle von Autocad. Da gibts es nicht wirklich viele Möglichkeiten. Die einzige Möglichkeit die mir einfällt wäre über die SendCommand Methode des Drawing Objektesin VBA würde es so ausschauen ThisDrawing.SendCommand ("(MeineLisp)" & vbCr)------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form Lisp wechseln |
|
Lisp : hyperlink länge
fuchsi am 20.05.2008 um 17:09 Uhr (0)
einige AnmerkungenCode:(setq Dateiname (getstring "Datei von Koordinatliste eingeben (z.B. kliste.txt): "))(if (= Dateiname "") (setq Dateiname "pumpen.csv") (setq Dateiname "pumpen.csv"))Hm. komischer Konstrukt. Für was soll denn der User einen Dateinamen eingeben, wennst ihn sowieso mit pumpen.csv überschreibst ?Code:(setq STR (car Listenzeile))(setq EQ (car (cdr Listenzeile)))STR und EQ sind Symbolnamen und DÜRFEN nicht als Variablennamen verwendet werden !------------------ Ing. Anton FuchsWWW.FFZEL ...
|
| In das Form Lisp wechseln |
|
Lisp : Block mit (entmake) erstellen
fuchsi am 24.09.2008 um 10:05 Uhr (0)
Zitat:Hier muß ich den Block mit "ENDBLK" abschließen, daß scheint mir irgendwie logisch; aber wenn ich bei einer herkömlich erzeugten Blockdefinition die Elemente der Reihe nach durchgehe (mit entnext) komme ich am Ende NICHT auf das Element "ENDBLK". Warum ist da nicht anzutreffen ?? Tja hier verhält sich einfach entnext anders. Anstatt das Objekt ENDBLK zurückzugeben gibt es halt einfach NIL zurückZ.B.: gegeben eine Block TESTBLOCK mit einer Linie und einem Bogen ergibt folgendes:Code:Befehl: (ent ...
|
| In das Form Lisp wechseln |
|
Lisp : Anzahl der Nachkommastellen
fuchsi am 27.10.2008 um 15:02 Uhr (0)
Zitat:Original erstellt von s.wickel:Hallo!Ich verwende gerne den Code:Code:(rtos (cadr pkt) 2 (getvar "LUPREC"))Dann richtet sich die Ausgabe nach der Einstellung in Autocad. Die Zahl der Nachkommastellen entsprichte dann der Anzahl, die man bei allen ACAD-Befehlen bekommt, die eine Zahl zurückgeben (Länge, Fläche etc.)Gruß, StefanStimmt so nicht ganz. Wenn in DIMZIN das BIT8 (eigentlich das 4. Bit) gesetzt ist, werden nachfolgende Nullen unterdrückt.RTOS übernimmt sowieso immer bei fehlender Angabe die ...
|
| In das Form Lisp wechseln |
|
Lisp : Zeichnung vom Modellbereich in den Layoutbereich verschieben
fuchsi am 20.05.2009 um 18:07 Uhr (0)
wenn diese Funktion nicht geht.Ist das zeichnungsabhängig? Also in der selben zeichnung immer wieder nachvollziehbar?Wird dabei noch auf das Layout1 umgeschaltet?Die meldung unbekannter Befehl 0,0 sagt mir, dass einer der vorigen befehle (aus welchem Grund auch immer) einen Befehlsoption mehr benötigt hat, und dewegen das (command "_pasteclip" "0,0") nicht mehr als eine Befehl abgehandelt wird, sondern die Option 0,0 einen neuen Befehl beginnt.Das (command .....) darf man nicht als abgeschlossenen Befehl s ...
|
| In das Form Lisp wechseln |
