horloge

[JUJUZAZA]

Bonjour,

 

le programme ci-dessous ne fonctionne plus, en le sollicitant j'ai ce message :

 

; erreur : Erreur Automation Problème lors de chargement de VBA.

 

le programme fonctionnait sous la version autaocad 2008 mais plus sous la version 2013.

c'est un compteur de bloc

 

 

 

voici un bout de ce programme pour le rendre fonctionnel , merci d'avance :

 

 

 

(defun c:HORLOGE(/ js bllst ent HORLOGE nb InputBox)

 

(defun InputBox (Titre Message Defaut / users1 valeur)

(setq users1 (getvar "users1"))

(acad-push-dbmod)

(vla-eval (vlax-get-acad-object) (strcat "ThisDrawing.SetVariable \"USERS1\"," "InputBox (\"" Message "\", \"" Titre "\", \"" Defaut "\")"))

(setq valeur (getvar "users1"))

(setvar "users1" users1)

(acad-pop-dbmod)

valeur

)

 

(if (not (eq (setq js (InputBox "Décompte de blocs" "Veuillez donnez un nom de bloc ou * pour tous" "*")) ""))

(if (setq js (ssget (list (cons 0 "INSERT") (cons 2 js))))

(progn

(setq nb 0)

(while (setq ent (ssname js nb))

(setq ent (vlax-ename->vla-object ent))

(if (not (vlax-property-available-p ent 'Path))

(if (vlax-property-available-p)

(setq HORLOGE (append HORLOGE (list (vla-get-EffectiveName ent))))

)

)

(setq HORLOGE (acad_strlsort HORLOGE))

(while (setq ent (car HORLOGE))

(setq nb (length HORLOGE)

HORLOGE (vl-remove ent HORLOGE)

bllst (append bllst (list (cons ent (- nb (length HORLOGE))))))

)

(mapcar '(lambda (x) (princ (strcat "\n- " (itoa (cdr x)) " bloc(s) " (car x)))) bllst)

)

)

)

(princ)

[Julian-Nihon]

Bonjour,

 

Tape VBALOAD dans ta ligne de commande.

Si le module VBA n'est pas installé, autocad t'enverra le télécharger sur son site.

Une fois le module installé, ton programme devrait fonctionner. (Du moins, ça a fonctionne pour moi)

 

Si le module est installe et que ça buggue toujours ... je ne sais pas ...

 

Ju du Japon

 

 PS : et surtout pour la prochaine fois, met ton code entre balise code [ c o d e ] [ / c o d e ] (sans espace biensur)