| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Prozess anzeige (1866 mal gelesen)
|
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: 16. Apr. 2013 11:47 <-- editieren / zitieren --> Unities abgeben:
Kennt jemand eine Möglichkeit, während einem Programmablauf anzuzeigen, dass das Programm läuft. Beispielweise ein - Symbol, welches rotiert. Hintergrund ist der, während ein Programm zum Layerumwandeln läuft, soll angezeigt werden das es arbeitet. ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 16. Apr. 2013 12:38 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 16. Apr. 2013 13:31 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
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: 16. Apr. 2013 14:04 <-- editieren / zitieren --> Unities abgeben:
Jörn, genau, sich das einzuverleiben ist erstmal mit Zeit verbunden... Thomas, geht deine Aufruf nur in einer foreach Schleife. Der gewünschte Effekt bleibt in meiner Routine aus. Code:
;; Funktion zur Anzeige des Arbeitsprozess ;; von DT tools Thomas Krüger (defun DT:SPIN (SYM / ) (setq SYM (cond ((= SYM "-" ) "\\") ((= SYM "\\") "|" ) ((= SYM "|" ) "/" ) ((= SYM "/" ) "-" ) (T "-" ))) (princ (strcat "\rScanning... " SYM " ")) SYM ) ;; Funktion zum Teilen von Textzeilen mit Vorgabe eines ;; Trennsymbols (defun _strtrim (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 ) ) ;; Funktion zum Einlesen einer csv-datei (defun _ReadCSV ( filename / _csv->lst file line) (defun _csv->lst ( str / pos ) (if (setq pos (vl-string-position 44 str)) (cons (substr str 1 pos) (_csv->lst (substr str (+ pos 2)))) (list str) ) ) (if (setq file (open filename "r")) (progn (while (setq line (read-line file)) (setq lst (cons (_csv->lst line) lst)) ) (close file) ) ) (setq lst (reverse lst)) ) ;; Hauptprogramm ;; sucht die Layereinstellung in dem benannten Suchpfad ;; mit der benannten csv.datei ;; Inhalt (csv): Einfache Gegenüberstellung ;; linke Spalte [Original Layer] ;; rechte Spalte [zukünftiger Layer] (defun c:sk ( / lst Layer Layerlist obj data) (setvar "CMDECHO" 0) (if (_ReadCSV "H:\\2013\\AF-Infrastructure-Tools\\SamKartaGbg.csv") (foreach N lst (setq Layer (_strtrim (car N) ";")) ; test: (_strtrim "hallo,was,fur,ein,Tag" ",") (setq LayerList (cons Layer LayerList)); ("FAS_TRAKTNAMN" "M-BEF-OPTO") ) ) (princ "\nGib einen Suchausschnitt vor ") (if (and (setq ss (ssget) I -1)) (repeat (sslength ss) (setq obj (ssname ss (setq I (1+ I))) data (entget obj) ) (if (= (cdr (assoc 8 data)) (car (assoc (cdr (assoc 8 data)) LayerList))) (if (setq Layer (assoc (cdr (assoc 8 data)) LayerList)) (progn (entmod (subst (cons 8 (cadr Layer)) (assoc 8 data) data)) (setq SYM (DT:SPIN SYM)) ) ) ) ) ) (initget "Ja Nein") (if (null (getkword "\n Sollen alle alten Layer gelöscht werden ? <Ja>/nein ")) (command "purge" "all" "" "n") (princ) ) (princ (strcat "\n " (itoa (1+ i)) " Objekt[e] verschoben ")) (princ) )
------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 16. Apr. 2013 14:22 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 16. Apr. 2013 14:30 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 16. Apr. 2013 15:39 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
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: 16. Apr. 2013 16:24 <-- editieren / zitieren --> Unities abgeben:
Eigentlich Thomas finde ich deine Lösung verständlich, nur weiss nicht was der Grund ist, dass es in 2013ér nicht mehr anwendbar ist. Ich habe jetzt deine Version eingebaut Jörn - toll das es das schon im Netz gibt. Allerdings, bei meiner Datenmenge ist der Prozess bereits abgelaufen bevor er fertig ausgewertet wurde. ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 16. Apr. 2013 18:30 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Ich hab was ähnliches wie Thomas - vielleicht geht das noch ??? Code: (defun f#wait () (princ (nth #cnt '("\r-" "\r\\" "\r|" "\r/")) ) (setq #cnt (rem (1+ #cnt) 4)) )
;--- ;zum testen ...
Code: (setq #cnt 0 #x T) (while #x (f#wait))
... beenden mit Esc------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 16. Apr. 2013 22:29 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo Ernst, Du hast die Funktion "f#wait" genannt. Läuft ein Prozess etwas langsamer, wenn die Ablauf-Anzeige mit läuft? Nun zu Anzeige die ich einmal probiert habe: ;;;---------------------------------------------------------- ;;; Subject: Creating a ProgressBar in DCL. ;;; This Tutorial is CopyRighted by Nir sullam and anySOFT 1999. (defun C:FORTSCHR (/ DCLTUT_DAT) (setq DCLTUT_DAT (load_dialog "FORTSCHR.dcl")) (new_dialog "dcltut" DCLTUT_DAT) (LOOPFUNC) (action_tile "accept" "(done_dialog 1)") (start_dialog) (unload_dialog DCLTUT_DAT) ) ;;---------------------------------------------- (defun LOOPFUNC (/ FILLX FILLY Z_MAX Z) (setq FILLX (dimx_tile "progbar")) (setq FILLY (dimy_tile "progbar")) (start_image "progbar") (fill_image 0 0 FILLX FILLY -15) (end_image) (setq Z 0 Z_MAX 100000 ) (while (<= Z Z_MAX) (start_image "progbar") ;; The horizontal length is divided to "Z_MAX" times slices (fill_image 0 0 (/ (* Z FILLX) Z_MAX) FILLY 5) (end_image) (setq Z (1+ Z)) ) ) (princ) // DCL dazu dcltut : dialog { fixed_width = true; label = "DCL Progress Bar Tutorial 1.0"; key = "br-label"; : image { key = "progbar"; fixed_width = 50; height = 1; } ok_only; }
Gruß Theodor
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 16. Apr. 2013 22:35 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo Ernst, Du hast die Funktion "f#wait" genannt. Läuft ein Prozess etwas langsamer, wenn die Ablauf-Anzeige mit läuft? Nun zu Anzeige die ich einmal probiert habe: ;;;---------------------------------------------------------- ;;; Subject: Creating a ProgressBar in DCL. ;;; This Tutorial is CopyRighted by Nir sullam and anySOFT 1999. (defun C:FORTSCHR (/ DCLTUT_DAT) (setq DCLTUT_DAT (load_dialog "FORTSCHR.dcl")) (new_dialog "dcltut" DCLTUT_DAT) (LOOPFUNC) (action_tile "accept" "(done_dialog 1)") (start_dialog) (unload_dialog DCLTUT_DAT) ) ;;---------------------------------------------- (defun LOOPFUNC (/ FILLX FILLY Z_MAX Z) (setq FILLX (dimx_tile "progbar")) (setq FILLY (dimy_tile "progbar")) (start_image "progbar") (fill_image 0 0 FILLX FILLY -15) (end_image) (setq Z 0 Z_MAX 100000 ) (while (<= Z Z_MAX) (start_image "progbar") ;; The horizontal length is divided to "Z_MAX" times slices (fill_image 0 0 (/ (* Z FILLX) Z_MAX) FILLY 5) (end_image) (setq Z (1+ Z)) ) ) (princ) // DCL dazu dcltut : dialog { fixed_width = true; label = "DCL Progress Bar Tutorial 1.0"; key = "br-label"; : image { key = "progbar"; fixed_width = 50; height = 1; } ok_only; }
Gruß Theodor
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 16. Apr. 2013 22:36 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
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: 17. Apr. 2013 08:10 <-- editieren / zitieren --> Unities abgeben:
Hallo Ernst und Theodor! Vielen Dank für Eure Beiträge. Bis 2012´er funktioniert dein Code noch Ernst, leider kann ich ihn nicht mehr anwenden. Theodor super Code, fein und übersichtlich geschrieben - auf jeden Fall bei mir installiert. Gut finde ich auch den timeEmitter - Klasse gemacht. ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 17. Apr. 2013 18:57 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Zitat: Original erstellt von Theodor Schoenwald: Du hast die Funktion "f#wait" genannt. Läuft ein Prozess etwas langsamer, wenn die Ablauf-Anzeige mit läuft?
Nein, ist mir noch nicht aufgefallen ... Wait deshalb, weil ich's (nur) dort einbau' wo ich möglicherweise auf's Programm warten muss. ------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 17. Apr. 2013 20:14 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo Ernst, ich habe deshalb gefragt, weil ich vor längerer Zeit Sachen probiert habe, die den Ablauf verlangsamen sollten. Es sollten Kreise oder Punkte einer Polylinie entlang laufen. Ich habe alle möglichen Effekte bekommen, aber nie wie ich es wollte. Es waren zu viele Faktoren die eine Rolle gespielt haben. Inzwischen bremse ich den Ablauf mit dem Befehl "Regen" und dem Abstand der Punkte oder Kreise. Bei einem Programm verwende ich: ;;------------Warten ----------- (defun WARTEN (SECS M / STOP) (setq STOP (+ (getvar "DATE") (/ SECS 86400.0))) (while (> STOP (getvar "DATE")) (prompt "\n") (princ M) ) (princ) ) ;;------------------------------- Gruß Theodor
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 17. Apr. 2013 20:16 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 18. Apr. 2013 18:46 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo Theo Ich hatte geglaubt, auch einige "Bremsprogramme" zu haben. Aber alles, was ich gefunden habe, hast Du ja schon - nämlich obiges und runWaitMakeFile von Stefan. Und wenn mich nicht alles täuscht gibts (gabs?) auch einen Batchbefehl (DOS) namens WAIT, aber die Richtung hast sicher auch durch ... ------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 18. Apr. 2013 19:19 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 19. Apr. 2013 07:16 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 19. Apr. 2013 07:50 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
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: 19. Apr. 2013 09:27 <-- editieren / zitieren --> Unities abgeben:
Intressante Beiträge hier, ich versuch gerade mal die wait funktion bei einem Beispiel einzubauen. Dabei werden einfach nur Blöcke gesetzt. Natürlich macht es Sinn eine grössere Anzahl Blöcken zu wählen. Lasse ich den TEST ohne die wait funktion laufen, dann ergibt sich ein Szenario wie aus C64´er Zeiten - man sieht wie nacheinander der Block gesetzt wird. Mein Vorhaben ist jetzt zu sagen, warte mal so lange bis du alle Blöcke in den Cache gelegt hast und dann setze sie auf einmal in die Zeichnung. Code:
(defun c:test () (setq pt '(0 0 0)) (if (and (setq i (getreal "\nAnzahl Blöcke eingeben ")) (wait (* i 1000)) ) (while (> i 0) (command "INSERT" "db" (setq pt (mapcar '1+ pt)) 1 1 0 ) (setq i (fix (1- i)) ) ) ) (princ) )
Der Test ergab nur einen Absturz ?! ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 20. Apr. 2013 11:12 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo Thomas, da ich Bricscad gerade offen habe: (getvar "CPUTICKS") funktioniert nicht. (getvar "MILLISECS") funktioniert! Danke für Deinen Vorschlag, er gefällt mir besser als die Datumsfunktion. Gruß Theodor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 20. Apr. 2013 11:33 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo Jörn, nach dem ich immer Probleme mit dem Warten von Lisp bei Exe-Dateien hatte, verwende ich: ;; Exe-Datei ausführen. Autocad wartet bis die das Programm fertig ist (defun DAT_EXE (EXE_DAT / WS) (vl-load-com) (VLAX-INVOKE-METHOD (setq WS (VLAX-GET-OR-CREATE-OBJECT "wscript.shell")) "run" EXE_DAT t :vlax-true ) (princ) (VLAX-RELEASE-OBJECT WS) ) ;_ defun DAT_EXE ;;------------------------- Es entspricht dem Runapp-Beispiel, von Deinem Link-Hinweis. Inzwischen laufen die EXE-Dateien einwandfrei ab. Gruß Theodor
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: 22. Apr. 2013 12:53 <-- editieren / zitieren --> Unities abgeben:
Ist mein Vorhaben überhaupt durchführbar ? Command oder Entmake tuen da fast das gleiche. Generell suche ich nach einer Lösung, um grosse Datenmengen einzulesen und einen Absturz des Programms zu vermeiden. Den Anschein macht es wenn ich einen Block 100 000 mal erzeuge. Gibt es sowas in Lisp überhaupt. Ansonsten habe ich es einfach nicht kapiert zu was ich die wait funktion überhaupt gebrauchen kann.
------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Apr. 2013 13:00 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
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: 22. Apr. 2013 15:18 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Apr. 2013 15:26 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
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: 22. Apr. 2013 15:54 <-- editieren / zitieren --> Unities abgeben:
Keine tolle Qualität, aber schaut mal kurz auf den RunCodeDas Problem ist, einer der Anwender, der nicht geduldig genug ist, abzuwarten, bis die Meldung kommt, denkt das Autocad bereits abgestürzt ist. Also wäre es sinnvoll da eine Processanzeige zu haben. Was ich aber bisher nur herausfand, man kann die Prozessfunktion nicht während dem Prozess laufen lassen, sondern nur vor oder nach dem command-Aufruf - logisch, denn man kann auch nicht 2-command-Aufrufe (von 2 Koordinatenlisten) parallel laufen lassen. Guter Rat würde mir helfen
------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 22. Apr. 2013 16:34 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo Dirk, probier es nochmal mit ENTMAKE, das läuft tausendmal besser als Commands, gerade wenn es sich um größere Datenmengen handelt (irgendwann ist hier natürlich auch Schluß => ausprobieren) Code:
(defun c:test ( / I PT) (setq pt '(0.0 0.0 0.0)) (if (setq i (getreal "\nAnzahl Blöcke eingeben ")) (while (> i 0) (entmake (list (cons 0 "INSERT") (cons 2 "db") (cons 10 (setq pt (mapcar '1+ pt))) (cons 41 1.0) (cons 42 1.0) (cons 50 0.0))) (setq i (1- i)) ) ) (princ) )
------------------ viele Grüße Jörn http://www.bosse-engineering.com Koordinatenausgabe Youtube 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: 22. Apr. 2013 17:16 <-- editieren / zitieren --> Unities abgeben:
Ich hatte es auch schon mit entmake probiert. Zwar etwas anders geschrieben. Deine Version läuft schneller und reicht für mein Datenvolumen völlig aus. Zumal auch bei grösseren Datenmengen die Funktion stabiler läuft als mit command. Danke ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se 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: 29. Apr. 2013 16:42 <-- editieren / zitieren --> Unities abgeben:
Kleiner Tip, das ich es auch wiederfinde, ist die Möglichkeit, die in den Expresstools mitgeliert sind Code:
(acet-ui-progress-init "Importing data" 100)
------------------ Gruss Dirk http://cadplayerlounge.blogspot.se 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: 02. Mai. 2013 12:24 <-- editieren / zitieren --> Unities abgeben:
Nicht dass es mich sonderlich stört, generell wenn in Autocad mit grossen Datenmengen gearbeitet wird. Beispielsweise das Einlesen von 10 000 Blöcken, kommt man an schnell an die Grenzen, was Autocad abarbeiten kann. Gibt es eigentlich eine Möglichkeit vor einem Absturz zu schützen ? Meine ganzen Bemühungen, mit einer Prozessanzeige zu veranschaulichen, dass noch etwas passiert schlugen bisher fehl. ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 02. Mai. 2013 15:48 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
neurosis Mitglied dipl.ing.
Beiträge: 224 Registriert: 22.08.2006
|
erstellt am: 02. Mai. 2013 18:52 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
Peter2 Ehrenmitglied V.I.P. h.c.
Beiträge: 3849 Registriert: 15.10.2003 Win 10 bzw. 11 / 64 Pro AutoCAD MAP 3D 2023 BricsCAD 24
|
erstellt am: 03. Mai. 2013 00:13 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
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: 03. Mai. 2013 08:23 <-- editieren / zitieren --> Unities abgeben:
cadwiesel Marco Intressanter Beitrag, mit C++ habe ich leider keine Erfahrung, daher konnte ich mir den Code nicht in 64bit sys compilieren. Da traten eine ganze Menge Fehler auf. Daher unable die ARX zu laden. Peter Guter Ansatz, ich muss dem noch ein bissel mehr Zeit widmen, habe aber bis jetzt festgestellt, das die Funktion stabiler läuft als die aus den ExpressTools Danke für Eure Hilfe! ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |