BIM G CO

avec la déclaration de chemin je vais l'essayer sur : des NT4 + Office 97 (ou Office 2000) avec AutoCAD 2005 des W2k + Office 2000 (ou Office XP) avec AutoCAD 2005 WXP (SP1)+ Office XP (2002 ou oFFice10) avec AutoCAD 2005 PS: j'ai créer un (defun c:excel ()) pour charger excel à partir d'AutoCAD mais j'ai des erreurs si je le tape une deuxième fois alors que je viens de le fermer par inadvertance! va falloir que je regarde cà de plus prêt!

mais il faut que tu sache Excel10.olb n'existe pas!

en insérant le code çà ira mieux ((= (strcase (vl-filename-base (vl-filename-directory Chemin_Excel)) ) "OFFICE11" ) (setq Version_Excel "2003") ) ((= (strcase (vl-filename-base (vl-filename-directory Chemin_Excel)) ) "OFFICE10" ) (setq Version_Excel "XP") )

c'est tout simpliment qu'il manque un [surligneur] STRCASE[/surligneur] le Chemin qu'il me donne c'est en minuscule d'où l'erreur je viens de le découvrir ce midi ;) :cool: :cool:

Explication : Commande: (setq Chemin_Excel (_> (vl-registry-read ((_> "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Excel.EXE" ((_> "Path" ((_> ) (_> ) "C:\\Program Files\\Microsoft Office\\Office10\\" Je suis allé dans l'explorateur dans ce dossier pour chercher [surligneur] "Excel10.olb"[/surligneur]. hé bien Patrick_35 il n'existe pas dans l'Office XP (2002) j'ai fais ensuite un [surligneur] "DIR"[/surligneur] de dos dans ce dossier : 13/03/1999 01:45 57 344 GREN50.OLB 02/11/1998 12:30 61 952 GRFR50.OLB 20/02/2001 04:12 626 688 MSWORD.OLB 08/03/2000 04:45 237 568 XL5EN32.OLB 02/11/1998 12:30 258 048 XL5FR32.OLB Alors je crois que je vais essayer de remplacer le [surligneur] "Excel10.olb"[/surligneur] par [surligneur] "Excel.exe"[/surligneur] pour voir si cela fonctionne! comme l'a dit Serge dans celui du 13/12/2004 sujet "AutoCAD et Excel" . Le pire c'est que j'en ai besoin car nous avons plusieurs versions de Office (97,2000,XP). Je dois faire ensorte que ca marche sur mon PC pour ensuite le publier sur le réseau. J'ai l'intention de l'utiliser pour rapatrier notre liste de radiateurs (faites à partir d'un logiciel de calcul RT2000 qui exporte en Excel)sur AutoCAD en me servant d'autres fichiers EXCEL pour la bibliothèque des rad (rendu graphique différent selon les marques et modèles de radiateurs)

"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Excel.EXE" "Path") "C:\\Program Files\\Microsoft Office\\Office10\\"

pourtant en intercalant un (print Chemin_Excel") "C:\\Program Files\\Microsoft Office\\Office10\\Excel.exe"

:( XP PRO SP1 avec Office XP (2002) je ne peux pas installer le sp2 car nous avons des logiciels incompatibles avec ! bah avec 2 \ ou 1 \ et même / (1 ou 2) ca ne fonctionne pas

J'ai cherché de mon coté et j'ai trouvé autrement Patrick_35.(merci quand même :cool: ) J'utilise une fonctionnalité de AutoCAD 2005 (comme tout le BE a une version 2005 c'est OK) ARG_EntMTEXT = (entget (car (entsel))) d'un texte MULTILIGNE (nth 0 PUBLIC_STYLE_TXT) = 1.05 (pour le calcul de l'offset de wipeout) (if (assoc 90 ARG_EntMTEXT) (setq ARG_EntMTEXT (subst (cons 90 3) (assoc 90 ARG_EntMTEXT) ARG_EntMTEXT)) (setq ARG_EntMTEXT (append ARG_EntMTEXT (list (cons 90 3))))) (if (assoc 63 ARG_EntMTEXT) (setq ARG_EntMTEXT (subst (cons 63 9) (assoc 63 ARG_EntMTEXT) ARG_EntMTEXT)) (setq ARG_EntMTEXT (append ARG_EntMTEXT (list (cons 63 9))))) (if (assoc 421 ARG_EntMTEXT) (setq ARG_EntMTEXT (subst (cons 421 13158600) (assoc 421 ARG_EntMTEXT) ARG_EntMTEXT)) (setq ARG_EntMTEXT (append ARG_EntMTEXT (list (cons 421 13158600))))) (if (assoc 45 ARG_EntMTEXT) (setq ARG_EntMTEXT (subst (cons 45 (sqrt (nth 0 PUBLIC_STYLE_TXT))) (assoc 45 ARG_EntMTEXT) ARG_EntMTEXT)) (setq ARG_EntMTEXT (append ARG_EntMTEXT (list (cons 45 (sqrt (nth 0 PUBLIC_STYLE_TXT))))))) (if (assoc 441 ARG_EntMTEXT) (setq ARG_EntMTEXT (subst (cons 441 -1) (assoc 441 ARG_EntMTEXT) ARG_EntMTEXT)) (setq ARG_EntMTEXT (append ARG_EntMTEXT (list (cons 441 -1))))) (entmod ARG_EntMTEXT) Remarque ce code ne fonctionne qu'à partir d'autoCAD 2005 il est inopérant pour les versions antérieures (testé sur une 2004) Nota : le code DXF 45 correspond à l'offset de la commande WipeOUT mais il est totalement modifiable indépendamment .... ouf! pour moi environ 25 % c'est largement suffisant

le code 441 correspond au couleur 32 bits donc pour avoir du vide de cher vide il faut affecter au 441 (2 à la puissance 32) - 1 et là malheur AutoCAD ne le gère pas avec la fonction expt Commande: (expt 2 30) 1073741824 Commande: (expt 2 31) -2147483648 Alors je prend ma bonne Casio fx 7000 2^32=4.294.967.296 affectez donc 4.294.967.295 au code 441 pour le masquage du texte multiligne (pour les versions autoCAD 2005)

le problème c'est que je reste bloqué dans la fonction c:textmask car même : (sssetfirst nil (ssadd (cdr (assoc -1 ARG_EntMTEXT))))(c:textmask)_P ne donne rien

ça me donne rien, ca reste sur la ligne de commande. (c:textmask)(cdr (assoc -1 ARG_EntMTEXT))"" et trop d'argument pour celle là (c:textmask (cdr (assoc -1 ARG_EntMTEXT)) "")

merci Patrick_35 (foreach n1 ARG_EntLINE (command "_.draworder" (cdr (assoc -1 n1)) "" "_above" (cdr (assoc -1 ARG_EntMTEXT)) "") ) en sachant que ARG_EntMTEXT = (entget .....) du texte ARG_EntLINE = (list (enget...)..) de toutes les lignes attaché au texte il me reste l'histoire du masquage de ce f*** texte

Je suis en train de créer un AutoLISP qui créé des lignes de repère personnalisée au bureau. La commande "_leader" a dû être abandonné par DECRET patronal. - Je travaille avec AutoCAD 2005 (pas besoin de dire en version pleine :cool: ) - je trace donc des lignes (avec toutes les caractéristiques) c'est OK - j'ajoute un texte Mulltiligne (avec le bon style ) çà c'est OK - je souligne avec le bon décalage chaque ligne de texte correspondant à cette ligne de repère (utilisation des code DXF 10, 40, 41, 42, 43, 44. Mon problème est : je désirerait cacher ce qu'il y a derrière les textes. Or (command "TEXTMASK") me retourne comme quoi cette commande ne fonctionne pas. J'ai cherché un autre moyen. Avec AutoCAD 2005 dans les propriétés on a la possibilité de masqué un teste multiligne j'ai donc lu les codes DXF du texte à chaque état de masquage : Entité non masquée: "Bibliothèque:" (0 . "STYLE") (2 . "Standard") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 0.2) (3 . "txt") (4 . "") "Contenu entité:" (-1 . ) (0 . "MTEXT") (330 . ) (5 . "169") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbMText") (10 -0.100979 8.16674 0.0) (40 . 0.2) (41 . 4.82053) (71 . 1) (72 . 5) (1 . "Texte de test Masquage") (7 . "Standard") (210 0.0 0.0 1.0)(11 1.0 0.0 0.0) (42 . 4.33333) (43 . 0.266667) (50 . 0.0) (73 . 1) (44 . 1.0) "Contenu entité devenue masquée:" (-1 . ) ... [surligneur] (90 . 3) (63 . 9) (421 . 13158600) (45 . 1.5)[/surligneur] [surligneur] (441 . 7668844)[/surligneur] "Contenu entité devenue masquée:" texte surligné effacé et remplacé par [surligneur] (90 . 2)[/surligneur] Or malheureusement en testant sur plusieurs Textes multiligne la valeur de la paire pointée 441 change. je suis bloqué là Bon mais ensuite lorsque ce texte multiligne est masqué les lignes soulignant le texte sont masquée elles aussi (la soulution du soulignement du texte %%u est insatisfaisante par DECRET patronal) et un command ("DRAWORDER") ou (ai_draworder "_F") Entity .... ne fonctionne pas. Je trouverai dommage de devoir supprimer à chaque masquage de texte les lignes pour relancer instantanément aprèsle soulignage. je suis bloqué là 1ère question : quelqu'un a-t-il trouvé à quoi correspond le code 441 et comment la calculer ? (elle change à chaque nouveau MTEXT") (la solution de rajouter encore un solide n'est pas satisfaisante http:// http://www.cadxp.com/sujetXForum-2471.htm) 2ème question : comment intégrer draworder dans un lisp car je viens de chercher dans le forum et la solution proposée ne fonctionne pas chez moi [surligneur] ((command "_.draworder" (cdar dxf_ent) "" "_above" mask_txt)[/surligneur])

avec $(edtime, $(getvar,date),DDD"," DD MON YYYY - H:MMam/pm) j'utilise une version pleine alors je sais pas comment renvoyer les deux Variables surligné DATE est une chaine de caractère (getvar 'DWGNAME) : nomdufichier setq jour (menucmd "M=$(edtime,$(getvar,DATE),DD)") mois (menucmd "M=$(edtime,$(getvar,DATE),MO)") annee (menucmd "M=$(edtime,$(getvar,DATE),YY)") DATE (strcat jour "/" mois "/" annee)) et un petit script : (command "_-ATTEDIT" "N" "N" "CARTOUCHE_RECEPTION" "JJ-MM-AAAA" ;Etiquette de l'attibut "DATE" ;Valeur par défaut de l'etiquette "DATE" ; Ancienne Valeur [surligneur] DATE[/surligneur] ) (command "_-ATTEDIT" "N" "N" "CARTOUCHE_RECEPTION" "FICHIER" "NOMFICHIER" "NOMFICHIER" [surligneur] (getvar 'DWGNAME)[/surligneur] )

(ExpressTools nécessaire) peut-être un Wipeout (si tu les coupent rarement) dessine une polyligne fermée. tape à la ligne de commande Commande: wipeout Spécifiez le premier point ou [Cadres/Polyligne] : Sélectionnez une polyligne fermée: Effacer la polyligne? [Oui/Non] :

le pire c'est qu'en lisp : (setq ANGLE_DEGRE (atoi (angtos ANGLE_RADIAN 0 4))) (setq ANGLE_RADIAN (angtof (itoa ANGLE_DEGRE) 0) A voir dans l'aide les fonctions - [surligneur] itoa[/surligneur] et [surligneur] atoi[/surligneur]............... Aïoli ???? - [surligneur] angtos[/surligneur] et [surligneur] angtof[/surligneur] ....... çà doit être la grippe CADienne (tof... tof)

à la place d'un while, pour les puriste un foreach fonctionne aussi!

essaye la fonction layoulist sur la ligne de commande : (n'oublies pas les parenthèses) Commande: (layoutlist) ("1-100ème au mètre" "8872-PS1" "MASSE" "R+ (0)" "R+ (1)" "R+ (2)" "R+ (3)" "R+ (4)" "R+ (5)" "SOUS-SOL") si cette fonction ne fonctionne pas, à voir si ton installation d'AutoCAD est correct. Etant donné que (layoutlist) est présent dans l'aide [b] layoutlist Function [/b] Returns a list of all paper space layouts in the current drawing (layoutlist) [u] Return Values [/u] A list of strings. [u] Examples[/u] Command: (layoutlist) [i] ("Layout1" "Layout2")[/i] Je ne sais pas s'il faut les ExpressTools (présent dans les CD d'installation AutoCAD)

Une question combien de démo on peut commander ? et peut-on les cumuler? pour avoir au final sur un poste AutoCAD 2005 sur 365.25 jours : 500 €/ an (tiens tiens c'est ce que nous payons pour l'abonnement) :cool: oui délire de Troll

et en décalant le problème insérant le bloc d'avance le point d'insertion? la variable autoCAD "VIEWCTR" milieu de l'écran je croit et ensuite de déplacer ce bloc (peut-être là on le voit non?

il nous faudrai plus d'info? as-tu créer le PC3 à partir de l'imprimante système? y a t il eu un changement du nom de l'imprimante? ....

bon j'ai trouvé un exemple mais en faisant echelle 2.54 c'est ok j'arrive pas à retrouver celui sur lequel j'ai dû décomposer les cotes

- pour assemblez plusieurs fichier PDF je crois qu'il existe quelques gratuiciels. - en ce qui concerne le FILEDIA et le CMDECHO c'est comme on veut CMDECHO = 1 pour voir défiler les lignes, perso ça fait toujours beau de montrer que l'ordi bosse tout seul, on peut boire son café tranquille. (avec l'aide de la commande "_.TextScr" c'est le pied :cool: ) FILEDIA=1 la commande "_-PLOT " le fait sans problème.

Tout dépend de la variable "ANGDIR" affecté au "Model" .... à mon avis.