willy95

Voila ma nouvelle amie que j'adore: (setq cen (cdr (assoc 10 dxflst))) ; centre (setq rad (cdr (assoc 40 dxflst))) ; rayon (setq ang1 (cdr (assoc 50 dxflst))) ; angle départ (setq ang2 (cdr (assoc 51 dxflst))) ; angle fin (setq start (polar cen ang1 rad)npt (1+ npt)) (write-line (strcat (itoa npt) ":X=" (rtos (car start)) ",Y=" (rtos (cadr start)))file) (setq mid (polar cen (/ (+ ang1 ang2) 2.0) rad)npt (1+ npt)) (write-line (strcat (itoa npt) ":X=" (rtos (car mid)) ",Y=" (rtos (cadr mid)))file) (setq end (polar cen ang2 rad)npt (1+ npt)) (write-line (strcat (itoa npt) ":X=" (rtos (car end)) ",Y=" (rtos (cadr end)))file) ) Et tout fonctionne parfaitement et j'ai meme compris chaque etape parfaitement. Mais j'ai toujours le probleme avec les polylignes qui utilise Foreach: (foreach p (massoc 10 dxflst) pour insérer mon numéro de point avec npt (1+ npt) et (itoa npt) J'ai essayé dans tous les sens mais sans résultat comment dois-je faire ? Et Encore MERCI BEAUCOUP pour tous ce temps passé à me faire comprendre un language qui me rends tellement heureux quand sa fonctionne exactement comme je le souhaite..

Cool a part le probleme avec les arcs : Le code a l'air de fonctionné comme je le voulais mais... (car il y a un mais) je voudrai le testé sur autocad et si quelqu'un pouvait m'ecrire une ligne pour insérer un simple point a l'aide du fichier de coordonnée créer. Je serai rassuré. Le Fichier donne : 1:X=100.00,Y=200,00

En fait j'ai réussi pour les lignes mais je comprends pas pour les polylignes ? ((= typ "LINE") (setq pt (cdr (assoc 10 dxflst)) [b] npt (1+ npt)[/b] ) (write-line (strcat (itoa npt) ":X=" (rtos (car pt)) ",Y=" (rtos (cadr pt))) file ) (setq pt (cdr (assoc 11 dxflst)) [b] npt (1+ npt)[/b] ) (write-line (strcat (itoa npt) ":X=" (rtos (car pt)) ",Y=" (rtos (cadr pt))) file ) ) La structure pour les polylignes est différente : (foreach p (massoc 10 dxflst)

En fait comme pour l'incrementation de l'indice du type c'est : (itoa ind) et je créer un indice de point (itoa npt) mais je n'arrive pas a insérer correctement : npt (1+ npt) Ou dois_je l'insérer ?

Encore MERCI Pour pouvoir numéroté les points : 1:X=00.00,Y=00 2:X= 3:X= il faut intégré ce genre de ligne ? (setq pts (cdr pts) cnt (1+ cnt) et comment faire pour obtenir 3 point sur les arcs: 1er point debut 2ème point milieu de la courbe sur l'arc 3ème point fin de l'arc j'ai pas besoin du centre et peu etre le meme probleme pur les splines, faut il creer des points a des distances défini ? je souhaite en fait pouvoir créer un maximun de points a partir des objets et pouvoir les redessiné grace et seulement aux points. Est ce vraiment possible ?

Déja pour commencer je remercie beaucoup BonusCad pour cette réactivité et cette gentillesse envers moi, :hallucine: j'ai l'air d'un rigolo a coté mais j'espere un jour pouvoir renvoyé l'appareil, pour le moment j'ai de quoi lire et testé pendant quelques heures pour arrivé a comprendre ce code. J'aimerai bien pouvoir numéroté tous les points a la suite et ne pas faire aparaitre les noms des objets et pour finir marqué X= pour les x, genre : 1:X=123.234,Y=408.875,Z=12.34 en fait ce super code est trop complet pour moi, je souhaite "juste" récupéré des points avec xyz au final. Encore Merci pour toute cette aide.

Merci mais j'ai beaucoup trop de mal a tout comprendre il y a beaucoup trop de chose qui sont pour moi très difficile, je suis un petit joueur a coté, j'ai essayé de suprimé des parties (les filtres) mais hélas plus rien ne fonctionne, en plus rien que la selection de plusieurs objets par rapport a votre choix unique d'un type d'objet est une étape vraiment incomprensible pour moi. :( Je vais me battre avec toute la nuit si il faut, mais si vous avez un peu de temps ou meme de pitié pour moi, n'hésitez pas à m'ecrire quelques lignes que je décortiquerai volontier et avec un grand intéret certains. :cool:

Merci mais j'arrive que pour les polylignes, pas les arcs, lignes, splines. et je souhaite une selection de plusieurs objets par capture fenetre.

MERCI Gile pour toute cette structure de conception, je vais plancher sur tout ca :yltype: , Je vous cache pas que je vais avoir du mal :calim: , Mais comme on dit plus c'est dur plus c'est bon (signe)... :cool:

Bonjour à tous, je suis toujours en train de me poser des problèmes un peu trop difficiles pour mon petit niveau mais je veux vraiment y arriver, et pour cela je me prend la tete tout les jours, mais la je bloque encore une fois, en deux mots voici mon probleme : Je souhaite selectionner plusieurs objets (ligne, arc, spline, polyligne, etc...) Récuperer toutes les coordonnées XY des sommets des objets et les ecrirent dans un fichier txt. Je pense utilisé Ssget pour selectioner les objets mais je ne sais pas comment récupérer les coordonnées de cette nouvelle variable Je pense utilisé getfiled pour la création du fichier : (setq file (getfiled "Créer un fichier" "" "txt" 1) Mais j'ai un peu de mal pour la mise en forme dans le fichier: je souhaiterai faire : Numéro incrémenté:X=000.000,Y=000.000 Alors si vous pouvez me guider j'en serai ravi... Merci d'avance

En fait j'ai beaucoup plus de mal a réaliser ce que je souhaite faire, et malgrès tout les essais que j'ai fait AUCUN ne fonctionne, c'est vrai en collant des morceaux de lisp les uns aux autres les problemes augmentes. C'est pourquoi je fais appel a votre aide pour m'aider et me decrire si possible l'eventuelle programme qui réaliserait mon souhait 2009. A bientot je l'espere et merci.... ;)

Oulala..... Comme on dit doucement mais surement.... Je vais me pencher sur tous ces problemes, les uns apres les autres. A bientot...

Bonjour à tous... Me revoila avec une question à laquelle je n'ai pas connaissance bien que, j'ai deux éléments qui ne demande qu'a fonctionner ensemble, je m'explique ... Tout d'abord le but final étant de selectionner une polygligne et d'attribuer à chacun des sommets un bloc avec attribut que j'ai réaliser à l'aide d'une étiquette et un anneau, un numéro avec une incrementation automatique qui est une sous-routine écrite par (Gile) se prénomant : incatt ; puis pouvoir selectionner de nouveau une autre polyligne ayant un ou plusieurs sommets en commun, de façon que la nouvelle commande reconnaisse qu'il existe déjà des sommets avec attribut et n'insere donc pas de nouveau numéro sur ces emplacements. J'essai de monter tous ces éléments là ensemble avec beaucoup de difficultées et si quelq'un souhaite m'aider ou me guider dans cette idée... Merci à tous pour vos idées.

J'ai rajouté le choix dans l'épaisseur de la polytrame créer : (defun C:decaltrame (/ OldAccr Ent Dis Disd Pol col) ;creation de la nouvelle commande (Setq OldAccr (GetVar "OSMODE")) ;enregistre l'accrochage courant (SetVar "OSMODE" 0) ;Accrochage aucun (command "_-layer" "_make" "Limites-Trames" "_color" 20 "" "") ;creer le calque courant (Setq Ent (Car (entsel "\nChoix de l'objet à décaler: "))) ;choix de l'objet (setq Dis (getdist "\nChoix de l'épaisseur ?")) ;epaisseur (setq Disd (/ Dis 2)) ;demi epaisseur ;(setq Dis "0.3") ;distance par defaut (setvar "CMDECHO" 0) ;affichage détails du programme (command "_OFFSET" Disd Ent Pause "") ;decalage (setq Pol (entlast)) ;selectionne la polyligne (command "chprop" Pol "" "_layer" "Limites-Trames" "") ;Met la selection dans le calque (setq col (acad_colordlg 256)) ;Selection de la couleur (command "chprop" Pol "" "_color" col "") ;Met dans la couleur (command "chprop" Pol "" "t" "continuous" "") ;Type de ligne (command "pedit" Pol "_width" Dis "") ;applique l'epaisseur (command "_draworder" Pol "" "AR" "") ;met en arriere le contour trame (command "_draworder" Ent "" "Av" "") ;met en avant la ligne depart (SetVar "OSMODE" OldAccr) ;mettre accrochage d'avant (command "_-layer" "_make" "0" "" "") ;mettre calque zero courant (princ) )

Encore Merci Gile, j'apprecie encore une fois de plus votre réponse et je vous en remercie. La fonction LISP acad_colordlg est déjà très bien pour moi et tout fonctionne à merveille. [(setq col (acad_colordlg 256));Selection de la couleur (command "chprop" Pol "" "_color" col "");Met dans la couleur ]

Grâce à votre aide très précieuse, j'ai enfin réussi à faire fonctionner un programme presque correctment. Merci J'aimerais du reste le perfectionner, je m'explique : je souhaite faire apparaitre une boite de dialogue pour pouvoir choisir parmi certaines couleurs que j'ai défini (11,21,31,41,etc...) Je pense partir de ce genre de chose : strcat "IncTxt:dialog{" mais je n'y comprend pas grand chose.! Pouvez vous me guider sur ce sujet ? (defun C:decaltrame (/ OldAccr Ent Dis Pol) ;creation de la nouvelle commande (Setq OldAccr (GetVar "OSMODE")) ;enregistre l'accrochage courant (SetVar "OSMODE" 0) ;affichage détails du programme (command "_-layer" "_make" "Limites-Trames" "_color" 20 "" "") ;creer le calque courant (Setq Ent (Car (entsel "\nChoix de l'objet à décaler: "))) ;choix de l'objet (setq Dis "0.3") ;distance par defaut (setvar "CMDECHO" 0) ;aucun accrochage (command "_OFFSET" Dis Ent Pause "") ;decalage (setq Pol (entlast)) ;selectionne la polyligne (command "chprop" Pol "" "_layer" "Limites-Trames" "") ;Met la selection dans le calque (command "chprop" Pol "" "_color" "91" "") ;Met dans la couleur (command "chprop" Pol "" "t" "continuous" "") ;Type de ligne (command "pedit" Pol "_width" "0.60" "") ;applique l'epaisseur (command "_draworder" Pol "" "AR" "") ;met en arriere le contour trame (command "_draworder" Ent "" "Av" "") ;met en avant la ligne depart (SetVar "OSMODE" OldAccr) ;mettre accrochage d'avant (command "_-layer" "_make" "0" "" "") (princ) )

Bonsoir à tous... Alors voila j'ai pondu un oeuf qui ne fonctionne pas, j'ai tout essayé mais je suis perdu : (defun C:decaltrame (/ OldAccr Ent Dis Pol) ;creation de la nouvelle commande (Setq OldAccr (GetVar "OSMODE")) ;enregistre l'accrochage courant (SetVar "OSMODE" 0) ;aucun accrochage (command "_-layer" "_make" "Limites-Trames" "_color" 20 "" "") ;creer le calque (setvar "CLayer" "Limites-Trames") ;calque courant (Setq Ent (Car (entsel "\nChoix de l'objet à décaler: "))) ;choix de l'objet (setq Dis "0.3") ;distance par defaut (setvar "CMDECHO" 0) ;aucun accrochage (command "_OFFSET" Dis Ent Pause "") ;decalage (setq Pol (entlast Ent)) ;selectionne la polyligne et c'est la que commence mon probleme (command "pedit" Pol "_la" "0.60" "") ;applique l'epaisseur (SetVar "OSMODE" OldAccr) ;mettre accrochage d'avant ) (princ) Quelqu'un peu t-il m'aider, pour que j'avance sur mon probleme ? Merci

Bonjour à Tous ... Comment décaler une polyligne et en modifié le calque et l'épaisseur de l'objet résultant ? Merci d'avance pour toute votre aide .

Un TRES GRAND MERCI pour toutes ces explications qui me sont utiles pour apprendre beaucoup de choses et pouvoir créer et réaliser de mieux en mieux nos idées d'aide au dessin.

Encore Merci je me suis permis de rajouter : (command "_.style" "Cotes" "ARIAL" "1" "1" "" "" "") En revanche , je n'arrive pas a mettre par defaut : - l'insertion bas centre et non gauche - aligné avec sens de lecture.

Vous etes vraiement génial et vous m'impressionner ENORMEMENT, de plus par rapport au peu de language que je commence tous juste a comprendre et mettre en pratique, la je suis vraiement perdu et le résultat en est encore plus spectaculaire. Alors tant qu'a faire peut on avoir le choix du Calque ? Pour ma part j'essai ce type de ligne, mais sans succes : (IF (= (TblSearch "Layer" "Cotes") nil)) (command "_Layer" "_N" "Cotes" "_CO" "2" "Cotes" "")) (command "_Layer" "_S" "Cotes" "") Ps: je suis sur qu'un menu deroulant pour le calque comme le choix de style serait mieux.

Encore merci pour tout j'ai compris comment faire avec " (write-line (strcat "Aire = " (rtos (vla-get-Area pl))) file) " j'ai juste du mal avec les "vla" que je ne connais pas du tout. Merci à tous et surtout à Gile qui ecrit aussi vite qu'il pense (pas comme moi).

Bonjour, après avoir étudier votre programme que vous m'aviez transmis sur les coordonnées des sommets de polylignes exportées dans un fichier txt, je pensai pouvoir rajouter à la fin de la liste : la superificie totale en m² et le périmètre total en m. Je suis vraiement perdu sans votre aide pour pourvoir rajouter ces formules correctement, pouvez vous m'aider ? J'ai vraiement chercher et etudier votre programme mais ma difficulté ce trouve dans la position de ces textes et la non répétition de mes rajouts. Je l'espere, Au plaisir de vous lire. PS : message recu sur la communication

Superbe idée que le décalage de la cotation, mais je ne sais pas du tout comment faire..

Encore une fois MERCI Gile pour ton aide J'ai beaucoup de difficultées a tout conprendre avec les "vla" , je me bat pour conprendre... Doucement mais surement.... Je me bat aussi pour inserer la surface et le périmètre total de la polyligne selectionnée dans un fichier txt, dans le pline2txt que Gile à ecrit.