Beiträge: 516
Registriert: 08.09.2003

erstellt am: 24. Jun. 2011 13:03      <-- editieren / zitieren -->      Unities abgeben: 

------------------
Gruß, Stephan
www.stbartl.at

Beiträge: 963
Registriert: 03.11.2003

Beiträge: 1396
Registriert: 16.04.2002

erstellt am: 24. Jun. 2011 10:02      <-- editieren / zitieren -->      Unities abgeben: 

die CNC-Anwender werden sich freuen.
Ich werde auf meiner Webseite ein Hinweis auf das Thema BricsCad, ETools und CNC bringen.

Beiträge: 1471
Registriert: 05.09.2000

erstellt am: 24. Jun. 2011 09:13      <-- editieren / zitieren -->      Unities abgeben: 

Wer den Konvertierungsbefehl für 2D Polylinien in LW Polylinien auch nutzen möchte hat über den Aufruf (brx:convertpoly) die Möglichkeit dazu.

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

Beiträge: 1396
Registriert: 16.04.2002

erstellt am: 23. Jun. 2011 21:42      <-- editieren / zitieren -->      Unities abgeben: 

wie ich gerade gesehen habe ist die Datei:
"pljoinsup.lsp" in den ETools.

in dieser Datei ist die folgende Funktion:
;;----------------------------------------------------------
(defun acet-pljoin-do-ss-pre-work2 ( ss flt / na ss2 ss3 n w)
 
(command "_.select" ss "")
(setq ss2 (ssget "_p" '((-4 . "&") (70 . 6)))) ;fit or splined
(command "_.select" ss "")
(setq ss3 (ssget "_p" '((-4 . "<OR") (0 . "LINE") (0 . "ARC") (-4 . "OR>")))) ;lines and arcs

(if ss2
    (progn
    (setq n 0)
    (repeat (sslength ss2)
    (setq na (ssname ss2 n)
            w (acet-pljoin-get-width2 na)
    );setq
    (command "_.explode" na)
    (while (wcmatch (getvar "cmdnames") "*EXPLODE*") (command ""))
    (command "_.pedit" (entlast) "_y" "_j" "_p" "")
    (if (not (equal w 0.0))
        (command "_w" w)
    );if
    (command "_x")
    (setq ss (ssdel na ss)
          ss (ssadd (entlast) ss)
    );setq
    (setq n (+ n 1));setq
    );repeat
    );progn then
);if

(command "_.convertpoly" "_light" ss ""); ********************
(if ss3
    (progn
    (setq n 0)
    (repeat (sslength ss3)
      (setq na (ssname ss3 n));setq
      (command "_.pedit" na "_y" "_x")
      (setq ss (ssdel na ss)
            ss (ssadd (entlast) ss)
      );setq
    (setq n (+ n 1));setq
    );repeat
  );progn then
);if
(if (equal 0 (sslength ss))
    (setq ss nil)
);if
(setq ss (acet-pljoin-ss-flt2 ss flt))
 
ss
);defun acet-pljoin-do-ss-pre-work
;;---------------------------------------------

Die Problemstelle habe ich mit ; ********************
markiert.

Thomas hat ein Tool das PL zu LWPL umwandelt.
Hier: http://ww3.cad.de/foren/ubb/Forum145/HTML/002836.shtml
war das Thema schon einmal.

Gruß
Theodor

Beiträge: 1396
Registriert: 16.04.2002

erstellt am: 23. Jun. 2011 20:30      <-- editieren / zitieren -->      Unities abgeben: 

pljoin verwende ich immer noch von den alten ETools.

Es hat zwei Funktionen je nach dem wie die Lücke aussieht:
a) verhält es sich wie Abrunden mit Radius 0 oder
b) setzt es Linienstücke in die Lücke,

So wie es am besten passt.

Da ich und nicht nur ich die Konturen meistens zum Fräsen benutze ist es so dass bei Lücken auch bei 3 Stellen hinter dem Komma die CNC-Maschine mit der Z-Achse hoch fährt und dann wieder runtere und neu ansetzt.
Manche Kunden die mit CNC-Maschinen arbeiten bekommen Fremdzeichnungen (meist DXF) die mit einem CAD-Programm gezeichnet wurden, das nur mit z.B 6 Stellen nach dem Komma arbeitet, dann ist fast an jedem Übergang von Linien zu Linien oder Bögen die Kontur offen.
Auf jeden Fall leistet bei so einem Durcheinander "pljoin" gute Dienste.

Hinzu kommt noch, dass es oft Handwerksbetriebe sind (Holz und Metall), die mit CNC-Maschinen arbeiten, von ACAD weg gehen und auf BricsCad umstellen. Für die ist "pljoin" sehr nützlich.

Noch ein Hinweis zu "pljoin", wie mir bekannt ist arbeitet es mit LWPolylinien, wird eine Polylinie angewählt wird sie mit _convertpoly in eine LWPolylinie gewandelt.
Achtung!
BicsCad hat den Befehl "_convertpoly" nicht, es muss ein anderer Weg gegangen werden um Polylinie zu LWPolylinien zu machen.
Ein Weg ist
- die Polylinie auflösen.
- die Variable "Plinentype" umstellen,
- danach mit Pedit die Linien und Bögen wieder zu
  LWPolylinien verbinden. Das ist leider ein unschöner Weg.

Tools die LWPolylinien zu Ppolylinien wandeln gibt es mehrere, aber umgekehrt habe ich noch nichts Passendes gefunden.

Gruß
Theodor

Beiträge: 1471
Registriert: 05.09.2000

Beiträge: 1396
Registriert: 16.04.2002

erstellt am: 23. Jun. 2011 00:12      <-- editieren / zitieren -->      Unities abgeben: 

lange gewartet, jetzt sind die Tools da.
Vielen Dank, ich werde die Info an meine Schüler weiter geben.

zu den Tools habe ich noch zwei Fragen:
a)
Den Befehl um Text aufzulösen, hatte Torsten schon vor einiger Zeit in Bricscad eingebaut, ich hatte ihn mehrmals darum gebeten.
Jetzt ist er auch in den Expresstools, besser 2 x als nicht dachte ich und wollte beide Befehle testen um Unterschiede zu sehen.
_TXTEXP von BricsCad funktioniert,
TXTEXP von den Expresstools nicht, ich vermute weil BricsCad den Befehl "WMFIN" nicht unterstützt.
BricsCad hat den Befehl "_TXTEXP" schon einige Zeit aber noch in keinem Menü gelistet.
Mein Vorschlag: TXTEXP im Express-Menü lassen und auf _TXTEXP von BricsCad zugreifen. Dann würde alles passen.

b)
Ein Befehl vermisse ich noch: "_pljoin".
Oder habe ich ihn übersehen?

Viele Grüße

Theodor

Beiträge: 963
Registriert: 03.11.2003

erstellt am: 22. Jun. 2011 09:12      <-- editieren / zitieren -->      Unities abgeben: 

Der Layerwalker funktioniert bei mir leider auch nicht.
Jetzt müsste man nur noch einen Konverter haben, der es ermöglicht, die ARX Applikationen unter Bricscad zum laufen zu bringen.

Dann wäre Bricscad vollkommen.

Beiträge: 1471
Registriert: 05.09.2000