Pako

Donc, aucune possibilité en VBA ? dak !

Thank You ! mdsv31 Je vais regarder cela de plus près ! :exclam:

Content pour toé, Lordbyron ! Cela vaut bien une donation pour encourager notre webmaster et son super site : voir - http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=2044 [Edité le 13/10/2004 par Pako]

Exist-il une méthode pour remplir par programmation les champs dans le Drawing Properties ? Exemple : le champ Author dans Summary = loginname Merci ! les pros ! ;)

créer un dessin en format dxf Impossible :mad2: créer un wblock Impossible :casstet: créer une sauvegarde sous une vieille version (comme la version 2000) :D Wourra ! Merci Patrick_35 ! Lordbyron, voici la solution : 1- Sauvegarder ton dessin en format 2000 d'Autocad (Save As) 2- Ouvrir avec Recover le nouveau dessin (remarque le dessin a seulement 1 objet en eNullObjectId) 3- Re-sauvegarde le nouveau dessin en format 2000 d'Autocad (Save As) 4- Re-ouvrir avec Recover le nouveau nouveau dessin ( remarque aucun objet en eNullObjectId) 5- Enregister ..... 6- Faire un PURGE......sa plante plus WOURRA ! Vive la communauté CADxp pis son Webmaster ! ;)

Notre ami Lordbyron A un gros problème avec son dessin (tel exprimer dans différents sujets auparavant), lors de l'ouverture (avec un recover) deux messages ( 2 objets ) de eNullObjectId s'afficher dans la barre de commande. Ce qui a pour résultat qu'on ne peux pas créer aucun Wblock, aucun purge, aucun copie/coller, aucun DXF, ect..... un tas de problèmes. Hypothèse : Autocad trouve des Objects qui ne reconnait plus ou pas dans son dessin, et losrqu'il vaut modifié ces objets, il plante.....mistère ! J'ai essayé de récupérer son dessin avec une requête dans Autodesk Map, impossible ! Quelqu'un aurait une idée ? [Edité le 12/10/2004 par Pako]

Essaye avec la commande _.CLOSE (avec un point devant la commande) Noter la commande : CLOSE : Ferme le dessin de la fenêtre active. CLOSEALL : Ferme tous les dessins. QUIT ou EXIT : Ferme le logiciel.

Il faut trouvé un BATCH PLOT compatible avec ton version, une petite recherche avec www.google.com. Dans la version 14 d'Autocad, le BATCH PLOT était intégré avec les Tools fourni avec le logiciel. Depuis, cette utilitaire semble plus fourni ou abondonnée par Autodesk . Tu peux essayer (non testé) ce petit utilitaire : LTools Batch Plot http://www.caddepot.com/dcd1/Autodesk/LT/index-4.html Bonne Chance !

Salut bonuscad, Ton pti-prog me semble intéressant, j'ai voulu faire l'essaie. Impossible : Command: ; error: extra cdrs in dotted pair on input Merci !

Je ne connais pas la source de ton message d'erreur. Mais si le message s'affiche seulement dans un de tes dessins, tu peux me l'envoyer par courriel. Je peux le récupérer avec Autodesk Map par requête ! pako35@hotmail.com ;)

Je ne connais pas la source de ton message d'erreur. Mais si cette message s'affiche seulement dans un de tes dessins, tu peux me l'envoyer par courriel. Je peux le récupérer avec Autodesk Map par requête ! pako35@hotmail.com ;)

test test test test ;)

Finalement mon crie de détresse, c'est résolut ! J'ai la police recherche en formet TTF entre mes mains........ De toutes ma recherche, je suis encore étonné de voir que sur le Net, on retrouve des polices (fonts) , qui peuvent atteindre jusqu'à 200.00$ us...... Allo ! La police ! [Edité le 8/10/2004 par Pako]

Merci beaucoup pour votre aide. J'ai finalement trouvé la police recherchée, par contre elle est en format MAC. J'avais cherché une méthode pour la tranformer en True Type pour PC. Si vous connaissez un gratuiciel qui fait cette conversion, veuillez m'en faire part. Cette police est utilsé dans un logo (dans une cartouche). Durant ma recherche j'ai trouvé un site intéressant, ou on peut trouvé un grand nombre de police True Type gratuite.... voici le lien : http://www.dafont.com/alpha.php?lettre=a&texte=Com+ser+Montr%E9al A+

Appel à tous, Je suis à la recherche d'un type de police appellé : MYRIAD BOLD ITALIC Si vous avez une police en format SHX semblabe à celle ci-haut, veuillez m'en faire part...:mad2: Merci ! pako35@hotmail.com

Merci Le Crabe ! Pour ces précisions ! ;)

Le service pack 2 est disponible depuis hier sur le site d'Autodesk voir : http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=4668310&linkID=2786655 et le service pack 1 est aussi disponible . voir : http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=4406412&linkID=2786655 :casstet:

http://img80.exs.cx/img80/5400/action_de_grace1.jpg Intéressant ! Mais comme dit Patrick les sources d'erreur possible sont nombreuses. Peut-on pensé un jour avoir la possibilité d'avoir cette fonction sur CADxp pour les membres donateurs ? Rien de plus facile d'avoir une explication clair et précis avec un image ....... en Didier ! Bonne Action de Grâce au CADxpQuois ! [Edité le 6/10/2004 par Pako]

La commande LAYDEL dans les express tools est une solution à toutes épreuves...mais attention, si le claque fait parti d'un bloc, le bloc sera effacer aussi..... Pour trouver un claque inséré dans un bloc, un petit utilisaite en LISP appelé DETECT fait la job, je te l'envoie par E-mail MOB ! C'est quoi ton adresse ? A+ [Edité le 4/10/2004 par Pako]

J'en utilisais une, il y a 8 ans passé, qu'en Autocad n'avait pas encore d'icônes dans son interface, mais depuis l'apparition des icônes, la souris est d'après moi gagnante. Et dans un jours a venir la souris sera remplacée par votre nez : http://synapse.vit.iit.nrc.ca/Nouse/index2.html

Tu peux aussi voir avec la commande REDIR dans les Express Tools ......

Les blocs externes devront être dans un répertoire vu par Autocad. Vérifie dans les options : File, Support File Search Path y rajouter votre répertoire !

Voici les princiaples lignes pour un bloc sans attribut : Dim objBlockRef As AcadBlockReference Dim objBlock As AcadBlock Dim vPointInsert As Variant Dim dRotationAs Double vPointInsert = ThisDrawing.Utility.GetPoint(, "ENTRER LE POINT D'INSERTION") dRotation = ThisDrawing.Utility.GetAngle(vPointInsert, "ENTRER L'ANGLE (1 pt.)") On Error Resume Next Set objBlock = ThisDrawing.Blocks("NomBlock") If Dir(PATH_BLOCK & "NomBlock.dwg") = "" Then MsgBox "LE BLOCK EST INTROUVABLE!" Exit Sub Else Set objBlockRef = ThisDrawing.ModelSpace.InsertBlock(PointInsert, "NomBlock.dwg", 1#, 1#, 1#, dRotation ) objBlockRef.Update objBlockRef.Visible = True End If Chemin de ta bibliothèque de block : Public Sub PATH_BLOCKS() PATH_BLOCK = "C:\......." If Dir(PATH_BLOCK, vbDirectory) = "" Then MsgBox ("LE RÉPERTOIRE" & PATH_BLOCK & "EST INTROUVABLE OU INEXISTANT, VEUILLEZ AVISER !") End If End Sub Tu peux rajouter du code autour de ces principales lignes. Exemple appliquer le calque souhaité avec l'insertion et la mode d'accrochage ! Bonne Chan ! [Edité le 1/10/2004 par Pako] [Edité le 1/10/2004 par Pako]

Bravo ! Krynn

Salut la gang, L'expression "TIRE TOÉ UNE BUCHE" est une expression qui découle de l'ancienne langue québecois appelé le jouale (voir Weblog). On peut traduire en bon français cette expression en disant : "PREND TOI UNE PLACE" et/ou "JOINT TOI A NOUS". La buche de bois était dans les anciens camps de bucheron , la chaise des pauvres.