sechanbask

Cette macro permet de réaliser des vues en coupe de cylindre (tubes, gaine circulaires, etc.) avec la possibilité de rajouter du calorifuge sur ce cylindre. Bonne utilisation... Ce programme est disponible ici :http://www.cadxp.com/Downloads+index-req-getit-lid-317.html Le fichier à télécharger contient le projet DVB, et le bloc pour une utilisation optimale... [Edité le 10/11/2007 par sechanbask]

Patrick_35> J'ai le même problème que lesourd2, il ne trouve pas le fichier DLC pourtant dasn un dossier support d'autocad. Même dans le même dossier que le .lsp.... @ l'aide ! !

Didier-AD> J'ai un problème pour imprimer tout les plan en PDF avec : ça me met dans la ligne de commande : "Commande: ImprimeTout ; erreur: Erreur Automation. Aucune description n'a été entrée." c'est domage car ça me ferais gagner du temps...

J'insère un cartouche en bloc avec attributs pour les choses que je souhaite changer page par page et avec un texte pour les choses que je souhaite changer pour toutes les présentation, comme ça en éditant le bloc je modifie pour toutes les présentations...rien de plus simple...

moi j'utilise : ;copier en 0,0 ^C^C_copybase 0,0 ;coller en 0,0 ^C^C_pasteclip 0,0 car sur autocad 2006 le copier-coller avec le point d'origine 0,0,0 ça rame à mort sur les très gros plans... je ne sais pas pourquoi...

J'ai trouvé comme faire pour ça fonctionne bien, j'ai même pris en charge tous les types de fichier. par contre, ça ne marche qu'à partir de l'ouverture d'un second fichier : Private Sub AcadDocument_Activate() Dim strNomFichierentier As String Dim strNomFichier As String Dim strExtension As String strNomFichierentier = VBA.UCase(ThisDrawing.Name) strExtension = VBA.Right(strNomFichierentier, 4) Debug.Print strExtension strNomFichier = VBA.Replace(strNomFichierentier, strExtension, "") ThisDrawing.SetVariable "MODEMACRO", strNomFichier End Sub

tu peux être un peu plus clair ? quel type de macro ? une fonction supplémentaire ou une fonction native d'autocad? [Edité le 31/10/2007 par sechanbask]

on peut faire des comparaison sur les entitées depuis SCG ou SCO avec transformby...

oui oui le lien et le code sont identiques sauf que le lien est mort... quand j'aurais un peu de temps....

Sais-tu que tu as en plus d'une idée fabuleuse un ébauche d'alogorithme du tonnerre ? je me lancerais bien mais là, je pense que mon niveau en VBA et le temps me font défaut, de plus, je pense sincèrement que le lisp sera plus efficace... Amateur de défi en tout genre, bonne chance ! ! !

tu as pensé à la methode thisdrawing.utility.prompt elle existe en VBA, et je pense qu'en lisp c'est pareil, non?

je vais retenter lorsque mon PC remarchera... les déboires d'une installation raté de Linux zenwalk...Mais heureusement aucune donnée perdue !! [Edité le 30/10/2007 par sechanbask]

je pense qu'il faut faire un sacré bloc dynamique avec les attribut qui bougent s'ils sont 3 au lieu de 2.... bref un bloc avec chiane d'action... ou alors faire un code VBA où tu indiques les nombre d'attribut que tu souhaite et le t'insereras le bloc avec tes X attributs et il faudrait aussi un sacré bloc car si ton affaire change un peu de nom et que tu te retrouve avec un attribut de plus.... dommage que mon Pc soit en rade sinon, j'aurai bien commencé...

pour mes nomenclature j'utilise une extraction vers EXCEL faite par mes petits doigts : http://www.cadxp.com/sujetXForum-16438.htm ça te donne toutes (sauf erreur) les caractéristiques des blocs...

dans EspaceReservéBloc pour être plus précis... bonne continuation

dans EspaceReservéBloc pour être plus précis... bonne continuation

j'ai un problème, comme j'aime bien que ça marche pour tout le monde, il faut que je déclare tout mais avec ou sans de toute manière j'ai un problème 'le principe ne gère pas les fichiers dxf Private Sub AcadDocument_Activate() Dim strNomFichierentier As String Dim strNomFichier(1) As String Dim strExtension As String strNomFichierentier = VBA.UCase(ThisDrawing.Name) strExtension = VBA.Right(strNomFichierentier, 3) Debug.Print strExtension strNomFichier(0) = Split(strNomFichierentier, ".DWG") ThisDrawing.SetVariable "MODEMACRO", strNomFichier(0) End Sub j'ai une erreur 13 sur la ligne : strNomFichier(0) = Split(strNomFichierentier, ".DWG") j'aurais besoin d'aide...

coté matos je suis un peu à la rue, mais l'os de notre PC dédié est windows serveur 2003 pour une gestion des droits aux petits oignons, je ne vois pas les avantages de mettre l'imprimante virtuelle sur le serveur. Comment faites vous la télésauvegarde? via FTP si oui avec quel logiciel ?

oui oui, je me suis trompé c'est bien RND et par RDN

j'ai dans la ligne de commande :" '_+dsettings index de tabulation<0>:2 " je suis dans la pannade....

Je suis complètement à la rue !! ce WE, je vais passer une journée ou 2 à bosser, heureusement, j'ai pris mon Lundi !! youpi

malheureusement pour toi ici,y'a pas beaucoup de développeurs solidworks essaie un autre site... et malheureusement, je n'en connais pas... Bon courage !! Avant de connaitre cadXP, j'ai commencé par un livre sur le developpement vba pour autocad, je pense qu'il en existe aussi pour solidworks non ?

les infos sur la fonction RDN est à lire dans l'aide VBA pas dans l'aide des programmateur d'autocad. Bonne lecture

de rien, nous sommes là pour ça... Puisque le sujet est résolu, indique le en cliquant sur l'ampoule en dessous de ton premier message (lorsque tu es loggé).. Bonne continuation.

alors là, je suis largué... le lisp et moi on est pas vraiment copain... à mon grand damne...