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
Beste Balletje23,
Probeer:
(defun C:++()
;LISP 1
(setvar "OSMODE" 0)
(prompt "\n OSNAP For Personal Use has been turned OFF ")
(princ)
)
en
(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 ++.
oke bedankt osnap werkt nu met ++ alleen stemp niet ,kom hier misschien op terug, sluit de topic voor nu
bedanktTTTT