stephan35

Bien vux ! :D T'aurais pas par hazar la variable ou la commande qui pilote cet case ??? Merci !

Bonjour, Je cherche à cacher visuellement les onglet de présentation, donc à les supprimer, >Presentation >EFfacer ... ok pour l'effacer, mais reste l'onglet ! comment fait-on ??? Merci

J'ai un pdf qui explique en détail le vlisp, cependant, malheureusement, on ne peut pas parler de correspondance .... Si tu souhaites ce fichier, donne moi ton adresse courriel en precisant en toute lettre arobase et point pour eviter les spams ou par message privé

Je dois être un peu trop cartésien .... Pour moi seul l'entmod compte et fonctionnait dans les lisps .... Donc je faisais un entmod de mon entget modifié, puis un regen global .... On m'aurait menti ??? donc pas la peine de me tuer à la tache basculement Lisp > Vlisp ? :casstet: Quel est l'intérêt du Vlisp dans ce cas ? :casstet: Je peu conserver mes programmes Lisp ? :casstet:

Opps, Parler trop vite .... ça ne marche pas ! Je cherche un peu ! Merci

Ok, merci ! Moi qui pensait trouver l'équivalent de (entmod ...) (entupd ...) (redraw ... 1) en vlisp :casstet: Pffff ! A+

y-a-til une solution pour charger la vidéo complête ? Trop beau ...

Bonjour à tous, Après avoir repiqué du code pour modifié des attributs en vlisp, j'ai un problème de mise à jour, qlqun peut-il m'aider svp ? (if(=(vla-get-ObjectName i)"AcDbAttributeDefinition") (progn (print "x") (print (vla-get-height i)) (vla-put-height i (* (vla-get-height i) scala)) (vla-update i) ) ) J'ai du oublié un truc ? :casstet: Merci !

Merci Tramber pour ton soutient ;) Ps : ta ceinture noir a décolorée .... :D A+

Si tu peux attendre un peu je vais creer un objet qui , suivant les parametres , modifiera tel ou tel caractéristique sur une entité ... D'ici vendredi ? ;)

il parait que le vin bas-rhinois est "suuuurrrrrrrrrrrrr" je traduis pour les néophites : "acide" ..... ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;)

Dit voir , Si tu suis de près opendcl et que tu exploites ce produit, serais-tu ok pour leur retransmettre avec moi les bugs constatés ??? because my english is very poor ..... De plus La fichier arx une fois renommé ne fonctionnait pas, de toute facon si je ne peut pas charger la version 2007 de l'arx (?) seul la version 2004 4.0.0.x fonctionne (normalement ...) ;) Donc je maintiens, sur la 2006 plantage depuis la 4.0.0.16 , le controltab ne passe pas ! sur le 4.0.0.17 plantage global ! Merci A+ [Edité le 27/2/2007 par stephan35]

Si tu te débrouilles pas mal en lisp, tu devrais t'en sortir .... ;) les exemples fournis sont dissociés par rapport aux fonctions traitées car mes dev sont orientés objets ... De plus il va te manquer tout ce qui est procédure de connection et test mdb ... a voir fonctionne avec adolisp Extraction d'une liste de bocs et sauvegarde dans une bd : ;_*********************************************************************************************************** ;_ TRAITEMENT NUAGES VERSION BD (if (= $CHECKSUM nil)(setq $CHECKSUM (@Macro_checksum_fichier (strcat (getvar "DWGPREFIX")(getvar "DWGNAME"))))) ;Supprime de la base le folio en cours (@Macro_execute_sql (strcat "DELETE FROM " $AFF $TRANCHE "DOS WHERE FONC='NUA' AND DWG='" (getvar "DWGNAME") "'")) ;Ajoute dans la base le folio en cours (@Macro_execute_sql (strcat "INSERT INTO " $AFF $TRANCHE "DOS(FONC,CHK,FOL,AFF,DWG,CHKS) VALUES ('" "NUA" "','" "#CHECK" "','" (nth 1 &NFOL_FOLIO) "','" $Affaire "','" (strcase (getvar "DWGNAME")) "','" $checksum "')" )) ;_*********************************************************************************************************** ;_ TRAITEMENT DES DONNES NUAGES ; toutes les entit‚s Polyligne dont l"‚paisseur = 0.618 (setq &ssPline (ssget "X" '((0 . "POLYLINE") (40 . 0.618)))) (setq &ssLWPline (ssget "X" '((0 . "LWPOLYLINE") (40 . 0.618)))) ; tous les blocs Triangles (setq &ssTriangle (ssget "X" '((2 . "TRIANGLE")))) (if (/= &ssTriangle nil) (progn (setq #Compteur 0) (repeat (sslength &ssTriangle) (setq $Nom_entite_Bloc (ssname &ssTriangle #Compteur)) (setq $indice (@Macro_scan_bloc_attrib_valeur "INDICE" $Nom_entite_Bloc)) (if (/= $indice "") (progn ;Ajoute dans la base le folio en cours (@Macro_execute_sql (strcat "INSERT INTO " $AFF $TRANCHE "DOS(FONC,CHK,FOL,AFF,DWG,CHKS) VALUES ('" "NUA" "','" $indice "','" (nth 1 &NFOL_FOLIO) "','" $Affaire "','" (strcase (getvar "DWGNAME")) "','" $checksum "')" )) ) (progn ;Ajoute dans la base le folio en cours (@Macro_execute_sql (strcat "INSERT INTO " $AFF $TRANCHE "DOS(FONC,CHK,FOL,AFF,DWG,CHKS) VALUES ('" "NUA" "','" "#TRIANGLEVIDE" "','" (nth 1 &NFOL_FOLIO) "','" $Affaire "','" (strcase (getvar "DWGNAME")) "','" $checksum "')" )) ) ) (setq #Compteur (1+ #Compteur));Incrémente le compteur ) ) ; Traitement du cas de pas d'indice trouvé (progn ; Cas pas de triangle trouvé mais des nuages quand même ! (if(or (/= &ssLWPline nil)(/= &ssPline nil)) (progn (@Macro_execute_sql (strcat "INSERT INTO " $AFF $TRANCHE "DOS(FONC,CHK,FOL,AFF,DWG,CHKS) VALUES ('" "NUA" "','" "#PASDETRIANGLE" "','" (nth 1 &NFOL_FOLIO) "','" $Affaire "','" (strcase (getvar "DWGNAME")) "','" $checksum "')" )) ) ) ) ) extraction du contenu d'un attribut, dans ce scan tu ajoutes l'extraction du nom du plan (8) de mémoire (defun @Macro_scan_bloc_attrib_valeur ($ATTRIB #name_entite_block / #name_ent #ent #type_ent #ETQ #FOLIO_CODE_8 #RESULT1 $Sortie) (if (not @DEBUG_MACRO)(prompt (strcat "\n.............[@Macro_scan_bloc_attrib_valeur]""<"$attrib">"))) (load (strcat $drive "MACRO\\@Macro_scan_bloc_attrib_valeur")) ) ;(prompt (strcat "\nRecherche dans :"))(print #name_entite_block) ;(prompt (strcat "\nRecherche de :"))(print $ATTRIB) (setq @MACRO "@Macro_scan_bloc_attrib_valeur") (if (/= #name_entite_block nil) (progn (setq #RESULT1 nil) (setq #name_ent #name_entite_block) (setq #ent (entget #name_entite_block)) (setq #type_ent (cdr (assoc 0 #ent))) (setq #FOLIO_CODE_8 (cdr (assoc 8 #ent))) ;(while (/= #type_ent "SEQEND") (while (and (/= #type_ent "SEQEND") (/= (entnext #name_ent) nil)) ; Correction Bug ?? (progn ;(print #name_ent) (setq #ent (entget (setq #name_ent (entnext #name_ent)))) (setq #type_ent (cdr (assoc 0 #ent))) (if (= #type_ent "ATTRIB") (progn ; Debug ;(prompt (strcat "\nValeur :" ; (cdr (assoc 2 #ent)) ; " Compare :" ; $ATTRIB ; ) ;) (if (= (cdr (assoc 2 #ent)) $ATTRIB) (progn ;(princ #ent) ;Debug ;(if (= nil #RESULT1) ; Debug ;(prompt (strcat "\nValeur Attribut :" ; (cdr (assoc 1 #ent)) ; ) ;) (if (or (/= (cdr (assoc 1 #ent)) nil) (/= (cdr (assoc 1 #ent)) "") ) (progn (setq $Sortie (cdr (assoc 1 #ent))) ;(prompt "\n Valeur interne :") ;(princ $Sortie) ) ) ) ) ) ) ) ) ; fin test sequence (if (/= nil $Sortie) (progn ;(prompt "\n Valeur memorise :") (setq @MACRO "") (setq $Sortie $Sortie) ) ) ) ) L'écriture dans un attribut (defun @Macro_ecrire_attrib (#Name_ent $Valeur #error / $entget) (if (not @DEBUG_MACRO)(prompt (strcat "\n.............[@Macro_ecrire_attrib]""<"$Valeur ">"))) (setq @MACRO "@Macro_ecrire_attrib") (load (strcat $drive "MACRO\\@Macro_ecrire_attrib")) (setq @MACRO "") ) (setq $entget (entget #Name_ent)) (redraw #Name_ent 2) (setq $entget (subst (cons '1 $Valeur) (assoc 1 $entget) $entget)) (entmod $entget) ;(entupd #Name_ent) ;(redraw #Name_ent 1) [surligneur] tout ceci peut-être largement simplifié en vlisp ![/surligneur] Et je devrais y passer dans pas longtemps .... en espérant que tu y trouves ton bonheur ...

Ma belle soeur habite vern/seiche, perso j'ai quitté rennes il y a 2 mois pour aller à Saint thurial (près de mordelle .. vive la campagne !) A+ Ps: tramber t'en a mis une petite ... ;)

Gagné .... :D Merci, étant passé d'une V14 à une 2006 ..... certaines fonctionnalités m'ont échapées .... ;) Merci tramber !

La 4.0.0.17 d'openDCL est dispo ..... Comment fait-on pour remonter les bugs ???? Merci ... Suite ... J'ouvre l'odc et je le sauvegarde avec la 4.0.0.17 Je met en place l'arx correspondant ..... et ..... Euuhhh .... Rien ne fonctionne avec celle-ci, plantage magistral , je suis obligé de killer autocad dans le tasklist ! :mad: [Edité le 27/2/2007 par stephan35]

Pour info, On a 35 pc études en réseau, on a créé un disque X: qui correspond à un disque réseau, tous les menus, toutes les bibliothèque et les bases de données pointes dessus ... :thumbup: Donc tout le monde y a accès, la partie dev de bibliothèque se fait sur un autre disque (y:), avec une variable Lisp (setq disque "Y:\\") ou (setq disque "X:\\") on bascule sur un disque ou l'autre ... Finger in the noose ? Pour le partage, je n'ai pas trouvé mieux ... A+

Désolé, je ne connais pas cet outils, de plus je n'ai pas très bien compris ce que tu voulais faire ... ;) Vois avec patrick_35, ou envoie lui un message privé, il te répondra ... A+

On est presque voisin .... et non je ne pense pas que l'on se connaisse ... Bonne soirée ;)

Pour internet, il me semble que le Dwf soit le plus adapté, natif autocad , il permet la visualisation directe des fichiers sur le net .... ;) http://www.autodesk.fr/adsk/servlet/index?siteID=458335&id=6480585 A+

OOPS Mon exemple fournis fonctionne uniquement sur les attributs, cela t'oblige à scruter toute la base d'entité du bloc pour modifier la taille du texte , si c'est un TEXTE que tu veux modifier ... :casstet: L'exmple de patrick_35 est + court et fonctionne ..... (Merci patrick_35 ... il fait beau du coté d'amanlis ???)

Salut, La mécanique n'est pas mon domaine ... et les bons logiciels gratuits son rare ! A mon avis en cherchant bien sur le net tu pourrais trouver des versions d'evaluations ... voir gratuite :casstet: http:// http://216.239.59.104/search?q=cache:lte-wzVHoMIJ:www.toocharger.com/windows/multimedia/dessin_technique/+logiciel+dessin+mecanique+gratuit&hl=fr&ct=clnk&cd=1&gl=fr Bon courrage ! A +

Salut ! Pour moi oui ! no soucy, En lisp Il faut faire une selection globale des bloc avec SSGET + filtre Puis une scrutation totale des entité, en extraire le calque d'insertion, puis ecrire dans le valeur de l'attribut ce que tu y souhaite, Cependant cela demandera plus de paramétrages et de précision pour le fonctionnement reel. A+ ;)

Salut, essai avec ça : (setq x4(nentsel)) (if (/= x4 nil) (progn (setq x40 (entget (car x4))) (setq #type0 (cdr(assoc 0(entget(car x4))))) (if (or (= #type0 "TEXT")(= #type0 "ATTRIB")) (progn (prompt "\nOk pour entitée selectionnée") ;Recopie du contenu dans la destination (princ (strcat " " (cdr (assoc 1 x40)) "->" X3)) (redraw (car x4) 2) (setq x40 (subst (cons '1 X3) (assoc 1 X40) x40)) (entmod x40) (entupd (car x4)) (redraw (car x4) 1) ) (progn (prompt "\nNégatif pour ce type d'entitée") ) ) ) (setq fffff "ok") ) X3 contient la valeur du texte à changer, Maintnenant ut modifie le code, avec (cons '1 par la bonne valeur, ainsi que (assoc 1 je n'ai pas vérifié ! Bon courrage ;)

Salut Le métafichier wmf est un format image windows (format propriétaire), autocad sait générer ce type de fichier avec la commande exporter. :D