DenisHen

Patrick_35 : Merci à toi, je regarderai au boulo l'aide sur cette fonction, ici, je n'ai que de l'anglais. bonuscad : Je pense pouvoir me débrouillé avec ta routine mais je ne comprends pas la ligne 3 (c'est ma mise en forme, pour ma compréhension ;) ) (setq str_txt "Texte à insérer" pt1 (getpoint "\nPoint de départ du rappel: ") [surligneur]pt2 pt1 [/surligneur] ) Car quoi que je fasse, rien ne change... Mais je vais regarder de plus près, je tatonne encore à ce niveau... Je ne sais pas quoi faire ni où se trouve mon "choix" d'insertion, je pense que c'est au niveau de la "(cond" avec "alpha"... Ca m'enlève quand même une branche du pied ! ! Mais ne te presses pas... Je regarde et te tiens au courant, si tu le veux ;) Merci encore à vous deux, Denis...

Merci à tous les deux ! ! ! Surtout que vous avez traité le sujet tellement loin de ce que j'avais commencé, que je vois IMMÉDIATEMENT que vos solution sont bien plus efficaces que la mienne. Je me perdais à comparer des angles. Maintenant, je chercherais d'après les deltas X et Y. Il faut maintenant que je trouve un moyen pour que cela fonctionne quelque soit la rotation du SCU... Peut-on calculer un delta avec des coordonnées du SCU "fenêtre" pour, par exemple : (setq dx (- (caadr lst_pt) (caar lst_pt))) Merci de vous intéresser à mon Pb, Denis...

Merci à tous, je paierai mon prochain tour de manège ! ! ! Mais je n'ai pas de texte qui défile dans le premier message... mais je vais dans perso.wanadoo.... Merci à vous deux, Denis...

Salut Tramber, Je suis désolé, mais je ne lis aucune adresse et mon curseur ne croise aucun lien... Je te jure que j'ai relu chaque ligne... Je vais faire un tour sur le net, au cas ou... Merci, Denis...

Bonjour à tous... Bon, je vais suivre les conseils et bien m'expliquer. Je tente d'insérer un text "horizontal" avec une flèche d'indication. ex : point n°1 (p1) pointe de la flèche point n°2 (p2) queue de la flèche ET point d'inertion du text Si la flèche est en Bas à Gauche, le text aura pour insertion BG .. .. . . .. .... .. ... Haut à Droite, .. .. .... .... . ........ .. .... HD .....et ainsi de suite Problème : 99% des mes dessins sont dans le systeme de coordonnée général mais le SCU a toujours une rotation par rapport à l'écran. J'ai l'angle "horizontal" déjà stocké dans (vlax-ldata-get "Phalene" "AngSCU"). Cet angle est en fait la direction des textes horizontaux et en grades. Il y a donc 3 angles en tout : l'angle du SCU, l'angle de la flèche et l'angle "horizontal"... Je ne sais pas comment faire et j'aimerai beaucoup avoir un petit coup de main pour commencer à faire mon LiSP Ce sera en fait un "MTEXT" avec des renseignement sur des regards de réseaux souterrains : ex : Eau usée T= R= Diamètre = Observations...

Salut à vous, Je retouche l'intégralité de mes menus et j'aimerai télécharger ce Compilo mais je ne le trouve pas. Comment faire ? Merci, Denis...

FireFoc aussi, c'est Windows le responsable ! ! A cause de sa sécurité bidon et de ses mises à jour à la noix ! ! Windows confonds sécurité et parano ! ! J'ai accepter le certificat et j'ai intéroger mon AntiVirus... Aucun problème résiduel... (pour ma part, mais veillons...) Denis...

'jour à tous... (gile) va être formateur ? ? Waow, on signe où ? ? Et c'est où ? ? Denis...

Bonjour à tous, Voilà, je sais que quelqu'un a écrit une petite routine en LiSP qui listait tous les code DXF d'une entité sélectionnée, je pense même que c'est (gile) qui me l'avait donnée. Mais je ne la retrouve plus. Quelqu'un pourrait m'aider ? Merci, Denis...

Des milliards de merci à vous ! ! ! Je vais pouvoir progresser avec ça ! ! Merci didier, je vais faire le tri dans ton post, qui reste confu pour moi, tu sais, tant qu'il n'y a pas de "(defun ", je ne peu pas formuler ton post... J'ai donc un peu de mal à le comprendre... Mais ça devrai venir ! ! Et pour bonuscad, merci pour la création de calques et de style de texte, je ne savais le faire que par "command" ! ! Maintenant, je vais pouvoir jouer comme un petit fou ! ! Un seul et dernier problème, comment faire pour ne pas créer deux fois le même point. Car c'est depuis une routine qui analyse la polyligne cliquée qui créra ces blocs et fera un tableau... Je me sers déjà de cette routine que voici : (defun c:TabDA (/ p1 p2 rot Num Num1 VOrtho Surf Texte) ;(setq Haut (atof Haut)) (if (= (setq Ech (vlax-ldata-get "Phalene" "Ech1")) nil ) ;_ Fin de = (c:PhEch) ) ;_ Fin de if (if (= (setq Num (vlax-ldata-get "Phalene" "NumPtDA")) nil ) ;_ Fin de = (setq Num 1) ) ;_ Fin de if (setvar "dimzin" 3) (setq Haut 2.5) (if (not (tblsearch "STYLE" "TableauDA")) (command "_style" "TableauDA" "simplex" 0 1 0 "N" "N" "N" "") ) ;_ Fin de if (command "-calque" "e" "Tableau DA" "co" 7 "" "") (setq rot (- (vlax-ldata-get "Phalene" "AngSCU") 100)) (setq ename (car (entsel "\nSelectionnez la polyligne: "))) (command "aire" "e" ename) ; Saisi du point d'insertion du tableau (setq pins (getpoint "\nPosition du texte : ")) (if (null pins) (setq pins (getvar "lastpoint")) ) ;_ Fin de if (setq VOrtho (getvar "orthomode")) (if (= (setq rot (getorient pins (strcat "\nOrientation du texte :") ) ;_ Fin de getorient ) ;_ Fin de setq nil ) ;_ Fin de = (progn (princ "\n * * * * * * * Orientation horizontale\n" ) ;_ Fin de princ (setq rot (- (vlax-ldata-get "Phalene" "AngSCU") 100)) ) ;_ Fin de progn (progn (princ "\n * * * * * * * Orientation alignée :") (setq rot (- 400 (* 200 (/ rot pi)))) (if (<= rot 400) (- rot 400) ) ;_ Fin de if ) ;_ Fin de progn ) ;_ Fin de if (setq Surf (strcat "\nSuperficie = " (rtos (getvar "area") 2 1) " m²")) (getVertices ename) (setq pp (car return) Num1 "1" Num 1 Texte "Pt X Y\n Distances\n" ) ;_ Fin de setq (princ (- rot 300)) ;(command "_.line" pins (polar pins rot 5) "") ;(command "_.line" pins (polar pins (rtos rot 2 3) (/ (* Haut Ech) 10.0)) "") (setq p1 (car return)) (command "point" p1 "") (command "_-mtext" "_none" p1 "j" "bg" "h" (/ (* Haut Ech) 1000.0) "_r" rot "_w" "0.00" Num "") ;(setvar "orthomode" VOrtho) (setq x (rtos (car p1)) y (rtos (cadr p1)) ) ;_ Fin de setq (princ (strcat "\nx=" x " y=" y)) (while (< (strlen x) 9) (setq x (strcat " " x))) (while (< (strlen y) 9) (setq y (strcat " " y))) (setq Texte (strcat Texte (rtos Num 2 0) " " x " " y "\n")) (setq return (cdr return)) (setq Num (+ Num 1)) (while (not (equal (car return) nil)) (setq p2 (car return)) ;(if (/= p1 p2) ; (progn (setq x (rtos (car p2)) y (rtos (cadr p2)) ) ;_ Fin de setq (princ (strcat "\nx=" x " y=" y)) (while (< (strlen x) 9) (setq x (strcat " " x))) (while (< (strlen y) 9) (setq y (strcat " " y))) ;(vlax-ldata-put (command "point" p2 "") (command "_-mtext" "_none" p2 "j" "bg" "h" (/ (* Haut Ech) 1000.0) "_r" rot "_w" "0.00" Num "") ; ) ;_ Fin de progn ;) ;_ Fin de if (setq Texte (strcat Texte " " (rtos (Distance p1 p2) 2 2) "m\n")) (setq Texte (strcat Texte (rtos Num 2 0) " " x " " y "\n")) (setq Num (+ Num 1)) (setq return (cdr return)) (setq p1 p2) ) ;_ Fin de while (setq Texte (strcat Texte " " (rtos (Distance p1 pp) 2 2) "m\n")) (setq Texte (strcat Texte "1 \n")) ;(command "_.erase" "d" "") (setq Texte (strcat Texte Surf)) (command "_-mtext" "_none" pins "j" "hg" "e" "e" "0.6x" "h" (/ (* Haut Ech) 1000.0) "_r" rot "_w" "0.00" Texte "" ) ;_ Fin de command (vlax-ldata-put "Phalene" "NumPtDA" (- Num 1)) (princ) ) ;_ Fin de defun Chercher dans tous les blocs "$borne" du dessin et comparer leurs coordonnées d'insertion ? ? (et au fait, pourquoi le "$" avant "borne" ?) Merci encore à tous, j'ai imprimé tout ça et j'en ai fais ma lecture de chevet ! ! Denis...

Merci à toi, Tramber, mais je fais mon décalage avec "command", je ne sais pas encore faire autrement... Merci encore, Denis...

Bonsoir à tous, Voilà, je dessine une polyligne grace à : (command "_.pline" (while (not (zerop (getvar "cmdactive"))) (command pause)) (de Patrick_35 ou Tramber je ne sais plus du tout :( ) Que je stocke dans un jeu de sélection puis je la décale 2 fois (comme pour faire un mur avec un axe au milieu) Mon problème est que si le premier point de ma polyligne n'est pas visible, le premier décallage n'est pas fait ? ? ? Je n'y comprend rien, en plus, je suis en accroche-objet inactif ? ? SMS ! ! ( = Save My Soul ! !) Merci d'avence

Merci (gile), C'était pour résoudre un problème de "cheminement" dans mes répertoires : J'ai mes prog et mes routines dans "S:\Config\Phalene\" et mes blocs sont rangés comme ça : Les arbre dans "S:\Config\Phalene\Block\Arbres" Les poteaux dans "S:\Config\Phalene\Block\Poteaux" Les Signaux dans "S:\.........\Block\Signaux" ................ tu devines le reste... Sachant que "S:\Config\Phalene" est dans les chemin de recherche d'AutoCAD J'ai donc créé des routines qui, dans mon fichier .mns ressemble à ça : [Feu Piéton]^C^C(c:BlockEchel "Poteau (objet)" "6" "s:/Config/Phalène/Block/Poteau/Poteau_Feu3-Pieton-C" "M"); Où "Poteau (objet)" = Nom du calque comprenant le bloc "6" = couleur du calque "s:/Config/Phalène/Block/Poteau/Poteau_Feu3-Pieton-C" = Chemin et nom du .dwg à inserer "M" = Taille du bloc (Moyen selon les échelles du dessin) S'il y a une méthode pour éviter d'écrire tout le chemin avant le nom du .dwg, celà m'aurait rudement bien servi. Car si je donne mes routines à quelqu'un, il devra réécrire tous les chemin dans le fichier .mns. Voilà, c'était pour arranger les futurs utilisateurs. Merci encore, Denis...

Re à tous, Dans : (vl-catch-all-apply 'vla-load (list (vla-get-linetypes (vla-get-activedocument (vlax-get-acad-object))) "axes*" (findfile "acad.lin"))) e "findfile" est super pratique, Mais y-a-t'il aussi la même chose pour un bloc, comme : .....(findfile "NomDuBloc.dwg") pour insérer un bloc ? Merci encore, Denis...

Merci encore Patrick_35, ça fonctionne au poil ! ! Denis...

Eh, les mecs ! ! Je suis déjà insomniaque ! ! Comme "Maxwell, qualité filtre" ! ! Donc, pas la peine d'en rajouter ! ! ... Merci, Oh toi BonusCAD ! ! Petite apparté, "Talus.lsp" plantait TOUJOURS à la première utilisation d'une cession AutoCAD... J'ai découvert, il y a deux jours, que je pouvais pallier cet inconvéniant, en cliquant sur "Choix dans Liste des calques"... puis "Ok" car j'avais déjà créer le calque de "destination" dans mon MNS. Je dois te dire que je créais le calque "Talus" avant de lancer la commande "talus" C'est le premier et le seul moyen que j'ai trouvé pour faire de ton EXCELLENTE routine une routine PARFAITE ! ! ! Bon, faut que j'aille bossé... Merci les amis ! ! Bon... ... ... ... J'y... ... ... Vais ... ... ... Denis... ( qui y vas ... Fatigué... Mais entousiasmé ! ! )

Merci des millions de fois, Didier. Rentre dans ta maison et emporte avec toi "une bonne fin de semaine"... Denis...

Bon, premièrement, merci de vous intéresser à mon problème, secondo, pardon Didier et Patrick_35, j'aurai du faire l'effort de moi-même, je le fais donc, maintenant : Je n'arrive pas à cliquer sur un block J'au un bloc qui comprend 3 attributs "Matri", "X" et "Y". Je n'arrive pas à attribuer un numéro incrémenté dans "Matri" et je n'arrive pas à placer dans les attributs "X" et "Y" les coordonnées du point d'insertion du block. Car mon but étais d'inserer ce bloc "PointPoly" à chaque sommet de plusieur polylignes, tout en évitant d'insérer plusieurs fois ce bloc si plusieurs polylignes ont un ou des sommets communs... Bref, je clique UNE polyligne de 5 sommets, le bloc s'insert 5 fois avec "Matri" de 1 à 5. Je clique une autre polyligne qui a un sommet (le 2 par exemple) en commun avec le sommet n°3 de la polyligne précédente, On aurra "Matri" pour la nouvelle dernière polyligne 6, 7, 2, 8, 9, .... Je peux faire un .dwg au cas ou mon explication serait encore floue... Sachant que j'avais essayé de faire çà il y a au moins 8 mois et que j'ai tout oublié... Petite serise sur le gateau, je dois faire autant de tableau (dans le dessin) que de polyligne avec (les données sont fausses, c'est juste pour exemple) : Matri..|....X....|....Y....|....Dist. 1........|.12.5..|.53.1.| ..........|..........|.........|..3.25m 2........|.19.2..|.56.4.| ..........|..........|.........|..7.15m 3........|....... Voilà... merci à tous pour vos efforts de lecture et pardon pour la migraine... Denis...

Bon, que dire de plus... Encore merci ? Ben ouais... Mille merci Patrick_35 ! ! Et puis soyons fous... Bonne années à vous tous ! ! (j'avais oublié de la souhaiter :P )

Bonjour à tous... Oui, je suis de retour ! ! J'aimerai créer des points indentifiables... pour leur donner des matricules et d'autres valeurs... (n° de lot...) Je sais que certains seront tenté de me répondre : "Ben, fais des blocs ! !" Et je leur répondrai : "J'y ai pensé et j'ai déjà essayé, mais je n'arrive ABSOLUMENT PAS à gérer les attributs dans les blocs..." Donc, si quelqu'un a des trucs ou astuces pour les attributs de bloc... Je les aimerais... Merci à tous... PS: PhalèneCAD commence à prendre forme... Je dois encore régler quelques petits trucs... Mais c'est sur, ce sera sur mon site...

Bonjour à tous... J'ai un nouveau petit problème : Je charge plusieur type de ligne en même temps mais avec un caractère générique : (progn (command "-typeligne" "ch" "Cloture-beton*" "s:/config/........lin" "" "") ) Comment faire si quelques type de ligne sont déjà chargés et qu'AutoCAD me demande confirmation pour "remplacer" ou pas le type déjà chargé ? Merci encore une fois à tous... Je progresse à pas de loup... ( mais un loup "Gutemberguien" ) Denis...

S U P E R ! ! ! Merci mille fois Tramber pour ce premier tuto ! ! Je l'ai installé avec ODCL et l'ai fait fonctionner ( avec l'ARX). Je m'en vais de ce pas potasser le truc pour en savourer sa substantifique ... Merci encore... Denis...

Y-a-t'il un interpréteur LiSP dans ces CloneCAD ? Merci, Denis...

Merci winfield, j'ai maintenant corrigé, Angle est en radian... Mais ça ne convient toujours pas... Je pense que c'est le sens de rotation... AutoCAD travail par défaut dans le sens trigo, et moi en sens horaire... Je cherche mais je n'ai pas trouvé grand chose... Merci à toi, Denis...

Dans ce cas là, tu peux "coder" tes DWG (un peut comme un ZIP) avec un mot de passe. Tu décompresses à chaque insertion.... Ou tu les mets dans un répertoire caché ou à accès limité (lecture seul)... Denis