---

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

---

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

---

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

---

Siehe oben

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

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

---

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

---

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