Beschriftungsmaßstäbe (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Beschriftungsmaßstäbe (1023 mal gelesen)
manndaten Mitglied Beiträge: 101 Registriert: 14.03.2001	erstellt am: 09. Jul. 2011 10:40 <-- editieren / zitieren --> Unities abgeben: Hallo, kann mir jemand sagen, wie ich prüfen kann, ob ein Beschriftungsmaßstab bereits besteht? Danke schon mal im Voraus. ------------------ Grüßle aus Karlsruhe Armin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>	erstellt am: 09. Jul. 2011 14:28 <-- editieren / zitieren --> Unities abgeben: Nur für manndaten Hallo Armin, probier mal folgendes: Code: (defun ScaleExist? (name / scale-en-list liste) (foreach ITEM (dictsearch (namedobjdict) "ACAD_SCALELIST") (if (= 350 (car ITEM)) (setq ScaleNameList (cons (strcase(cdr(assoc 300(entget (cdr ITEM)))))ScaleNameList))) ) (if(member (strcase name) ScaleNameList)'T)) ;;;Beispiel: (ScaleExist? "1:100") Als Beispiel im Umgang mit Beschriftungsmaßstäben gibt es ein gutes LISP von Steve Johnson: http://forums.autodesk.com/autodesk/attachments/autodesk/247/10204/1/ScaleListDel.lsp ------------------ viele Grüße Jörn http://www.bosse-engineering.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
manndaten Mitglied Beiträge: 101 Registriert: 14.03.2001	erstellt am: 10. Jul. 2011 14:45 <-- editieren / zitieren --> Unities abgeben: Funzt, danke schön und 10 Units! ------------------ Grüßle aus Karlsruhe Armin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)