---

Hallo!

Ich suche nach einer Lösung folgendes kleine ME10-Makro in Annotaion einzubinden:

  DEFINE Vo_bem_abst_setzen
    INQ_ENV 7
    C_LINE PARALLEL
            (10/(INQ 4))
            (18/(INQ 4))
            (26/(INQ 4))
            (34/(INQ 4))
            (42/(INQ 4))
            (50/(INQ 4))
            (58/(INQ 4))
  END_DEFINE

Wir benutzen in ME10 das Makro dazu, parallele Hilfslinien im Abstand von 10mm (bezogen auf den Maßstab im TOP d.h. 1:1) zu einer vorhandenen Bauteilkonur zu setzen und auf diesen Hilfslinien die Bemassung abzusetzen.

Ich habe bereits Kenntnisse in der Programmierung im OSD, jedoch nur im Modelling. Die Programmierung in Annotation ist mir ziemlich suspekt, da man dort die ME10 Kommandos irgendwie im sd_defdialog einbinden muß. Nur WIE, das konnte ich bisher nicht heraus finden. Außerdem verstehe ich die Selektion von Objekten mittels des "value_types" bzw. über "selection" im "sd_defdialog" nicht. Die Hilfe zum OSD bringt mich da irgendwie auch nicht weiter (Wo steht was und wie funktioniert es?  )

Ich hoffe, hier kann mir jemand behilflich sein. 

Gruß,
Christian

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

---

AM_Bemassungshilfslinie.zip

Hallo Christian !

Ich habe mal vor einiger Zeit sowas geschrieben:

Das Zip enpacken und in der LISP-Datei den weiteren Ladepfad fuer die
Makrodatei anpassen.
Laden musst du dann nur mehr die LISP-Datei !!
Das Icon belegst du dann mit: am-bemassungshilfslinie
oder wenn du es von der Werkzeugkiste aus starten willst, dann aendere in der LISP-Datei :toolbox-button nil auf :toolbox-button t

Hoffe, es klappt wie gewuenscht...

Gruss
RainerH.

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

---

Zitat:

---

Original erstellt von Christian Sandmann:

... Die Hilfe zum OSD bringt mich da irgendwie auch nicht weiter (Wo steht was und wie funktioniert es?   )

---

Hallo nochmals !

Hilfe dazu findest du hier:

...\help\Common\documentation\integration_kit\reference\dg_manual.html#value-types
...\help\Common\documentation\integration_kit\reference\get_selection.html#selection-type-table
...\help\Common\documentation\integration_kit\concepts\annotation\anno_sel.html#list
...\help\Common\documentation\integration_kit\contrib\me2lisp.html
...\help\Common\documentation\integration_kit\concepts\annotation\anno_dg.html

Gruss
RainerH.

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

---

Mal am Rand ne Frage:

wieso benutzt ihr nicht die Gitter-Funktion im Annotation? Die nehme ich immer um meine Bemassungen zu positionieren.
Oder hab ich da jetzt was falsch verstanden?

Gruß
Heiko

------------------
DIE inoffizielle Hilfeseite zum OneSpace Designer

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

---

... und überhaupt sollte man möglichst mit "Masslinie lang", "Masslinie kurz" oder "Koordinaten" arbeiten, da werden die Masse automatisch gestaffelt und beim Einfügen/Löschen automatisch nachgerückt!!!

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

Zitat:

---

Original erstellt von Heiko Engel:

Oder hab ich da jetzt was falsch verstanden?

---

Weil das erste Maß von der Körperkante 2mm weiter entfernt sein soll, als der Abstand der Masslinien untereinander. So macht man das, wenn man TZ am Brett gelernt hat.

Ansonsten hat Walter absolut recht.

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

---

Zitat:

---

Original erstellt von Dittrich:
...Weil das erste Maß von der Körperkante 2mm weiter entfernt sein soll, als der Abstand der Masslinien untereinander. So macht man das, wenn man TZ am Brett gelernt hat.

---

Das lässt sich doch auch realisieren, das Erste mit :MIN_SPACE definieren, den Rest mit  :DATUM_STEP in der Datei am_dimension.dms
oder interaktiv unter Bemassung-Vorgaben-Plazier auto-Mindestabst bzw. MaßlinSchrit

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

... und noch einen drauf, auch wenns konservative Kunden nicht gerne hören: TZ war gestern, heute arbeiten wir mit 3D, das bietet ganz andere Möglichkeiten der technischen Dokumentation und der Informationsweitergabe, da sollte man sich nicht eisern an antiquierte Regeln halten müssen 

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

So, um auch die ursprüngliche Frage zu beantworten

Code:

---

(in-package :custom)
(use-package :OLI)
(sd-defdialog 'dc4-anno-bemassen-hline-dialog
:dialog-title "Mass-Hilfslinien"
;;:dialog-control :sequential
:variables
'(
(kante :selection *sd-anno-geo-seltype*
:prompt-text "Bezugskante angeben"
:title "Bezug"
:check-function
#'(lambda (elem)
(let ()
(if (sd-am-line-struct-p (sd-am-inq-specific-geo-props elem))
:ok
(values :error "Nur Linien erlaubt!")
);;if
);;let
);;lambda
:after-input (sd-set-variable-status 'richt :enable t)
)
(richt :value-type :docupoint
:prompt "Seite fuer Bemassung angeben"
:title "Richtung"
:after-input (after-richt-action)
:initial-enable nil
)
)
:local-functions
'(
(after-richt-action ()
(let (ap ep mp rp)
(setf ap (sd-am-line-struct-start-pnt (sd-am-inq-specific-geo-props kante)))
(setf ep (sd-am-line-struct-end-pnt (sd-am-inq-specific-geo-props kante)))
(setf mp (sd-vec-add ap (sd-vec-scale (sd-vec-subtract ep ap) .5)))
(setf rp (format nil "~a,~a" (gpnt2d_x richt) (gpnt2d_y richt)))
(display (format nil "C_LINE PARALLEL 10 18 26 34 42 50 58 ~a ~a END" mp rp))
(sd-execute-annotator-command :cmd (format nil "C_LINE PARALLEL 10 18 26 34 42 50 58 ~a ~a END" mp rp))
(sd-set-variable-status 'richt :enable nil)
(setf richt nil)
(setf kante nil)
);;let
)
)
:ok-action
'()
)

---

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

am_masshilfe.lsp.txt

Jetzt sind alle Einzüge weg und eine Zeile ist auch noch zu viel vom Debuggen, na dann halt als Anhang 

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

Zitat:

---

Original erstellt von Walter Geppert:
... und noch einen drauf, auch wenns konservative Kunden nicht gerne hören: TZ war gestern, heute arbeiten wir mit 3D, das bietet ganz andere Möglichkeiten der technischen Dokumentation und der Informationsweitergabe, da sollte man sich nicht eisern an antiquierte Regeln halten müssen  

---

Klar geht das programmtechnisch zu realisieren, nur mit dem gleichmässigen Gitter eher schlecht. Und diese Schönheitsregeln von DIN, Hoischen und Co interessieren schon lange nicht mehr.

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

---

Hallo zusammen!

Vielen Dank für eure schnelle Hilfe (besonders an RainerH und Walter Geppert)!

Ich hätte ja nicht gedacht, dass ich in meinem ersten Thread eine Diskussion um "DIN, Hoischen und Co" lostrete. 

Darum geht es mir in ster Linie auch nicht, sondern nur um die komfortable Anordnung von Bemassungen. Das ist meiner Meinung nach mittels Gitter-Funktion auch nicht machbar, da sich im OSD ständig die Abstände ändern, wenn man verschiedene Funktion verwendet.

Gruss,
Christian

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

---

Zitat:

---

Original erstellt von Christian Sandmann:
Vielen Dank für eure schnelle Hilfe (besonders an RainerH und Walter Geppert)!

---

Gern geschehen, Unities werden immer gern genommen

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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