Date et heure AUTOCAD(Windows) / INTERNET

[l56]

Bonjour,

Les fonctions (getvar "CDATE") et (getvar "DATE") renvoient la date de Windows.

Sauriez-vous comment faire en LISP ou VLISP pour obtenir la date "INTERNET" ?

Merci

L56

[Olivier Eckmann]

Peut-être ici : https://help.autodesk.com/view/ACD/2017/ENU/?guid=GUID-65FBB1A0-F94D-4F75-A56D-3E5BD055ADF8

ou ici : https://hyperpics.blogs.com/beyond_the_ui/2017/02/getting-the-current-datetime-with-autolisp-part-2.html

 

Olivier

[l56]

Merci, j'ai bien regardé et il me semble que tout est basé sur les fonctions d'AUTOCAD : (getvar "CDATE") et (getvar "DATE").

Je cherche un moyen de récupérer la date d'INTERNET à partir d'AUTOCAD, pas la date du PC.

Merci encore

Bonne soirée

L56

[didier]

Bonjour @l56

Il me semble que le "temps" PC est synchronisé sur le temps internet, sauf réglage contradictoire de l'utilisateur et de ce fait, je me demande le pourquoi de cette demande.
Toutefois, je vais suivre la discussion, car je suis intéressé par le "principe" du sujet.

Amicalement

[Fraid]

Bonjour,

Peut être trouveras tu une aide ici.

[Olivier Eckmann]

Salut @Fraid,

 

Je n'y connais rien en python, mais j'ai trouvé ça : https://stackoverflow.com/questions/908550/python-getting-date-online

Ca pourrait faire un cas pratique de mise en œuvre pour @didier notre charmeur de serpent 🙂 

 

Olivier

[Fraid]

Bonjour, 

Effectivement, j'y avais pensé en premier, mais c'est hors sujet car il veut du Lisp.

En fin de compte j'ai trouvé une solution avec un .bat

@echo off
w32tm /resync /force

qui synchronise le PC avec le temps internet, il faut l'exécuter en tant qu'administrateur.

puis tu utilise les fonctions qu'Olivier t'as indiqué.

[Olivier Eckmann]

Bonjour,

Je pense que la demande initiale consiste à récupérer le temps internet et de la comparer avec la date du PC pour vérifier si l'utilisateur n'a pas modifié son PC.

Protection d'un développement peut-être?

Olivier

[Fraid]

Une fonction Autolisp qui lance un petit Python

Le Python à enregistrer à coté du .lsp gettime.py:

import pyperclip
import requests

def gettime():
    reponse = requests.get("http://just-the-time.appspot.com/")
    pyperclip.copy(reponse.text)

if __name__ == "__main__":
    gettime()

L'Autolisp

(defun gettime nil
	(trans-runscr (findfile "gettime.py"))
	(trans-GetClip)
)

cela renvois 2024-02-21 17:02:45 , il faut ajouter 1 heures.

Encore un exemple de simplicité ultime.

il manque les fonctions

; trans-GetClip, Récupère le contenu du Presse-papier
;   Retour: str ou nil
(defun trans-GetClip( / htm res)
	(setq res
		(vlax-invoke
			(vlax-get
				(vlax-get
					(setq htm (vlax-create-object "htmlfile"))
					'ParentWindow
				)
				'ClipBoardData
			)
			'GetData
			"Text"
		)
	)
	(vlax-release-object htm)
	res
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; trans-SetClip, Copie un texte dans le Presse-papier.
;   Arg: str
;   Retour: str
(defun trans-SetClip (text / htm)
	(vlax-invoke
		(vlax-get
			(vlax-get
				(setq htm (vlax-create-object "htmlfile"))
				'ParentWindow
			)
			'ClipBoardData
		)
		'SetData
		"Text"
		text
	)
	(vlax-release-object htm)
	text
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; trans-runscr, Exécute un script.
;   Arg: str, nom du fichier ou chemin complet.
;   Retour: T, si réussi sinon nil.
(defun trans-runscr (file / obj ret)
	(setq ret T) 
	(if (vl-catch-all-error-p 
			(vl-catch-all-apply 
				'vlax-invoke-method 
				(list (setq obj (vlax-get-or-create-object "WScript.Shell"))
					"Run" 
					file 
					0 
					:vlax-true
				)
			)
		)   
		(setq ret nil)
		(vlax-release-object obj)
	)
	ret
)

 

 

Modifié le 21 février par Fraid
Oublie de fonctions