Aller au contenu

Fraid

Membres
  • Compteur de contenus

    2 229
  • Inscription

  • Dernière visite

  • Jours gagnés

    7

Fraid a gagné pour la dernière fois le 24 avril

Fraid a eu le contenu le plus aimé !

Réputation sur la communauté

8 Neutral

À propos de Fraid

  • Rang
    ceinture noire 4em dan
  • Date de naissance 01.06.1966

Contact Methods

  • AIM
    1

Profile Information

  • Gender
    Male
  • Location
    _ ST Malo 35

Visiteurs récents du profil

Le bloc de visiteurs récents est désactivé et il n’est pas visible pour les autres utilisateurs.

  1. Bonjour, Tu t'est répondu à ta question.
  2. Fraid

    DWG vers KML

    Bonjour, Un fichier KML n'est pas si difficile que cela à écrire en Autolisp. Surtout que Google Earth Pro le réécris à sa convenance à l'ouverture, ce qui permet d'avoir un petit fichier à envoyer. Didier soulève la principale difficulté, le système de coordonnés utilisé. En utilisant Circébatch c'est résolu, il ne reste plus qu'a enregistrer en UTF-8. Exemple d'un kml mini <?xml version="1.0" encoding="UTF-8"?><kml xmlns="http://www.opengis.net/kml/2.2"><Document><name> Acad.kml </name><Placemark><name> Acad </nam
  3. Je l'ai désactivée par défaut, tu n'as plus à décoché ... mais je l'ai laissé c'étais l'occasion de tester la fonction multidcl, qui se trouve donc bien pratique pour un petit dcl vite fait.
  4. Yop, désolé je l'avais oubliée j'ai modifié le code je savais bien que j'allais un peu vite...
  5. Bonjour, Je t'ai fait cela, (vl-load-com) ;;;getpoltorevit ;;;Séléctionne Les polylignes selon le nombre de segments et leur longueur ;;;Utilise les fonctions getptpol et multidcl ;;;La sauvegarde des critères se fait dans le dossier du dessin en cours. (defun c:getpoltorevit (/ ini rid wri l nb lg n spol pol sel) (if (setq ini (findfile "inigetpoltorevit.txt")) (progn (setq rid (open ini "r") nb (atoi (read-line rid)) lg (atof (read-line rid)) ) (close rid) ) (progn (se
  6. C'est la fonction d'appel du DCL qui est écrit dans un fichier à part, puis chargé. Si on n'efface pas les fichiers temporaires, on peut utiliser le dcl + la fonction pour un autre programme. On peut y arrivé sans écriture avec des fonctions supérieurs, mais on ne peut rien sauvegarder.
  7. Bonjour, Désolé du décalage temporel, mais voici quand même la suite de mon expérience. La fusion des 2 premiers lisp plus le rajout des toggles,(case à cocher) J'ai aussi évité de parcourir 2 fois la même liste avec foreach, mais c'étais pour rendre les choses plus lisible. j'ai réduit à un argument, une liste, avec comme premier élément le nom du dcl (qui apparait en titre) puis les tuiles qui seront reconnu par leur type. un simple texte : edit_box ex "Nom :" une liste de 2 textes : Toggle '( ": Visible" "1") 0 ou 1 pour activée ou non sinon popup_li
  8. Je vois que tu as compris l'un des rôles des attributs. sinon pour le lisp que je t'ai écrit, tu as juste à copier coller l'intégralité, puis taper RenameDwgByTxt
  9. Bonjour, En gardant le même principe, avec des popup_list ;;;multicheck ;;;Check liste adaptatif ;;;Arg :name, String nom et titre de la boite de dialogue ;;; linp, liste de liste ;;;Retour : Liste des valeurs choisies ou nil ;;;Exemple (multicheck "Fourreaux" '(("Nombre :" ("1" "2" "3")) ("Type :" ("P.E.H.D." "P.V.C.")) ("Diametre :"("28/32" "42/45")))) (defun multicheck (name linp / tdcl n dcltmp odcl tfct vals vdef acts fct ofct l ret) ;Ecriture du DCL (setq tdcl (strcat name " :dialog {label = \"" name "\"; :boxed_column { ") n 0) (foreach inp linp (setq tdcl (
  10. Bonjour, Pour répondre à mes besoin, j'ai du trouver une solution au problème qu'une boite de dialogue au contenu incertain peut poser. Je partage donc mon expérience qui, après recherche, n'est pas courante. Ici, avec un formulaire qui s'adapte au contenu d'une liste. ;;;multinput ;;;Formulaire adaptatif ;;;Arg :name, String nom et titre de la boite de dialogue ;;; linp, liste des champs ;;;Retour : Liste des valeurs des champs ou nil ;;;Exemple (multinput "Test" '("Nom :" "Prénom :" "Adresse :" "Age :")) (defun multinput (name linp / tdcl n dcltmp odcl tfct vals v
  11. Fraid

    Nouveau Site Perso

    Sinon, Je teste les sites avec un smartphone, si c'est ok, tout roule sur un pc. bon, c'est vrais je n'ais pas de site et ce n'est pas mon métier. mais j'en fait pour les amis exemple et surtout en interne et cela m'a toujours intéressé. depuis les années 95 j'ai du me faire cinq ou six sites que je n'ai jamais publier (j'ai trop d'idées qui se percutent). <je vois que tu utilise Wordpress Personnellement je préfère connaitre chaque lignes de mon html, css, javascript (hors API). C'est plus facile à maintenir. C'est un choix que je conçois parfai
  12. Fraid

    Nouveau Site Perso

    Yop pas de soucis, je suis sans fibre (un comble ...=)
  13. je viens de recevoir les billes de mon chantier, je m'y remettrai ce soir, mais en regardant vite fait vos codes, je me dit que suis passé à coté de quelque chose... déjà que l'indice d'un segment peut être un réel comme 0.5 ....je pensais que c'étais forcement un entier. Sinon Didier, tu ne calcul pas le p3 sur ta page Bulge. Cordialement
  14. Salut n’hésite pas à aller voir l'aide, c'est en VLA et VBA
×
×
  • Créer...