---

hallo sicher kann mir jemand helfen:
ich möchte über eine lsp oder schnellbefehl einen bemassungstil neu erstellen und als aktuell setzen,(MIT ALLEN NOTWENDIGEN EINSTELLUNGEN)

;      (SETVAR "DIMSCALE" 1) ; Bemaßungsskalierung auf 1
;      (SETVAR "DIMTXT" 0.5) ; Textgröße auf 0.5
;      (SETVAR "DIMASZ" 0.0) ; Pfeilgröße auf 0
; text von Typ
; farbe von layer
; Name neu
usw....

. da es dazu mehrere befehle gibt, bräuchte ich mal eine auflistung aller notwendigen befehle für diese problem bzw. den hinweis wo es dazu was im forum gibt, meine hilfe in autocad streikt bzw. ich find keine übersicht dazu;
-für die erstellung eines schrifttypes nutze ich diesen befehl
(command "_-style" "arial"    "arial.ttf" 0 1    0 "_N" "_N")

------------------
Gruß vom Bauvermesser;

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

---

High,

die acad-Hilfe von 2004 listet alleine 70 (in Worten: SIEBZIG) Systemvariablen mit der Vorsilbe DIM auf. Und die haben alle was mit der Bemaßung zu tun.
Um einen Überblick zu erhalten, hilft Dir vielleicht auch diese Seite weiter.

------------------
Ciao
J-SC
  ... geht's vielleicht doch?

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

---

Hi

Das wäre ziemlich umständlich. Da bei Änderungen des Bemstiles musst du wieder nachkucken wechle sysvar was macht *vielspassdabei

Einfacher geht´s wenn du eine Vorlage hast und diese veränderst.

Methoden wie du das hinbekommst, kommt auf deine Acadversion drauf an.

z.B.

richtigen Bemassungstil erstellen

als DWG abspeichern

über import einfügen

Bemassungskalierung ändern

fertisch

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

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

---

Zitat:

---

Original erstellt von Bauvermesser:
hallo sicher kann mir jemand helfen:
ich möchte über eine lsp oder schnellbefehl einen bemassungstil neu erstellen

---

Für die NEUerstellung ist es sicherlich am einfachsten, wenn Du Dir in einer Extrazeichnung den jeweiligen Bemassungsstil definierst und dann via >command "_.-insert"...< in Deine aktuelle Zeichnung importierst. Das SETZEN des importierten Stils kannst Du dann hiermit erledigen:

Code:

---

(vl-load-com)
; Funktion zum aktuell setzen eines Bemassungsstils
; Aufruf mit (set-dimstyle "Name des Stils")
; Groß/Kleinschreibung ist egal, Pgm konvertiert immer
; in reine Großschreibung!
; Eine Prüfung auf vorhandensein des Stils findet NICHT statt
; das muß die rufende Funktion erledigen!!!
(defun SET-DIMSTYLE (NAME / ADOC AKTNAME DCOLLECTION LST)
  (setq ADOC    (GET-ACTIVEDOCUMENT)
        AKTNAME (strcase (vlax-get-property
                          (vla-get-activedimstyle ADOC)
                          "name"
                        )
                )
        NAME    (strcase NAME)
  )
  (if (not (eq NAME AKTNAME))
    (progn
      (setq DCOLLECTION (vla-get-dimstyles ADOC))
      (vlax-for DSTYLE DCOLLECTION
        (setq LST
              (cons (cons (strcase (vlax-get-property DSTYLE "name")) DSTYLE)
                    LST
              )
        )
      )
      (vla-put-activedimstyle  ADOC (cdr (assoc NAME LST)))
    )
  )
)

---

...

------------------
Ciao,
Marc

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