lisp zwcad et opendcl

[arnaudalp 2]

Bonjour

Je teste actuellement une version de zwcad.

Je cherche notamment à voir le comportement de mes lisps.

 

Outre les adaptations de commandes, j'ai un gros soucis avec opendcl.

Je ne sais pas comment charger ma fenêtre.

 

Actuellement, j'entame mes lisps de la manière suivante, pour vérifier le chargement des arx sur autocad :

;;chargement des arx pour boite de dialogue

(defun charge_opendcl (/ nomodcl)
 ;; choix arx 32 ou 64 bit
 (if (wcmatch (getvar "PLATFORM") "*64*")
   (progn ;; le cas 64 bit
   (setq nomodcl
	  (strcat "Opendcl.x64." (substr (getvar "ACADVER") 1 2))
   )
   (if (not (member nomodcl (arx)))
     (arxload (findfile (strcat nomodcl ".arx"))
	      "OpenDCL Introuvable"
     )
   )
   )
   (progn ;; le cas 32 bit
   (setq nomodcl (strcat "Opendcl." (substr (getvar "ACADVER") 1 2)))
   (if (not (member nomodcl (arx)))
     (arxload (findfile (strcat nomodcl ".arx"))
	      "OpenDCL Introuvable"
     )
   )
   )
 )
)

 

Zwcad ne fonctionne pas avec des arx mais des zrx.

J'ai installé l'applicatif envoyé par zwsoft pour l'installation des zrx.

Cependant, je ne sais pas comment modifier mon lisp pour qu'il m'ouvre la boite OpenDCL...

 

Merci de votre aide

 

Arnaud