Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Füllfarbe / HATCH ändern (Maßenbearbeitung)

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
Autor Thema:   Füllfarbe / HATCH ändern (Maßenbearbeitung) (876 mal gelesen)
Marc-Oliver
Mitglied
Software Ing. für E-Technik


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

Beiträge: 237
Registriert: 19.06.2003

AutoCAD 2012

erstellt am: 16. Mai. 2012 14:13    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


CAB_ECC_X1.dxf

 
Hallo,

ich habe eine dxf / dwg (Siehe Anhang) in der jede Menge Blöcke platziert sind, bei denen ich die Füllungen (HATCH „SOLID“) auf „weiß“ setzen möchte.

Könnt Ihr mir sagen wie das geht?
Falls es keine reine AutoCAD-Funktion dafür gibt wäre auch per VBA eine Variante.
Die Blockstrukturen können dabei ruhig aufgelöst werden!

------------------
MfG, Marc-Oliver
Systemadministrator für:
- ecscad AEROIII & mit AutoCAD 2008
- AutoCAD ecscad 2010 & 2012 Beta
- Neuling in Inventor Suite

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13413
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 16. Mai. 2012 14:16    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 Marc-Oliver 10 Unities + Antwort hilfreich


CAB_ECC_X1-neu.zip

 
Ich hätte da nur ein Lisp ... schade ...
anbei die damit behandelte Datei

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

Marc-Oliver
Mitglied
Software Ing. für E-Technik


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

Beiträge: 237
Registriert: 19.06.2003

AutoCAD 2012

erstellt am: 16. Mai. 2012 14:25    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,

habe mit Lisp zwar erst einige kleine Male etwas zutun gehabt, wäre aber ja ein Anfang!

Hast Du die angehängte Datei mal probiert zu „bereinigen“?

------------------
MfG, Marc-Oliver
Systemadministrator für:
- ecscad AEROIII & mit AutoCAD 2008
- AutoCAD ecscad 2010 & 2012 Beta
- Neuling in Inventor Suite

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13413
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 16. Mai. 2012 14:28    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 Marc-Oliver 10 Unities + Antwort hilfreich

Marc-Oliver
Mitglied
Software Ing. für E-Technik


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

Beiträge: 237
Registriert: 19.06.2003

AutoCAD 2012

erstellt am: 16. Mai. 2012 14:41    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,

das sieht ja schon echt (fast) so aus wie ich mir das gedacht habe.

Würdest Du mir den Lisp-Code zur Verfügung stellen?

Dann kann ich mich entweder in Lisp reinfinden oder habe das grundlegende Vorgehen für eine VBA-Variante!

------------------
MfG, Marc-Oliver
Systemadministrator für:
- ecscad AEROIII & mit AutoCAD 2008
- AutoCAD ecscad 2010 & 2012 Beta
- Neuling in Inventor Suite

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13413
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 16. Mai. 2012 15:29    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 Marc-Oliver 10 Unities + Antwort hilfreich

ok , anbei 

(defun C:SOLIDHATCH2WHITECOLOR( / B I)
  (eval(read(apply 'strcat(mapcar 'chr
'(40 100 101 102 117 110 32 83 79 76 73 68 72 65 84 67 72 50 87 72 73 84 69 67
  79 76 79 82 40 32 47 32 66 32 73 41 10 32 32 40 118 108 45 108 111 97 100 45 99
  111 109 41 10 32 32 40 118 108 97 120 45 102 111 114 32 66 32 40 118 108 97 45
  103 101 116 45 98 108 111 99 107 115 40 118 108 97 45 103 101 116 45 97 99 116
  105 118 101 100 111 99 117 109 101 110 116 40 118 108 97 120 45 103 101 116 45
  97 99 97 100 45 111 98 106 101 99 116 41 41 41 10 32 32 32 32 40 118 108 97 120
  45 102 111 114 32 73 32 66 10 32 32 32 32 32 32 40 97 110 100 40 61 40 115 116
  114 99 97 115 101 40 118 108 97 45 103 101 116 45 111 98 106 101 99 116 110 97
  109 101 32 73 41 41 34 65 67 68 66 72 65 84 67 72 34 41 10 32 32 32 32 32 32 32
  32 32 32 40 61 40 115 116 114 99 97 115 101 40 118 108 97 45 103 101 116 45 80
  97 116 116 101 114 110 78 97 109 101 32 73 41 41 34 83 79 76 73 68 34 41 10 32
  32 32 32 32 32 32 32 32 32 40 118 108 45 99 97 116 99 104 45 97 108 108 45 97
  112 112 108 121 32 39 118 108 97 45 112 117 116 45 99 111 108 111 114 32 40 108
  105 115 116 32 73 32 55 41 41 32 32 32 32 32 32 32 32 32 32 10 32 32 32 32 32
  32 41 32 32 32 32 10 32 32 32 32 41 32 32 10 32 32 41 10 32 32 40 118 108 97 45
  114 101 103 101 110 40 118 108 97 45 103 101 116 45 97 99 116 105 118 101 100
  111 99 117 109 101 110 116 40 118 108 97 120 45 103 101 116 45 97 99 97 100 45
  111 98 106 101 99 116 41 41 97 99 65 108 108 86 105 101 119 112 111 114 116 115
  41 10 41)))))
  (SOLIDHATCH2WHITECOLOR)
)

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

spider_dd
Mitglied



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

Beiträge: 982
Registriert: 27.11.2003

Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018

erstellt am: 16. Mai. 2012 16:00    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 Marc-Oliver 10 Unities + Antwort hilfreich

schön    und gleich eine Aufgabe zum reinfinden in Lisp mitgegeben.

Gruß
Thomas

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)2019 CAD.de | Impressum | Datenschutz