Préparation des xref

[jc1932]

Bonjour,

Je ne sais pas du tout programmer, mais j'ai le projet suivant :

Ouverture d'un dessin fourni par l'archi

Soit appel d'un lisp, ou mieux, appui sur un bouton qui :

- supprime toutes les présentations

- change la couleur de tous les calques en couleur 8 et tous les objets en couleur Ducalque (voir lisp joint)

- réinitialise la liste des échelles (-scalelistedit / r / o / q) (je suis sous Autocad 2008 ;))

- purge tout

- zoom étendu

- enregistrer sous

 

J'ai un lisp que j'utilise pour modifier les couleurs :

 

(defun c:majfdp()

(setq couleur nil)

 

(setq couleur (acad_colordlg 8 nil))

(command "_-layer" "_color" couleur "*" "")

 

(setq couleur nil)

(setq couleur (acad_colordlg 256))

(setq nbent 0)

 

(if (/= couleur nil)

(progn

(setq blo (tblnext "block" T))

 

(while (/= blo nil)

(print (strcat "\nTraitement du bloc : " (cdr (assoc 2 blo))))

(modif_bloc blo)

(setq blo (tblnext "block"))

)

(print)

 

(setq ent (entnext))

 

(while (/= ent nil)

(setq nbent (+ nbent 1))

 

(setq lis (entget ent))

 

(if (= couleur 256)

(progn

(if (/= (cdr (assoc 62 lis)) nil)

(progn

(setq lis (subst (cons 62 couleur) (assoc 62 lis) lis))

(entmod lis)

)

)

)

 

(progn

(if (/= (cdr (assoc 62 lis)) nil)

(progn

(setq lis (subst (cons 62 couleur) (assoc 62 lis) lis))

(entmod lis)

)

(progn

(setq lis (append lis (list (cons 62 couleur))))

(entmod lis)

)

)

)

)

(princ (strcat (chr 13) "Nb entites traitees : " (rtos nbent 2 0)))

(setq ent (entnext ent))

)

)

)

(print)

 

(command "_regen")

(princ)

)

 

(defun modif_bloc(blo_mod)

(setq ent (cdr (assoc -2 blo_mod)))

 

(while (/= ent nil)

(setq lis (entget ent))

 

(if (= couleur 256)

(progn

(if (/= (cdr (assoc 62 lis)) nil)

(progn

(setq lis (subst (cons 62 couleur) (assoc 62 lis) lis))

(entmod lis)

)

)

)

 

(progn

(if (/= (cdr (assoc 62 lis)) nil)

(progn

(setq lis (subst (cons 62 couleur) (assoc 62 lis) lis))

(entmod lis)

)

(progn

(setq lis (append lis (list (cons 62 couleur))))

(entmod lis)

)

)

)

)

 

 

(setq ent (entnext ent))

)

 

(princ (strcat (chr 13) "Traitement du bloc : " (cdr (assoc 2 blo)) " -> OK"))

)

 

 

 

Mes questions sont :

 

Que vaut il mieux utiliser? Lisp? Visual lisp? VB? VBA? Sachant que je ne connais aucun langage de programmation, autant m'orienter vers un seul pour débuter. Selon vous, lequel serait le plus efficace, polyvalent, et accessible?

 

J''ai un petit script pour purger les échelles, qui utilise -scalelistedit; existe t-il un dictionnaire des commandes français-anglais?

 

Comment faire pour utiliser ce commandes, issues du lisp et du script, de la façon la plus efficace et propre possible?

 

Note : je ne m'attend pas à ce que quelqu'un me fasse le boulot, je voudrais surtout gagner du temps en apprenant le bon langage du premier coup, et les bonnes façons de faire.

 

Merci d'avance pour vos réponses

 

 

 

Comment vous faites pour afficher vos lignes de code? il y a des balises à utiliser?

 

 

 

[Edité le 16/7/2008 par jc1932]