lili2006

Bonjour à toutes et tous, . Si le besoin se fait sentir, il est clair qu' après accord de yw22, je m'appuirai sur ses notes,..... Comme je l'ai déjà écrit sur un autre post, le chomeur désireux de s'en sortir à les moyens de le faire car au vu du support, pas de doutes sur le formateur,.. Seules les personnes qui produisent des documents en sont conscient ! Et là, c'est tout l'inverse => Seules les personnes qui ne produisent pas de documents n'en sont pas conscient ! Bon dimanche et merci encore.

Bonjour à toutes et tous, Bienvenue too98 Pour cela, il faut prendre contact avec Géomèdia (ici!) car il n'existe pas de fichier .PDF de formation (du moins, à ma connaissance !). Suite à une formation ou à l'achat d'une licence, ils te fourniront ce que tu cherches. Bon dimanche, [Edité le 20/1/2008 par lili2006]

Bonjour à toutes et tous, yw22, je devais imprimer tes supports, j'ai bien fait d'attendre. J'ai parcourru les modifs, sur le même ton que le reste, ça marche ! Merci encore et continu comme ça ! Comme je l'ai écrit sur un autre post, j'attend impatiemment la 3D sur les V2007-2008,....!

Bonsoir à toutes et tous, Tout simplement,... Merci encore (gile)

Re, mdsv31, tes attributs ne disposent pas de champs, alors comment récupères-tu la longueur développée de tes aciers, de plus tu sembles ne pas déssiner à l'échelle ?? Comme je l'avais déjà écrit sur plusieurs posts, j'aide un ami à développer des outils spécifiques Mais, je ne sers que de conseil, l'ensemble des outils est développé dans le Bureau d'Etudes par les projeteurs et ingénieurs, à raison de 4h00 / semaine en moyenne. Bien sûr, tous ces intervenants, y compris moi sont soumis au secret professionnel, donc,... Le bloc que j'ai fait passer est un exemple que j'ai créé pour information dans le bureau et j'y ai passé pas moins de 10 h00 pour le dessin et un autre, autant de temps pour le Lisp qui va avec, alors,.. (Voilà deux ans que ca dure, cela représente donc un budget important pour un BE BA de 10 projeteurs et 2 ingénieurs,...). J'en suis désolé mais je pense que le bloc donné en exemple peux te donner des idées de création de tes propres blocs dyn en fonction de tes choix de représentation. Le choix de dessiner en longueur réelle est destiné à deux choses : 1er => Représentation réelle de la position des aciers dans les éléments, depuis, plus de surprises sur les chantiers donc un grand pas vers la qualité !, 2nd => Pouvoir faire le métré en simultanné et c'est là ou ça coince pour le momment,... Merci encore. [Edité le 18/1/2008 par lili2006]

Bonjour à toutes et tous, Sinon, tu peux toujours essayer l'install sous vista en "forçant" le setup en XPSP2 ! Pour ce faire, clic droit sur le Setup de AutoCAD 2002 => Propriétés => Onglet compatibilité => Coches alors le bouton "Exécuter ce prog en mode compatibilité pour Windows XP (Service Pack 2). Ensuite Aplliquer, ok, puis tu peux lancer l'install. J'ai fait cette manips pour plusieurs logiciels et je n'a pas de problème particulier à ce jour,... Bon courage,

Bonjour à toutes et tous, Merci mdsv31, Je sais écrire les expressions de longueur développée réelle, ce que je voudrais c'est le calcul automatique dans mon tableau de nomenclature en fonction de la "déformation" de mon bloc qui lui est dessiné en longuer réelle aprés application des paramètres dynamiques (dessin en cm !, mais je souhaite la longueur en m !). D'ailleurs, mes blocs dyn sont dessinés en tenant compte des normes (mandrins de cintrage, retour, enrobage,...). Donc, plus qu'à définir la longueur réelle une fois mis en place, voilà mon voeu. Un exemple => <!--url{0}--> Cette requête fait suite à ce post ! mdsv31, j'ai pas bien compris ta méthode ,,!!! ,Si tu peux développer, merci d'avance.

Bonjour à touetes et tous, Avec une V2008, même remarque que vinz34. Bon courage,

Bonjour à toutes et tous, Merci (gile) ,au passage, quel effet cette variable "LUNITS" ? Bonne journée.

Bonsoir à toutes et tous, Désolé, pas d'autres idées,... Moi je me suis fait les mêmes palettes à des échelles différentes, ça m'as pris la journée, maintenant, j'suis peinard ! Bon courage,

Bonsoir à toutes et tous, Patrick_35, de ce genre là ? (defun c:tcot(/ sel tot) (vl-load-com) (setq tot 0) (princ "\nVeuillez sélectionner des cotes : " ) (and (ssget (list (cons 0 "DIMENSION"))) (progn (vlax-map-collection (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) '(lambda (x) (setq tot (+ tot (vla-get-measurement x)))) ) (vla-delete sel) (princ (strcat "\nCumul des cotes : " (rtos [surligneur] (/ tot 100.0) 2 2)[/surligneur])) ) ) (princ) ) Que veut dire "rtos", exactement et pourquoi "2 2" après (/tot100.0) et pourquoi le .0 après le 100? Bref, j'ai recopié bétement mais ça marche ! Merci encore. [Edité le 17/1/2008 par lili2006]

Bonsoir à toutes et tous, vinz34, j'ai environ une trentaine de blocs de cet esprit là, et bien sûr, je voudrais récupérer les vrais longueurs pour faire un métré le plus juste possible,... ici! Merci d'avance. [Edité le 17/1/2008 par lili2006]

Bonsoir à toutes et tous, Et avec les xdatas ? Si tu n'as pas suivi ce post, quelques explications : Le Lisp => ;;; Requètes (defun c:R-Xdata (/ I L LST LST-B N S S-T VLA-OB XDATA XTYPE) (princ "\n Recherches des Renseignements :") (setq lst (Renseignements-XDATA "Q")) (setq s (ssget "_X" (list (list -3 (list (car lst))))) s-t (ssadd)) (repeat (setq i (sslength s)) (setq vla-ob (vlax-ename->vla-object (ssname s (setq i (1- i))))) (vla-getxdata vla-ob "" 'xType 'xData) (if (and xType xData) (progn (setq l (mapcar 'vlax-variant-value (vlax-safearray->list xData))) (repeat (setq n (length (setq lst-B (Renseignements-XDATA nil)))) (if (equal (strcase (cadr (member (strcase (nth (setq n (1- n)) lst-B)) lst))) (strcase (cadr (member (strcase (nth n lst-B)) l)))) (ssadd (handent (cadr l)) s-t)) ) ) ) ) (if (zerop (getvar "cmdactive"))(sssetfirst nil s-t)) (if (> (sslength s-t) 1) (princ (strcat "\n "(rtos (sslength s-t)) " objets sélectionnés.")) (princ (strcat "\n "(rtos (sslength s-t)) " objet sélectionné.")) ) (princ) ) ;;; Renseignements (à modifier) pour enregistrement Xdata (defun Renseignements-XDATA (Q / I LST-F LSTR R) ; liste à modifers pour reneignements : (setq lstR '(" [surligneur] ELEMENT" "LONGUEUR" "LARGEUR" "COULEUR" "NOMBRE" "SALLE" "BATIMENT" "ETAGE[/surligneur]")) (if Q (progn (setq i -1) (repeat (length lstR) (setq R (getstring T (strcat "\n " (nth (setq i (1+ i)) lstR) " :")) lst-F (append lst-F (list (strcase (nth i lstR)) R))) ) lst-F ) lstR ) ) ;;; Retourne Xdata dans Objet. (defun c:RXO () (setq ent (car (entsel "\n Choisir l'objet contenant les renseignements :"))) (if ent (if (not (Test-Xdata ent)) (alert "\n Pas de Xdata dans cette entité."))) (princ) ) ;;; Test Existance Xdata (defun Test-Xdata (ent) (if ent (progn (setq vla-ob (vlax-ename->vla-object ent)) (vla-getxdata vla-ob "" 'xType 'xData) (if (and xType xData) (progn (setq l (mapcar 'vlax-variant-value (vlax-safearray->list xData)) i -1 txtt "") (repeat (/ (length l) 2) (setq txtt (strcat txtt "\n" (nth (setq i (1+ i)) l) ": " (nth (setq i (1+ i)) l)))) (alert (strcat "Xdata Existants : " txtt)) t ) ) ) ) ) ;;; Programme Demandant/Donnant la liste Xdata dans entité. (defun c:L-Xdata (/ ENT I LST-D VLA-OB) (setq ent (car (entsel "\n Choisir l'objet dans lequel enregistrer les renseignements :"))) (if ent (progn (setq vla-ob (vlax-ename->vla-object ent)) (vla-getxdata vla-ob "" 'xType 'xData) (if (not (Test-Xdata ent)) (progn (setq lst-D (Renseignements-XDATA "Q") i -1) (Set-xData ent (list "ENTITE" (vla-get-handle vla-ob))) (repeat (/ (length lst-D) 2) (Set-xData ent (list (nth (setq i (1+ i)) lst-D) (nth (setq i (1+ i)) lst-D))) ) ) ) ) ) (princ) ) ;;; Enregistres Xdata des entités selectionnés dans fichier .csv (defun c:XdataXL (/ E F I L SEL XDATA XTYPE) (setq sel (ssget) f (getfiled "Nom Fichier à enregistrer :" "" "csv" 1) f (open f "w")) (repeat (setq i (length (setq lst (reverse (append (list "ENTITE") (Renseignements-XDATA nil)))))) (princ (strcat "'" (nth (setq i (1- i)) lst)) f) (princ ";" f) ) (princ "\n" f) (repeat (setq i (sslength sel)) (setq e (vlax-ename->vla-object (ssname sel (setq i (1- i))))) (vla-getxdata e "" 'xType 'xData) (if (and xType xData) (progn (setq l (mapcar 'vlax-variant-value (vlax-safearray->list xData)) x -1) (repeat (/ (length l) 2) (princ (strcat "'" (nth (setq x (+ x 2)) l)) f) (princ ";" f) ) ) ) (princ "\n" f) ) (close f) ) ;;; Récupères les données d'un .csv pour les mettre en Xdata. (defun c:XLXdata (/ ADRESSE ENT F H L LOCALISATION NOM) (setq f (getfiled "Choisir Fichier :" "" "csv" 4) f (open f "r") l "l" R (Renseignements-XDATA nil)) (while l (setq l (read-line f)) (if l (progn (if (not (vl-string-search "ENTITE" l)) (progn (if (vl-string-search "\"" l) (setq l (substr l (+ 2 (vl-string-search "\"" l)) (strlen l))) ) (setq h (substr l 1 (vl-string-search ";" l)) ent (handent h)) (if ent (if (entget ent) (progn (Set-xData ent (list "ENTITE" h)) (setq i -1) (repeat (length R) (setq l (substr l (+ 2 (vl-string-search ";" l)) (strlen l)) D (substr l 1 (vl-string-search ";" l))) (if (vl-string-search "\"" D) (setq D (substr l 1 (vl-string-search "\"" D)))) (Set-xData ent (list (strcase (nth (setq i (1+ i)) R)) D)) ) (princ (strcat "\n Entité " h " Mis à Jour.")) ) (alert (strcat "Entité " h " Supprimé !")) ) (alert (strcat "Entité " h " Non trouvé !")) ) ) ) ) ) ) (close f) (princ) ) ;;; Routine Enregistrement Xdata dans entité : (Set-xData '("Nom" "Toto")) (defun Set-xData (ent lst / VLA-OB XDATA XTYPE) (if (equal (type ent) 'ENAME)(setq ent (vlax-ename->vla-object ent))) (setq xData (vlax-make-safearray vlax-vbVariant (cons 0 1)) xType (vlax-make-safearray vlax-vbInteger (cons 0 1))) (vlax-safearray-fill xData lst) (vlax-safearray-fill xType '(1001 1000)) (vla-setxdata ent xType xData) ) A savoir => Il te suffit de modifier la ligne surligné en jaune dans le Lisp et d'y mettre les informations que tu souhaites voir apparaître. Pour plus de renseignements, en lisant le post en lien ci-dessus, t'y verras plus clair,... Bon courage,

Bonjour à toutes et tous, Covadis, par exemple le fait très bien ! Peut-être un lisp qui traine par là, j'pense en particulier à ceux de Bonuscad, va faire un tour sur son site , désolé, je ne retrouve plus l'adresse,... si quelqu'un veut bien la poster ici,...

Bonsoir à toutes et tous, Une fois le boc dyn en place (barre d'armature : Variable : Longueur développée en fonction de son diamètre !), j'aimerai pouvoir récupérer sa longueur développée. Est-ce possible ? Visualisons => <!--url{0}-->

Re, Tu as surement raison, lesourd2,... je n'ai pas testé ! Super ton lisp !!!

Re, Merci Patrick_35 J'ai essayé de rajouter des trucs derrière la première paranthèse sortante de cette ligne: , mais marche pas pour le moment ! Merci (gile) Vour répondez tous deux à mon problème et vous en remercie encore. Tu surestime mes capacités, j'ai toujours pas eu le temps de bosser, hereusement, Matt666 veille,..

Bonjour à toutes et tous, Tu peux toujours faire un tour ici !

Bonjour à toutes et tous, 1 mm => 1 UD; 1cm => 10 UD; 1m => 1000 UD. D'ou xp objet => papier = 1m / 1 cm = 1000/10 = 100 =XP J'aurais fait comme ça moi, à priori,...

Bonjour à toutes et tous, Voilà mon problème. Mes entités linéaires ne correpondent pas forcément aux longueurs des éléments linéaires que je voudrais métrer. Par contre, une selection de cotes fonctionnerais. Autrement dis, j'aimerai pouvoir définir la somme des longueurs qui m'intéresse en selectionnant les entités cotes correspondantes (celles-ci n'étant jamais "forcées", la ligne de cote correpond au dimension "réelle", je dessine en cm dans l'espace objet et désirerai le résultat en m !). Est-ce réalisable ? Merci d'avance à ceux qui testeront. [Edité le 16/1/2008 par lili2006]

Bonjour à toutes et tous, Clic droit sur ton icone du bloc de la palette d'outils, propriétés et là tu peux faire varier ton facteur d'échelle du bloc en question. Aucune idée !!???!!

Bonjour à toutes et tous, J'm'en doutais un peu, mais n'y connaissant pas grand chose en VB. En fait je me demandais si tu ne pouvais pas tout de même récupérer les formules ainsi que le plan des calculs,.... Désolé.

Bonsoir à toutes et tous, Y'a un moment je bossais sur ce fichier. Si ça peut servir,..

Bonjour à toutes et tous, Il faut alors rajouter le chemin des fichiers supports de AutoCAD pour les lisps des Express => Outils => Options => Onglet fichiers : <!--url{0}-->

Bonsoir à toutes et tous, Ouf ! , sacré blocs dyn ! Et tu ne peux pas le faire en 2 blocs ?