---

Guten Morgen,

habe schon im Forum gewühlt, aber iwie nichts passendes gefunden, deshalb so:

ich suche nach einer einfachen Möglichkeit, schräge Linien (Winkel 45°)aus einem Layer (35C) zu filtern und das mit einem Script,
um diese dann auf einen anderen Layer(Hatch25C) zu legen in derselben Zeichnung.

Hintergrund ist der, dass wir Zeichnungen von einem anderen Programm als .dwg exportieren, auf denen dann aber leider die Umrisslinien und die Linien für die Schraffuren von Objekten auf demselben Layer liegen, was nicht sein darf.
Da es eine Menge Zeichnugen sind, möchte ich das Ganze nach Möglichkeit nicht zu Fuss mit _qselect machen.

Freue mich über Tipps,
Christian

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

---

bist du denn sicher, dass die Schraffuren nur als Linien gezeichnet sind?

nicht, dass du dir die Mühe machst, und ein Skript schreibst, dass schräge Linien auswählt, nur um dann festzustellen, dass es nicht funktioniert, weil es gar keine Linien sind...

Gruß,
Yan

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

---

Ja, die Schraffuren sind Linien, unglücklicherweise
auch eine Menge davon, und löschen will ich sie nicht...
tja,...

Christian

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

---

Wie wäre es sie ganz schnell mit SAUSWAHL zu filtern?

------------------
Gruss
Caladia

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

---

ChrisSin hat ja oben schon erwähnt, dass er _qselect nicht benutzen möchte (ist das gleiche wie sauswahl).

andererseits wäre es eine sehr sinple möglichkeit, damit auszuwälen, und dann alles aud einen vorher erstellten Layer zu schieben geht ja blitzschnell.
wenn du das bei jeder Datei machst, dauert es ja wahrscheinlich nicht wirklich länger als jedesmal die Routine zu laden und auszuführen.

um wie viele Dateien handelt es sich denn?

Die Routine dafür wäre ja andererseits auch nicht wirklich kompliziert.

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

---

@caladia
ja, das mit der sauswahl wäre mein letzter Rettungsanker ...

Die Sache ist nur:

Es handelt sich nicht nur um eine Zeichnung, bei der das geändert werden muss und es ist nicht die einzige Änderung, d.h. das script
habe ich zum größten Teil schon fertig, müsste es aber um diese "schräge Linien"-Auswahl erweitern...

Christian

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

---

Zitat:

---

Original erstellt von ChrisSin:
@caladia
ja, das mit der sauswahl wäre mein letzter Rettungsanker ...

Die Sache ist nur:

Es handelt sich nicht nur um eine Zeichnung, bei der das geändert werden muss und es ist nicht die einzige Änderung, d.h. das script
habe ich zum größten Teil schon fertig, müsste es aber um diese "schräge Linien"-Auswahl erweitern...

Christian

---

.. dann wirst du wohl auf einen entsprechenden Lispbaustein, den du innerhalb deines Scriptes laden und ausführen läßt,  zurückgreifen müssen...

------------------
  - 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 CADmium:
.. dann wirst du wohl auf einen entsprechenden Lispbaustein, den du innerhalb deines Scriptes laden und ausführen läßt,  zurückgreifen müssen...

---

...ja, nur Lisp kann ich eigentlich nicht.Ich habe daran aber auch schon gedacht und entsprechendes
als download gesucht und einen auf CADlon.de gefunden: die gewählten Linie werden dabei aber gelöscht..

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

---

Zitat:

---

Original erstellt von ChrisSin:
...ja, nur Lisp kann ich eigentlich nicht.Ich habe daran aber auch schon gedacht und entsprechendes
als download gesucht und einen auf CADlon.de gefunden: die gewählten Linie werden dabei aber gelöscht..

---

.. und wenn du mal bei cadlon.de anfragst, ob dir der Programm autor das evtl. umschreibt ?

------------------
  - 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 für die Tipps, mal sehen, was ich daraus mache....

Christian

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

---

hier ist das !fast! komplette Skript:
----------------------------------------
(defun C:LayerWechsel()
(setq counter 0)
(setq eset(ssget "X"))
(while (< counter (sslength eset))
(setq en(ssname eset counter))
(setq elist(entget en))
(if (BEDINGUNGEN) (setq elist(subst (cons 8 "neuer_Layer")(assoc 8 elist) elist)) (entmod elist))
(setq counter(+ counter 1))
)
)
----------------------------------------

Damit das ganze funktioniert müssen noch die Bedingungen eingetragen werden:

Groupcode stelle 0 = "LINE"

und

(= abs(- X_Koordinate_ANFANGSPUNKT X_Koordinate_ENDPUNKT) abs(- Y_Koordinate_ANFANGSPUNKT Y_Koordinate_ENDPUNKT))

Dies gilt natürlich nur für Koordinaten im ersten und dritten Quadranten, im zweiten und vierten wäre die Bedingung komplizierter. Aber wenn die Dateien z.B. Gauss-Krüger-Koordinaten habe, sind sie ja im ersten.

Das einzige Problem was ich habe: Wie komme ich an die Anfangs- und Endpunktkoordinaten? Und die Groupcode Stelle 0? Im dxf-Group-Code sind diese ja für jedes Element angegeben, aber z.B. mit (nth xy (ELEMENT)) gibt  er mir nur den Namen des Elementes bei 0 und ein Paar Koordinaten bei 1 an, die zwar auf der Linie ligen, aber meiner Meinung nach keinen relevanten Punkt beschreiben.
Wo liegt mein Denkfehler?

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

---

Ok .. gerade Mittagspause ..
(defun LHATCHLAY( ANG  NEWLAYER / COUNT BLOCK ITEM NAME)
  (vl-load-com)
  (if(and(numberp ANG)(=(type NEWLAYER)'STR)(tblobjname "LAYER" NEWLAYER)) 
    (vlax-for BLOCK (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
      (vlax-for ITEM BLOCK
        (and(not(vl-catch-all-error-p
                  (setq NAME (vl-catch-all-apply
                                'vla-get-objectname
                                (list ITEM)
                            )
                  )
                )
            )
            (=(strcase NAME)"ACDBLINE")
            (not(vl-catch-all-error-p
                  (setq LANG (vl-catch-all-apply
                                'vla-get-angle
                                (list ITEM)
                            )
                  )
                )
            )
            (equal LANG ANG 0.00000001)           
            (not(vl-catch-all-error-p
                  (vl-catch-all-apply
                    'vla-put-layer
                      (list ITEM NEWLAYER)
                  )
                )
            )
        )       
      )     
    )
  ) 
)

Aufruf mit
(LHATCHLAY (*(/ 45 180.0)Pi) "0") setzt alle LINIEN mit 45° auf LAYER "0"

------------------
  - 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

---

tja, wär dann ja damit eigentlich erledigt.

allerdings sollte man darauf achten, dass die 225° Linien damit noch nicht umgesetzt sind.
ebenso 315° und 135°

je nachdem wie die Schraffuren angelegt wurden, sind diese 3 ja auch evtl. umzupacken.

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

---

 

Zitat:

---

Original erstellt von YanB:
tja, wär dann ja damit eigentlich erledigt.

allerdings sollte man darauf achten, dass die 225° Linien damit noch nicht umgesetzt sind.
ebenso 315° und 135°

je nachdem wie die Schraffuren angelegt wurden, sind diese 3 ja auch evtl. umzupacken.

---

ok, dann eben Aufruf mit
(LHATCHLAY (*(/ 225 180.0)Pi) "0") für 225° .. usw..

oder(or(equal (*(/  45 180.0)Pi) ANG 0.00000001)
       (equal (*(/ 135 180.0)Pi) ANG 0.00000001)
       (equal (*(/ 225 180.0)Pi) ANG 0.00000001)
       (equal (*(/ 315 180.0)Pi) ANG 0.00000001)
    )
einbauen ... das sollte ja nun nicht soooo schwer sein?!

------------------
      - 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

---

hab ich ja nicht gesagt.. 

ich mein ja nur man sollte dran denken.

da sieht mein kleines skript jetzt ziemlich arm aus 

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

---

Zitat:

---

Original erstellt von YanB:

da sieht mein kleines skript jetzt ziemlich arm aus  

---

Kein Kommentar ..   

aber wenn du daran arbeiten willst, sei dir DAS BUCH wärmstens empfohlen..

------------------
  - 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