sechanbask

En fait je souhaitais faire un goto alors que le plus simple était un call voir: http://www.cadxp.com/sujetXForum-15705.htm

Est-il possible de modifier les unités de définition d'un bloc sans le décomposer... j'ai des blocs dynamiques avec une vingtaine de visibilités mais il sont mal définis. Les dimensions sont en mm, les blocs sont en cm dans une bibliothèque où tous les autre blocs sont en mm (il est donc tout petit)... si je l'édite pour lui fait une échelle, ça va merdé pour les insertion.... Merci d'avance

Pour ceux qui ont des difficultés pour les interceptions, les gestions, les étiquettes, les Call et les mises en abîme... Option Explicit Dim fluide As String '--------------------------------------------------------------------------------------- ' Procedure : HYDRAU ' DateTime : 18/05/2007 21:25 ' Author : ' Purpose : v.0.6 '--------------------------------------------------------------------------------------- Sub HYDRAU() On Error GoTo Gestion 'cherche si la commande a déjà été utilisé et quel fut le fluide dimensionné 'et renvoie l'utilsateur vers le dimensionnement de ce dernier Select Case fluide Case "eauverte" 'Debug.Print puissance_entree eauverte Case "Températurefluide" Temperaturefluide Case Else 'importation du texte tapé par l'utilisateur Dim Inputstring As String ThisDrawing.Utility.InitializeUserInput 1, " Paramètres " 'Chaines de caractères caché à l'utilisateur Dim reel As Single reel = ThisDrawing.Utility.GetReal("ENTRER UN REEL ou Paramètres [Pa]) :") 'Récupération du réel puis continuation du code ou va vers gestion pour intercepter le P tapé par l'utilisateur MsgBox "le réel entré est :" & reel 'si le getreal crée un erreur, le programme continue à gestion dans le cas "-2145320928" Gestion: Select Case Err.Number Case "-2145320928" 'Interception de l'"erreur" pour gérer le choix de l'utilisateur Inputstring = ThisDrawing.Utility.GetInput 'récuperéation de chaine de caractères réprésentée par les caractères proposés à l'utilisateur Select Case Inputstring 'si l'utilisateur a tapé un P: Case "Paramètres" Dim Inputstring2 As String Dim Choix_fonctions As String ThisDrawing.Utility.InitializeUserInput 2, " Eauverte Températurefluide " 'Chaines de caractères caché à l'utilisateur Choix_fonctions = ThisDrawing.Utility.GetKeyword("Choix du fluide [Ev/Tf] :") MsgBox "Interception réussie : " & Choix_fonctions Select Case Choix_fonctions Case "Eauverte" eauverte Case "Températurefluide" Temperaturefluide End Select End Select End Select End Select End Sub Function eauverte() 'a modifier pour retour vers choix 'puissance_entree = ThisDrawing.Utility.GetReal("Puissance Eau Glacée en kW :") On Error GoTo errorEG ThisDrawing.Utility.InitializeUserInput 1, " Paramètres " Dim tempeauverte As Single tempeauverte = ThisDrawing.Utility.GetReal("température eau verte en °C (Pa)[Pa]):") fluide = "eauverte" MsgBox tempeauverte & "°C" errorEG: Select Case Err.Number Case 13 'Message d'erreur automatiquement crée par autocad Case "-2147352567" 'point d'insertion annulé Case "-2145320928" 'Interception de l'"erreur" pour gérer le choix de l'utilisateur Dim Inputstring As String Inputstring = ThisDrawing.Utility.GetInput 'récuperéation de chaine de caractères réprésentée par les caractères proposés à l'utilisateur Select Case Inputstring Case "Paramètres" fluide = "" Call HYDRAU Case Else End Select End Select End Function Function Temperaturefluide() On Error GoTo errorTf ThisDrawing.Utility.InitializeUserInput 1, " Paramètres " Dim Temperature_estivale As Single Temperature_estivale = ThisDrawing.Utility.GetReal("Temperaturedouce en °C ou (Pa)[Pa]):") MsgBox "Températuredouce =" & Temperature_estivale & "°C" fluide = "Temperaturefluide" 'si erreur ou interception sur paramètres errorTf: Select Case Err.Number Case "-2145320928" 'Interception de l'"erreur" pour gérer le choix de l'utilisateur Dim Inputstring As String Inputstring = ThisDrawing.Utility.GetInput 'récuperéation de chaine de caractères réprésentée par les caractères proposés à l'utilisateur Select Case Inputstring Case "Paramètres" 'vide la varible fluide pour ne pas revenir sur la fonction température douce fluide = "" Call HYDRAU Case Else End Select End Select End Function Si j'ai pas assez détaillé, demandez, ma consultation est gratuite... P.S. Pour ceux qui cherchent à savoir à quoi ça sert... disons que sous cette forme, ben ça sert à rien. Néanmoins avec un peu (voire très peu) de modification, ça peut devenir assez puissant. Je livre le code source pour le reste, prouvez-moi que ce post n'est pas vain. A vos claviers !! [Edité le 20/6/2007 par sechanbask]

As tu essayé d'aller dans le menu OUTILS, REFERENCES ? je n'ai pas autocad 2008 mais le 2006 et lorsque j'active la librairie "AutoCAD 2006 Type Library", je peux déclarer une variable as AcadBlockReference2... (en fait je tape le I puis je fais CTL+ESPACE et je peux choisir beaucoup de type de variable. Je pense que ça marche de même pour autocad 2008... Bon courage pour la suite

j'ai exactement le même problème avec autocad 2006... Je voudrais faire des commandes VBA ou des fonctions avec arguments (ex couper au point) lançable depuis les allias... Mais j'ai trouvé personne pour m'aider... j'ai même réussi à lancer des applications externes avec les allias mais pour le reste...

c'est pas grave j'ai contourné le problème avec le code que j'enverrai demain si j'y pense...

zebulon_: Ton code (excuse-moi j'avais pas compris pour l'espace en trop, je suis lourding des fois) fonctionne à merveille sauf qu'il encadre le texte dans le calque courant et non pas dans le calque du texte... et Bred... sujet résolu sauf pour les textes avec rotation... Il encadre à coté (ex: rotation =125) ou le cadre ne suit pas le décalage (ex: rotation = 345 ) [Edité le 14/6/2007 par sechanbask]

TASKBAR à 1 serait une bonne idée si pour bosser je n'avais pas besoin de 2,3 logiciels en plus... j'ai déjà la barre des tâches pleine sur 2 niveaux... Docbar est parfait mais payant, c'est bête que ça soit du C++ sinon je l'aurais fait à ma sauce... Je ne sais pas si avec un controle (combobox) ça serait pas possible...

Le controle des calques, visuellement ce qui permet de changer le claque courant, d'en geler certains mais sans entrer dans le gestionnaire de calque. En VB on appelle ça un combo box...

Sympa mais payant... y'a-t-il d'autres produits mais gratuits?

est-il possible de faire un menu dans lequel apparaitront les plans ouverts (comme le menu fenêtre mais pas limité à 9 plans (sans l'affichage d'une boite pour le choix des autres plans) voir http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=14333#pid ??????????

est -il possible de créer un contrôle (comme le contrôle du style de texte ou de calque) mais pour les filtres de calques ?? si oui comment ?

je travaille sous autocad 2006, y'a-t-il moyen de modifier le filtre pour sélectionner les blocs dynamiques en fonction de leur visibilité?

y'a t-il moyen de changer quelque chose dans les fichiers de Fisa pour que le menu et uniquement le menu ne soit pas chargé? Car même que je le décharge de l'espace de travail il est encore là...

oui 3 methodes: -menu Express... avec la fonction remplace bloc by an other bloc... - un projet VBA dans le dossier support d'autocad. Ce projet existe pour exemple dans autocad 2006 - voir http://www.cadxp.com/sujetXForum-14737.htm et http://www.cadxp.com/sujetXForum-11303.htm bon courage [Edité le 5/6/2007 par sechanbask]

C'est pour reporter des impacts de plomberie dans un hôpital et vu la place que j'ai pour passer les réseaux, c'est coton. Donc j'avance petit à petit je reporte quasiment impact par impact. Si je dois faire des wbloc pour chaque impact ... dans un hôpital, je pense que je vais passer pas mal de temps avec 40 000m2 de bâtiment, avec 300 lits et autant de sanitaires....Merci du conseil pour certaines applications je pense que ça me sera utile.

et tu la colle où ta lisp? dans un dossier où il y a un chargement de la part d'autocad?

je ne vois pas l'utilité... developpe stp.

PARFAIT !!! un grand merci du fond du coeur

Bonjour, Copier puis coller vers les coordonnées d'origine est une fonction vraiment longue car quand on change de plan pour coller, autocad doit aller chercher la definition du presse papier pour savoir où est l'origine de l'objet copié. Comment faire pour réaliser une commande qui copie avec point de base 0,0 en ne demandant à l'utilisateur que l'objet à copier????

J'ai trouvé pourquoi, il ne faut pas mettre l'extension du fichier .EXE donc avec : FF, START FIREFOX,4,, ça marche comme sur des roulettes... Merci à ceux qui ont cherché mais qui n'ont pas posté...

Bonjour, Je cherche à lancer Firefox depuis Autocad (certains me dirons "où est l'utilité?" mais si je sais faire ça sur firefox je pourrais le faire sur tous les programmes que je vais faire en VB.net) Bon dans les allias, j'ai mis: FF, START firefox.exe,4,*FIREFOX, mais autocad me détecte une erreur lors de la commande REINIT (pour charger les momifications des allias): Erreur de syntaxe dans le fichier AutoCAD.pgp, ligne 410 dans le champ 3 (Spécification incorrecte de la taille mémoire) et si je fais l'allias FF puis espace dans autocad, tout marche... Alors pourquoi, je me pose tant de questions? C'est pour que mon programme file comme l'air sans accroc car mes collègues serait tentés de me demande pourquoi y'a une erreur et ça, j'en ai pas envie... Merci par anticipation, je suis sûr que quelqu'un pourra me répondre

j'ai également trouvé ça dans l'aide VBA RealToString(Value, Unit, Precision)

En raison de la différence de fréquence des dual core qu'on te propose, si les devis sont au même prix, il vaut mieux le 2.4ghz. De plus je suis septique concernant de la ram 233, je ne connais pas ce type de ram, de la 266, 333 oui mais 233 ???? Avec un dual core de la 533 je veux bien mais ça dépend de chipset de la carte mère. Renseigne toi sur la carte graphique pour savoir si c'est une carte pour jouer ou une carte PRO (plus chère mais plus adapter à tes besoins)

J'ai dû mal à comprendre le code suivant: Sub OnGosubGotoDemo() Dim Number, MyString Number = 2 ' Initialise la variable. ' Branch to Sub2. On Number GoSub Sub1, Sub2 ' L'exécution ' reprend ici après ' On...GoSub. On Number GoTo Line1, Line2 ' Se branche sur ' Line2. ' L'exécution ne reprend pas ici après On...GoTo. Exit Sub Sub1: MsgBox "Dans Sub1": Return Sub2: MsgBox "Dans Sub2": Return Line1: MsgBox "Dans Line1" Line2: MsgBox "Dans Line2" End Sub C'est le code de l'aide VBA. Je ne vois pas pourquoi, le programme ne va jamais dans le sub1 ou line1. A quoi sert le sub1, sub2 dans On Number GoSub Sub1, Sub2