|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 15:57 Uhr (0)
(setvar "ATTREQ" 1) (if (setq FILE (getfiled "Verzeichnisliste" "" "" 2)) (progn (setq FILE (open FILE "r")) (while (setq ZEILE (read-line FILE) DATA (STD-STRTOK ZEILE ", ") PNR (atoi (car DATA)) ZKO (atof (cadr (cdr (cdr DATA)))) PCODE (cadr (cdr (cdr (cdr DATA))))) (command "_.INSERT" "meas" (cadr DATA); =X (cadr (cdr DATA)); =Y (cadr (cdr (cdr DATA))); =Z 1 1 0 "PNR" "ZKO" "PCODE" ) ) (close FILE) ) (alert "Keine Datei gewählt!") )Ich finde den Fehler nicht warum die ...
|
| In das Form Lisp wechseln |
|
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
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
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
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 |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 31.08.2011 um 16:03 Uhr (0)
Konnte kein Klammerfehler entdeckenDie Funktion "codeall" an sich läuft ja, allerdings nur wenn die Blöcke eingelesen sind. Der Code sollte so arbeiten, das erst alle Blöcke gesetzt werden und anschliessend die Parameter der Blöcke bearbeitet werden. Das ist wahrscheinlich nicht machbar ?Nach Neustart von Acad geht es plötzlich 1)Also erst werden alle Punkte eingelesen und als Blöcke in die Zeichung gesetzt2)anschl werden die Blockparameter modifiziert (dieser Prozess dauert ein wenig) Kann man anzeigen "B ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 01.09.2011 um 09:40 Uhr (0)
Kann man via Lisp einen Block aus einem Suchpfad laden?
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 01.09.2011 um 09:58 Uhr (0)
Glasklare Antwort... wie, via script?
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 01.09.2011 um 10:22 Uhr (0)
(command "insert" (getfiled "TITEL" "M:/Mallar/Cad/Autolisp/simple-block/meas" "dwg" 2)) 0 1 1 0 )wie stelle ich es an das die Dialogbox nicht aufgeht?
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 01.09.2011 um 10:49 Uhr (0)
es geht doch auch so (command "_.INSERT" "M:/Mallar/Cad/Autolisp/simple-block/meas.dwg"@cadmiumauf die Schnelle überliest man mal was ... hast recht
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 01.09.2011 um 12:24 Uhr (0)
Ich nehme gern deine Kritik an, jedoch ist es nicht meine Absicht hier jemanden auszunutzen . Meine Erfahrungen mit Autolisp beschränken sich rein aus tagtäglichen Problemlösungen. Ich habe also keinen Kurs oder dergleichen besucht, der mir ein gewisses Grundgerüst an Wissen verschaffen würde. Deshalb gehen vielleicht manche Fragen, wie zu getfield nach hinten los. Es ist mir leider hierzulande, örtlich bedingt (SE) nicht möglich, das nachzuholen. Die Hilfe von VLISP setze ich schon ein, um die Funktionen ...
|
| In das Form Lisp wechseln |
|
Lisp : Doppelwahl
cadplayer am 08.11.2011 um 16:01 Uhr (0)
Super Jungs - ich staune wie schnell ihr Lösungen findet. http://exchange.autodesk.com/autocad/enu/online-help/browse#WS1a9193826455f5ff1551d5710df8a6f487-7e71.htm Ich habe hier mal geschaut, um etwas über die Auswahl von "ATTRIB" zu finden- weiss einer wo, das zu finden ist was cadmium sagte (cadr WAHL)[Diese Nachricht wurde von cadplayer am 08. Nov. 2011 editiert.][Diese Nachricht wurde von cadplayer am 08. Nov. 2011 editiert.][Diese Nachricht wurde von cadplayer am 08. Nov. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ermitteln
cadplayer am 04.05.2012 um 08:21 Uhr (0)
Ich bekomme nachwievor die Fehlermeldungerror: bad argument value: AutoCAD command: #VLA-OBJECT IAcadLWPolyline2 0000000033164b88In obj steht #VLA-OBJECT IAcadLWPolyline2 0000000033164b88Oder verstehe ich hier etwas falsch.vlax-vla-object-ename erstellt doch ein vla-objekt nicht ein Lisp-objekt ------------------Gruss Dirk
|
| In das Form Lisp wechseln |
