Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  filter nach winkel

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  filter nach winkel (190 mal gelesen)
Britt
Mitglied
 


Sehen Sie sich das Profil von Britt an!   Senden Sie eine Private Message an Britt  Schreiben Sie einen Gästebucheintrag für Britt

Beiträge: 154
Registriert: 21.03.2002

AutoCAD 2006 WindowsXP
HP800

erstellt am: 07. Okt. 2003 10:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,
hat jemand eine Idee, wie man alle Linien mit dem Winkel 45° (aufgelöste Schraffur) in einen Auswahlsatz bekommt?
Britt

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

Kramer24
Ehrenmitglied V.I.P. h.c.
Architekt


Sehen Sie sich das Profil von Kramer24 an!   Senden Sie eine Private Message an Kramer24  Schreiben Sie einen Gästebucheintrag für Kramer24

Beiträge: 5881
Registriert: 09.11.2001

Acad Architecture 2023
WIN 10

erstellt am: 07. Okt. 2003 10:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Britt 10 Unities + Antwort hilfreich

Schnellauswahl bietet Winkel an...
Filter weiß ich nicht.
Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

[Diese Nachricht wurde von Kramer24 am 07. Oktober 2003 editiert.]

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

Thomas Rausch
Mitglied



Sehen Sie sich das Profil von Thomas Rausch an!   Senden Sie eine Private Message an Thomas Rausch  Schreiben Sie einen Gästebucheintrag für Thomas Rausch

Beiträge: 1199
Registriert: 26.03.2001

Intel P4 2,6 GHz
512 MB RAM
NVIDIA GeForce FX 5200
.
WinXP prof.
Autodesk Map 2004 SP 1
WS-Landcad 2004
.
Tetris

erstellt am: 07. Okt. 2003 10:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Britt 10 Unities + Antwort hilfreich

Hallo,
im Filter sollte es über eine und-Verknüpfung zwischen LINIE und Normalenvekor=... funktionieren

------------------

gruß
thomas

vergiss den Normalenvektor, war Unsinn, Dank an Siegfried

[Diese Nachricht wurde von Thomas Rausch am 07. Oktober 2003 editiert.]

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



Sehen Sie sich das Profil von Schachinger an!   Senden Sie eine Private Message an Schachinger  Schreiben Sie einen Gästebucheintrag für Schachinger

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 07. Okt. 2003 10:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Britt 10 Unities + Antwort hilfreich

(defun c:filter45 ()
(setq ss (ssget '((0 . "LINE"))))
(setq ssnew (ssadd))
(setq indx -1)
  (repeat (sslength ss)
    (setq indx (1+ indx))
    (setq en (ssname ss indx))
    (setq ang (/ (* (angle (reverse (cdr (reverse (cdr (assoc 10 (entget en)))))) (reverse (cdr (reverse (cdr (assoc 11 (entget en))))))) 180) PI))
    (if (= ang 45.0) (ssadd en ssnew))
    (if (= ang 225.0) (ssadd en ssnew))
    )
  (command "_-block" "ss45" "0,0,0" ssnew "" "_-insert" "ss45" "0,0,0" "" "" "")
  )


ansonsten mal damit probieren... wenn die wingel 135 und 315 auch mitgenommen werden sollen halt
(if (= ang 135.0) (ssadd en ssnew))
(if (= ang 315.0) (ssadd en ssnew))
hinzufügen. erstellt einen block "ss45" mit all den objekten. linien mit FAST 45 grad checkt das natürlich noch nicht... wär aber ausbaufähig.

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



Sehen Sie sich das Profil von Schachinger an!   Senden Sie eine Private Message an Schachinger  Schreiben Sie einen Gästebucheintrag für Schachinger

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 07. Okt. 2003 11:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Britt 10 Unities + Antwort hilfreich

normalvektor?
ist der bei einer linie die in der xy-ebene liegt nicht immer z=1?!?

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

Britt
Mitglied
 


Sehen Sie sich das Profil von Britt an!   Senden Sie eine Private Message an Britt  Schreiben Sie einen Gästebucheintrag für Britt

Beiträge: 154
Registriert: 21.03.2002

AutoCAD 2006 WindowsXP
HP800

erstellt am: 07. Okt. 2003 11:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Vielen Dank für eure Hilfe,

am besten bekomme ich es mit der Schnellauswahl hin (mal ein Grund sich doch damit zu beschäftigen, ich benutze sonst Filter)

@Schachinger: das Programm läuft prima an, aber es nimmt aus irgendeinem Grund nicht alle Linien der Schraffur, das liegt aber bestimmt an der ursprünglichen Schraffur.

Tschüß Britt

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



Sehen Sie sich das Profil von Schachinger an!   Senden Sie eine Private Message an Schachinger  Schreiben Sie einen Gästebucheintrag für Schachinger

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 07. Okt. 2003 12:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Britt 10 Unities + Antwort hilfreich

hi britt!
liegt wohl nicht an der schraffur sondern an meinem lisp *G*
das problem ist das bei manchen linien warscheinlich ein winkel von 45.000001 oder 49.99999 oder ähnliches rauskommt....
daher:

(defun c:filter45 ()
(setq ss (ssget '((0 . "LINE"))))
(setq ssnew (ssadd))
(setq indx -1)
  (repeat (sslength ss)
    (setq indx (1+ indx))
    (setq en (ssname ss indx))
    (setq ang (/ (* (angle (reverse (cdr (reverse (cdr (assoc 10 (entget en)))))) (reverse (cdr (reverse (cdr (assoc 11 (entget en))))))) 180) PI))
    (if (<= (abs (- ang 45.0)) 0.0001) (ssadd en ssnew))
    (if (<= (abs (- ang 225.0)) 0.0001) (ssadd en ssnew))
    )
  (command "_-block" "ss45" "0,0,0" ssnew "" "_-insert" "ss45" "0,0,0" "" "" "")
  )

nimmt alle linien mit die +/-0.0001 von 45grad abweichen...
wie gesagt wenn mehrere winkel gewünscht sind einfach die zielen kopieren.

aber lothar hat sowiso die beste lösung gehabt *G* mein lisp wäre nur dann sinnvoll wenn man z.b. alle linien mit 30 UND 45 grad suchen will.. hab ich wieder mal umsonst getippselt 

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz