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: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: globaler Bemassungsfaktor (1969 mal gelesen)

caddonner
Mitglied

Senden Sie eine Private Message an caddonner

Schreiben Sie einen Gästebucheintrag für caddonner

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 oder löschen Sie diesen Beitrag!

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

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

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

Anzeige:	Infos zum Werbeplatz >>
SYSCAD DEMO Version CAD APP für Fassadenbau, Metallbau SYSCAD - CAD für Fenster, Türen und Fassaden

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

SYSCAD DEMO Version CAD APP für Fassadenbau, Metallbau