cadpolo

Désolé Patrick ... de n'avoir pas pu répondre plutot , que veux tu dire par Mais je pense avoir compris d'ou cela venait car, j'ai découvert que les elements étaient issu d'un fichier dans lequel il y a tous ces objets pour etre clair une bibliotheque de d'objet, je pense que le pb d'insertion vient de ce fichier .........

Désolé Patrick ... de n'avoir pas pu répondre plutot , que veux tu dire par Mais je pense avoir compris d'ou cela venait car, j'ai découvert que les elements étaient issu d'un fichier dans lequel il y a tous ces objets pour etre clair une bibliotheque de d'objet, je pense que le pb d'insertion vient de ce fichier .........

Bonjour j'ai regarde le SCU de Dessin source et du dessin cible le SCU est en [surligneur] GENERAL ...[/surligneur]

En faite je dis que la polyligne devient un bloc ou wbloc parce que je l'insere dans le dessin et que la commande insere transforme un objet en bloc NON????? Mais je vais vérifierai pour le SCU ......

Patrick ce n'est pas un bloc, mais une polyligne, mais si j'ai bien compris la polyligne du dessin source a inséré dans le dessin cible se transforme en wbloc, mais il prend comme point d'insertion si on l'a réglé avant la variable base qui la est de [surligneur] 0,0,0[/surligneur], donc mon point est 0,0,0 et dans le dessin cible, il bouge c'est 10,10,0 .Au lieu pour l'exemple d'un cercle etre le centre mais un point tangent à ce cercle ... Tu vois ce que je veux dire ... et Fraid d'abord merci pour ta reponse mais j'ai aussi purger le dessin avec script ... Et gile parce que je crée un menu ... et merci pour vos interventions ....

Salut Patrick .. Bon pour vous expliquer, il s'agit d'un menu ajouter au menu d'autocad, qui me permet d'inseré des objets d'un autre fichier ex: un IPE 180 dessiner dans un autre fichier, que j'insere dans le dessin cible (voici le code [surligneur] [iPE180]^C^C-i;IPE180.dwg;e;1;r;0;\ [/surligneur] ) ça marche , mais dans le dessin cible vu que j'ai mis mon point d'origine au centre de cette IPE 180 et ayant regler base à [surligneur] 0,0,0[/surligneur] , je devrai l'inseré par son centre mais ce n'est pas le cas sont centre est décalé ( ex : en Y =10 et en X=10 au lie de Y=0 et X=0) . Ce n'es pas évident à expliquer ......

Salut Gile En faite en inserant un objet ( wbloc ) à partir du menu que j'ai crée , un carre par exemple, je devrais l'inseré à partir de son centre, mais l'orsque je l'insere son centre est décalé , j'ai verifié la variable base et aussi j'ai deplace l'origine en son centre ... est ce clair .....

Salut a tous ...... Je me suis mis en pause, pour le lisp, j'ai saturé a force d'en faire ...... Bon ce qui 'est acquis n'est plus a refaire ........ Je pense que cette question concerne ce forum, car j'ai un menu pour inserer des blocs rien de tès compliqué (menu simple), j'ai regle la variable base à 0,0,0 et mis le scu sur le point d'insertion de l'objet . mais en l'inserant il me le déplace et la variable base du dessin recevant l'objet n'a pa bouger .... :casstet: De quoi cela pourrait'il venir .. Merci

eh non ... je ne prend pas ça comme un reproche .....mais cest vrai que ce n'est la priorité ...... Depuis que je suis au lisp je ne m'arrête pas .........cela demande comme tu le sais un gros investissement ........on n'a rein sans rien ..... Tout ça cause d'usine a gaz dévelloppé sur Autocad :casstet: .......ça a du bon .......... je suis un peu sévère mais c'est la vérité ......... Je suis projeteur structure à ce jour je n'ai tjs rien trouvé qui semble bien marché ..... Sois trop evolué demande bcp de tps en saisi soit ne convient pas à la phase du projet ........ Cela ma quand même de m'y mettre .................... Petit coup de gueule .....

Ce n'est pas une mauvaise volonté de ma part, mais il est clair que lorsqu'on débute (là ou l'on devrait prendre de bonnes habitudes ),ben il y a la complexité du langage que l'on passe au premier plan .... Mais j'en tiendrai compte .........

Bien compris .... Je chechais une erreur ..... Mais pourquoi la version internationnale ....Et puuis je n'ai pas les commandes inertnationnales ......... :D

:casstet: :casstet: Et que veux tu dire ....... par la ......

Ouais ....Oauis :casstet: Vais chercher encore un peu .......

Salut .... Mon code est de loin aussi balaise que celui de Bonuscad ... Mais celui que j'ai fait répond lus a mes besoins .... Déroulement Je pointes deux point a l'axe d'un mur, il me trace un rectangle et y met du txt ....... Moi étant "" bétonneux """ un section de poutre par ex.... [surligneur] Par contre je l'ai utilisé ce matin il par en vrille il me renvois des coordonnées ........[/surligneur] (defun Annotation () (if (not (tblsearch "LAYER" "_BA_textes")) (command "-calque" "E" "_BA_textes" "CO" "1" "" "") ) (if (not (tblsearch "style" "_AnnotationPP")) (command "-style" "_AnnotationPP" "romans" "0" "1" "0" "N" "N" "N" "") ) ) (defun dtr (a) (* pi (/ a 180.0)) );;;fin de defun (defun rect_util () (setvar "osmode" 2 ) (setq sp (getpoint "\n Point de départ<à l'axe> : ")) ;; Cliqué point de départ (setq ep (getpoint "\n Entrer la Longueur: " sp)) ;;Longueur de l'élément (setvar "osmode" 640 ) (setq width (getdist "\n Entrer la Largeur: ")) ;;Largeur de lélément (setq haut (getint "\n Entrer la Hauteur: ")) ;;Largeur de lélément (setq pangle (angle sp ep)) ;;Retourne l'angle entre sp ep par rapport a X (setq plength (distance sp ep)) ;;Calcul la longueur entre ces deux points (setq angp90 (+ pangle (dtr 90))) ;;Définit un positif et Convertit l'angle 90 en radian (setq angm90 (- pangle (dtr 90))) ;;Définit un négatif et Convertit l'angle 90 en radian ) ;;fin de defun rect_util (defun dess_rect () (command "ligne" sp (setq p2 (polar sp angm90 (/ width 2))) (setq p3 (polar p2 pangle plength)) (setq p4 (polar p3 angp90 width)) (setq p5 (polar p4 (+ pangle (dtr 180)) plength)) "clore" ) ;fin de polylign ) ;;fin de defun dess_rect (defun Annotation_txt () (setq old_osmode (getvar "osmode")) (setvar "osmode" 64 ) (setq txt1 (polar sp pangle (* plength 0.34))) (setq txt2 (polar txt1 angp90 width)) (setq txt3 (polar sp pangle (* plength 0.58))) (setq txt4 (polar txt3 angp90 width)) (setvar "cecolor" "2" ) (command "texte" txt2 "0.16" (angtos pangle 0 8) "PP" "") (setvar "clayer" "_BA_textes" ) (setvar "cecolor" "Ducalque" ) (setq txt_Ann (strcat (itoa(fix (* (* width 10)10))) "x" (itoa haut) "ht")) (command "texte" txt4 "0.12" (angtos pangle 0 8) txt_Ann "") ) (defun c:poutre () (setq old_layer (getvar "clayer")) (rect_util) (if (not (tblsearch "LAYER" "_BA_Poutres")) (command "-calque" "E" "_BA_Poutres" "CO" "3" "" "") ) (setvar "clayer" "_BA_Poutres" ) (setvar "cecolor" "Ducalque" ) (dess_rect) (setvar "clayer" old_layer ) (if (not (tblsearch "LAYER" "_BA_textes")) (command "-calque" "E" "_BA_textes" "CO" "1" "" "") ) (if (not (tblsearch "style" "_AnnotationPP")) (command "-style" "_AnnotationPP" "romans" "0" "1" "0" "N" "N" "N" "") ) (Annotation_txt) )

Salut à vous ..... Comme promis ....J'ai intégrer les explic de Gile à ma routine, bien sûre à compléter mais ça marche ..... Il m'hachure les elts les apres les autres ......Comme ils sont tous indépendant ...... (defun c:tr_mac ( / ) (command "_.undo" "_begin") (if (not (tblsearch "LAYER" "_BA_Maçonneries")) (command "-calque" "E" "_BA_Maçonneries" "CO" "6" "" "") ) (command "_.point" '(0 0 0)) (setq point (entlast) dep point );;;fin de setq (setq ep_mac (getreal "\n Rayon d'ajustement < >: ")) (command "pedit" "multiple" (setq sel_poly (ssget (list(cons 0 "CIRCLE,SOLID,LINE,ARC")))) "" "J" ep_mac "" "" ) ;;Transforme les (list(cons 0 "CIRCLE,SOLID,LINE,ARC")))) en polyligne et les joints (setq n 0) (setq Long_sel 0 ) (setq ss_region (ssadd)) (while (setq dep (entnext dep)) (ssadd dep ss_region) ) ;;;fin (setq Long_sel (sslength ss_region)) (repeat Long_sel (setq ent_last ( ssname ss_region n)) (command "_chprop" ent_last "" "CO" "DUCALQUE" "CA" "_BA_Maçonneries" "EP" "0" "" "" ) (setvar "cecolor" "8" ) (command "-fhach" "P" "solid" "s" ent_last "" "" ) (command "draworder" ent_last "" "AV" "") (setq n(+ 1 n)) );;fin de repeat (entdel point) (command "_.undo" "_end") );;;fin de defun Dites moi ce que vous en pensez .......

Salut tramber ..... Le fautif un point 3D....... Mais texterap à mettre derrière l'oreille ...... merci

Gile Salut .... Je te remercie pour ta patience et tes explications ........ ........merci

Salut :cool: Avez vous déja rencontrer ce pb, en sélectionnant une entitée ligne par ex ... Il m'est du temps a le sélectionner comme s'il était en 3D .. J'ai éssayé UCSFOLLOW, mais ça ne change rien ..... Il rame ............................ :casstet:

Gile merci pour ton information sur ce pb ...... Mais peux tu me faire donner quelque explication sur entnext et entlast .... Car je ne pige mais vraiment que "dalle""""" tu crèe un pt de depart ...ok!!!! (setq ss_region (ssadd)) [surligneur] ;; création d'un jeu vide[/surligneur] (while (setq dep (entnext dep)) c'est la pb création d'une boucle ???;;Pour y mettre toutes les entitées crées depuis le point [surligneur] dep[/surligneur] entnext scan toutes les entitées crées ... (ssadd dep ss_region) ) Bon si tu as le temps,je te remercie pour ta patience ...

Bon je vais tout revoir .... merci pour tes précieuse info......

Si j'ai bien compris apès la création des entités (region ) je crèe [surligneur] (setq poly_lst (cons (entlast) poly_lst)) [/surligneur] qui me récupère toutes les entité crées ( n ) ????? Et ensuite .... [surligneur] (foreach n poly_lst (command "region" n "" ) (command "_chprop" (entlast) "" "CO" "DUCALQUE" "CA" "toto" "EP" "0" "")[/surligneur]

Ouais bien compris, mais les autres entités crées car dans mon exemple je crée d'autres entités ????

Voici le code (defun C:join_mac (/ ) (setq j_mc (getreal "\n Epaisseur des murs < >: ")) (command "pedit" "multiple" (setq sel_poly (ssget (list(cons 0 "CIRCLE,SOLID,LINE,LWPOLYLINE,ARC")))) "" "J" j_mc "" "" ) ;;Transforme les lignes en polyligne et les joints (setvar "cecolor" "DUCALQUE" ) (setq ss_region (ssget (list(cons 0 "LWPOLYLINE")))) (setq n 0) (setq Long_sel (sslength ss_region)) (repeat Long_sel (setq ent_last ( ssname ss_region n)) (command "region" ent_last "" ) (command "_chprop" [i] entlast[/i] "" "CO" "DUCALQUE" "CA" "maconneries" "EP" "0" "" "" ) ;;entlast corrigé par tramber (setq n(+ 1 n)) );;fin de repeat ) effectivement lorsque je fais une recherche des polylignes, il me passe tout le dessin en revu alors que je voudrais qu'il se concentre sur ma sélection qui est sel_poly C'est pour cela que je pensais au entnext enlast .....

Parce que je sélectionne plusieurs entités, donc entlast renvois que le dernier elt, mais pas le premier ...Non ???, et la tjs mon exemple : si j'ai séléctionné toutes mes lignes puis effectivement je les transforment en poly puis region et chgt de calque ... Entlast ne me modifiera que le dernier .......

Gile, Si j'ai bien compris je crée un jeu de sel_poly qui contient 4elts, que je transforme en poly fermé Les poly fermées après transformation font t-elles tjs partit du jeu sel_poly ???? Mais lorsque je crée ma liste (setq poly_lst (cons (entlast) poly_lst)), il me mettra dedans que le 4° elt mais pas les 3 autres ??????NON ...