|
Lisp : Read-line hilfe!
Dorfy am 11.11.2008 um 14:34 Uhr (0)
Hi,kann Dein Problem leider nicht nachvollziehen...welchen Code verwendest Du?Was steht in der txt-Datei?Wie soll die Liste am Ende ausschauen?mfg heiko
|
| In das Form Lisp wechseln |
|
Lisp : Read-line hilfe!
FiRePhoeniX am 11.11.2008 um 12:24 Uhr (0)
Hallo Forum,ich bräuchte mal wieder eure Hilfe. Und zwar geht es um folgendes:Will an eine bestehende Liste die erste Zeile ersetzt . Und z.B 5 neuen Zeilen angehängt werden.Das mit dem anghängen ist ein einfach da mach ich den Befehl:(setq a (open Pfad "a"))Dies bekomm ich ja hin. Aber das mit dem ersetzen der ersten Zeile macht mit Schwierigkeiten. Hab hier im Forum gesucht und bin auf folgenden Beitrag gestoßen. http://ww3.cad.de/foren/ubb/Forum145/HTML/002383.shtml#000001 Dort dir gibt es ein Programm ...
|
| In das Form Lisp wechseln |
|
Lisp : Read-line hilfe!
cadffm am 11.11.2008 um 12:42 Uhr (0)
Also irgendwie scheinst du das nicht verstanden zu haben !?1. Zunächst sollte man also erstmal den Textfile einlesen, dazu brauchst du die "gefundene" Funktion nicht verändern, denn genau das macht sie ja.2. Jede Zeile wird dabei in einer SubListe gespeichert, vorne steht die Zeilennummer gefolgt von dem Zeileninhalt ((1 "Ich")(2 "bin")(3 "ein")(4 "fünfzeiliger")(5 "Text!")). Jede Subliste = eine Zeile in der Datei ! Möchtest du eine Zeile entfernen so mußt du das Listenelement raushauen, möchtest du e ...
|
| In das Form Lisp wechseln |
|
Lisp : Read-line hilfe!
cadffm am 11.11.2008 um 15:46 Uhr (0)
Zitat:Original erstellt von FiRePhoeniX:;;;Datei lesen(defun LESEN (dateiname / zeile datei liste n) (if(setq datei (open dateiname "r")) (progn (setq n 1) (while (setq zeile (read-line datei))(setq liste (cons (list n zeile) liste))(setq n (+ n 1))) (close datei))) (reverse liste))(setq MyVar (LESEN "C:/MeineTextdatei.txt"))Dann hängt die Liste an dem Symbol "MyVar" und los gehts..------------------die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)
|
| In das Form Lisp wechseln |
|
Lisp : Wo werden die Layerstates gepeichert?
s.wickel am 12.11.2008 um 12:39 Uhr (0)
Ja, ActiveX funktioniert.Ich meine nicht die Layereigenschaften, sondern das was Autocad als Layerstatus bezeichnet (also die Sammlung der Eigenschaften der Layer, so dass ich Sie nachher wiederherstellen kann).Eigentlich will ich gar nicht an die Definition der Layerstates, sonder ich will Sie lediglich die Layerstates von Lisp aus bedienen (wiederherstellen und vielleicht auch speichern). Über ActiveX habe ich es noch nicht probiert, da ich da nicht so Firm bin. Aber das kann ja noch werden.Ich denke an ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehl _.copy
Bernd10 am 13.11.2008 um 15:56 Uhr (0)
Hallo,ich verwende den AutoCAD-Befehl _.copy in meiner VLX-Anwendung. Dabei habe ich jetzt festgestellt, dass der Befehl mit command aufgerufen andere Auswahlmöglichkeiten bietet als mit dem Aufruf _.copy. --------------Aufruf mit (command "_.copy") ergibt im Textfenster:Befehl: (command "_.copy")nilObjekte wählen: Entgegengesetzte Ecke angeben: 2 gefundenObjekte wählen:Basispunkt angeben oder [Verschiebung/Mehrfach] Verschiebung: --------------------Aufruf mit _.copy ergibt im Textfenster:Befehl: _.copyOb ...
|
| In das Form Lisp wechseln |
|
Lisp : Liste als String - wie umwandeln ?
romi1 am 14.11.2008 um 07:35 Uhr (0)
Hi!Habe eine Liste in Form eines Stringes vorliegen (diese Strings werden übrigens von einer Art cfg-Datei eingelesen). Wie kann ich diese umwandeln, um damit im Lisp weiterzurechnen?Bsp:"(+ 2 2)" oder "(+ (* a b) c)"Gruß,Roman
|
| In das Form Lisp wechseln |
|
Lisp : Befehl _.copy
Bernd10 am 14.11.2008 um 09:51 Uhr (0)
Hallo an alle, Zitat:Original erstellt von CADchup:ich lese es so, dass dem Anwender die Optionen des Befehls angeboten werden sollen, er also gar nicht merkt, dass gelispelt wird.genau das wäre mein Wunsch. Ich habe jetzt folgenden Befehl um es in etwa abzubilden:( defun c:kopieren ( / ferrorsav icmdechosav icopymode ipickfirst lenamenk lenamevk pauswahl swwanrakt ); Den gewählten Auswahlsatz UNBEDINGT am Anfang ermitteln, da die Werte dafür nur zu diesem ...
|
| In das Form Lisp wechseln |
|
Lisp : aktuellen layoutnamen auslesen
baumhaus am 15.11.2008 um 16:20 Uhr (0)
Hey...möcht mit Hilfe einer Batch-datei die in ein pdf gedruckte datei automatisch den layoutnamen zuweisen. Das mit der batch datei ist ja kein Problem, nur weiß ich nicht wie ich den aktuellen layoutnamen aus acad auslesen kann... hab dafür keine sysvariable gefunden.könntet ihr mir vielleicht helfen? wär sehr dankbar...Grüße Mark
|
| In das Form Lisp wechseln |
|
Lisp : Kreuzende Linien aufbrechen
Sauerland am 18.11.2008 um 11:32 Uhr (0)
Hallo Holger,im Prinzip kommt Beides in Frage, da wir unterschiedliche Darstellungen für Rohrltg. und MSR verwenden. Siehe beigefügte DWF-Datei.Gruß Karl
|
| In das Form Lisp wechseln |
|
Lisp : Steigung
Dorfy am 19.11.2008 um 08:42 Uhr (0)
Hi,Mit den Fragmenten und ohne dcl-Datei kann man net viel machenWenn es um die Übergabe und Berechnung der Wert geht Dann vllt. so(action_tile "b0h" "(SETQ b0h $VALUE) (bminushset)")(defun bminushset (/);...Berechnung... (set_tile key value);siehe Hilfe)In der dcl und der lsp auf die Schreibweise der Variablen achtenMit freundlichen Grüßen Heiko
|
| In das Form Lisp wechseln |
|
Lisp : Fehlermeldung unterdrücken
alfred neswadba am 19.11.2008 um 16:53 Uhr (0)
Hi Wolfgang,nicht probiert, obs auch hier wirkt, aber SysVar Expert verwende ich generell gerne, um unnötigen Output (von dem AutoCAD glaubt, mich überzeugen zu müssen) zu unterdrücken.- alfred -PS: sauberer ist es aber jedenfalls, wie CADmium gezeigt hat
|
| In das Form Lisp wechseln |
|
Lisp : Orientierung umrechnen
joern bosse am 19.11.2008 um 16:55 Uhr (0)
Hallo Roman, ich hatte ein ähnliches Problem, da ging es von AutoCAD [rad] (linksdrehend, Nullrichtung= Osten) ins Vermessungssystem [gon] (rechtsdrehend, Nullrichtung = Norden)dafür hatte ich folgende Funktion:Code:(defun JB_verm:rad-acad-gon-verm(r1 / ) (setq r1 (- 500.0(* r1 (/ 200.0 pi)))) (setq r1 (cond(( r1 400.0)(- r1 400.0)) (( r1 0.0)(+ r1 400.0)) (T r1))) (if (= r1 400.0)0.0 r1))Das Studium ist schon lange her, ich glaube das Fachwort für solche Sachen war "Abriß", aber jetzt muss ich los, ...
|
| In das Form Lisp wechseln |
