---

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

---

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

---

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

---

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

---

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