Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  farbe ändern über lisp

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:  farbe ändern über lisp (704 mal gelesen)
marvin101010
Mitglied
ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)


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

Beiträge: 562
Registriert: 22.01.2003

Pentium 4
Windows XP
Autocad 2006
Autocad 2006LT + Extender
ADT 2007
ArchiCAD

erstellt am: 01. Feb. 2003 13:22    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 lispler

zum ersten mal stelle ich in diesem forum nicht eine frage,
wie dies und jenes in einer lisp funktioniert, sondern warum
eine routine nicht oder nur tw funzt:

mit folgender lisp möchte ich linien eines layers auf einen
anderen bringen...funktioniert soweit gut
ausserdem sollen die linien aber eine andere farbe als die des
layers bekommen...tuts nich

ich bin mit meinem latein grad ein bisschen am ende!


(defun c:sir (/ a lis neu z)


(setq lis (ssget "x" '((0 . "line") (8 . "0")))
      z  0)

        (repeat (sslength lis)
                (setq neu (entget (ssname lis z))
                      neu (subst (cons 8 "1") (assoc 8 neu) neu)
                      neu (subst (cons 62 5) (assoc 62 neu) neu)
                      z (+ z 1)
                ); end setq
              (entmod neu)
        ); end repeat
); end defun

------------------
alle wege führen nach rom, bis auf den mittleren!

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

benwisch
Mitglied
Bautechniker, CAD-Konstrukteur


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

Beiträge: 375
Registriert: 01.02.2001

erstellt am: 01. Feb. 2003 13:52    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 marvin101010 10 Unities + Antwort hilfreich

wenn ein objekt eine "farbe" von layer hat, dann existiert auch kein gruppencode 62 !!
du muß also eine routine einbauen, die überprüft, ob der gruppencode 62 vorh. ist.
wenn ja, dann geht auch (subst neu alt liste).
wenn nicht, dann den gruppencode einbauen, also so z.b.

(setq temp (cons 62 farbwert)
              neu (cons temp neu )
              )

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

marvin101010
Mitglied
ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)


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

Beiträge: 562
Registriert: 22.01.2003

Pentium 4
Windows XP
Autocad 2006
Autocad 2006LT + Extender
ADT 2007
ArchiCAD

erstellt am: 01. Feb. 2003 14: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

danke beenwsch

habe es im moment in einem älteren forumseintrag
gesehen ;-) dasselbe gilt auch für strichsärke...
bekommst trotzdem fünf...und glatte zehn, wenn du mir
den gruppencode für den linientypfaktor sagen
kennst.........danke allemal

------------------
alle wege führen nach rom, bis auf den mittleren!

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

T. Bürger
Mitglied
Technischer Angestellter


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

Beiträge: 201
Registriert: 30.01.2001

AcadCAD MEP 2008 (D A CH)

erstellt am: 01. Feb. 2003 14: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 marvin101010 10 Unities + Antwort hilfreich

Hallo marvin101010,

ich bin zwar nicht benwisch aber der Gruppencode ist 48

Grüße
T. Bürger

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

otterloh
Mitglied



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

Beiträge: 188
Registriert: 27.06.2001

AutoCAD 2012, 2013, 2019
Win8.1

erstellt am: 01. Feb. 2003 14:22    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 marvin101010 10 Unities + Antwort hilfreich

Noch ein Weg, auch AutoCAD hat viele Wege nach Rom.

Eine schnelle Möglichkeit mit AutoCAD2000i,

Befehl: ssx
-> ein Objekt auswählen (ist das Muster Objekt)
-> evt. mit Filteroptionen eingrenzen
-> Return
-> 426 gefunden (zeigt AutoCAD in der Befehlszeile an)

Button Eigenschaften
-> im Eigenschaften Fenster -> Button Objekte wählen
-> Objekte wählen: v (v für vorher eingeben)
-> Return


dann im Eigenschaften Fenster
die gewünschten Änderungen vornehmen.

------------------
Gruß Werner
http://Meyer-Werner.bei.T-Online.de

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

benwisch
Mitglied
Bautechniker, CAD-Konstrukteur


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

Beiträge: 375
Registriert: 01.02.2001

erstellt am: 01. Feb. 2003 14:24    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 marvin101010 10 Unities + Antwort hilfreich

T. Bürger kam mir zuvor :-)

@marvin101010

gib mal in der entwicklerhilfe (lisp-->F1) unter suchen folg. wert ein
"Gruppencodes in numerischer Reihenfolge [DXF-Referenz: DXF]"
dort steht vieles !! ;-)

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

marvin101010
Mitglied
ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)


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

Beiträge: 562
Registriert: 22.01.2003

Pentium 4
Windows XP
Autocad 2006
Autocad 2006LT + Extender
ADT 2007
ArchiCAD

erstellt am: 01. Feb. 2003 15:24    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

Danke T Bürger....Danke Benwisch...Danke otterloh

an Benwisch:  hatte ich schon offen, geht aber nich ins detail
              nur 40 - 48 = ...

an otterloh:  geht ist für meine spezielle "herausforderung"
              aber nich praktikabel ;-)

------------------
alle wege führen nach rom, bis auf den mittleren!

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