Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  2008 Maßstabsliste

  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Thema geschlossen  Thema geschlossen!
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:  2008 Maßstabsliste (19656 mal gelesen)
Caladia
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 2546
Registriert: 04.03.2002

ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3

erstellt am: 10. Apr. 2007 14: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

Na wie weit habt ihr die Neuheiten in 2008 schon ausgelotet?
Vielleicht hat ja schon jemand Antworten auf die "neuen" Fragen die aufgeworfen werden.
Da man nu in 2008 die Maßstäbe nicht mehr global einstellen kann (nein, kein Registrieeintrag vorhanden), sondern nur noch in jedem Plan einzeln, ist meine Frage: Wie transferiert man seine Liste am elegantesten von einen Plan in den nächsten (Zollschrott raus, Maße angepasst usw.) ohne dass das in eine fröhliche Tastaturwundscheueraktion ausartet? Hat jemand eine Import-/Exportfunktion gesehen?
Ich sprech hier nicht von Vorlagedateien, sondern von lange vorhandenen Plänen.

Und:
Weiß eigentlich jemand warum es in 2008 jetzt zwei dwl pro geöffneter Datei gibt?


------------------
Gruss
Caladia

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

tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur



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

Beiträge: 7085
Registriert: 13.01.2004

Sie nannten ihn google.

erstellt am: 10. Apr. 2007 14:57    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 Caladia 10 Unities + Antwort hilfreich

Zwei DWL's ? ich hab nicht mal eine... (vielleicht hast du da meine eine ?)

zu den Massstäben:

Eventuell mit:

Code:

_-scalelistedit

Und das dann auf einem Button mit Liste ? (nur so als Denkanstoss/Vorschlag/Abhilfe...)

------------------
Grüsse

Thomas

EDIT: Sogar transparent möglich...  natürlich nur in der Dialogboxversion...

[Diese Nachricht wurde von tunnelbauer am 10. Apr. 2007 editiert.]

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

Caladia
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 2546
Registriert: 04.03.2002

ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3

erstellt am: 10. Apr. 2007 16:26    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

Als Lisp oder Script?
Ja ist wahrscheinlich die beste Möglichkeit.

Ich frag mich bloß was sich Autodesk dabei gedacht hat, als wenn man in jedem Plan andere Maßstabslisten bräuchte. Ich komm jedenfalls mit einer Liste aus. *kopfschüttel*

------------------
Gruss
Caladia

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

Caladia
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 2546
Registriert: 04.03.2002

ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3

erstellt am: 11. Apr. 2007 12:17    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

Och nö!
Hab nun ein Script gebastelt. Funktioniert super.
Soweit -
Gibt es eine Systemvariable die verhindert das 'ne Million Blöcke sich mit ihrer eigenen Liste verewigen? Das passiert nähmlich, wenn man seine Liste verändert. (Dann hat man auf einmal 1:100 1:100_1 1:100_2 usw. usw.) (Bei Xref heißt es übrigens 1:100 Xref)
Die kann man nicht mal bereinigen!

Sieht hier jemand eine andere Möglichkeit als 3 Scripte, eins zum immer wieder Bereinigen der original Liste, eins für die Xref Maß-Liste und eins was eigene Maßstäbe einfügt die andere Namen (z.B. M=1:100)als die Originalen tragen?


Wo liegt eigentlich der Sinn und Zweck die ganzen unbrauchbaren Maßstäbe immer wieder einzuladen?

------------------
Gruss
Caladia

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

tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur



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

Beiträge: 7085
Registriert: 13.01.2004

Sie nannten ihn google.

erstellt am: 11. Apr. 2007 13:01    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 Caladia 10 Unities + Antwort hilfreich

Bau 'ne Abfrage ein...

(if (blabla...)

suchen musst du nach Entity-Type SCALE, im DXF-Code 300 ist der Name des Scale deklariert...

------------------
Grüsse

Thomas

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

catch
Mitglied


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

Beiträge: 7
Registriert: 07.11.2007

AutoCad 2008
MS Windows XP Professional 2002 SP 2
IntelR) Pentium(R)D CPU 3.4 GHz 2,0 GB RAM, NVIDIA GeForce 7600 GS

erstellt am: 07. Nov. 2007 15: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 Caladia 10 Unities + Antwort hilfreich

Hi, bin dankbar auf deinen nun schon alten beitrag gestoßen, leider habe ich keine wirkliche antwort darauf gefunden...weißt du inzwischen wie man das leidige problem mit den automatisch erzeugten maßstäben löst?

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

tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur



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

Beiträge: 7085
Registriert: 13.01.2004

Sie nannten ihn google.

erstellt am: 07. Nov. 2007 17: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 Caladia 10 Unities + Antwort hilfreich

Hi und herzlich willkommen auf cad.de!

Du musst das Service Pack 1 für AutoCAD 2008 installieren - dann löst sich das Problem mit den verschleppten Maßstäben...

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

Caladia
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 2546
Registriert: 04.03.2002

ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3

erstellt am: 10. Nov. 2007 17: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

Zitat:
Original erstellt von tunnelbauer:
Du musst das Service Pack 1 für AutoCAD 2008 installieren - dann löst sich das Problem mit den verschleppten Maßstäben...


Bei mir tut's das aber nicht.

Ich lösch die Dinger nach wie vor über ein Script. Immer und immer wieder.

------------------
Gruss
Caladia

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

Dober Heinz
Mitglied
Technischer Zeichner


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

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2020/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
16,0GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2019

erstellt am: 11. Nov. 2007 12: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 Caladia 10 Unities + Antwort hilfreich

Hallo Caladia

Ja da hast du recht, mir geht es genauso, ich lösch und lösch.
Das nervt son gewaltig.
Ich würde mal Vorschlagen, die was einen guten Draht zu Autodesk haben, sollen da nochmal nachfragen.
danke

------------------
Heinz 

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

Iris2
Mitglied
CAD-Admin


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

Beiträge: 1170
Registriert: 17.02.2004

REVIT
TEKLA Structures
AutoCAD / Soficad
ACA
Microstation

erstellt am: 12. Nov. 2007 12:21    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 Caladia 10 Unities + Antwort hilfreich

Hallo,

wir "schlagen" uns gerade mit dem selben Problem auseinander.
Nach Installation von SP1 => Antwort von Autodesk:

Zitat:
Das Problem, das mit Service Pack 1 behoben wurde war, daß Masstäbe in der Masstabsliste doppelt eingetragen wurden. So wurden z.B. für den Masstab 1:100 mehrere Einträge vorgenommen, die dann mit Indexnumern versehen wurden. Nach Installation des Service Pack 1 sollten diese Masstäbe nun nicht mehr doppelt vorhanden sein....
Es ist jedoch nach wie vor so, daß neue Masstäbe in die Masstabsliste übernommen werden, wenn Blöcke in die Zeichnung eingefügt werden oder Xrefs zugeordnet werden. Dieses Verhalten ist jedoch "As designed". Überzählige Masstäbe können nur mit dem Befehl "Zurücksetzen" aus der Liste gelöscht werden.

Hätte ich dieses Verhalten in der Testphase bemerkt - es wäre ein Grund gegen AutoCAD 2008 gewesen! 

------------------
Gruß
Iris  

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

Peter Tropf
Mitglied
Konstrukteur


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

Beiträge: 246
Registriert: 28.06.2003

erstellt am: 13. Nov. 2007 15:26    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 Caladia 10 Unities + Antwort hilfreich

Hallo Leute,

ich stimme allen bei, die dieses neue Verhalten von 2008 kritisieren.

Ein Workaround könnte aber so aussehen:

1. Eine leere Zeichnung erstellen, die nur die firmenspezifisch angepassten Maßstäbe enthält.

2. In der Anwendungszeichnung den Maßstab 1 : 1 aktuell setzen.

3. Im Maßstabsfenster alle Maßstäbe außer dem aktuellen markieren und löschen.

4. Die Zeichnung aus 1. als Block einfügen (kann man z.B. über die Favoriten im DesignCenter machen, aus einer Werkzeugpalette oder über ein Werkzeugkasten-Makro).

Bei der Befehlszeilenversion -MSTABLISTEBEARB /_-SCALELISTEDIT sind bei der Option Löschen leider keine Wildcards wie * erlaubt.

Oder hat jemand einen besseren Tipp? 

------------------
Gruß Peter

(Fachbuchautor und Trainer für AutoCAD und Inventor)

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: 13. Nov. 2007 17:23    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 Caladia 10 Unities + Antwort hilfreich

mal ein Ansatz:

(defun SCALELIST (VORGABE / DICT)
  (if(>= (atof (substr (getvar "acadver") 1 4)) 17.1)
    (if(setq DICT (dictsearch (namedobjdict) "ACAD_SCALELIST"))
      (progn
        (setq LISTE(vl-remove-if 'null
                    (mapcar
                      '(lambda(X / Y Z)
                          (if(and(=(car X)350)
                                (=(type(setq Y(cdr X)))'ENAME)
                                (setq Z(entget Y))
                                (setq Z(cdr(assoc 300 Z)))
                            )
                            (list Z Y)
                          )
                        ) 
                      DICT
                    ) 
                  )
        )
       
        (if(=(type VORGABE)'LIST)
          (mapcar
            '(lambda(X)
              (if(not(member(car X) VORGABE))
                (entdel (cadr X))
              ) 
            ) 
            LISTE
          ) 
        )   
      )
      (prompt "\nKeine Maßstabseintragungen gefunden\n")
    )
    (prompt "\nFunktioniert erst ab ACAD 2008\n") 
  ) 
)

(SCALELIST '("1:1" "1:2" "1:5" "1:10")) löscht alle Maßstabseinträge außer die übergebenen.

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

Peter Tropf
Mitglied
Konstrukteur


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

Beiträge: 246
Registriert: 28.06.2003

erstellt am: 13. Nov. 2007 22:59    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 Caladia 10 Unities + Antwort hilfreich


Maßstabsliste.lsp.txt

 
Hallo Thomas,

Super-Tool, Kompliment, allerdings kann es nur LÖSCHEN, aber keine neuen Maßstäbe erstellen. Da muss ich weiterhin meinen "Maßstab-DWG-Block" einfügen (dann stören aber die vorhandenen Maßstäbe, weil die Sortierung chaotisch wird).

Für die Nicht-Lispler:

Den Text in eine Datei kopieren (z.B.Maßstabsliste.lsp), dabei in der letzten Zeile vor dem Kommentar einen Strichpunkt einfügen:

(SCALELIST '("1:1" "1:2" "1:5" "1:10")) ;löscht alle Maßstabseinträge außer die übergebenen.

In AutoCAD die Datei z.B. mit APPLOAD (Alias AO) laden. Sie wird dabei automatisch ausgeführt, die Maßstabsliste ist also bereinigt. Natürlich kann man in der letzten Klammer weitere Maßstäbe hinzufügen, sofern sie in der Autodesk-Liste stehen. 

(oder in der angehängten Datei die Endung .txt löschen)

------------------
Gruß Peter

(Fachbuchautor und Trainer für AutoCAD und Inventor)

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

Dober Heinz
Mitglied
Technischer Zeichner


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

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2020/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
16,0GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2019

erstellt am: 14. Nov. 2007 08:45    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 Caladia 10 Unities + Antwort hilfreich

Hallo
Schaut euch das mal an, hab ich im Internet gefunden.
glaub schon das ich das reinstellen darf.

;;; ==========================================================================
;;; File: ScaleListDel.lsp
;;; Purpose: Scale list deletion and management for AutoCAD 2008
;;; Author: Steve Johnson
;;; Date: 13 August 2007
;;; Version: 0.7
;;; Copyright: (c) 2007 cad nauseam (www.cadnauseam.com)
;;; May be distributed and used freely provided this header is retained in full
;;; --------------------------------------------------------------------------
;;; Disclaimer:
;;; This code is supplied as-is and with no warranty whatsoever.
;;; Destruction of annotative objects WILL result from incorrect use.
;;; Use at own risk. No responsibility accepted. Read all notes before use.
;;; --------------------------------------------------------------------------
;;; Commands:
;;;  SCALELISTDEL
;;;  Deletes unused scales except 1:1 using a user-provided wildcard.
;;;  SCALELISTDELALL
;;;  Deletes all unused scales except 1:1.
;;;  SCALELISTDELINCH
;;;  Deletes all unused scales that contain the inch " character.
;;;  SCALELISTDELXREF
;;;  Deletes all unused scales that contain the "_XREF" string.
;;;  SCALELISTDEL_
;;;  Deletes all unused scales that contain the "_" character.
;;;  SCALELISTDELINCHXREF
;;;  Deletes all unused scales that contain either the inch " character or
;;;  the "_XREF" string.
;;;  SCALELISTDELINCH_
;;;  Deletes all unused scales that contain either the inch " or "_"
;;;  characters.
;;;  SCALELISTMETRIC
;;;  Deletes all existing unused scales except 1:1 and sets up metric scales.
;;;  SCALELISTMETRICTEMPLATE
;;;  Deletes all existing scales and sets up metric scales. For use only in
;;;  setting up scales in templates and pre-2008 drawings.
;;;  WARNING: potentially destructive to annotative objects!
;;;  SCALELISTINCH
;;;  Deletes all existing unused scales except 1:1 and sets up inch-based
;;;  scales.
;;;  SCALELISTINCHTEMPLATE
;;;  Deletes all existing scales and sets up inch-based scales. For use
;;;  only in setting up scales in templates and pre-2008 drawings.
;;;  WARNING: potentially destructive to annotative objects!
;;; --------------------------------------------------------------------------
;;; Functions:
;;;  (scaledel_all_unsafe)
;;;  Deletes all scales in the current drawing, including 1:1 and scales in
;;;  use.
;;;  WARNING: potentially destructive to annotative objects!
;;;  (scaledel_wcard_unsafe WCARD-OR-LIST)
;;;  If WCARD-OR-LIST is a wildcard string, deletes scales that match that
;;;  wildcard, excluding 1:1 but including scales in use.
;;;  If WCARD-OR-LIST is a list of scale names, deletes those scales,
;;;  including 1:1 (if listed) and scales in use.
;;;  WARNING: potentially destructive to annotative objects!
;;;  (scaledel_long_xref LONG-SCALE-LIST)
;;;  Cleans up those scales that are too long to delete using the command-line
;;;  (i.e. over 132 characters). These are usually only those created by the
;;;  AutoCAD 2008 pre-SP1 bug that created _XREF_XREF_XREF scales, and this
;;;  is checked before deletion.
;;;  (scaledel_warning)
;;;  Issues a warning and asks user to enter Yes before continuing.
;;;  (scaledel_get_scalelist)
;;;  Returns a list of scales in the drawing.
;;;  (scaledel_all)
;;;  Deletes all scales other than 1:1 and scales in use.
;;;  (scaledel_reset)
;;;  Performs a -SCALELIST Reset command.
;;;  (scaledel_smart_reset)
;;;  Performs a -SCALELIST Reset command if it is likely to reduce the number
;;;  of scales in the list, prior to setting things up.
;;;  (scaledel_wcard WCARD)
;;;  Deletes scales that match WCARD, excluding 1:1 and scales in use.
;;;  (scaledel_create_scales SCALES)
;;;  Creates a set of scales defined in list SCALES.
;;;  (scaledel_create_metric)
;;;  Creates a set of metric scales: see *** in code to adjust list.
;;;  (scaledel_create_inch)
;;;  Creates a set of inch scales: see *** in code to adjust list.
;;; --------------------------------------------------------------------------
;;; Notes:
;;; Other than the SCALELIST*TEMPLATE commands, the commands will not delete
;;; the 1:1 scale, even if it is not in use. This is because if the scale list
;;; is completely cleared, AutoCAD 2008 will automatically recreate it using
;;; its hardwired list when the user picks the "Custom..." item that
;;; remains in the list. Leaving in the 1:1 scale prevents this from happening.
;;; The (scaledel_*_unsafe) functions can be used to delete all scales,
;;; including 1:1 and those in use, if you really need to do so.
;;; --------------------------------------------------------------------------
;;; Later AutoCAD releases:
;;; As AutoCAD 2008's annotative scaling feature needs work, it is quite likely
;;; that future releases of AutoCAD will do things differently. This may result
;;; in this software failing to work correctly, or working with unintended
;;; results. Check carefully before using this software in 2009 and later.
;;; --------------------------------------------------------------------------
;;; WARNING:
;;; Any function that uses the (scaledel_*_unsafe) functions may be DESTRUCTIVE
;;; to any annotative objects in the drawing, because they allow the deletion
;;; of scales that are in use.
;;; ==========================================================================


(if (>= (atof (substr (getvar "ACADVER") 1 4)) 17.1)
  (progn ; Only define these functions if they will work (ie. 2008 or later)


    (prompt "\nLoading ScaleListDel.lsp Version 0.7... ")
;;; --------------------------------------------------------------------------
;;; Commands


    (defun C:SCALELISTDEL (/ wcard)
      (setq wcard (getstring "\nEnter scale name(s) to delete: "))
      (if (/= wcard "")
        (scaledel_long_xref (scaledel_wcard wcard))
      )
      (princ)
    ) ; End C:SCALELISTDEL


    (defun C:SCALELISTDELALL ()
      (scaledel_all)
      (princ)
    ) ; End C:SCALELISTDELXREF


    (defun C:SCALELISTDELXREF ()
      (scaledel_long_xref (scaledel_wcard "*_XREF"))
      (princ)
    ) ; End C:SCALELISTDELXREF


    (defun C:SCALELISTDEL_ ()
      (scaledel_long_xref (scaledel_wcard "*_*"))
      (princ)
    ) ; End C:SCALELISTDEL_


    (defun C:SCALELISTDELINCH ()
      (scaledel_long_xref (scaledel_wcard "*\"*"))
      (princ)
    ) ; End C:SCALELISTDELINCH


    (defun C:SCALELISTDELINCHXREF ()
      (scaledel_long_xref (scaledel_wcard "*\"*,*_XREF"))
      (princ)
    ) ; End C:SCALELISTDELINCHXREF


    (defun C:SCALELISTDELINCH_ ()
      (scaledel_long_xref (scaledel_wcard "*\"*,*_*"))
      (princ)
    ) ; End C:SCALELISTDELINCHXREF


    (defun C:SCALELISTMETRIC ()
      (scaledel_smart_reset)
      (prompt "\nDeleting existing unused scales...")
      (scaledel_long_xref (scaledel_wcard "*"))
      (prompt "\nCreating metric scales...")
      (scaledel_create_metric)
      (princ)
    ) ; End C:SCALELISTMETRIC


    (defun C:SCALELISTMETRICTEMPLATE ()
      (if (= (scaledel_warning) "Yes")
        (progn
          (scaledel_smart_reset)
          (prompt "\nDeleting all existing scales...")
          (scaledel_all_unsafe)
          (prompt "\nCreating metric scales...")
          (scaledel_create_metric)
        )
      )
      (princ)
    ) ; End C:SCALELISTMETRICTEMPLATE


    (defun C:SCALELISTINCH ()
      (scaledel_smart_reset)
      (prompt "\nDeleting existing unused scales...")
      (scaledel_wcard "*")
      (prompt "\nCreating inch scales...")
      (scaledel_create_inch)
      (princ)
    ) ; End C:SCALELISTINCH


    (defun C:SCALELISTINCHTEMPLATE ()
      (if (= (scaledel_warning) "Yes")
        (progn
          (scaledel_smart_reset)
          (prompt "\nDeleting all existing scales...")
          (scaledel_all_unsafe)
          (prompt "\nCreating inch scales...")
          (scaledel_create_inch)
        )
      )
      (princ)
    ) ; End C:SCALELISTINCHTEMPLATE


;;; --------------------------------------------------------------------------
;;; Functions


    (defun scaledel_all_unsafe (/ scale-en-list)
      (foreach item (dictsearch (namedobjdict) "ACAD_SCALELIST")
        (if (= 350 (car item))
          (setq scale-en-list (cons (cdr item) scale-en-list))
        )
      )
      (foreach item scale-en-list
        (entdel item)
      )
    ) ; End scaledel_all_unsafe


    (defun scaledel_wcard_unsafe (WCARD-OR-LIST / scale-list scale)
      (foreach item (dictsearch (namedobjdict) "ACAD_SCALELIST")
        (if (= 350 (car item))
          (setq
            scale-list
            (cons
              (cons (strcase (cdr (assoc 300 (entget (cdr item))))) (cdr item))
              scale-list
            )
          )
        )
      )
      (if (= (type WCARD-OR-LIST) 'STR)
        (foreach item scale-list
          (if
            (and
              (wcmatch (car item) (strcase WCARD))
              (/= (car item) "1:1")
            )
            (entdel (cdr item))
          )
        )
        (foreach item WCARD-OR-LIST
          (if (setq scale (assoc (strcase item) scale-list))
            (entdel (cdr scale))
          )
        )
      )
    ) ; End scaledel_wcard_unsafe


    (defun scaledel_long_xref (LONG-SCALE-LIST / scale-list)
      (foreach scale LONG-SCALE-LIST
        (if (wcmatch (strcase scale) "*_XREF_XREF_XREF*")
          (setq scale-list (cons scale scale-list))
        )
      )
      (if scale-list
        (progn
          (prompt "\nDeleting the following long _XREF scale(s):")
          (foreach scale scale-list
            (prompt (strcat "\n " scale))
          )
          (scaledel_wcard_unsafe scale-list)
        )
      )
    ) ; End scaledel_long_xref


    (defun scaledel_warning ()
      (initget "Yes No")
      (getkword
        (strcat
          "\nThis command will first destroy all existing scales including those in use."
          "\nAre you sure you want to do this? [Yes/No] <No>: "
        )
      )
    ) ; End scaledel_warning


    (defun scaledel_get_scalelist (/ scale-list)
      (foreach item (dictsearch (namedobjdict) "ACAD_SCALELIST")
        (if (= 350 (car item))
          (setq
            scale-list
            (cons (strcase (cdr (assoc 300 (entget (cdr item))))) scale-list)
          )
        )
      )
      scale-list
    ) ; End scaledel_get_scalelist


    (defun scaledel_all ()
      (scaledel_smart_reset)
      (scaledel_long_xref (scaledel_wcard "*"))
    ) ; End scaledel_all


    (defun scaledel_reset (/ cmdecho)
      (setq cmdecho (getvar "CMDECHO"))
      (setvar "CMDECHO" 0)
      (command "_.-SCALELISTEDIT" "_R" "_Y" "_E")
      (setvar "CMDECHO" cmdecho)
    ) ; End scaledel_reset


    (defun scaledel_smart_reset ()
      (if (> (length (scaledel_get_scalelist)) 40)
        (scaledel_reset)
      )
    ) ; End scaledel_smart_reset


    (defun scaledel_wcard (WCARD / scale-list cmdecho long-scale-list)
      (foreach scale (scaledel_get_scalelist)
        (if
          (and
            (wcmatch (strcase scale) (strcase WCARD))
            (/= scale "1:1")
          )
          (setq scale-list (cons scale scale-list))
        )
      )
      (if scale-list
        (progn
          (setq cmdecho (getvar "CMDECHO"))
          (setvar "CMDECHO" 0)
          (command "_.-SCALELISTEDIT")
          (foreach item scale-list
            (if (<= (strlen item) 132)
              (command "_D" item) ; Attempt to delete scale
              (setq long-scale-list (cons item long-scale-list))
            )
          )
          (command "_E")
          (setvar "CMDECHO" cmdecho)
        )
      )
      long-scale-list ; Returns list of scales too long to delete
    ) ; End scaledel_wcard


    (defun scaledel_create_scales (SCALES / scale-list-all cmdecho)
      (setq
        scale-list-all (scaledel_get_scalelist)
        cmdecho (getvar "CMDECHO")
      )
      (setvar "CMDECHO" 0)
      (command "_.-SCALELISTEDIT")
      (foreach scale SCALES
        (if (not (member (strcase (car scale)) scale-list-all))
          (command "_A" (car scale) (cadr scale))
        )
      )
      (command "_E")
      (setvar "CMDECHO" cmdecho)
    ) ; End scaledel_create_scales


;;; --------------------------------------------------------------------------
;; *** Note: several uncommon scales have been commented out.
;; Delete the leading semi-colon to make a scale active.
;; You can comment out an unwanted scale by placing a semi-colon at
;; the start of its line.

    (defun scaledel_create_metric ()
      (scaledel_create_scales
        '(
;          ("10:1" "10:1")
;          ("5:1" "5:1")
;          ("2:1" "2:1")
          ("1:1" "1:1")
          ("1:2" "1:2")
;          ("1:2.5" "1:2.5")
          ("1:5" "1:5")
          ("1:10" "1:10")
          ("1:20" "1:20")
;          ("1:25" "1:25")
          ("1:50" "1:50")
          ("1:100" "1:100")
          ("1:200" "1:200")
;          ("1:250" "1:250")
          ("1:500" "1:500")
          ("1:1000" "1:1000")
          ("1:2000" "1:2000")
;          ("1:2500" "1:2500")
          ("1:5000" "1:5000")
;          ("1:10000" "1:10000")
;          ("1:20000" "1:20000")
;          ("1:25000" "1:25000")
;          ("1:50000" "1:50000")
;          ("1:100000" "1:100000")
;          ("1:200000" "1:200000")
;          ("1:250000" "1:250000")
;          ("1:500000" "1:500000")
          ("1:1 m" "1000:1")
          ("1:2 m" "1000:2")
;          ("1:2.5 m" "1000:2.5")
          ("1:5 m" "1000:5")
          ("1:10 m" "1000:10")
          ("1:20 m" "1000:20")
;          ("1:25 m" "1000:25")
          ("1:50 m" "1000:50")
          ("1:100 m" "1000:100")
          ("1:200 m" "1000:200")
;          ("1:250 m" "1000:250")
          ("1:500 m" "1000:500")
          ("1:1000 m" "1000:1000")
          ("1:2000 m" "1000:2000")
;          ("1:2500 m" "1000:2500")
          ("1:5000 m" "1000:5000")
          ("1:10000 m" "1000:10000")
          ("1:20000 m" "1000:20000")
;          ("1:25000 m" "1000:25000")
          ("1:50000 m" "1000:50000")
;          ("1:100000 m" "1000:100000")
;          ("1:200000 m" "1000:200000")
;          ("1:250000 m" "1000:250000")
;          ("1:500000 m" "1000:500000")
        )
      )
    ) ; End scaledel_create_metric


;;; --------------------------------------------------------------------------
;; *** Note: several uncommon scales have been commented out.
;; Delete the leading semi-colon to make a scale active.
;; You can comment out an unwanted scale by placing a semi-colon at
;; the start of its line.

    (defun scaledel_create_inch ()
      (scaledel_create_scales
        '(
;          ("8:1" "8:1")
;          ("4:1" "4:1")
;          ("2:1" "2:1")
          ("1:1" "1:1")
          ("1/32\" = 1'-0\"" "0.03125:12")
          ("1/16\" = 1'-0\"" "0.0625:12")
          ("3/32\" = 1'-0\"" "0.09375:12")
          ("1/8\" = 1'-0\"" "0.125:12")
          ("3/16\" = 1'-0\"" "0.1875:12")
          ("1/4\" = 1'-0\"" "0.25:12")
          ("3/8\" = 1'-0\"" "0.375:12")
          ("1/2\" = 1'-0\"" "0.5:12")
          ("3/4\" = 1'-0\"" "0.75:12")
          ("1\" = 1'-0\"" "1:12")
          ("1-1/2\" = 1'-0\"" "1.5:12")
          ("3\" = 1'-0\"" "3:12")
          ("6\" = 1'-0\"" "6:12")
          ("1\" = 10'-0\"" "1:120")
          ("1\" = 20'-0\"" "1:240")
          ("1\" = 30'-0\"" "1:360")
          ("1\" = 40'-0\"" "1:480")
          ("1\" = 50'-0\"" "1:600")
          ("1\" = 60'-0\"" "1:720")
          ("1\" = 100'-0\"" "1:1200")
;          ("1\" = 250'-0\"" "1:3000")
;          ("1\" = 500'-0\"" "1:6000")
;          ("1\" = 1000'-0\"" "1:12000")
;          ("1\" = 5280'-0\"" "1:63360")
;          ("1\" = 12000'-0\"" "1:144000")
;          ("1\" = 24000'-0\"" "1:288000")
;          ("1\" = 48000'-0\"" "1:576000")
;          ("1\" = 50000'-0\"" "1:600000")
;          ("1\" = 52800'-0\"" "1:633600")
        )
      )
    ) ; End scaledel_create_inch


    (prompt
      (strcat
        "SCALELISTDEL SCALELISTDELALL SCALELISTDELINCH SCALELISTDELXREF "
        "SCALELISTDEL_ SCALELISTDELINCHXREF SCALELISTDELINCH_ SCALELISTMETRIC "
        "SCALELISTMETRICTEMPLATE SCALELISTINCH SCALELISTINCHTEMPLATE "
        "commands loaded.\n"
      )
    )


  ) ; End progn to test for AutoCAD release
  (prompt "\nRequires AutoCAD 2008 or above.")
)

(princ)

;;; ==========================================================================
;;; End of file ScaleListDel.lsp
;;; ==========================================================================

------------------
Heinz 

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



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

Beiträge: 9732
Registriert: 01.12.2003

AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10

erstellt am: 14. Nov. 2007 09:01    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 Caladia 10 Unities + Antwort hilfreich

Gut gesucht Heinz 

------------------
Mit freundlichem Gruß

Udo Hübner

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

FeR
Mitglied



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

Beiträge: 150
Registriert: 27.10.2003

Win7 Llatest SP
AutoCAD 2016 Design Ultimate Suite

erstellt am: 14. Nov. 2007 09:08    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 Caladia 10 Unities + Antwort hilfreich

Super genau danach hab ich schon seit 2 Wochen gesucht!
Vielen Dank!

------------------
mfg
FeR
"gefundene Rechtschreibfehler dürfen behalten werden."

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

catch
Mitglied


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

Beiträge: 7
Registriert: 07.11.2007

AutoCad 2008
MS Windows XP Professional 2002 SP 2
IntelR) Pentium(R)D CPU 3.4 GHz 2,0 GB RAM, NVIDIA GeForce 7600 GS

erstellt am: 14. Nov. 2007 09:46    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 Caladia 10 Unities + Antwort hilfreich

Äh, habe null erfahrung mit scripts und lsp...wie läßt sich die Warnung in dem Skript "WARNING: potentially destructive to annotative objects!" beachten, bzw. die destruktive Funktion vermeiden? danke und grüße an die *****s

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

tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur



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

Beiträge: 7085
Registriert: 13.01.2004

Sie nannten ihn google.

erstellt am: 14. Nov. 2007 10:33    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 Caladia 10 Unities + Antwort hilfreich

Die destruktive Funktion lässt sich ganz simpel vermeiden:

Das Script nicht einsetzen.

Nein - ist kein Scherz: sind die Maßstäbe weg, ist die Annotitivität auch weg; sollte sich jetzt wer mit diesem Begriff nicht auskennen, so kann derjenige das Script getrost ausführen - dann hat er auch keine Dinge drin die davon betroffen sind - und wenn doch, sind diese in Fremdzeichnung enthalten und "können" (aufgrund mangeldes Wissens um der Komplexizität) nicht verwendet werden.

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

[Diese Nachricht wurde von tunnelbauer am 14. Nov. 2007 editiert.]

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

catch
Mitglied


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

Beiträge: 7
Registriert: 07.11.2007

AutoCad 2008
MS Windows XP Professional 2002 SP 2
IntelR) Pentium(R)D CPU 3.4 GHz 2,0 GB RAM, NVIDIA GeForce 7600 GS

erstellt am: 14. Nov. 2007 12:37    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 Caladia 10 Unities + Antwort hilfreich

Ich meine schon zu wissen was annotativ ist(zuordnung verschiedener maßstäbe zu einem Text, etc.) aber deswegen weiß noch lange nicht wie das script funktioniert. Am Anfang heißt es "Destruction of annotative objects WILL result from incorrect use." und auf diesen "incorrect use" bezieht sich meine Frage, das script sollte doch keine verwendeten Maßstäbe löschen oder?
danke und Grüße
wilf

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: 14. Nov. 2007 12:49    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 Caladia 10 Unities + Antwort hilfreich

nur die "unsafe" Funktionen löschen verwendete Maßstäbe, die anderen , die scalelistedit mittels command aufrufen nicht!!

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

Peter Tropf
Mitglied
Konstrukteur


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

Beiträge: 246
Registriert: 28.06.2003

erstellt am: 14. Nov. 2007 22: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 Caladia 10 Unities + Antwort hilfreich


Maßstabsliste.lsp.txt

 
Hallo Leute,

das von Heinz Dober gefundene Tool ist klasse! 

Der wichtigste Befehl heißt SCALELISTMETRIC:

Er löscht alle unbenutzten Maßstäbe (nur die!) außer 1:1 und importiert gleichzeitig alle aus der metrischen Maßstabsliste, die man leicht selbst anpassen kann.

Ich hänge eine übersetzte Version der Datei an, in der ich Maßstabsliste schon leicht modifiziert habe.

------------------
Gruß Peter

(Fachbuchautor und Trainer für AutoCAD und Inventor)

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

Peter Tropf
Mitglied
Konstrukteur


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

Beiträge: 246
Registriert: 28.06.2003

Windows 7, Inventor 2016

erstellt am: 14. Nov. 2007 22:26    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 Caladia 10 Unities + Antwort hilfreich


Massstabsliste_neu.lsp.txt

 
... nochmal die Datei, der Upload hat nicht gefunzt ...

------------------
Gruß Peter

(Fachbuchautor und Trainer für AutoCAD und Inventor)

[Diese Nachricht wurde von Peter Tropf am 14. Nov. 2007 editiert.]

[Diese Nachricht wurde von Peter Tropf am 15. Nov. 2007 editiert.]

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Autodesk Building Design Suite Premium 2021
Windows 10 Pro 64bit
HP Workstation Z620, 24GB
GeForce GTX 970

erstellt am: 15. Nov. 2007 07: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 Nur für Caladia 10 Unities + Antwort hilfreich


Release.zip

 
Und hier mein Beitrag zu dem ganzen. Hab die Befehle in .NET erstellt.
Einfach die Datei mit NETLOAD laden, wenn ihr die Datei immer laden wollt, kann man einen Registry-Eintrag erstellen.

Folgende Befehle stehen zur Verfügung.
MS                    erstellt neuen Maßstab
-MS                  erstellt neuen Maßstab (Kommandozeilen-Version)
MSLÖSCHEN            entfernt alle Maßstäbe die auf Zoll basieren (also ein " im Namen beinhalten) und auch jene die "_" im Namen haben. ACHTUNG!!! Auch von Objekten verwendete Maßstäbe werden gelöscht
MSLÖSCHENALLE    löscht alle Maßstäbe bis auf 1:1 und den aktuellen, auch die benutzten, es kann daher bei Objekten die einen der gelöschten Maßstäbe verwendet haben, zu Problemen führen. Man muss danach den Maßstab neu erstellen und dem Objekt neu zuweisen.
MSLÖSCHENSCRIPT  erstellt eine Skriptdatei die dann in AutoCAD ausgeführt werden kann. Die Skriptdatei steht im gleichen Verzeichnis wie die Zeichnungsdatei mit dem Namenszusatz "_MS-Löschen". In der Datei stehen alle Maßstäbe der Zeichnung aufgelistet und es wird versucht diese zu löschen. Es werden nur Maßstäbe die nicht benutzt werden gelöscht, da im Skript der Standard AutoCAD-Befehl _SCALELISTEDIT ausgeführt wird. Die Ausführung dieses Skripts kann allerdings, je nach Anzahl der vorhandenen Maßstäbe, länger dauern. Leider bleibt AutoCAD bei der Ausführung von _SCALELISTEDIT des öffteren hängen, daher bitte unbedingt die Zeichnung vorher speichern!!!

------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2008-deutsch, Express Tools
3ds Max 9
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

[Diese Nachricht wurde von RoSiNiNo am 15. Nov. 2007 editiert.]

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

Iris2
Mitglied
CAD-Admin


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

Beiträge: 1170
Registriert: 17.02.2004

REVIT
TEKLA Structures
AutoCAD / Soficad
ACA
Microstation

erstellt am: 15. Nov. 2007 14:32    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 Caladia 10 Unities + Antwort hilfreich

@ Heinz:

"unsere" 30 AutoCAD´ler und ich danken Dir mit
leider nur 10 möglichen Us !!! 

------------------
Gruß
Iris  

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

Hoppenstedt
Mitglied



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

Beiträge: 86
Registriert: 30.08.2003

Autocad 2008, Windows XP SP2, P4 2,8 Ghz, 2GB RAM, Quadro4 980XGL, Gips 5.1, Office 2007, Adobe Standard 8

erstellt am: 20. Mrz. 2008 11: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 Nur für Caladia 10 Unities + Antwort hilfreich

Hallo liebes Forum

Ich versuche schon seit einer halben Stunde die Datei RSNNAcadApp.dll (aus release.zip) von RoSiNiNo ans Laufen zu bekommen und krieg es nicht hin.
Habe sie mit netload geladen. Wenn ich dann z.B. MSLöschen eingebe passiet nichts und es kommt die Meldung "unbekannter Befehl..."

Könnt ihr mir auf die Sprünge helfen?

Danke und frohe Ostern schon mal
Michael

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

tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur



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

Beiträge: 7085
Registriert: 13.01.2004

Sie nannten ihn google.

erstellt am: 20. Mrz. 2008 11:47    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 Caladia 10 Unities + Antwort hilfreich

Gemäß deiner Sysinfo verwendest du AutoCAD 2002 - ist dies richtig?

In der Version gibt es keine Maßstäbe...

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

Hoppenstedt
Mitglied



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

Beiträge: 86
Registriert: 30.08.2003

Autocad 2008, Windows XP SP2, P4 2,8 Ghz, 2GB RAM, Quadro4 980XGL, Gips 5.1, Office 2007, Adobe Standard 8

erstellt am: 20. Mrz. 2008 11:48    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 Caladia 10 Unities + Antwort hilfreich

Ups

Systeminfo ist noch die alte. Sorry. Wede sie gleich ändern.
Habe 2008.

Michael

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Autodesk Building Design Suite Premium 2021
Windows 10 Pro 64bit
HP Workstation Z620, 24GB
GeForce GTX 970

erstellt am: 26. Mrz. 2008 08:39    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 Caladia 10 Unities + Antwort hilfreich

Ich denke mal du brauchst die letzte Version vom Microsoft .NET Framework 3.5. Warscheinlich hast du die Version 2.0 bei dir installiert.
Zitat:
Original erstellt von Hoppenstedt:
Ups

Systeminfo ist noch die alte. Sorry. Wede sie gleich ändern.
Habe 2008.

Michael


------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2008-deutsch, Express Tools
3ds Max 2008
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Autodesk Building Design Suite Premium 2021
Windows 10 Pro 64bit
HP Workstation Z620, 24GB
GeForce GTX 970

erstellt am: 26. Mrz. 2008 08:44    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 Caladia 10 Unities + Antwort hilfreich

Hier ist übrigens die aktuellste Version zu finden.

------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2008-deutsch, Express Tools
3ds Max 2008
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

Hoppenstedt
Mitglied



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

Beiträge: 86
Registriert: 30.08.2003

Autocad 2008, Windows XP SP2, P4 2,8 Ghz, 2GB RAM, Quadro4 980XGL, Gips 5.1, Office 2007, Adobe Standard 8

erstellt am: 27. Mrz. 2008 15:19    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 Caladia 10 Unities + Antwort hilfreich

Hallo

Mit Framework 3.5 hat's funktioniert.
Vielen Dank.
Michael

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Autodesk Building Design Suite Premium 2021
Windows 10 Pro 64bit
HP Workstation Z620, 24GB
GeForce GTX 970

erstellt am: 27. Mrz. 2008 16:20    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 Caladia 10 Unities + Antwort hilfreich

Gerne geschehen.
Übrigens hat sich, was die Maßstäbe anbelangt, ein wenig in AutoCAD 2009 verbessert.
Zitat:
Original erstellt von Hoppenstedt:
Hallo

Mit Framework 3.5 hat's funktioniert.
Vielen Dank.
Michael


------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2008-deutsch, Express Tools
3ds Max 2008
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

Caladia
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 2546
Registriert: 04.03.2002

ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3

erstellt am: 27. Mrz. 2008 16:44    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

Zitat:
Original erstellt von RoSiNiNo:
Gerne geschehen.
Übrigens hat sich, was die Maßstäbe anbelangt, ein wenig in AutoCAD 2009 verbessert.

Hät's du jetzt gesagt: "sehr viel verbessert"
hät mich nichts mehr vom aufspielen von 2009, heute noch (!), aufgehalten   

------------------
Gruss
Caladia

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Autodesk Building Design Suite Premium 2021
Windows 10 Pro 64bit
HP Workstation Z620, 24GB
GeForce GTX 970

erstellt am: 27. Mrz. 2008 17:09    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 Caladia 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von Caladia:
Hät's du jetzt gesagt: "sehr viel verbessert"
hät mich nichts mehr vom aufspielen von 2009, heute noch (!), aufgehalten  :D  ;)

Ich muss sagen ich hab mich schon richtig mit der neuen Oberfläche angefreundet. Auch der Plansatzmanager hat sich ein wenig verbessert.
Endlich übernimmt es keine unnötigen Maßstäbe mehr wenn mann mit COPYBASE Objekte von einer Zeichnung in die andere kopiert. Man kann nun auch die anzeige von Maßstäben aus XREF's unterdrücken. Wie ich schon sagte, Kleinigkeiten, aber immerhin.

------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2008-deutsch, Express Tools
3ds Max 2008
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

Caladia
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 2546
Registriert: 04.03.2002

ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3

erstellt am: 31. Mrz. 2008 01:49    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

Das hört sich ja schon mal gut an was die Maßstäbe betrifft. Ich hoffe im Plansatzmanager wurden genau die Verbesserungen reingebracht, die ich gewünscht hätte.
Hoffentlich finde ich im laufe des Tages Zeit 2009 zu installieren.
Allerdings die Bilder der Oberfläche erinnern mich irgendwie an Win3.11, ich weiß nicht irgendwie nostalgisch mein ich 

------------------
Gruss
Caladia

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

MEPcad
Mitglied
TGA Planer


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

Beiträge: 21
Registriert: 20.09.2007

Autodesk MEP 2008 - leider!!!

erstellt am: 23. Apr. 2008 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 Nur für Caladia 10 Unities + Antwort hilfreich

Noch ein kleiner Hinweis zum oben angeboteten Tool, vielleicht hilfts ja jemandem, ders nicht gleich zum Laufen bekommt.

Bei uns läuft dieses nur, wenn die Dateien dazu LOKAL auf dem jeweiligen Rechner gespeichert sind. Wird die dll im Netzlaufwerk gespeichert und aufgerufen passiert nichts! Warum das so ist, ist mir bislang noch unklar aber es ist eben so...

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

claudia820
Mitglied



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

Beiträge: 134
Registriert: 13.07.2004

EPLAN 5.50
EPLAN 5.70
EPLAN P8
ELCAD 7.3
AutoCAD 2004
AutoCAD 2011

erstellt am: 23. Apr. 2008 15:17    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 Caladia 10 Unities + Antwort hilfreich

gibt es eine Möglichkeit ausser Script und SP1 zum "nicht verschleppen" der Maßstäbe?

Danke

LG Claudia

------------------
LG Claudia

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

joeycool
Mitglied
Ingenieur TGA


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

Beiträge: 1451
Registriert: 01.06.2004

MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200

erstellt am: 23. Apr. 2008 15:27    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 Caladia 10 Unities + Antwort hilfreich

wenn ich meinen Beitrag von heute zu dem Thema richtig auswerte, dann im Prinzip nur:
2009 installieren, habe Angelikas letzten Tip noch nicht ganz radikal zu Ende probiert, aber so isses wohl

Joeycool

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

Caladia
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 2546
Registriert: 04.03.2002

ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3

erstellt am: 23. Apr. 2008 15:35    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

Kann ich auch nur bestätigen. Der SP1 bringt gar nichts. Erst mit 2009 ist die Maßstabsflut behoben.

------------------
Gruss
Caladia

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

mazanek
Mitglied
CAD-Techniker


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

Beiträge: 632
Registriert: 13.06.2002

erstellt am: 24. Apr. 2008 19: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 Caladia 10 Unities + Antwort hilfreich

Ich stell mal einen Link zum Thema hier herein:
(Habe es selbst noch nicht ausprobiert)

Scale List Cleanup Utility for AutoCAD 2008 and AutoCAD 2009

http://autodesk.blogs.com/between_the_lines/2008/04/scale-list-clea.html

http://autodesk.blogs.com/between_the_lines/files/CleanupScales.html
http://autodesk.blogs.com/between_the_lines/files/Scale_List_Cleanup_Utility_32bit.exe
http://autodesk.blogs.com/between_the_lines/files/Scale_List_Cleanup_Utility_64bit.exe

------------------
ciao markus

- Der größte Bug sitzt immer VOR dem Bildschirm -

Markus Mazanek
Arch.E.Neversal Ziviltechniker GmbH
Maurer Lange Gasse 134
1230 Wien

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

Peter Tropf
Mitglied
Konstrukteur


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

Beiträge: 246
Registriert: 28.06.2003

Windows 7, Inventor 2016

erstellt am: 24. Apr. 2008 19:26    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 Caladia 10 Unities + Antwort hilfreich


Massstabsliste_neu.lsp.txt

 
Hallo Leute,

der Thread ist inzwischen so lang, dass das Maßstabsliste-Tool für neue Leser gar nicht mehr "im Blick" liegt, deshalb stelle ich es nochmal ein. 

------------------
Gruß Peter

(Fachbuchautor und Trainer für Inventor und AutoCAD)

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

joeycool
Mitglied
Ingenieur TGA


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

Beiträge: 1451
Registriert: 01.06.2004

MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200

erstellt am: 24. Apr. 2008 22:10    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 Caladia 10 Unities + Antwort hilfreich

Hallo,
häng mich auch noch mal hier rein, ist eines meines Lieblings (Ärger) Thema, siehe meine Diskussion gestern hier:
Das Tool von Peter ist absolut essentiell, deshalb nochmals 1000 Dank u.a. an ihn, aber trotzdem ist es nur eine Reperatur, keine Lösung.

Mal ins echte Leben übersetzt:

Im Urlaub stelle ich fest, daß immer mal wieder Wasser in den vergaser meines Autos eindringt, und der Motor stottert. Die vielen kleinen Helferlein hier, (und auch der Hersteller) raten nun zu diversen Tricks, wie man mit Tüchern das Wasser wieder aus dem Vergaser bekommt, und der Motor wieder läuft.

Der Urlaub ist gerettet, ab und an der Trick angewandt, und man kommt ganz gut nach Hause.
Dort möchte man dann aber ganz gerne in der Werkststatt den Vergaser so repariert bekommen, daß das Problem verschwindet. Hier wird einem jedoch auch nur ein noch hübscheres Tüchlein angeboten, und die Hoffnung gemacht, daß bei irgendeinem Nachfolgemodell das Problem wohl beseitigt sein wird. Kann es das sein???

Deeply frustated:
Joeycool

PS: Wenn ich die aktuellsten Links hier richtig deute, scheint das Problem mitnichten mit 2009 behoben zu sein, die angebotenen Routinen beziehen 2009er Zeichnungen mit ein. Caladias Euphorie scheint etwas verfrüht zu sein.

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

Caladia
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 2546
Registriert: 04.03.2002

ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3

erstellt am: 25. Apr. 2008 00:23    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

Also in 2008 konnte man die Maßstäbe löschen löschen löschen löschen und nochmals löschen, aber durch die Xref-Referenzierung waren sie nach dem neu öffnen alle wieder da (owohl im Xref auch gelöscht, aber da gab's ja immer noch die x-x-x-xrefmaße).
Und nu in 2009 ist alles so wie eingestellt (mitunter kommt sogar die Meldung, dass wenn ich ein Xref einlese, dass da die Textmaßstäbe usw. auch gelöscht werden sollen).
Nu gut, ich las die Lisp immer noch beim hinausgehen aus der Zeichnung drüberlaufen (ins "schließen-Makro" mitaufgenommen unter 2008, dann hab ich nur die ich brauche, die man unter 2007 fest einstellen konnte für alle Zeichnungen). Beim neu öffnen sind die Maßstäbe dann auch so wie ich die Zeichnung verlassen habe (nicht wie unter 2008 wo alle X-X-Xref-Maße, Zöller usw. wieder da waren) und beim Block einfügen kommt auch nichts mehr rein (jedenfalls nichts Sichtbares um es mal vorsichtig zu sagen).
Also ich kann eine deutliche Verbesserung sehen (bis jetzt - anfangs hab ich die Karnickel äh Maßstäbe in 2008 einfach ignoriert, da man eh nichts dagegen machen konnte, bis Sachen wie kopieren auf einmal mindestens 10 Minuten gedauert hat). Aber wenn nun nach dem einmaligem Einstellen keine Vermehrung mehr auftritt, ist das eine Verbesserung gegenüber 2008. (Bei 2007 war es natürlich am idealsten: globale Einstellung  )

------------------
Gruss
Caladia

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Autodesk Building Design Suite Premium 2021
Windows 10 Pro 64bit
HP Workstation Z620, 24GB
GeForce GTX 970

erstellt am: 25. Apr. 2008 08:59    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 Caladia 10 Unities + Antwort hilfreich

Es hat sich einiges unter 2009 verbessert was die Maßstäbe anbelangt, das ist gant sicher so. Mit dem neuen Tool von Autodesk das Markus gerade vorgestellt hat sollten alte Zeichnungen schnell bereinigt sein.

------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2008-deutsch, Express Tools
3ds Max 2008
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

mazanek
Mitglied
CAD-Techniker


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

Beiträge: 632
Registriert: 13.06.2002

erstellt am: 29. Apr. 2008 09:42    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 Caladia 10 Unities + Antwort hilfreich

Es gibt ein Update von dem Script auf das ich verwiesen habe:

A few days ago (2008-04-24), Shaan Hurley announced the availability of a free! utility for AutoCAD 2008 & 2009 (including DWG TrueView 2008 & 2009) - Scale List Cleanup:
Scale List Cleanup Utility for AutoCAD 2008 and AutoCAD 2009
The below comes from the CleanupScales.html file, available via Shann's post (along with the actual Scale List Cleanup utility installation files - 32bit.exe & 64bit.exe).
Description of Problem:
• When a file contains excess scales, performance may be negatively affected. Eventually, the file may become unusable. To use the file, some scales must be removed. This utility repairs affected files by removing excess scales.
• NOTE: Nested external references (xrefs) may produce excess scales. To correct this problem, install AutoCAD 2008 Service Pack 1 or corresponding service packs for AutoCAD-based products. The Scale List Cleanup Utility repairs files affected before the necessary service pack was installed.
Source: Scale List Cleanup Utility for AutoCAD 2008 and AutoCAD 2009
 

------------------
ciao markus

- Der größte Bug sitzt immer VOR dem Bildschirm -

Markus Mazanek
Arch.E.Neversal Ziviltechniker GmbH
Maurer Lange Gasse 134
1230 Wien

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Autodesk Building Design Suite Premium 2021
Windows 10 Pro 64bit
HP Workstation Z620, 24GB
GeForce GTX 970

erstellt am: 27. Mai. 2008 16: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 Nur für Caladia 10 Unities + Antwort hilfreich

Hier ist nun die neueste Version von meinem Tool. Kean Wealmsley hat in seinem Blog die Lösung für die zu löschenden Maßstäbe veröffentlicht nachdem ich vor einiger Zeit wissen wollte wie man die unbenutzten Maßstäbe herausfindet.
Es werden nun bei meinem Tool daher nur die unbenutzten Maßstäbe gelöscht.

------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2009-deutsch, Express Tools
3ds Max 2008
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

Lessie07
Mitglied


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

Beiträge: 3
Registriert: 25.03.2008

erstellt am: 19. Jun. 2008 15: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 Caladia 10 Unities + Antwort hilfreich

Was ich mich nach all dem Frage ist. Gibt es eine Möglichkeit die Maßstabsliste (Standard,)auf die Maßstäbe zurück gesetzt werden, mit seinen eigenen Maßstäben zu definieren?
Wenn ja wo ist dies möglich.
Danke für die Bemühungen.
MFG Janine

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

Iris2
Mitglied
CAD-Admin


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

Beiträge: 1170
Registriert: 17.02.2004

REVIT
TEKLA Structures
AutoCAD / Soficad
ACA
Microstation

erstellt am: 19. Jun. 2008 15:37    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 Caladia 10 Unities + Antwort hilfreich


Lisp.jpg

 
Hallo Janine,

willkommen auf CAD.de!

Zu Deiner Frage:
Du musst Dir die gewollten/ungewollten Maßstäbe in o.g. Lisp
dazuschreiben / bzw. remarken.

------------------
Gruß
Iris  

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Autodesk Building Design Suite Premium 2021
Windows 10 Pro 64bit
HP Workstation Z620, 24GB
GeForce GTX 970

erstellt am: 19. Jun. 2008 15:47    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 Caladia 10 Unities + Antwort hilfreich

Sieh mal dort nach, steht zwar schon irgendwo in diesem Beitrag, hier aber nochmal der Link.
scale-list-clean

------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2009-deutsch, Express Tools
3ds Max 2008
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

Carpet-Crawler
Mitglied
Zweitaccount, ich kam nicht mehr an mein Passwort...:-(


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

Beiträge: 64
Registriert: 23.05.2006

Autocad Schulversion 14 - 2023, AutoCad Architektur 2015; Revit 2022

erstellt am: 10. Dez. 2008 22:06    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 Caladia 10 Unities + Antwort hilfreich

Wir benutzen folgende Verfahren um das karnickelartige Vermehren der Maßstäbe in AutoCad 2008 einzuschränken:

a) aufgeräumte Vorlagedateien (dwt) mit minimierten Maßstabslisten (für Zeicheneinheit METER),
  für Bibliothekszeichnungen (Container für Blöcke) ohne Layout sogar eine "Mini"Vorlage ganz ohne Maßstabsliste (nur 1:1)

b) Das von Heinz Dober gefundene und von Peter Tropf angepaßte ScaleList (VIELEN DANK an die beiden!) für aktuelle DWGs, falls sich doch wieder Maßstabslisten reinschummeln. Die Vermehrung passiert erstaunlicherweise immer wieder, wenn wir Objekte (Layouts, Blöcke etc)  aus anderen DWGs reinholen (egal ob per DesingCenter oder Zwischenablage)- sogar dann wenn in Quell- UND Zielzeichnungen diese Maßstäbe definiert sind

c) Um alte DWGs (Bibliothek) aufzuräumen, falls man Teile daraus kopieren will) das ScaleCleanUp Utility, das Stapelbearbeitung von ganzen DWG Ordnern inclusive Unterordnern beherrscht - sehr praktisch! Damit kann man SÄMTLICHE Maßstäbe aus alten DWGs bereinigen, da diese dort sowieso nicht verwendet wurden.
Problem: Das Dateidatum wird auf den aktuellen Stand gebracht.

Dazu zwei Fragen
1. Kann man das ScaleCleanUp Utility verwenden ohne das Dateidatum zu verändern, bzw könnte man das alte Dateidatum nachträglich wieder zuordnen. Wenn das nicht funktioniert, ist das Tool für uns ziemlich unbrauchbar, da man keine Orientierung mehr hat, von WANN diese Datei ist.
2. Wie kann man - außer durch nachträglich löschen - verhindern, das beim Kopieren zwischen zwei BEREINIGTEN DWGs auf einmal wieder neue Maßstäbe da sind.
Nochmal vielen Dank an alle
Tonio

[Diese Nachricht wurde von Carpet-Crawler am 10. Dez. 2008 editiert.]

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Autodesk Building Design Suite Premium 2021
Windows 10 Pro 64bit
HP Workstation Z620, 24GB
GeForce GTX 970

erstellt am: 11. Dez. 2008 09:08    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 Caladia 10 Unities + Antwort hilfreich

Mit dem SP1 sollten dieses Problem nicht mehr vorhanden sein.
Zitat:
Original erstellt von Carpet-Crawler:
2. Wie kann man - außer durch nachträglich löschen - verhindern, das beim Kopieren zwischen zwei BEREINIGTEN DWGs auf einmal wieder neue Maßstäbe da sind.
Nochmal vielen Dank an alle
Tonio

[Diese Nachricht wurde von Carpet-Crawler am 10. Dez. 2008 editiert.]


------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2009-deutsch Update 2, Express Tools, Bonus Pack 2
3ds Max 2009 - SP1
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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: 11. Dez. 2008 15:03    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 Caladia 10 Unities + Antwort hilfreich

Um ein in (diesem Fall) unschönes Umbrechen des Thread zu vermeiden, mach ich an der Stelle mal dicht und bitte darum, wenn es noch neue Aspekte zu dem Thema gibt, diese in einem neuen Thread zu behandeln..

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

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


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag öffnen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz