globaler Bemassungsfaktor (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 PRO Elite High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: globaler Bemassungsfaktor (1987 mal gelesen)
caddonner Mitglied Beiträge: 166 Registriert: 24.05.2005 Windows 10 64bit Autocad 2015 C.A.T.S. AutoCAD 2017	erstellt am: 18. Mrz. 2008 12:29 <-- editieren / zitieren --> Unities abgeben: Hi ! folgender Code ändert den globalen Bemassungsfaktor ALLER Bemassungen einer Zeichnung: (vl-load-com) (defun c:dimscale2 ( / FAKTOR AUSWAHL OBJEKT VLA-OBJEKT) (if (setq FAKTOR (getreal "Globaler Bemassungsfaktor : ")) (if(setq AUSWAHL (ssget "_X" '( (0 . "DIMENSION")) )) (progn (repeat (sslength AUSWAHL) (setq OBJEKT (ssname AUSWAHL 0)) (setq VLA-OBJEKT (vlax-ename->vla-object OBJEKT)) (vlax-put-property VLA-OBJEKT 'ScaleFactor FAKTOR) (setq AUSWAHL (ssdel OBJEKT AUSWAHL)) ) ) ) ) (princ) ) Ist es auf einfache Weise möglich eine Auswahlmöglichkeit vorzuschalten ? ------------------ mfg Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13533 Registriert: 30.11.2003 .	erstellt am: 18. Mrz. 2008 12:35 <-- editieren / zitieren --> Unities abgeben: Nur für caddonner Schön kopiert und nix verstanden ... dein Wunsch kannst du mit Ersetzen der Zeile (if(setq AUSWAHL (ssget "_X" '( (0 . "DIMENSION")) )) in (if(setq AUSWAHL (ssget '( (0 . "DIMENSION")) )) erfüllen ------------------ - 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
caddonner Mitglied Beiträge: 166 Registriert: 24.05.2005	erstellt am: 18. Mrz. 2008 12:49 <-- editieren / zitieren --> Unities abgeben: Hallo Thomas ! Dass war ja mal schnell und einfach - danke ! [QUOTE]Original erstellt von CADmium: [B]Schön kopiert und nix verstanden ... Kopieren will auch gelernt sein... ------------------ mfg Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13533 Registriert: 30.11.2003 .	erstellt am: 18. Mrz. 2008 12:51 <-- editieren / zitieren --> Unities abgeben: Nur für caddonner Zitat: Original erstellt von caddonner: Kopieren will auch gelernt sein... ;) sicher .. Quellenangabe dabei nicht vergessen .. und ist es wirklich zu schwer oder mühsam, mal hinter die Kulissen zu blicken ? ------------------ - 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
caddonner Mitglied Beiträge: 166 Registriert: 24.05.2005	erstellt am: 18. Mrz. 2008 12:58 <-- editieren / zitieren --> Unities abgeben: ich nehm es mir eh schon lange vor mich näher mit Lisp zu beschäftigen. Aber wie das halt so ist mit den guten Vorsätzen... ------------------ mfg Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)