---

hallo zusammen
weiss jemand von euch wie ich per macro ein teil (kann auch das aktuelle sein) abfragen kann ob es als symbol oder normal angezeigt wird.

me10 v12

besten dank

andré

------------------
awi
André Weidmann

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

---

mal ein Versuch:

würde den Massstab des Teils abfragen, das Teil per Masstab vergrössern und vergleichen ob sich der Massstab verändert hat.

Wenn ja - kein Symbol
Wenn nein - Symbol

ist dass was mir spontan in den Sinn kommt. Dünkt mich allerdings etwas aufwendig, nur um ein Symbol zu erkennen...

Grüessli

------------------
Tobi

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

---

hallo,
diese Frage ist mir noch nie begegnet. Doch es hat mich gepackt ...

Die INQ habe ich nicht durchsucht, denke das hast Du längst hinter Dir. Doch wie wäre es mit ...

PARTS_LIST_FORMAT ANISOTROPIC
PARST_LIST TREE LTAB "andreas_ltab"

und nun steht in der log. Tabelle "andreas_ltab" der Teilename, der eindeutige Teilename und der ganze Schwanz der Beschreibung. Jetzt suchst Du in der Tabelle nach dem Text "[Symbol]"

Wohl nicht wie erwartet, doch es läuft. Habs gerade kurz getestet.

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

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

---

hi zusammen
@tobi79 merci doch denke ich mir bei einer grossen zusammenstellung nicht der richtige lösungsansatz.

@andreas
danke dir. es scheint die einzige lösung zu sein. da ich effektiv  per inq_env und inq_part nichts gefunden habe.

besten dank für euren einsatz

gruss aus dem seeland

------------------
awi
André Weidmann

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

---

Hallo Andre,

so muesste es gehen:

{** Makro - Anfang **}

DEFINE Symbolabfrage_macro
  LOCAL Teilename
  LOCAL Teilenummer
  LOCAL Zeile
  LOCAL Abfrage

  INQ_ENV 7
  LET Teilename (INQ 301)
  LET Teilenummer ('[~' + (INQ 302) + ']')
  PARTS_LIST ALL TREE LTAB 'Symbolabfrage.ltab'

  LET Zeile (0)

  LOOP
  LET Zeile (Zeile + 1)
  LET Abfrage (READ_LTAB 'Symbolabfrage.ltab' Zeile 1)
  EXIT_IF (POS (STR Abfrage) Teilenummer)
  EXIT_IF (Abfrage = '')
  END_LOOP

  IF (POS (STR Abfrage) '[Symbol]')
    DISPLAY ('*** ACHTUNG: Aktuelles Teil: ' + (STR Teilename) + ' ist ein Symbol')
  ELSE
    DISPLAY ('Aktuelles Teil: ' + (STR Teilename) + ' ist kein Symbol')
  END_IF

END_DEFINE

{** Makro - Ende **}

Gruss
RainerH.

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

---

besten dank an dich rainer
ich habe mir schon eine kompakt-version mit der idee von andreas zusammengesetzt.

für all die es interessiert:

inq_env 7
let CurrPart ('~'+(inq 302))
PARTS_LIST_FORMAT ANISOTROPIC PARTS_LIST tree  ltab 'x'
select_from_ltab 'x' 1 = ("*\[" + CurrPart + "\] \[Symbol\]*") end
display (ltab_rows 'sys_select')

gruss aus dem gemüsegarten der schweiz

------------------
awi
André Weidmann

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

---

Zitat:

---

Original erstellt von awi:
select_from_ltab

---

... wusste gar nicht, dass es das gibt - man lernt nie aus
DANKE 

Gruss
RainerH.

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

---

Zitat:

---

Original erstellt von RainerH:
... man lernt nie aus

---

da wirst du sicher nicht alleine sein. auch ich werde ab und zu durch solche aha-erlebnise (und das nach 18 jahren me10!!) zum staunen gebracht. man kann ja nur weiser werden damit (greiser auch glaube ich).

gruss aus finsterhennen

------------------
awi
André Weidmann

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

---

Zitat:

---

Original erstellt von awi:
...
inq_env 7
let CurrPart ('~'+(inq 302))
PARTS_LIST_FORMAT ANISOTROPIC PARTS_LIST tree  ltab 'x'
select_from_ltab 'x' 1 = ("*\[" + CurrPart + "\] \[Symbol\]*") end
...

---

Morgen,

sehr schöne Lösung!

Aber als alter Klug********r hab ich natürlich noch Anmerkungen dazu :

nämlich wenn des Symbol auch noch gemeinsam benutzt ist, dann steht in der Teileliste:
      Teil [~125] [Gemeinsam #1] [Symbol][1:1]
und wenn die Sprache englisch ist, steht dort:
      Teil [~125] [shared #1] [symbol][1:1]
(wobei dieser 2.Fall wahrscheinlich nicht so realistisch ist)

Es gibt ja tatsächlich keine Möglichkeit, mit INQ zu kontrollieren, ob ein Teil ein Symbol ist.
(und das mit dem Auslernen kann ich auch nur unterstreichen!)

Gruß aus Österreich,
Hannes

------------------
undmiadanwosmadan undmiadadnawosondasoisdeswosmadan undwosondasdammara

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

---

Zitat:

---

Original erstellt von awi:
... und das nach 18 jahren me10!!...

---

die 18 Jahre habe ich seit dem 19. März auch voll. Würde mich jetzt wirklich interessieren wer denn hier dienstältester ME10-Anwender ist.
(notfalls wir die Urkunde für CH und D getrennt verliehen) 

EDIT (wg. H.annnes):
Entschuldigung: "notfalls wird die Urkunde für A,CH und D getrennt verliehen. Meines Wissens war TITUS lediglich ein anderer Name für ME10, so wie Qurinus für ME30. Und ME5 markierte das untere Ende der Preisliste. Aber wurde es auch mal intalliert?

------------------
Grüsse aus dem Schwarzwald  
www.Andreas-Baumgartner.de

[Diese Nachricht wurde von baumgartner am 14. Mai. 2004 editiert.]

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

---

Zitat:

---

Original erstellt von baumgartner:
...(notfalls wir die Urkunde für CH und D getrennt verliehen)  ...

---

jajaja, CH & D. Wo bleibt der erste Buchstabe im Alphabet?

Kennt eigentlich noch jemand "TITUS" und "ME5"?

Gruß aus A,
Hannes

------------------
undmiadanwosmadan undmiadadnawosondasoisdeswosmadan undwosondasdammara

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

---

Zitat:

---

Original erstellt von H.annes:

nämlich wenn des Symbol auch noch gemeinsam benutzt ist, dann steht in der Teileliste:
       Teil [~125] [Gemeinsam #1] [Symbol][1:1]
und wenn die Sprache englisch ist, steht dort:
       Teil [~125] [shared #1] [symbol][1:1]
(wobei dieser 2.Fall wahrscheinlich nicht so realistisch ist)

---

ja da habe ich nicht daran gedacht. also anbei eine deutsch/englisch version

inq_env 7 let CurrPart (inq 302) PARTS_LIST_FORMAT ANISOTROPIC PARTS_LIST tree  ltab 'x'
select_from_ltab 'x' 1 = ("*\[~" + CurrPart + "\] * \[[Ss]ymbol\]*") end
display (ltab_rows 'sys_select')

gruss aus der schweiz

------------------
awi
André Weidmann

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

---

Hallo Hannes,

wenn Du schon sooooolange dabei bist, dann kennst Du bestimmt auch noch HP-Draft und dann den Nachfolger CAD200 und CAD220?

Gru? aus Berlin Gerhard

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

---

Zitat:

---

Original erstellt von Gerhard Deeg:
...
wenn Du schon sooooolange dabei bist, dann kennst Du bestimmt auch noch HP-Draft und dann den Nachfolger CAD200 und CAD220?
...

---

Vom Hoerensagen kennt man vieles, gearbeitet habe ich erst mit
ME10 Version 1.0 auf Englisch unter dem HP-Pascal-Betriebssystem.
Die erste ME10-Version unter HP-UX hatte ich auf einer 80 MB-Platte.
Da war sowohl das Betriebssystem drauf als auch ME10, und Daten
konnte man auch noch drauf abspeichern.

Gruss

WoHo

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

---

Und gekostet hat so eine 80MB-Festplatte satte DM 26774,- !!!

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

---

Hallo zusammen,

auch ich kenne ME 1.0 .  HP-Draft sollte es werden, bis zur
Kaufentscheidung wurde es ME. IMHO ist es das beste
2D-CAD System das ich seitdem kennengelernt hatte. Keine
"Spielzeugfkt" oder "negativ bejahende" wie in Mircoschrott ,
volle Flexibilitaet durch eigene Prog.

Habe selbst auch mal mit Hilfe von vier! anderen Kollegen
eine gigantische 150MB - Patte (ca.250kg) ein paar Etagen
schleppen müssen für eine Demo.

Gruß

Barbarossa

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

---

Zitat:

---

Original erstellt von Gerhard Deeg:
Hallo Hannes,
wenn Du schon sooooolange dabei bist, dann kennst Du bestimmt auch noch HP-Draft und dann den Nachfolger CAD200 und CAD220?
Gru? aus Berlin Gerhard

---

HMorgen,

soooooo alt bin ich auch wieder nicht 
HP-Draft kenn ich vom Namen nach, CAD200 wurde doch in Österreich entwickelt, wenn ich mich nicht irre? Gabs nicht auch mal ein CAD400?
Aber eine 80-Mb-Platte für Betriebssystem, ME10 & Daten hatten wir auch!

Hannes

------------------
undmiadanwosmadan undmiadadnawosondasoisdeswosmadan undwosondasdammara

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

---

Hallo zusammen,

ich habe da mal vor langer Zeit was programmiert ...

DEFINE Detail_check
  LOCAL Akt_teil
  LET Detail_vorh 0
  INQ_ENV 7
  LET Akt_teil (INQ 301)
  TRAP_ERROR
  INQ_PART DETAIL Akt_teil
  LET Detail_vorh (INQ 2)
  IF (CHECK_ERROR)
    LET Detail_vorh 0
  END_IF
END_DEFINE

Funktioniert prima! Oder das:

DEFINE Detailsuche
  LOCAL Akt_teil
  INQ_ENV 7
  LET Detail_vorh 0
  LET Akt_teil ('~'+INQ 302)
  TRAP_ERROR
  INQ_PART DETAIL Akt_teil
  LET Detail_vorh (INQ 2)
  IF (CHECK_ERROR)
    LET Fakt 0
    LET Detail_vorh 0
  ELSE
    LET Fakt (INQ 3)
  END_IF
END_DEFINE

Hoffe das hilft jetzt noch, bin wieder mal viel zu spät.

Gruß
Wilfried

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