|
Lisp : Übersetzungstabelle
spider_dd am 16.08.2006 um 16:36 Uhr (0)
Hallo Ernst,vielleicht als Idee ...bedeutet aber auch (einmalige?) Änderung Deiner Programme:Alle verwendeten Layernamen, Blocknamen u.ä werden in fester Reihenfolge in Textdatei eingetragen.Die gibt es dann einmal für Deine Bezeichnungen und jeweils einmal entsprechend angepasst für die entsprechenden AGs.Datei wird am Anfang abgefragt und geladen, Namen für Layer u. ä. werden entsprechenden Variablen zugewiesen. Das Schalten der Layer und Einfügen der Blockreferenzen erfolgt dann nicht mehr direkt mit de ...
|
| In das Form Lisp wechseln |
|
Lisp : Textzeile Einlesen
spider_dd am 24.08.2006 um 13:57 Uhr (0)
Hallo Rabbit,hast Du Dir mal im einzelnen angesehen was Du einliest? Und dann sieh Dir Deine Datei mal in einem Hex-Editor an.Bei mir endet die erste gelesene Zeile mit "Modemn", in der Datei kommt danach ein 0x0D (= CR).Die zweite gelesenen Zeile endet mit "uXm", in der Datei kommt danach ein 0x1A (= SUB) was auch immer das ist.Danach werden bei mir keine weiteren Daten gelesen (read-line liefert nil)Springt der Zeiger dort ans Dateiende?Also wie Udo schon sagte, wahrscheinlich besser Zeichenweise lesen u ...
|
| In das Form Lisp wechseln |
|
Lisp : Block kopieren und drehen
spider_dd am 19.12.2006 um 17:19 Uhr (0)
Hallo Partick,ein gutes Tutorial ist das Tutorial von Mapcar.Außerdem bietet die AutoCAD-Entwicklerhilfe auch noch so einiges zum Thema Lisp.Und für Deine Prog-zeile, versuchs mal hiermit.Code: (command "_.copy" (setq OBJECT(car(entsel)))"" )HTHLGThomas
|
| In das Form Lisp wechseln |
|
Lisp : lisp aus lisp
spider_dd am 03.04.2008 um 16:42 Uhr (0)
Zitat:Original erstellt von AutoCADuser:....mehrere LSP-Dateien hintereinander ablaufen zu lassen, ohne dass ich die codes jeder einzelnen LSP-Datei in eine LSP-Datei zusammenkopiere geht wahrscheinlich doch nicht...doch geht, Du musst nur die Datei die dan auszuführenden Code enthält vorher laden,Code:z. B. so: Datei "MeineLisp.lsp" enthält auszuführendes Prog TuDies (mit (defun c:TuDies (...)) definiert:(if C:TuDies ; Pruefung ob Funktion TuDies schon vorhanden (geladen) ist (C:TuDies) ; wenn ja, dann ...
|
| In das Form Lisp wechseln |
|
Lisp : Bogen zeichnen mithilfe der Krümmung
spider_dd am 09.05.2008 um 12:20 Uhr (0)
Hallo Erich, mit command würde es z. B. so gehenCode:(command "_arc" P1 "_end" P2 "_direction" Deine_Startrichtung)Aber: Autocad macht die Bögen immer gegen den Uhrzeigersinn, wenn Deine Startrichtung in Uhrzeigersinn läuft, werden beim gezeichneten Bogen Start- und Endpunkt getauscht (einfach mal ausprobieren).LGThomas
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
spider_dd am 28.01.2009 um 08:45 Uhr (0)
Hallo PsychoDad, Zitat:Original erstellt von PsycoDad:Geht auch mit der txt nicht.Muss an was anderm liegen.Wie erzeugst Du Deine Datei? Irgendwie sieht die zwar mit einem Texteditor betrachten auf den ersten Blick ganz OK aus, aber geh mal in die VL-Editor Konsole und führe die folgenden Zeilen aus:Code:(setq file (getfiled "Verzeichnisliste" "" "" 2))(setq file_f (open file "r"))(setq zeile (read-line file_f))Bei mir erscheint dann sowas:"ÿþ0 000 000 000 000 000 000 000 000 000 001 000 00 00 00 00 00 ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
spider_dd am 28.01.2009 um 09:11 Uhr (0)
Auch noch ein kleiner Nachtrag,wenn, wie Jörg 6 Beiträge weiter oben gesagt hat, das QUOTE weggelassen wird, liefertCode:setq LISTE (read(strcat "(" zeile ")")))bei Jörgs Datei (1. Zeile) gleich (10 9.951 9.093 0.0)das vl-string-left-trim sollte damit nicht gebraucht werden. Mit (car liste) kommst Du dann an die Punktnummer und mit (cdr liste) an die Punktkoordinate. Das KonstruktCode:(list (nth 1 LISTE) (nth 2 LISTE) (nth 3 LISTE)) wird damit auch nicht erforderlich.LGThomas
|
| In das Form Lisp wechseln |
|
Lisp : neue datei anlegen
spider_dd am 01.12.2010 um 08:03 Uhr (0)
Hallo Theo,ohne Angabe eines Pfades wird die neue Datei im Verzeichnis der Zeichnungsdatei abgelegt. Wenn Du eine neue Zeichnung noch nicht abgespeichert hast, ist es halt das von Dir angegebene.GrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : neue datei anlegen
spider_dd am 01.12.2010 um 16:27 Uhr (0)
Zitat:ohne Angabe eines Pfades wird die neue Datei im Verzeichnis der Zeichnungsdatei abgelegt.Habe noch mal ein wenig rumgestestet und muss mich da etwas korrigieren. - Starte ich ACAD durch Doppelklick auf Zeichnungsdatei legt open die Datei im Zeichnungsverzeichnis ab.- Öffne ich nun eine neue Datei legt open die Datei im von Theo genannten Verzeichnis ab, egal in welcher Zeichnung ich open ausführe.- Starte ich Autocad über das Desktop-Icon legt open die Datei unter "Eigene Dateien" ab- die Hilfe sagt ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
spider_dd am 30.08.2011 um 14:22 Uhr (0)
Zitat:Original erstellt von cadplayer:... Ich muss mich wahrscheinlich mit dem ","-zeichen durchhangeln, um an die Werte zu kommen....Hallo cadplayer,um an die Position der "," zu kommen und damit an die Werte für die Variablen, sieh dir mal die Funktion vl-string-position an, die kann das.HTHGrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
spider_dd am 30.08.2011 um 16:15 Uhr (0)
...oder zusammengefasst.(cadr data)(caddr data)(cadddr data)GrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
spider_dd am 30.08.2011 um 16:22 Uhr (0)
_.insert erwartet eine Punkt, Du musst Dir aus den Koords erst mal den Punkt bauen(setq ins_punkt (list (cadr data) (caddr data) (cadddr data))) und dann ins_punkt verwendenGrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
spider_dd am 31.08.2011 um 08:51 Uhr (0)
Hallo Cadplayer,wenn Deine Datendatei zu Ende ist liefert (setq zeile (readline file)) NILDennoch machst du weiter mit ... DATA (std-strtok ..., da dieses in der selben setq anweisung steht.Dein vorgeschaltetes (while greift also noch nichtprobier mal etwa folgendesCode:...(while (setq zeile (readline file)) (progn (setq DATA .... .... (command ".-INSERT" ....) ))...HTHGrußThomas
|
| In das Form Lisp wechseln |
