Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Linienstärke 0,0

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:  Linienstärke 0,0 (276 mal gelesen)
Trine
Mitglied
CAD-Ingenieur


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

Beiträge: 30
Registriert: 10.11.2003

WinXP prof. SP2
DellPrecisionPWS390 (DualCore)
1,86GHz, 2GB RAM
NVIDIA Quadro FX550
MEP 2008 DACH /AutoCAD 2008
ET2007
Office2003prof
DXFCONF, Hp DesignJet 1050C

erstellt am: 08. Dez. 2005 11:38    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

Ich bekomme oft Kundenzeichnungen, bei denen Linien die Linienstärke von Layer=0,0 haben.
Das Umstellen auf "Vorgabe" (nur dieser "0,0"-Layer) ist mir auch mit der Erstellung von einem Filter im Layer-Manager zu langwierig.
Weiss jemand dafür ein LISP und kann mir helfen, das alles mit nur einem Klick passiert ?
(Im Forum habe ich schon gesucht, und nichts gefunden.)
Manne

------------------
manne

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: 13508
Registriert: 30.11.2003

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

erstellt am: 08. Dez. 2005 11:53    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 Trine 10 Unities + Antwort hilfreich

Bitte:
Code:

(defun C:LAYER00 ( / LAYER LAYERDATEN) 
  (While (setq LAYER
          (tblnext "LAYER" (null LAYER))
        )   
    (setq LAYERDATEN
    (entget(tblobjname "LAYER" (cdr(assoc 2 LAYER))))
    )
    (if(=(cdr(assoc 370 LAYERDATEN))0.0)        
       (entmod(subst(cons 370 -3)(assoc 370 LAYERDATEN)LAYERDATEN))
    )    
  )
  (princ)
)


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

Trine
Mitglied
CAD-Ingenieur


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

Beiträge: 30
Registriert: 10.11.2003

WinXP prof. SP2
DellPrecisionPWS390 (DualCore)
1,86GHz, 2GB RAM
NVIDIA Quadro FX550
MEP 2008 DACH /AutoCAD 2008
ET2007
Office2003prof
DXFCONF, Hp DesignJet 1050C

erstellt am: 08. Dez. 2005 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

einfach super !!!
Vielen Dank, klappt wunderbar.
Ich hoffe, dass das mit den unities geklappt hat

------------------
manne

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: 13508
Registriert: 30.11.2003

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

erstellt am: 08. Dez. 2005 14:05    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 Trine 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von Trine:
.
Ich hoffe, dass das mit den unities geklappt hat 


wenn du so direkt fragst:

aber der gute Wille zählt schon 

------------------
- 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.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



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

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 08. Dez. 2005 15:04    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 Trine 10 Unities + Antwort hilfreich

...und für die Interessierten hier noch mal als VLisp:
Code:

(vl-load-com)
(vlax-for LAYER
          (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
  (if (zerop (vla-get-lineweight LAYER))
    (vla-put-lineweight LAYER -3) ;_ -3 Vorgabe, -2 VonBlock, -1 VonLayer
  )
)


...
Edit: Ja, ja Bärli, da fehlte noch was ;-)

------------------
Ciao,
Marc
   

[Diese Nachricht wurde von marc.scherer am 08. Dez. 2005 editiert.]

[Diese Nachricht wurde von marc.scherer am 08. Dez. 2005 editiert.]

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