---

viewlabel.jpg deletelabel.lsp.txt

Dear friends,

I have a new problem with the warning message box.
I want to delete a view label in the macro.
But a warning box is popped out.
How to close this warning in my code?

Code:

---

(use-package :OLI)

(sd-defdialog 'inqview
:dialog-title "inqview"
:toolbox-button t
:variables
'(
(view
:selection *sd-anno-view-seltype*
:title "view"
:initial-value nil
:after-input (doit)))

:local-functions
'((doit ()
(sd-call-cmds (am_delete :docu_text :by_view_docu_rest view) :failure nil)))
:ok-action
'(doit))

---

Thanks in advance!
Andy

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

---

Found it at last. In PTC help file.
http://support.ptc.com/help/creo_elements_direct/r20.5.0.0/advanced_documentation/integration_kit/reference/dg_callbacks.html?wwreverbsearch_action=search_display_link&wwreverbsearch_highlightRequireWhitespace=false&wwreverbsearch_query=%20Callback%20#warning-defaults

Code:

---

;;; Set aside the original code of the function sd-display-warning.
(defvar *sd-display-warning-function* (symbol-function 'oli:sd-display-warning))

;;; Redefine the function sd-display-warning to return the value :yes.
(defun oli:sd-display-warning (msg &key title push-1 push-2 push-other severity help-action)
:yes)

;;; Begin of recorder file ;;;;;;;;;;;;;;;;;;
...
:width 100
...
;;; End of recorder file ;;;;;;;;;;;;;;;;;;;;

;;; Reset the function sd-display-warning to its original form.
(setf (symbol-function 'oli::sd-display-warning)
*sd-display-warning-function*)

---

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

---

Anyway i think it would be a good advise from the system to try to change the settings of the view in the code instead of deleting the text cardcore

------------------
meine LISP-Makros sind mit vielen anderen aus diesem Forum auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Dear Walter,

I agree with you. But sometimes it's the only way to solve some specific problem.

Regards,
Andy

Zitat:

---

Original erstellt von Walter Geppert:
Anyway i think it would be a good advise from the system to try to change the settings of the view in the code instead of deleting the text cardcore

---

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

---

Oder so ganz ohne zinnober..  mit nem ME10 Befehl...

Code:

---

(sd-execute-annotator-command :cmd "DELETE SELECT IN PART '~42' SUBTREE TEXTS ALL CONFIRM END")

---

Die syntax stimmt so bestimme nicht..  aber der Weg ist vorhanden, das ratz fatz übern nen Macro zu machen.

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

It seems this code will delete the view itself, and other texts in the same sheet.

Best Regards,
Andy

Zitat:

---

Original erstellt von der_Wolfgang:
Oder so ganz ohne zinnober..  mit nem ME10 Befehl...

Code:

---

(sd-execute-annotator-command :cmd "DELETE SELECT IN PART '~42' SUBTREE TEXTS ALL CONFIRM END")

---

Die syntax stimmt so bestimme nicht..  aber der Weg ist vorhanden, das ratz fatz übern nen Macro zu machen.

---

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

---

Zitat:

---

Original erstellt von Andylau:
It seems this code will delete the view itself, and other texts in the same sheet.

---

Wie ich schon sagte: Die Syntax des command stimmt so nicht. Das musst du noch selber rausfinden. Vielleicht braucht es auch 3..5 Zeilen ..  beginnend mit EDIT_Part. Starte ein Drafting und finde es heraus. Ich wollte nur einen alternativen Weg aufzeigen.

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

got it, Thanks.
Some time the translate of the page is inaccurate. So I didn't get your point at first.

The code below works.

Code:

---

(sd-execute-annotator-command :cmd "EDIT_PART '~42' DELETE SELECT IN PART '~42' SUBTREE TEXTS ALL CONFIRM END")

---

Best regards,
Andy

Zitat:

---

Original erstellt von der_Wolfgang:

Wie ich schon sagte: Die Syntax des command stimmt so nicht. Das musst du noch selber rausfinden. Vielleicht braucht es auch 3..5 Zeilen ..  beginnend mit EDIT_Part. Starte ein Drafting und finde es heraus. Ich wollte nur einen alternativen Weg aufzeigen.

---

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