Aller au contenu

BIM G CO

Membres
  • Compteur de contenus

    1 050
  • Inscription

  • Dernière visite

  • Jours gagnés

    2

Tout ce qui a été posté par BIM G CO

  1. BIM G CO

    Question Config

    Techniquement vérifier la présence sur ta carte mère d'au moins 2 PCI Express (je me demande d'ailleurs si cela existe). Pas de cohabitation entre AGP et PCI-Express et encore moins PCI - PCI Express (cela vient du BIOS). Après cette vérification technique il y a pire : Un truc quasiment impossible : vérifier pour chacun des jeux sa compatibilité DirectX de Microsoft (possibilité de choisir l'écran donc la carte de sortie) Ensuite savoir s'il peut-être affecté à une carte spécifique et non celle par défaut!
  2. BIM G CO

    couleurs

    Je suppose que tu parles du blanc sur écran informatique. - La couleur [surligneur]7[/surligneur] affichée en blanc sur fond noir (couleur par défaut dans l'espace objet) et noire sur fond blac (couleur par défaut dans l'espace papier) est celle qui sera imprimé en NOIRE - La couleur [surligneur]255[/surligneur] affichée blanche à l'écran peut-être utilisée si est n'est pas utilisée dans le gestionnaire de plume pour créer des caches par exemple elle sort à l'impression en gris à 1% (presque blanc) - La couleur 24bits, [surligneur]255,255,255[/surligneur] affiché blanche à l'écran n'est pas imprimé (elle est imprimé blanc donc sans encre).
  3. BIM G CO

    Ah ces Italiens !

    je dirais même plus 100% des chauffards sont fous!
  4. à la place de ;; --------------- ;; La suite du programme à faire ;; --------------- collé à cette partie pour le support du texte ;; --------------- ;; Les Textes (setq Selection (SelectionElement "TEXT") Fichier (open "C:\\TEXTE.TXT" "w") ) (if selection (foreach n Selection (progn (setq PRIVE_RESULTAT (strcat Guillemet ;; CALQUE (cdr (assoc 8 (entget n))) Guillemet Separateur Guillemet ;; Valeur de XX XX Guillemet Separateur Guillemet ;; Contenu du texte (cdr (assoc 1 (entget n))) Guillemet Separateur Guillement ;; Abcisse point de début (rtos (car (cdr (assoc 10 (entget n)))) 2 3) Guillemet Separateur Guillemet ;; Ordonnée point de début (rtos (cadr (cdr (assoc 10 (entget n)))) 2 3) Guillemet Separateur Guillemet ;; Orientation du texte en angle exprimé en radian! (rtos (cdr (assoc 50 (entget n))) 2 8) Guillemet Separateur Guillemet ;; Elevation point de début (rtos (caddr (cdr (assoc 10 (entget n)))) 2 3) Guillemet ) ) (write-line PRIVE_RESULTAT Fichier) ) ) ) (close Fichier) ;; --------------- ;; La suite du programme à faire ;; ---------------
  5. BIM G CO

    encercle texte

    avant la fonction (bns_circle...) tu effectue une (entlast) dont tu enregistre la valeur dans une variable que je nomme ici VAR_ENTLAST à la suite du (bns_circle ....) tu suis les éléments ainsi créé à partir de la variable VARè_ENTLAST jusque au (entlast) par des (entnext) J'effectue cette opération pour corriger les bugs de FISACAD de Fauconnet Ingénierie.
  6. Le 26 avec cet égnimatique sourire ?? Le 21 avec le port de tête sur le coté (le 12 aussi mais il parrait trop "lorrain" :P ) ?? à moins que ce sacré rebcao s'est amusé à symétrisé la photo et ainsi jeté le trouble sur son port de tête :P [Edité le 30/5/2007 par Maximilien]
  7. je mise pour le preneur de la photo!
  8. Tu peux aussi créer un jeu de feuilless que tu pourra à loisir publier sur ton traceur habituel.
  9. Et si ce sont plusieurs fichiers dans un même dossier tu peux aussi créer un jeu de feuilles. :p
  10. Parce que le wipeout doit être le premier élément de la séquence du bloc. Pour remédier à cela : Copier (commande _COPY) le fameux contour et effacer (commande ERASE) l'ancien contour.
  11. BIM G CO

    encercle texte

    pour récupérer l'objet ainsi créé un (entlast) suffit :)
  12. Pour charger un Lisp c'est un sujet de (gile). Mais le code que je vins de te donner n'est que partiel. pour le faire entièrement cela demande du temps. Je ne suis pas là pour donner des réponses mâchées ou toutes prêtes. Dans l'état actuel ce "LISP" te crée un fichier "LIGNE.TXT" dans le lecteur "C:" Dossier "Racine" à l'intérieur de ce fichier : les lignes impaires correspondent aux point de départ des lignes les lignes paires correspondent aux point de fin des lignes [Edité le 28/5/2007 par Maximilien]
  13. voila une partie vite fait : (defun bibi1979 (/ n XX Separateur guillemet selection Fichier) ;;; ********************************************** ;;; [url=http://www.cadxp.com/sujetXForum-15232.htm]Réponse pour la demande de bibi1979[/url] ;;; ********************************************** ;;; extraction de différentes parties d'objets (contenu de texte,position, attribut de point, calque etc...) ;;; sur autocad jusqu'à un fichier txt, comment puis je faire ??? ;;; récupérer des données et créer un fichier txt: ;;; Bloc point: Calque;XX;matricule du point; abscisse,ordonnée;XX,angle d'orientation du texte ;;; (XX correspond 2 chiffres que je doit rentrer manuellement et qui doivent apparaitre dans le listing final .txt. ;;; Les blocs points il s'agit d'un bloc composé d'un point et d'un texte attributs numéro, ;;; donc ce que je veux récupérer c'est les coordonnées d'insertion du point, contenu de l'attribut et l'orientation du texte de l'attribut. ;;; Ligne : Calque;XX;Abscisse;Ordonnée ;;; les lignes il me faut les 2 points sur 2 lignes de fichier séparé. ;;; Cote : calque;XX;texte de la cote;abscisse texte;ordonnée texte;angle d'orientation du texte;Abscisse et ordonnée début de cote;abscisse ordonnée fin de cote ;;; Texte : calque;XX;contenu du texte;Abscisse texte;ordonnée texte;angle d'orientation du texte ;;; le texte c'est un texte simple commande "texte" sous autocad ;;; bloc : calque;XX;nom du bloc;abscisse;ordonnée;angle d'orientation du bloc ;;; ********************************************** ;;; Sous-programmes (defun selectionElement (ENTITIE / n sel resultat) ;; Crée une sélection d'élement selon le ENTITIE (setq resultat nil) (if (ssget "_X" (list (cons 0 ENTITIE))) (progn (setq sel (ssnamex (ssget "_X" (list (cons 0 ENTITIE))))) (foreach n sel (if resultat (setq resultat (cons (nth 1 n) resultat)) (setq resultat (list (nth 1 n))) ) ) ) ) resultat ) ;;; Initialisation (setq Separateur ";" ; séparateur entre champs Guillemet "\"" ; guillemet entre champ ; saisie utilisateur XX (getstring "\nVeuillez entrer les deux chiffres :") ) ; --------------- ; Les lignes (setq Selection (SelectionElement "LINE") Fichier (open "C:\\LIGNE.TXT" "w") ) (if selection (foreach n Selection (progn (setq PRIVE_RESULTAT (strcat Guillemet ;; CALQUE (cdr (assoc 8 (entget n))) Guillemet Separateur Guillemet ;; Valeur de XX XX Guillemet Separateur Guillemet ;; Abcisse point de début (rtos (car (cdr (assoc 10 (entget n)))) 2 3) Guillemet Separateur Guillemet ;; Ordonnée point de début (rtos (cadr (cdr (assoc 10 (entget n)))) 2 3) Guillemet Separateur Guillemet ;; Elevation point de début (rtos (caddr (cdr (assoc 10 (entget n)))) 2 3 ) Guillemet ) ) (write-line PRIVE_RESULTAT Fichier) (setq PRIVE_RESULTAT (strcat Guillemet ;; CALQUE (cdr (assoc 8 (entget n))) Guillemet Separateur Guillemet ;; Valeur de XX XX Guillemet Separateur Guillemet ;; Abcisse point de fin (rtos (car (cdr (assoc 11 (entget n)))) 2 3) Guillemet Separateur Guillemet ;; Ordonnée point de fin (rtos (cadr (cdr (assoc 11 (entget n)))) 2 3) Guillemet Separateur Guillemet ;; Elevation point de fin (rtos (caddr (cdr (assoc 11 (entget n)))) 2 3 ) Guillemet ) ) (write-line PRIVE_RESULTAT Fichier) ) ) ) (close Fichier) ; --------------- ; La suite du programme à faire ; --------------- ) Edit 1 = [Edité le 28/5/2007 par Maximilien] Correction Bug Liste Edit 2 = [Edité le 29/5/2007 par Maximilien] Correction si Selection nulle [Edité le 29/5/2007 par Maximilien]
  14. BIM G CO

    PB de Zoom

    Ou l'utilisation à outrance d'un réseau local. exemple aller chercher sur le réseau les fichiers d'imprimante PC3, de style de plumes, des références externes, raster, palettes d'outils, gabarit etc... :casstet:
  15. BIM G CO

    bordereau de prix

    Je rappelle que le terme [surligneur]DQE[/surligneur] n'existe plus depuis quelques années. Ce terme peut vous invalider lors de l'attribution de marché. Cela s'appelle désormais une DPGF (Décomposition du Prix Globale et Forfaitaire) Cà serait dommage de perdre un marché seulement à cause d'un titre.
  16. Je ne crois pas que cela soit possible sous la version LT Sur les version pleine, il y a les outils express qui réalise grace à la commande _TXT2MTXT ce que tu recherches. à part la ressaisi (enfin par copier / coller dans le bloc note) il n'y a guère de solution avec une version LT.
  17. Voici l'header de ma routine qui mets le blanc "SKIP" (selon l'expression d'Eric) en arrière plan d'un texte multiligne. (defun TXTMASK2005 (ARG_ENAME / PRIVE_BLANC PRIVE_BIBLE) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Masque le Texte Multiligne pointée par l'ARG_ENAME ;;; ;;; avec les paramètres de codes DXF suivants : ;;; ;;; (90 3) (63 9) (421 13158600) (45 1.25) (441 -1) : Masqué ;;; ;;; (90 2) : non-Masqué ;;; ;;; ;;; ;;; Argument : ;;; ;;; ARG_ENAME : Entier correspondant au style Standard du BE ;;; ;;; ;;; ;;; Retourne : Le nom d'entité du texte multiligne ;;; ;;; ;;; ;;; Remarque : Le masquage est inopérent après une sauvegarde ;;; ;;; sur les AutoCAD(s) dont la version est < 2005 ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; PRIVE_BLANC correspond à blanc de chez "SKIP" en AutoCAD 2005 ;; et blanc cassé en version antérieure (setq PRIVE_BLANC (- (expt 2 32) 1)) 441 étant la couleur [Edité le 25/5/2007 par Maximilien]
  18. Effectivement Christian et je te remercie de la petite farce que tu m'as fait subir à l'époque! Je me vengerais .... :P pour le fun encore un (en VBA) pour mettre le jeu SOLITAIRE en éditeur de texte multiligne! Merci Christian ' Set MTEXTED à une valeur TRES TRES pourrissante Dim strData As String sysVarName = "MTEXTED" strData = "SOL" sysVarData = strData ' String data ThisDrawing.SetVariable sysVarName, sysVarData [Edité le 25/5/2007 par Maximilien]
  19. Peut on aller plus loin et envoyer dans le fichier une macro VBA tueuse du style: ' Set MTEXTED à une valeur TRES TRES pourrissante Dim strData As String sysVarName = "MTEXTED" strData = "SOL" sysVarData = strData ' String data ThisDrawing.SetVariable sysVarName, sysVarData n'ayant jamais fait de VBA sur AutoCAD. je l'ai repris de l'aide d'AutoCAD. Je ne peux donc pas garantir son fonctionnement. Je décline aussi toute responsabilité sur l'incidence d'un tel code :P [Edité le 25/5/2007 par Maximilien]
  20. BIM G CO

    X ref ?

    Une même XREF peut-être inséré plusieurs fois de de plusieurs manières. ex: Soit La référence externe a nom de fichier = x.dwg On insère cette référence sur le plan elle aura un nom x. 1ère solution : On copie celle-ci sur le même plan mais pas à la même orgine, et on delimite cette dernière pour faire apparaître la partie qui nous intéresse. 2ème solution : on renomme la référence externe X en référence Y (je ne parle pas du nom de fichier de la référence main son nom dans AutoCAD : Format - Renommer) On résinsère la référence externe X.dwg qui prendra comme nom X. je délimite X et Y et je peut même décharge l'une sans influencer l'autre. etc...
  21. J'utilise un petit lisp au nom sympa pour connaitre d'un coup d'oeil mes plans AutoCAD. Il est chargé en mémoire. (defun Le118218 ( / modePS) (if (= (getvar "PSTYLEMODE") 0) (setq modePS "\n*********************************\nATTENTION /!\\ mode STB\n*********************************") (setq modePS "\nmode CTB")) (strcat (itoa (getvar "INSUNITS")) " = La variable INSUNITS --------------> (" (Quelestmonunite) ")\n" (itoa (getvar "INSUNITSDEFSOURCE")) " = La variable INSUNITSDEFSOURCE\n" (itoa (getvar "INSUNITSDEFTARGET")) " = La variable INSUNITSDEFTARGET\n\n" (rtos (getvar "LTSCALE") 2) " = Echelle de type de ligne Globale" modePS "\n*********************************" ) ) ;;; ---------------------------------------------------------------------- (defun Quelestmonunite () (cond ((= (getvar "INSUNITS") 1) "le Pouce/inch") ((= (getvar "INSUNITS") 2) "le Pied/ft") ((= (getvar "INSUNITS") 3) "le Mile") ((= (getvar "INSUNITS") 4) "le Millimètre") ((= (getvar "INSUNITS") 5) "le Centimètre") ((= (getvar "INSUNITS") 6) "le Mètre") ((= (getvar "INSUNITS") 7) "le Kilomètre") ((= (getvar "INSUNITS") 8) "le Micropouce") ((= (getvar "INSUNITS") 9) "le Mille") ((= (getvar "INSUNITS") 10) "le Yard") ((= (getvar "INSUNITS") 11) "l'Angtröm") ((= (getvar "INSUNITS") 12) "le Nanomètre") ((= (getvar "INSUNITS") 13) "le Micron") ((= (getvar "INSUNITS") 14) "le Décimètre") ((= (getvar "INSUNITS") 15) "le Décamètre") ((= (getvar "INSUNITS") 16) "l'Hectomètre") ((= (getvar "INSUNITS") 17) "le Gigamètre") ((= (getvar "INSUNITS") 18) "l'Unité atronomique") ((= (getvar "INSUNITS") 19) "l'Année lumière") ((= (getvar "INSUNITS") 20) "le Parsec") (t "inconnu") ) ) pour l'utiliser je fait (alert (Le118218)) [Edité le 23/5/2007 par Maximilien]
  22. Le glisser déposer peut poser problème! il créera soit un [surligneur]bloc[/surligneur] à partir du fichier et non une XREF. Ensuite tu dois t'assurer que ton plan de travail, dans lequel tu mettras tes Références externes (XREF) Si tu insère tes niveaux en blocs veilles avant tout qu'il n'y aura pas d'élément de même nom (bloc, style de texte, calques etc...) sous peine de modification majeure d'apparence. Attention aussi à l'échelle de type de ligne globale de chacun des fichiers (ECHLTP) il doivent être identique si tu ne veux pas perdre en apparence. Ne sachant pas comment tu fais pour mettre tes unité je rappelle une chose. Si tous tes fichiers sont au mètre les variables suivantes devront être configurés ainsi: INSUNITS = 6 INSUNITSDEFSOURCE = 6 INSUNITSDEFTARGET = 6 MEASUREINIT = 1 MEASUREMENT = 1 Tes deux XREF doivent avoir un INSBASE (point d'insertion de base) cohérent. Pour l'insertion de référence externe, je ne saurais te conseiller que le gestionnaire de référence. je le rapelle AutoCAD gère mal le glisser-déposer et le copier coller de Windows.
  23. BIM G CO

    conduit de fumée

    Si tu n'as pas besoin d'évacuer de produit de combustion comme stipuler dans cette norme, pourquoi faire un conduit de fumée? c'est vrai que si tu n'utilise ni insert, ni foyer ouvert, ni chauffe eau à combustion , ni chaudière, ni poêle à bois ou fioul ou charbon... et que tu habite dans une grotte avec lequel tu te réchauffe à la bougie, il est inutile de mettre un conduit de fumée. Mais si ton client refuse toute sortie de toiture tu aura la possibilité de mettre des sortie en facade (ou pignon) avec Carneau ou non! Mieux il faut penser aussi à la ventilation mécaniqe controlée qui lui ferai économiser du chauffage puisqu'il évacue qu'un certain débit d'air et pas plus. La solution de l'hermétisme aura comme conséquence le menque d'oxygène et à terme un risque haut nocif d'empoisement au radon (radioactivité) ou au monoxyde de carbone. [Edité le 23/5/2007 par Maximilien]
  24. BIM G CO

    google earth a la nage

    Perso je voudrais savoir si la bateau Portsmouth - Le Havre exige toujours.... depuis l'arrivée de l'aéronavale. Les 5572 Km à la nage me serait épargner. plus bizarre Google refuse de calculer l'itinéraire vers l'Amérique du Nord au départ de l'Afrique ou du Moyen Orient. A croire qu'ils ont peur d'un 11 septembre par Google !?! Au départ des pays Européens je n'ai trouvé que le Havre! Marrant pour celui qui habite Cork en Irlande doit prendre un ferry puis le train pour nager à partir du Havre!! :P [Edité le 23/5/2007 par Maximilien]
  25. tes "XX" est-ce la même chose sur tout le TXT? Seulement pour les Blocs, s'appelant "POINT"? pour le Matricule du point, parle tu du point d'insertion de ce bloc? (à ces conditions abcisse ordonnée c'est quoi) Orientation du texte c'est donc qu'il y a soit un attribut(ATTDEF : donc étiquette à définir) soit un texte (TEXTDYN, RTEXT, MTEXT) Une ligne est composé d'un point de départ et de fin c'est lequel que tu veux? là c'est pas facile ce que tu demande Là je comprend plus! Qu'appelles-tu texte ? car pour moi un texte c'est soit un TEXTDYN, RTEXT ou à la rigueur un MTEXT mais certainement pas un bloc. Pas clair du tout pour moi! Serais-je un si vieux dinosaure que çà? :casstet: [Edité le 23/5/2007 par Maximilien]
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité