---

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

---

(defun DT:SPIN (SYM / )
    (setq SYM  (cond ((= SYM "-" ) "\\")
                      ((= SYM "\\") "|" )
                      ((= SYM "|" ) "/" )
                      ((= SYM "/" ) "-" )
                      (T            "-" )))
    (princ (strcat "\rScanning... " SYM "  "))
    SYM
  )

Aufruf dann in deiner Routine innerhalb der Durchlaufschleife:
(setq SYM(DT:SPIN SYM))

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dirk,
unter

http://web2.airmail.net/terrycad/AutoLISP-Code.htm

=> ProgressBar.lsp/dcl

Ich finde, das eine schicke Variante, aber natürlich auch recht komplex.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Hallo Dirk,

ich bin zwar nicht Thomas, aber ich denke Du mußt noch einen Startwert für SYM festlegen, vor Schleifenbeginn:
(setq SYM "-")

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ab 2013  .. wo es die neue docbare Befehlszeile gibt , ist das Teil nicht mehr das wahre ..... sorry

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von joern bosse:
Hallo Dirk,

ich bin zwar nicht Thomas, aber ich denke Du mußt noch einen Startwert für SYM festlegen, vor Schleifenbeginn:
(setq SYM "-")

---

Nö .. muss er nicht, wird in cond abgefangen

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

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

---

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

---

... hier:
http://www.afralisp.net/dialog-control-language/tutorials/progress-bar.php
ist auch noch ein Spielzeug.

Gruß
Theodor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

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

---

Hallo Dirk,

Dein Lob freut mich, die Idee ist jedoch nicht von mir.
Haupsache Du kannst damit etwas anfangen.

Gruß
Theodor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

wegen Wait ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
auch noch mal eine Anmerkung zum WAIT: Ich hatte immer das Problem, daß ich eine externe Exe-Datei ausgeführt hatte und auf ziemlich umständliche Weise abgefragt hatte, ob die exe denn jetzt fertig ist oder nicht.

Unter folgendem Link bin ich dann fündig geworden:

http://forums.augi.com/archive/index.php/t-71648.html  => (defun runapp ...

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@joern: Hättest du mal gleich hier gefragt .. 

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

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

---

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

---

Dein Code ist "Müll" .... du brauchst da auch kein Wait .... du kannst auch nicht Blockreferenzen in einen "Puffer" packen ... die Darstellung kannst du mit Regen / Regenauto ect. beeinflussen

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke

Wozu braucht man dann wait?

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zum Beispiel für animierte Sachen ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Keine tolle Qualität, aber schaut mal kurz auf den RunCode
Das 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

---

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

---

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

---

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

---

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

---

zwischenspeichern hilft oft Wunder

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo dirk,
wenn du etwas c kannst und c-code kompilieren kannst, schau dir mal den forumsbeitrag an
http://www.theswamp.org/index.php?topic=8570.msg278550#msg278550
interessant sind die funktionen progressbar und onidleacad. mit ein paar kleinen aenderungen hab ich die probleme mit dem "temporaeren einfrieren" bei mir geloest.

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jetzt habe ich das Thema nur überflogen, aber beim Stichwort Exe-Wait und Progressbar empfiehlt sich DosLib:

http://www.en.na.mcneel.com/doslib/process_functions/dos_exewait.htm

http://www.en.na.mcneel.com/doslib/interface_functions/dos_getprogress.htm

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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