bruno_l

essais nentsel

j'ai utilisé adolisp de nombreuse fois avec Mysql sur un serveur dedié , si vous avez des questions sur l'utilisation je peut vous repondre

ca c'est une question qu'il faut poser a http://openoffice.org

doslilb est fichier arx admettons qu'il se nomme 'doslib2k.arx' et qu'il soit dans un repertoire declaré dans "chemin de recherche des fichiers de support" (arxload "doslib2k") pour le charger et la comme par magie les fonctions doslib comme 'dos_copy' apparaissent en bleu dans l'éditeur visual lisp, elle sont donc reconnue comme des fonctions visual lisp (arxunload "doslib2k") pour le decharger

avec doslib la fonction dos_capslock extrait de la doc doslib V5.1 (dos_capslock T) allume la touche caps lock

on peut aussi creer des pdf avec une imprimante pdf sur un serveur GNU/Linux utilisant Samba c'est gratuit, multi utilisateur les pdf sont basique (en ce qui me concerne) il sont carrement non modifiable, on ne peut même pas reccuperer les textes. en fait c'est du postscript transformé en pdf, ca peut etre utile surtout quand on veut transmettre un document avec uniquement la possibilité de l'imprimer ou de le regarder a l'ecran pour le destinataire

pour la beauté du code ? non parce que je suis en autocad 2002 :-)) et pour la beauté du code

je me repond a moi même on selectionne une image (setq ENTITE_IMAGE (car(entsel))) pour avoir le chemin de l'image (vla-get-imagefile (vlax-ename->vla-object ENTITE_IMAGE) ) et devinez pour mettre a jour le chemin de l'image (vla-put-imagefile (vlax-ename->vla-object ENTITE_IMAGE) nouveau_chemin_image) une seule imperative,l'image dans le nouveau chemin doit exister

oui, mais j'ai posté dans visual lisp , c'est a dire que je veut le faire par lisp pour pouvoir le faire automatiquement sur plusieurs centaines de dessins

je cherche un moyen pour soi : remplacer le chemin d'une image inserer du style "g:\truc\bidule\mon_image" en "d:\machin\chose\mon_image" ou transformer une image inserer a la maniere d'une xref (suis je clair ??) en une image inserer et enregistrer dans le dessin. la raison est que l'on a environ 200 fichiers dwg creer, que l'on doit les graver sur cdrom et qu'autocad ne trouve pas le chemin de ces images dans le cdrom

heu .... par une fonction recursive ?

ca a marché du premier coup le copier coller, j'utilise firefox http://mozilla.org ou alors j'ai eu de la chance ?

Mais c'est quoi le clipping de covadis ? et covadis ?

(setq existe (tblsearch "block" "blocporte")) cette ligne retourne un liste se referant au bloc si il existe retourne nil si il n'existe pas (if (null existe)(prompt "exsite pas")(prompt "existe")) ensuite on imprime le resultat du test

par lisp ou vba

pour tous ce qui est interaction avec dos ou windows, il y a doslib plus de renseignements ici: http://www.mcneel.com/doslib.htm

J'é rien konpri

en fait il y avait plusieurs parentheses en trop et l'oeil de lynx c'est l'editeur visual lisp plutot que moi

comme ca ca marche (defun C:TOLE () (setq PTD (getpoint "\npoint de départ : ") L1 (getreal "\nLongueur ondulation 1 : ") L2 (getreal "\nLongueur ondulation 2 : ") E (getreal "\nEpaisseur tole : ") H (getreal "\nHauteur ondulation : ") L10 (/ L1 2) L30 (- (/ L1 2) E) L40 (+ (* E 2) L2) L11 (polar PTD pi L10) E1 (polar L11 (/ pi 2) E) L21 (polar E1 pi L2) E2 (polar L21 (- (/ pi 2) pi) E) L12 (polar E2 pi L10) H1 (polar L12 (/ pi 2) H) L31 (polar H1 (* pi 2) L30) E3 (polar L31 (/ pi 2) E) L41 (polar E3 (* pi 2) L40) E4 (polar L41 (- (/ pi 2) pi) E) L32 (polar E4 (* pi 2) L40) ) ;_ Fin de setq (command "_pline" PTD L11 E1 L21 E2 L12 H1 L31 E3 L41 E4 L32 PTD "") (princ) ) ;_ Fin de defun

Bonjour je cherche comment a chaque fois que je fait ouvrir un fichier, l'editeur me propose automatiquement par exemple "c:\chezmoi\meslisp"

sur quel systeme est ce ? sur un systeme un tant soit peu serieux on ne protege pas les données par l'applicatif, mais par le systeme d'exploitation, en donnant les droits had hoc sur les repertoires ou sont stockés les fichiers a protéger de plus 1) un fichier lisp lisible avec le mot de passe en clair est ce bien raisonnable. 2) on peut toujours arreter l'execution du lisp 3) copier les fichiers, les modifier ailleur, et les replacer

il est serieux le programme la ou c'est juste a titre d'exemple y'en a qu'on pas le droit d'utiliser autocad ! le plus n'est il pas de regler les droit sur le repertoire d'installation d'autocad car pour passer outre, un simple escap suffit !!

ce sont les trois fichiers pdf livré avec autocad 2000 c'est tout en anglais, mais bon on s'y fait :-) par contre je ne sais pas si pour la 2002 il existent ?

un pti bout de code finalement il est bien mon livre (defun CHOIX_REAC (A B) (setq premier a deuxieme b) (setq def_entite (entget (cadr deuxieme))) (setq type_entite (cdr(assoc 0 def_entite))) ;_ Fin de cond ) (vlr-acdb-reactor nil '((:vlr-objectappended . choix_reac)))

j'ai trouvé le reacteur had hoc c'est "vlr-docmanager-reactor" et sont event name ":vlr-documentbecamecurrent" un petit test (defun CHOIX_REAC (A B) (alert "salut") ;_ Fin de cond ) (vlr-docmanager-reactor NIL '((:vlr-documentbecamecurrent . CHOIX_REAC))) quand on passe sur le plan ou a été executé le code une case de dialogue apparait