DenisHen

Tu peux aussi aller sur VBFrance, il y aurra certainement ce que tu cherche, mais c'est plus que sûr que ce ne sera pas en LiSP... Denis...

Bonjour à tous... Voilà, j'ai un petit souci... La quazi totalitée de mes dessins sont orienté (rotation SCU). J'ai fais une routine pour celà en LiSP et je stock cette variable en mémoire dans le dessin. En VBA, j'ai récupéré cette variable "Angle" qui est en grade... Mon problème est que dans l'extrait de routine qui suit, cette rotation n'est pas bonne : Set MtextObj = ThisDrawing.ModelSpace.AddMText(returnPnt, 0, Texte) MtextObj.Rotation = Val(Angle) MtextObj.AttachmentPoint = acAttachmentPointMiddleCenter 'MtextObj.Width = 0 MtextObj.Update Je suis en grades mon axe des Y est au NORD et je tourne dans le sens horaire... Si quelqu'un a une ch'tit idée... Merci, Denis...

"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId" te donne le numéro du Windows installé... 1 ProductId = 1 Windows format : xxxxx-xxx-xxxxxxx-xxxxx Il y a d'autre numéros, mais celui-ci devrait t'aller... Par contre, j'ai oublié s'il change à chaque installation du "même" windows... Denis...

Sais-tu comment utiliser le code [ url ] Texte ? Adresse.com [/ url ] ? ? Car je ne fais que [ url ] Adresse [ /url ]

Excellente idée ! ! ! En plus, j'ai TOUT télécharger... Merci... Je là pose dans mon site, même si le bandeau "CadXP" est déjà dessus... ;) Merci...

Waaa ou ou ou w w w w ww wwwww ! ! ! E nmême pas 10 minutes... 3 réponses ! ! ! Bon, en fait, 2 réponses... Et avec juste ces deux là, j'ai de quoi bosser pendant des heures et des heures... Encore une fois.... Et encore et encore.... MERCI ! ! ! C'est une joie d'^tre épaulé de la sorte... Patrick_35... Mon dernire poste est aussi pour toi... Merci encore, Denis...

Une fois de plus, mon sauveur, (gile)... Au fait, je vais poser cette question souvent dans les prochains jours. J'ai un site web et donc, je souhaite aider ceux qui m'ont aidé... As-tu un site ou autre truc dans ce genre (à part "le Monde")... Voir même, puis-je citer "(gile)" dans mon site (sans jamais en dire du mal, bien entendu) pour expliquer ce que je fais et ce dont je parle... Mais tu peut y faire un tour... Il n'est pas à jour... J'attend une réponse de quelqu'un pour "poster" une de ses routines... Mais mon site ce veux "utile" et "rapide", pas d'images de 12Mo avec des animations Coperfieldiennes... Du texte... Des liens... C'est tout... Non, et une pub, mais je ne sais pas encore... Je vais peut-être mettre une pub de google pour rentabiliser le truc... Mais pas plus... Un peut comme notre chère webmaster... Qui ne nous polu jamais avec ça...( Merci M. Patrick ;) ) Et en plus, il ne le fait que légèrement et seulement aux "non membres"... Et ça, je trouve ça super intègre et très...honête... J'aime vraiment beaucoup ce site...Vive CadXP ! ! Denis...

Bonsoir à tous, Je cherche à faire en Lisp une fenêtre se saisi de texte du même style que le MsgBox dans VBA... Denis...

On peut aussi par le numéro de license de Windows pris dans la base de registre (ou dans une DLL, je ne sais plus)... Mais ça ne fonctionne ni sur Linux ni sur BEos ni... Denis...

Bon, j'ai réussi...http://www.phalenecad.fr/ProprioVBA.zip Ceci est le lien qui mène au brouillon VBA dont je parle... Une seule chose manque... L'orientation du texte une fois insérer... Denis...

Petit message pour Tramber : J'ai essayé de poser sur mon site la routine dont on avait parler il y a quelques temps, au sujet d'une liste de propriétaire de parcelles, c'était surtout pour savoir lier un LiSP avec un DCL... Tu pensais faire un petit tuto dessus... J'ai mis à jour mon site (waow, ça fait quand même vachement pro ;) ). Mais je n'arrive pas à faire un lien vers un fichier pour que d'autre le téléchargent (ca, ça fait vachement moins pro) :o Mais j'ai peut-être une solution avec mon site FTP.... Si ça t'intéresse toujours, j'y travail, sinon, ça attendra... Denis...

Merci Patrick_35, Je pense que tu as saisi le plus difficile à faire comprendre... Je te fais un petit exemple et te ferai un lien pour ce soir... Merci encore, Denis...

Merci à vous, Une petite question pour Patrick_35 Ton truc traite-il la liste ( nommée "return" dans ma routine ) comme une entité AutoCAD avec ses code DXF ? D'après ce que je comprend, ma liste serait ainsi : (1 1081.02 5092.66) (2 1121.44 5086.31) (3 1109.31 4989.92) (4 ....... mais je n'ai pas compris comment s'éfectue la recherche... Mais je pense que tu as compris ma question... Pour une fois... J'ai réussi à m'expliquer à peut près correctement ;) Merci encore à vous, Denis (qui a un super site avec des méga infos : http://www.phalenecad.fr )

Clique sur le bouton "site" à la fin de mas messages... Et en plus, il y a une surprise ! ! Denis...

Bonjour à tous... Voilà, j'ai un petit soucis... Pour les besoins du service du Cadastre, nous, les géomètres, devons fournir une feuille de calcul qui se résume aux coordonnées d'une polyligne ainsi que la longueur de ses segments, en gros, ça donne : Mon problème est, si j'ai plusieurs polylignes et que j'ai des sommets communs, ils ne vont pas porter le même numéro... Alors qu'il le faudrait... J'ai donc pensé à : (vlax-ldata-put return) ;return est ma liste de coordonnées Mais je n'ai pas les "matricules" des sommets ! ! Je ne sais pas comment faire, en lisp, pour stocker des données telles que : (1,1081.02,5092.66)(2,1121.44,5086.31)(3,....... ou (1,1081.02,5092.66,2,1121.44,5086.31,3,....... ou encore (1 1081.02 5092.66 2 1121.44 5086.31 3 ....... Je ne sais pas comment Lisp va les stocker et surtout, comment lui imposer un "style de stockage" pour qu'il soit plus facile pour moi de chercher les point existant dans cette liste... Merci et si vous avez compris... Chapeau bas, Denis...

Merci fabcad... C'est "un pet cable" Denis...

Bonjour à tous... Bon, j'ai deux chaines de caractères qui doivent faire la même longueur (9) J'ai écris çà : (while (< (length x) 9) (setq x (strcat " " x))) (while (< (length y) 9) (setq y (strcat " " y))) Mais je me suis aperçu que (length renvoi le nombre d'élément d'une liste... :o Je cherche le nombre de caractère d'une chaine... Merci, Denis... (qui a un super site maintenant ! !)

PS : un site avec une mine d'information ! ! ;)

Bon, alors je vais cliqué "là"... Au fait, j'ai maintenant un site...

Pardon, je continuais mes "expériences" et je me suis relu... Je reformule : Dans : (command "_-mtext" "_none" pins "j" "hg" "h" (/ (* Haut Ech) 1000.0) "_r" rot "_w" "0.00" Texte "") (princ (- rot 300)) (command "_.line" pins (polar pins rot 5) "") Pourquoi ma ligne n'est pas le long du texte (qui lui est bien orienté) ? Merci à vous, Denis...

Pfffffff, y-a rien à faire ! ! "j'entrave quedalle" (H.Simpson) J'ai rot = 51.38 (pas "51.38" ni "51.38g"), PIns les coordonnées d'un point Mais (command "_.line" PIns (polar PIns (- rot 300) 5) "") Me donne une ligne de 5 de long, mais de 51.38 d'angle dans le sens trigo, alors que je suis dans le sens horaire ! ! Il n'y a rien à faire... Tous les efforts surhumains de (gile) n'en viennent pas à bout ! ! (les miens nonplus...) Quand je lance la commande "distance" pour connaitre le bon angle, j'obtiens bien 51.38. Quoi c'est ti que c'truc là ? ? Merci, Denis...

Moi aussi... ;) Denis...

Parce que je ne sais pas les utiliser depuis lisp, sans passer pas DesignCenter... Denis...

Bonjour Morgul, J'ai déjà cherché et (gile) m'a donné la solution : http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=12238 Bonne chance, Denis...

Je l'ai fait, mais rien... Parcontre, j'ai copier les paramètres de formatage à la fin et Hop, c'est bon... Les paramètres suivent : ;|«Visual LISP© Format Options» (200 2 10 2 T "Fin de " 100 200 0 0 nil nil T T T) ;*** NE PAS AJOUTER de texte au-dessous du commentaire! ***|; Merci encore, Denis...