|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 16:48 Uhr (0)
funktioniert jetzt mit Ausnahme einer Fehlermeldung ; error: bad argument type: stringp nilsieht vielleicht jemand den Hacken?(defun STD-STRTOK (s delims / len s1 i c lst) (setq delims (vl-string-list delims) len (strlen s) s1 "" i (1+ len)) (while ( (setq i (1- i)) 0) (setq c (substr s i 1)) (if (member (ascii c) delims) (if (/= s1 "") ; no null tokens (setq lst (cons s1 lst) s1 "") ) (setq s1 (strcat c s1)) ) ) (if (/= s1 "") (cons s1 lst) ; no ("" "1" "2")! lst ) )(setvar "ATTREQ" 1) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
neurosis am 30.08.2011 um 20:00 Uhr (0)
ich wuerde auf die variable ------------------Marco Heuer www.arc-aachen.de Airport Office
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
neurosis am 30.08.2011 um 20:01 Uhr (0)
ich wuerde auf die variable PNR tippen (muss die nicht ein string sein?)grussmarco------------------Marco Heuer www.arc-aachen.de Airport Office
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 31.08.2011 um 08:18 Uhr (0)
PNR habe ich in eine String gewandelt, bekomme habe selbe Fehlermeldung. Die Blockattribute werden richtig ausgefüllt, da kann also meines Erachtens nicht der Fehler liegen.Generell wäre meine Frage, wie kann man den mit v-lide-editor umgehen, um Fehler aufzudecken.Wenn ich breapoints setze wird alles korrekt gemacht.
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
neurosis am 31.08.2011 um 08:30 Uhr (0)
probier das mal:Code:(setq DATA (STD-STRTOK ZEILE ", ") ; ("1" "6395579.272" "148352.957" "87.760" "HP") PKT (list (atof (nth 1 DATA)) (atof (nth 2 DATA)) (atof (nth 3 DATA))) PNR (car DATA) ZKO (rtos (caddr PKT) 2 3) PCODE (last DATA))fuers umgehen mit dem Visual-LISP-Editor siehe joern bosse: http://www.bosse-engineering.com/downloads/090501_VisualLISP-editor.pdf grussmarco------------------Marco Heuer www.arc-aachen.de Airport Office[Diese Nachricht wurde von neurosis am 31. Aug. 201 ...
|
| In das Form Lisp wechseln |
|
Lisp : Deutung von Meldungen bei der Prüfung
Brischke am 31.08.2011 um 08:33 Uhr (0)
Hallo Jan,eigentlich sagen die Meldungen alles aus,1) die Schraffur ist nicht assoziativund2) in der Liste der Ansichten (man kann die ja benennen und speichern) gibt es die aktuelle Ansicht namens *Active*wenn du 1. verhindern möchtest, dann musst du assoziative Schraffuren erstellen2. kannst du nicht verhindernGrüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen. defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
CADmium am 12.06.2008 um 09:16 Uhr (0)
Zitat:Original erstellt von joern bosse:Hallo,nochmal eine Anmerkung zur automatischen Erkennung der Elemente X, Y und Z: in vielen Fällen kann man davon ausgehen, das nur für x, y und z ein Dezimalpunkt verwendet wird: Dann kann man über (if(vl-string-search "." Listenelement) die anderen Elemente herausfiltern. oder einfach (distof VAR) verwenden ... gibt bei nichtnumerischen Wert nil zurück------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr a ...
|
| 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 |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 27.01.2009 um 16:06 Uhr (0)
Ja. Klappt.Problem war, das die die Punkte in ner *.tac Datei vorlagen.Hab ich gar nicht drauf geachtet. Dachte das wäre ne *.txt.Schnell umbenannt, dann klappts auch mit meiner.Komisch das es aber mit der *.tac nicht geht.Muss wohl an (open file "r") liegen.Wie krieg ich hin das die Punktbezeichnung neben dem Punkt Dargestellt wird?Kann ich den Punktstil beim Einfügen beeinflussen, oder wird immer der aktuelle verwendet?Gruß PsycoDad------------------Essen und schlafen, macht niemand zum Grafen!
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 31.08.2011 um 11:51 Uhr (0)
Fantastischesko - Programm läuft 1A - Danke an allen hellen KöpfeIn dem Block meas würde ich gern die Farbe des points-element bezüglich des PCODE ändern. Dazu habe ich folgenden Ansatz:(setq AWS (ssget "X" ((0 . "INSERT"))) I -1)(repeat (sslength AWS)(setq OBJ (ssname AWS(setq I (1+ I))) DATA (entget (entnext (entnext (entnext OBJ)))) ) (cond (= (cdr (assoc 1 DATA)) "HP")) (entmod (subst (cons 8 "M-YTOR") (assoc 8 (entget OBJ)) (entget OBJ))) (entmod (subst (cons 62 12) (assoc 62 (entget OBJ)) (entg ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
CADmium am 31.08.2011 um 11:54 Uhr (0)
IMHO wieder mal die Klammern ..... (cond ((= (cdr (assoc 1 DATA)) "HP") (entmod (subst (cons 8 "M-YTOR") (assoc 8 (entget OBJ)) (entget OBJ))) (entmod (subst (cons 62 12) (assoc 62 (entget OBJ)) (entget OBJ))) ))------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
CAD-Huebner am 31.08.2011 um 11:57 Uhr (0)
Dein COND schließt die Klapper zu früh, die nachfolgenden Befehle werden danach immer ausgeführt.Statt COND kannst du bei genau einem Vergleich auch ein Code:(if ... (Progn ... diverses .. ))aufrufen ------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 31.08.2011 um 12:35 Uhr (0)
(defun STD-STRTOK (s delims / len s1 i c lst) (setq delims (vl-string-list delims) len (strlen s) s1 "" i (1+ len)) (while ( (setq i (1- i)) 0) (setq c (substr s i 1)) (if (member (ascii c) delims) (if (/= s1 "") ; no null tokens (setq lst (cons s1 lst) s1 "") ) (setq s1 (strcat c s1)) ) ) (if (/= s1 "") (cons s1 lst) ; no ("" "1" "2")! lst ) )(defun c:koordimport ()(setvar "ATTREQ" 1) (if (setq FILE (getfiled "Verzeichnisliste" "" "" 2)) (progn (setq FILE (open FILE "r")) (while (setq ...
|
| In das Form Lisp wechseln |
