CADxp: lisp zwcad et opendcl - CADxp

Aller au contenu

Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

lisp zwcad et opendcl

#1 L'utilisateur est hors-ligne   arnaudalp 

  • ceinture bleue
  • Groupe : Membres
  • Messages : 155
  • Inscrit(e) : 18-janvier 16

Posté 23 janvier 2017 - 11:43

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
0

Partager ce sujet :


Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

1 utilisateur(s) en train de lire ce sujet
0 membre(s), 1 invité(s), 0 utilisateur(s) anonyme(s)