---

Hallo Lisp-Experten,
ich habe mir aus MV-Blöcken in einer Zeichnung folgende Werte ermittelt:
(setq ObjnameMVB (ssname get_MV-BLOCK lauf));holt Entityname von MV-Block
(setq ObjnameMVBVLA (vlax-ename->vla-object ObjnameMVB));holt VLA-Objektname von MV-Block

(setq MVBlockDefName (vlax-get-property ObjnameMVBVLA "StyleName"))

(setq scalex (vlax-get-property ObjnameMVBVLA "ScaleX"))
(setq scalez (vlax-get-property ObjnameMVBVLA "ScaleZ"))
(setq scaley (vlax-get-property ObjnameMVBVLA "ScaleY"))

(setq einfp (vlax-get ObjnameMVBVLA "Location"))
(setq einfpx (car einfp))
(setq einfpy (car (cdr einfp)))
(setq einfpz (car (cddr einfp)))

bis hier hat alles prima funktioniert
nun möchte ich die folgenden Werte an die MV-Blöcke zurück schreiben:

(setq scalexnew (* scalex 1000))
(setq scaleznew (* scalez 1000))
(setq scaleynew (* scaley 1000))
und der "StyleName" soll geändert werden.

(entget ObjnameMVB) liefert nur:
((-1 . <Objektname: 187f25ba320> ) (0 . "AEC_MVBLOCK_REF") (330 . <Objektname: 187b09fd020> ) (5 . "5AA") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "A-ASPR-NEU"))
Ich finde keine passenden Gruppencodes die ich mit (entmod ..) austauschen kann.
Wie kann ich die geänderten Werte an den MV-Block zurückschreiben?

Danke für Eure Hilfe.

------------------
Danke Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Noch eine weiter Frage:
(setq einfp (vlax-get ObjnameMVBVLA "Location"))
liefert nur gerundete Werte (6975.0 51957.8 0.0)
der exakte Wert wäre (6975.00000000  51957.81262714 0.00000000)

Kann (vlax-get ObjnameMVBVLA "Location") auch die exakten Werte zurückgeben?

------------------
Danke Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo cadking,
du holst dir mit vlax-get-property die Skalierungen.
Was spricht dagegen mit vlax-put-property diese zurückzuschreiben ?

Ich hab hier keine MVBlöcke und kann das nicht ausprobieren, sollte doch aber gehen.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,
du hast natürlich recht. Es spricht nichts dagegen und funktioniert auch soweit, nur:
ich ermittel den Einfügepunkt:
(setq einfp (vlax-get ObjnameMVBVLA "Location"))

berechne den neuen Einfügepunkt:
(setq einfpxnew (+ einfpx (*(/ scalex 2) 1000)))
(setq einfpznew (+ einfpz (*(/ scalex 2) 1000)))
(setq einfpnew (list einfpxnew einfpy einfpznew))

aber (vlax-put ObjnameMVBVLA "Location" einfpnew) hat keine Auswirkung auf die Position des MV-Blocks.

------------------
Danke Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sorry,
man darf die Codezeilen natürlich nicht in einen "ausgeREMten Bereich setzen, dann funktioniert
(vlax-put ObjnameMVBVLA "Location" einfpnew)
auch.

------------------
Danke Stefan

[Diese Nachricht wurde von cadking am 08. Okt. 2021 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

zu
(setq einfpxnew (+ einfpx (*(/ scalex 2) 1000)))
besser
(setq einfpxnew (+ einfpx (*(/ scalex 2.0) 1000)))

Teste mal dazu (/ 8 3)  und (/ 8 3.0)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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 CADmium,
berechtigter Hinweis, vielen Dank.
gas hätte auch schief gehen können, es handelt sich nämlich um konvertierte Aussparungen. Wenn die falsch gebohrt worden wären, puhh.

------------------
Danke Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP