| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Punktkoordinaten aus Datei auslesen (9020 mal gelesen)
|
neurosis Mitglied dipl.ing.
Beiträge: 224 Registriert: 22.08.2006
|
erstellt am: 31. Aug. 2011 08:30 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 31. Aug. 2011 08:51 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
Hallo Cadplayer, wenn Deine Datendatei zu Ende ist liefert (setq zeile (readline file)) NIL Dennoch machst du weiter mit ... DATA (std-strtok ..., da dieses in der selben setq anweisung steht. Dein vorgeschaltetes (while greift also noch nicht probier mal etwa folgendes Code:
... (while (setq zeile (readline file)) (progn (setq DATA .... .... (command ".-INSERT" ....) ) )
...HTH Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 31. Aug. 2011 11:51 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
Fantastischesko - Programm läuft 1A - Danke an allen hellen Köpfe In 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)) (entget OBJ))) ) Die cond-schleife sollte prüfen ob das Attribut den Wert "HP" hat, um dann die Änderungen von Blockfarbe und -layer vorzunehmen -> es wird aber immer geändert egal was drinn steht?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 31. Aug. 2011 11:54 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 31. Aug. 2011 11:57 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 31. Aug. 2011 12:35 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
(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 ZEILE (read-line FILE)) (progn (setq DATA (STD-STRTOK ZEILE " , ") PKT (list (atof (cadr DATA)) (atof (caddr DATA)) (atof (cadddr DATA))) PNR (car DATA) ZKO (rtos (caddr PKT) 2 3) PCODE (last DATA)) ) (command "color" 7) (command "_.INSERT" "meas" PKT 1 1 0 PNR ZKO PCODE) ) (close FILE) ) (alert "Keine Datei gewählt!") ) (CODEALL) ) (defun CODEALL ( / ) (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)) (entget OBJ)))) ((= (cdr (assoc 1 DATA)) "VK") (entmod (subst (cons 8 "M-1YTOR") (assoc 8 (entget OBJ)) (entget OBJ))) (entmod (subst (cons 62 5) (assoc 62 (entget OBJ)) (entget OBJ))) ) ) ) )
Die Funktion CODEALL wird nicht ausgeführt ? [Diese Nachricht wurde von cadplayer am 31. Aug. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 31. Aug. 2011 13:21 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 31. Aug. 2011 16:03 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
Konnte kein Klammerfehler entdecken Die 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 gesetzt 2) anschl werden die Blockparameter modifiziert (dieser Prozess dauert ein wenig) Kann man anzeigen "Bitte warten" um nicht zu meinen das Programm hätte sich aufgehängt [Diese Nachricht wurde von cadplayer am 31. Aug. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 01. Sep. 2011 09:40 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 01. Sep. 2011 09:50 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 01. Sep. 2011 09:58 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 01. Sep. 2011 10:03 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 01. Sep. 2011 10:15 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 01. Sep. 2011 10:22 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 01. Sep. 2011 10:37 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 01. Sep. 2011 10:49 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
|
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 01. Sep. 2011 11:42 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
Zitat: Original erstellt von cadplayer: (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?
Hallo cadplayer, als Moderator verfolge ich das Thema die ganze Zeit, und möchte mich jetzt mal mit einer Bitte/ einem Tip einschalten: Versuche doch bitte mal auch die F1-Taste, also die VLisp-Hilfe, zu benutzen. Ich empfinde deine Fragen doch inzwischen so, als würdest du die Hilfsbereitschaft der Antwortenden sehr ausnutzen - deine Eigeninitiative zur Lösung deines Problems dabei auf der Strecke bleibt. Aus der Erfahrung möchte ich darauf hinweisen, dass die im Moment noch bereitwillig gegebene Hilfestellung rasch ausbleiben kann, wenn mein Empfinden auch von den Antwortenden empfunden wird. Grüße! Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 01. Sep. 2011 12:24 <-- editieren / zitieren --> Unities abgeben: Nur für PsycoDad
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 korrekt einzubauen. Aber nicht wenn es drum geht erstmal einen Ansatz zu finden ob das was ich vorhabe überhaupt möglich ist programmtechnisch umzusetzen. Und ich bin keinem böse, wenn er nicht antwortet aber ich bin jedem der Hilfestellung anbietet aus tiefstem dankbar. Dank CAD.de habe ich mir vieles aneignen können und mache das rein aus Interesse und Spass mit kompetenten Leuten in Kontakt zu stehen.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |