---

Hallo,
ich möchte gerne den Abstand der Maßzahl zur Maßlinie ändern.
Voreingestellt wird das mit DIM_TEXT_SPACE, einen Befehl zum
nachträglichen ändern finde ich in der Hilfe nicht. Welche
Möglichkeiten gibt es?

Gruß, Klaus.

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

---

hallo,
finde jetzt auf die Schnelle auch keinen Befehl. Aber schreibe dir doch ein Fünfzeiler, frage die Bemassung ab, erstelle sie automatisch neu.

inq_elem (masszahl antippen)
inq (403) ergibt den Typ
inq 101 => genauer Ort der Masszahl
inq 106 => Anfangspunkt der Bemassung
inq 107 => Endpunkt der Bemassung
inq 601 => Ausrichtung (parallel, waagrecht,...)

Mit diesen ermittelten Infos kannst Du doch die Bemassung schnell neu erzeugen. Wenn Du es exklusiv haben willst, dann kannst Du mit der Vielzahl von INQ Präfix, Postfix, Toleranz usw. noch abfragen.

Grüsse aus dem Schwarzwald 

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

---

Hier eine Lösung für dein Problem.

********************************************
DEFINE Frs_m_update_dims
LOCAL Count
{Save dim settings}
DA_WRITE_DIM_SETTINGS_MACRO ((GETENV "METMPDIR")+'/dimtemp') 'dimtemp'
WAIT 0
Frs_m_set_update_area_dims {Bemassung umsetzen}
  LET Count 1
  PB_LTAB_UPDATE
  LOOP
    LET Partname (READ_LTAB 'PBT_LTAB' Count 2)
    EDIT_PART Partname
    DA_STYLE_APPLY KEEP ALL END
    LET Count (Count+1)
    EXIT_IF (Count=((LTAB_ROWS 'PBT_LTAB')+1))
END_LOOP
REDRAW
EDIT_PART TOP
{Restore dim settings}
INPUT ((GETENV "METMPDIR")+'/dimtemp')
WAIT 0
dimtemp
END_DEFINE

{Dieses Macro beinhaltet die gewünschten Änderungen}
DEFINE Frs_m_set_update_area_dims
{Beispiel }
DIM_TEXT_SPACE 3.5 END
DIM_COLOR BLUE END
END_DEFINE
 
****************************************
Mit freundlichen Grüßen

Frank Schalla

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

---

Hallo,
leider funktioniert das Makro nicht, DA_WRITE_DIM_SETTINGS_MACRO nicht definiert bekomme ich als Fehlermeldung. UNIX-Version 8.7g unter HP-UX 10.20 läuft hier.

Danke und Gruss, Klaus.

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

---

Sorry habe den Bemassungsadvisor (bei mir default) vergessen.

Hier die neue Variante
********************************************
DEFINE Frs_m_update_dims
{Neu}
Enable_dam
LOCAL Count
{Save dim settings}
DA_WRITE_DIM_SETTINGS_MACRO ((GETENV "METMPDIR")+'/dimtemp') 'dimtemp'
WAIT 0
Frs_m_set_update_area_dims {Bemassung umsetzen}
  LET Count 1
  PB_LTAB_UPDATE
  LOOP
    LET Partname (READ_LTAB 'PBT_LTAB' Count 2)
    EDIT_PART Partname
    DA_STYLE_APPLY KEEP ALL END
    LET Count (Count+1)
    EXIT_IF (Count=((LTAB_ROWS 'PBT_LTAB')+1))
END_LOOP
REDRAW
EDIT_PART TOP
{Restore dim settings}
INPUT ((GETENV "METMPDIR")+'/dimtemp')
WAIT 0
dimtemp
{neu}
Disable_dam
END_DEFINE

{Dieses Macro beinhaltet die gewünschten Änderungen}
DEFINE Frs_m_set_update_area_dims
{Beispiel }
DIM_TEXT_SPACE 3.5 END
DIM_COLOR BLUE END
END_DEFINE
**********************************************

mfg

Frank Schalla 

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