---

Servus

Nachdem mich Block einheiten ändern schon länger nervt und ich ewig am suchen war dachte ich mir "he Autocad is ja auf Englisch da müsste es doch auch gute Leute in VBA und LSP geben" und Change Block units ergab das hier.

ändert alle Blockeinheiten auf "keine Einheit", denk mal wenn man "units" 0 auf denn richtigen Wert stellt sollte es passen

Code:

---

(vl-load-com)
(vlax-for x
(vla-get-Blocks
(vla-get-activedocument
(vlax-get-acad-object)))
(vlax-put-property x "Units" 0))

---

hier die Quelle ganz unten

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
<----- Bitte Systeminfo eintragen, warum siehst du hier.

[Diese Nachricht wurde von Bernd P am 19. Aug. 2008 editiert.]

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

---

Meinste im deutschsprachigen Raum kann das keine(r) ?    

IMHO hatten wir so eine Lösung sogar hier schon auf cad.de. (Ich such jetzt aber nicht) Aber danke für dein Posting, vielleicht findet es ja der nächste mit dem "Problem"  .

Die Möglichen Einheitenwerte -also das, was an Stelle der 0 stehen kann - :

acInsertUnitsAngstroms
acInsertUnitsAstronomicalUnits
acInsertUnitsCentimeters
acInsertUnitsDecameters
acInsertUnitsDecimeters
acInsertUnitsFeet
acInsertUnitsGigameters
acInsertUnitsHectometers
acInsertUnitsInches
acInsertUnitsKilometers
acInsertUnitsLightYears
acInsertUnitsMeters
acInsertUnitsMicroinches
acInsertUnitsMicrons
acInsertUnitsMiles
acInsertUnitsMillimeters
acInsertUnitsMils
acInsertUnitsNanometers
acInsertUnitsParsecs
acInsertUnitsUnitless
acInsertUnitsYards

Das sind vordefinierte Variablen .. acInsertUnitsUnitless
hat bsp.weise den Wert 0.
------------------
      - 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