| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| CIDEON und Flottweg: mit ECTR unter die Top 3 , ein Anwenderbericht
|
Autor
|
Thema: Convertierungstool für Bemaßungsstile (1019 mal gelesen)
|
Thomas 3D Mitglied 3D Designer
Beiträge: 394 Registriert: 17.09.2008 AutoCad 2012 Athena 2012 SWX 2011
|
erstellt am: 18. Mrz. 2010 14:21 <-- editieren / zitieren --> Unities abgeben:
Hallo Forum, ich benutze AutoCad 2010. Gibt es im AutoCad einen Converter mit dem ich unterschiedliche Bemaßungsstile schnell in einem neuen Bemaßungsstil umwandeln kann? Im Moment selektiere ich die Bemaßung über die Schnellauswahl und ändere dann über Eigenschaften den Bemaßungsstil. Das ist bei mir eine immer widerkehrende Arbeit, die ich mir eigentlich ersparen möchte. Gibt es so ein Tool wie das Layer-Konvertierungsprogramm? Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 18. Mrz. 2010 14:36 <-- editieren / zitieren --> Unities abgeben: Nur für Thomas 3D
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 18. Mrz. 2010 21:35 <-- editieren / zitieren --> Unities abgeben: Nur für Thomas 3D
Hi, interessant, interessant … da könnt man noch schön was mit einer Oberfläche machen… vllt. gibt es ja bei d-tools.eu schon was/ bzw. bald kannst ja mal testen ob es den Alltag erleichtert
Code:
(defun c:Dimstch (/ doc dimstyleslst ddimstyles tdimstyle ename ss i err) (if (and (not (equal (setq tdimstyle (getstring "\nDimstyle: ")) "")) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq ddimstyles (vla-get-DimStyles doc)) (vlax-for each ddimstyles (setq dimstyleslst (cons (vlax-get each 'Name) dimstyleslst)) ) (member tdimstyle dimstyleslst) (setq ss (ssget '((0 . "DIMENSION")))) (setq i -1) ) (while (setq ename (ssname ss (setq i (1+ i)))) (setq err (vl-catch-all-apply 'vla-put-stylename (list (vlax-ename->vla-object ename) tdimstyle) ) ) (if (vl-catch-all-error-p err) (print (vl-catch-all-error-message err)) ) ) (princ "\nFehler, falsche Eingabe") ) (princ) )
------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas 3D Mitglied 3D Designer
Beiträge: 394 Registriert: 17.09.2008 AutoCad 2012 Athena 2012 SWX 2011
|
erstellt am: 19. Mrz. 2010 08:50 <-- editieren / zitieren --> Unities abgeben:
Hallo Heiko, vielen dank für die schnelle Zuarbeit. Allerdings tue ich mich etwas schwer mit diesen Programmierzeilen.Wo muß ich diesen Quelltext eingeben, damit etwas auf dem Bilschirm geschieht? Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 19. Mrz. 2010 09:46 <-- editieren / zitieren --> Unities abgeben: Nur für Thomas 3D
hi, FAQ, schau mal hier zu den Zeilen - "Zielstyle" eingeben, Bemaßungen wählen (oder strg+A) und klick... ist zwar ohne Oberfläche aber das würde den Rahmen sprengen... vllt. gibt es im www bereits ein solches Tool ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |