---

export.zip

hi zusammen!

ich habe hier eine kleine lisp datei um einen dwg export von Inventor7
zu verbessern.
mit welcher befehlszeile kann ich die farbe der blöcke steuern bzw.
sie auflösen?
(wie gesagt 0 ahnung von lisp)

danke im voraus
lg

------------------
!!! Ehem. Meex !!!

[Diese Nachricht wurde von MechMex am 13. Aug. 2004 editiert.]

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

---

was willst du mit den blöcken machen. sprengen oder nur eigenschaften ändern?
(in der datei passiert jedenfalls nichts mit blöcken.)

ciao georg

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

---

hi !
thx

ich will das blöcke die farbe weiß bekommen!

lg

------------------
!!! Ehem. Meex !!!

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

---

die blöcke selbst oder die darin enthaltenen entities?

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

---

..guckst du hier .. das Tool set_by_layer von mir.

und änderst folgende Funktion:

(defun UPDATE_OBJEKT ( OBJEKT /  OBJEKTDATEN)
      (if (=(type OBJEKT) 'ENAME)                                                    ; Parameter o.k. ?
        (progn     
          (setq OBJEKTDATEN (entget OBJEKT))                                      ; Objektdaten auslesen
          (if (assoc 8 OBJEKTDATEN)
            (progn
              (if (=(strcase(cdr(assoc 0 OBJEKTDATEN))) "INSERT")              ; Blockreferenzen auf "0"
                (setq OBJEKTDATEN(subst(cons 8 "0")(assoc 8 OBJEKTDATEN)OBJEKTDATEN))
              )
              (progn
                ;; *************** hier ändern, was du willst *************************************** ;;
                (OBJEKT_ALLGEMEIN_SET  OBJEKT  7                                                ; Farbe<- Hier!!
              nil                                                ; Layer
              nil                                      ; Linientyp
              nil                                      ; Linientypfaktor
              nil )                              ; Linienstärke
                ;; *************** hier ändern, was du willst *************************************** ;;
              ) 
            )
          )
        )
      ) 
    )

------------------
- Thomas -

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

---

Export.zip

hi cadmium!

danke für deine antwort aber ich verstehe nur bahnhof.
habe einen dwg export von inventor 7 angehängt und eine lisp datei
habe die lisp datei ausgeführt und habe das problem das
der text auf der .dwg in der mitte unten 3 farben hat (blau, grün, schwarz).
da inventor den text als block exportiert brauche ich eine funktion
wo ich die farbe des blockes umwandeln kann!
ich weiß nicht ob ich den block auflösen muß oder ob es auch möglich
ist die farbe so zu ändern.
ich will eigendlich nur das der text eine farbe hat und nicht drei farben!

danke im voraus
lg

------------------
!!! Ehem. Meex !!!

[Diese Nachricht wurde von MechMex am 16. Aug. 2004 editiert.]

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

---

Hallo MechMex,

vielleicht hilft dir ja auch das Tool BLK_COLOR von meiner Seite. Zu finden unter Hilfe->Download->Prog[25].

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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