@Martin
Mit einem Trick:
Indem du im Dialog nach dem Kreis-Klick
den ME10-Befehl zum Bemassen des Durchmessers
startest.
Vor dem eigentlichen Bemassen diesen dann
wieder beenden.
Beispliel:
;; *** Anfang ***
(in-package :examples)
(use-package :oli)
(sd-defdialog 'feedbacksimulation_1
:toolbox-button nil
;;:dialog-control :sequential
:variables
'((kreis
:value-type :docupntcnp
:title "Kreis"
:prompt-text "Kreis anklicken."
:after-input
(progn
(sd-execute-annotator-command :cmd
(format nil "DA_DIM_DIAMETER ~a,~a"
(oli::gpntdocu_x kreis)
(oli::gpntdocu_y kreis)
)
)
)
)
(position
:value-type :docupntcnp
:title "Position"
:prompt-text "Position anklicken."
:after-input
(progn
(sd-execute-annotator-command :cmd "END")
)
)
)
:ok-action
'(progn
(am_create_dim_diamtr
:pick1 kreis
position
)
)
)
;; *** Ende ***
HTH
Gruss
RainerH.
[EDIT]
Michael hat mich beim tippen ueberholt !
Dafuer gibt es aber auch ein Example...
[Diese Nachricht wurde von RainerH am 28. Sep. 2005 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP