Wie kan me helpen om code toe tevoegen aan lisp en script?(OPGELOST)

[balletje23]

Deze wil ik namelijk in een starup zetten

Welke code heb ik nodig om lisp 1 met command :++ teactiveren
Heb dit algeprobeert  (defun c:++ () ---dit werkt niet---


;LISP 1
(setvar "OSMODE" 0)
(prompt "\n OSNAP For Personal Use has been turned OFF ")
(princ)


Voor Script 2 wil ik command :stemp gebruiken om het teactiveren


;SCRIPT 2
; Initialisatie
;
StcScriptSdiOn
_.FILEDIA 0
_.CMDDIA 0
;
; Uitvoeren subscripts
;
(if (/= (getvar "DBMOD") 0) (command "_.QSAVE"))
(LAAD LIB_FN "al" 'al_ohupdall)
(AL_OHUPDALL G_STEMPEL)
_.QSAVE
;

;
;
; Terminate
;
_.FILEDIA 1
_.CMDDIA 1
StcScriptSdiRestore
_.QUIT YES


Alvst bedankt

[HofCAD]

Beste Balletje23,

Probeer:

Code Selecteer Uitklappen

(defun C:++()
;LISP 1
(setvar "OSMODE" 0)
(prompt "\n OSNAP For Personal Use has been turned OFF ")
(princ)
)
en

Code Selecteer Uitklappen

(defun C:Stemp()
;SCRIPT 2
; Initialisatie
;
(c:StcScriptSdiOn)
(setvar "FILEDIA" 0)
(setvar "CMDDIA" 0)
;
; Uitvoeren subscripts
;
(if (/= (getvar "DBMOD") 0) (command "_.QSAVE"))
(LAAD LIB_FN "al" 'al_ohupdall)
(AL_OHUPDALL G_STEMPEL)
(command "_.QSAVE")
;
;
;
; Terminate
;
(setvar "FILEDIA" 1)
(setvar "CMDDIA" 1)
(c:StcScriptSdiRestore)
(command "_.QUIT" "_YES")
)
Daar ik niet kan experimenteren met Stabi weet ik niet hoe je StcScriptSdiOn
en StcScriptSdiRestore kan aanspreken.

Met vriendelijke groet, HofCAD CSI.

PS De tekst Heb dit algeprobeert  (defun c:++ () ---dit werkt niet--- snap
ik niet omdat mijn bovenstaande C:++ wel werkt met ++.

[balletje23]

oke bedankt osnap werkt nu met ++ alleen stemp niet ,kom hier misschien op terug, sluit de topic voor nu




bedanktTTTT