Jump to content

lisp zwcad et opendcl


Recommended Posts

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

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...