Aller au contenu
Problème de lien d'inscription (résolu ?) ×

Pour aller plus loin en LISP

Vous avez déjà écrit des programmes LISP? Vous souhaitez vous perfectionner? Vous butez sur un problème de programmation? Les termes de DCL, ActiveX, réacteur, compilation ne vous sont pas inconnus? Ce forum est pour vous.

1 297 sujets dans ce forum

  1. Ces listes qui n\'en sont pas

    Par (gile),
    • 9 réponses
    • 14,1 k vues

  2. Pourquoi Lisp?

    Par Invité Patrick,
    • 1 réponse
    • 9,3 k vues

  3. Les dictionnaires

    Par (gile),
    • 23 réponses
    • 21,9 k vues

  4. boite de dialogue, selectionner plusieurs fichiers dwg

    Par PHILPHIL,
    • 3 réponses
    • 214 vues

  5. custom entity

    Par kluna,
    • 2 réponses
    • 226 vues

  6. 3D Orbit

    Par kluna,
    • 4 réponses
    • 269 vues

  7. VERIFIER SI COORDONNEES D'UN POINT EST DANS UN RECTANGLE

    Par PHILPHIL,
    • 11 réponses
    • 473 vues

  8. Comment faire un bouton avec une image dans un DCL ? 1 2

    Par DenisHen,
    • 43 réponses
    • 1,1 k vues

  9. CHAT GPT

    Par jujugeometre,
    • 11 réponses
    • 1 k vues

  10. Creation d'atlas depuis des blocs

    Par fabcad,
    • 11 réponses
    • 550 vues

  11. Bouton image avec un texte ?

    Par Flobott,   
    • 5 réponses
    • 259 vues

  12. Presentations multiples : Automatisation 1 2 3

    Par ACAD666,
    • 53 réponses
    • 5,6 k vues

  13. Aide création lisp pour enregistrer des calques prédéfinis

    Par Despe,
    • 0 réponse
    • 177 vues

  14. pagination automatique 1 2

    Par zebulon_,
    • 43 réponses
    • 22,6 k vues

  15. rajouter les VARIABLES GLOBALES

    Par PHILPHIL,
    • 7 réponses
    • 401 vues

  16. ???

    Par (gile),
    • 17 réponses
    • 3 k vues

  17. Arrondir lignes polylignes

    Par dfbiagio,
    • 8 réponses
    • 476 vues

  18. Routine de Préfixe - Suffixe - Nouvelle valeur pour Données D'Objets

    Par fabcad,
    • 9 réponses
    • 1,9 k vues

  19. Publication de plusieurs folios en PDF avec noms de signet automatique...

    Par JPhil,
    • 6 réponses
    • 1,9 k vues

  20. Les LISP de patrick_35, une belle reconnaissance

    Par Patrick Emin, Autodesk,
    • 1 réponse
    • 600 vues

  21. [Challenge] Suite de Fibonacci

    Par (gile),
    • 22 réponses
    • 6,3 k vues

  22. [Résolu] Julian.lsp - ExpressTools

    Par Luna,
    • 3 réponses
    • 904 vues

  23. Conversion des champs en textes

    Par Fraid,
    • 8 réponses
    • 1,2 k vues

  24. Integrer une action dans la structure dcl dans un fichier lisp

    Par fabcad,
    • 3 réponses
    • 881 vues

  25. Publier une sélection de présentation automatiquement

    Par yusukens82,
    • 10 réponses
    • 1,2 k vues


  • Statistiques des forums

    • Total des sujets
      48,2 k
    • Total des messages
      292,1 k

  • Sujets

  • Messages

    • bonuscad
      Comment exporter Mensura en DWG un fichier de points topo ?

      Par bonuscad · Posté(e)

      Ce que tu peux faire aussi si tu n'as pas Covadis et que tu veux rendre compatible ton fichier avec celui-ci en créant le bloc TCPOINT. Voici le code approprié à ton dessin pour faire cette conversion. (Faire un copier-coller directement en ligne de commande) (if (not (tblsearch "BLOCK" "TCPOINT")) (progn (entmake '((0 . "BLOCK") (100 . "AcDbEntity") (100 . "AcDbBlockBegin") (2 . "TCPOINT") (70 . 2) (8 . "0") (62 . 256) (6 . "ByLayer") (370 . -2) (10 0.0 0.0 0.0)) ) (entmake '( (0 . "POINT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (100 . "AcDbPoint") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (50 . 0.0) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "T_PT_MAT") (100 . "AcDbText") (10 0.25 0.25 0.0) (40 . 0.75) (1 . "") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (280 . 0) (3 . "Matricule") (2 . "MAT") (70 . 0) (73 . 0) (74 . 0) (280 . 0) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "T_PT_COD") (100 . "AcDbText") (10 -0.25 -0.75 0.0) (40 . 0.75) (1 . "") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) (11 -0.25 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (280 . 0) (3 . "CodeSymbole") (2 . "COD") (70 . 0) (73 . 0) (74 . 3) (280 . 0) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "T_PT_ALT") (100 . "AcDbText") (10 0.25 -1.0 0.0) (40 . 0.75) (1 . "") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) (11 0.25 -0.25 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (280 . 0) (3 . "Altitude") (2 . "ALT") (70 . 0) (73 . 0) (74 . 3) (280 . 0) ) ) (entmake '((0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0") (62 . 256) (6 . "ByLayer") (370 . -2))) ) ) (defun TCPoint4 (pt num cod / ) (entmake (append '( (0 . "INSERT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "T_PT_SEMIS") (100 . "AcDbBlockReference") (66 . 1) (2 . "TCPOINT") (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0) ) (list (cons 10 pt) '(210 0.0 0.0 1.0)) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "T_PT_MAT") (100 . "AcDbText") ) (list (cons 10 pt)) '( (40 . 1.0) ) (list (cons 1 num)) '( (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) ) (list (cons 11 pt)) '( (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (280 . 0) (2 . "MAT") (70 . 0) (73 . 0) (74 . 0) (280 . 0) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "T_PT_COD") (100 . "AcDbText") ) (list (cons 10 pt)) '( (40 . 1.0) ) (list (cons 1 cod)) '( (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) ) (list (cons 11 pt)) '( (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (280 . 0) (2 . "COD") (70 . 0) (73 . 0) (74 . 3) (280 . 0) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "T_PT_ALT") (100 . "AcDbText") ) (list (cons 10 pt)) '( (40 . 1.0) ) (list (cons 1 (rtos (caddr pt) 2 2))) '( (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) ) (list (cons 11 pt)) '( (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (280 . 0) (2 . "ALT") (70 . 0) (73 . 0) (74 . 3) (280 . 0) ) ) ) (entmake '((0 . "SEQEND") (62 . 256) (6 . "ByLayer") (370 . -2))) ) ((lambda ( / dist_num ang_num ss n pt ss_num num) (setq dist_num 0.25) (setq ang_num (* pi 0.75)) (setq ss (ssget '((0 . "POINT")))) (cond (ss (repeat (setq n (sslength ss)) (setq pt (cdr (assoc 10 (entget (ssname ss (setq n (1- n))))))) (setq ss_num (ssget "_C" pt (polar pt ang_num dist_num) '((0 . "TEXT") (8 . "Textes - Numéros")))) (setq num (cdr (assoc 1 (entget (ssname ss_num 0))))) (TCPoint4 pt num "") ) ) ) ))  
    • lili2006
      Comment exporter Mensura en DWG un fichier de points topo ?

      Par lili2006 · Posté(e)

      Bonsoir à toutes et tous,   Sous Covadis, c'est juste une immatriculation des points,..( _CovaImmatric)   Selon cette adresse,le fichier ainsi généré => https://lili2006.kroqi.fr/shared/#/file/204997ef26826fe29b2a0b6d8419d650b915868f2d975ec2f4e88d3fe2ff00db  
    • Syl2007
      Comment exporter Mensura en DWG un fichier de points topo ?

      Par Syl2007 · Posté(e)

      Hello Erased, hello à tous, Ci-joint le fichier dwg avec les points topo avec du texte au lieu d'attributs. Je me demande s'il n'y a pas  un problème de dénomination : point topo Mensura, point seul, attribut, bloc point Autocad, bloc point Covadis, point Autocad ... ? Moi, je souhaiterais juste récupérer un point (dans un calque) avec une alti et un matricule associés (chacun dans un calque propre, calque alti et calque matricule). Et ce, sans que le dessinateur sous Mensura n'ait à faire de manip contraignante ou fastidieuse. Encore une fois, il me semble que ça se gérait dans les options de l'export. Bien à tous, salutations. test avec block-2.dwg
    • Syl2007
      Comment exporter Mensura en DWG un fichier de points topo ?

      Par Syl2007 · Posté(e)

      Salut et merci Erased, J'ai récupéré le dwg et non crée cf. plus haut, ainsi je ne connais pas la version de Mensura utilisée, ce genre de chose a pu changer depuis 4 ou 5 ans ? Pour la petite histoire, la normalité comme le bon sens fait partie finalement ce qui est le plus mal partagé. Cf. Descartes et Benjamin Franklin qui ironisent sur le sujet.   J'ai déjà eu plusieurs fois des blocs de pts topo explosés (1 pt + 1 etxte pour l'alti + 1 texte pour le matricule). Je suppose que ça vient de mauvaises pratiques et tout simplement de méconnaissance du produit (comme tant de fois). Lorsqu'on le sait, il n'y a plus de sujet. D'autant que quant on exporte, on n'a pas tjrs le logiciel pour vérifier que l'export est vraiment propre, et puis par définition, c'est pour quelqu'un de l'extérieur ... Et ainsi si c'est juste une case à cocher ou autres, on n'a pas tjrs le feedback de celui qui a reçu le fichier. La personne se débrouille avec ce qu'il a. Par contre peut-être que les oreilles de l'expéditeur sifflent un peu 😆 . Donc récupérer les blocs explosés, c'est possible, non explosés, c'est possible aussi. Je suppose que ça se joue à l'export mais où, c'est là que je sèche. De mémoire, c'était très simple. Si vous savez, je veux bien avoir vos lumières. Dans l'immédiat, je ne peux pas partager le dwg, mais il est comme je l'ai décrit. Merci encore, slts.        
    • yann-2
      2 élévations différentes

      Par yann-2 · Posté(e)

      Bonjour et merci cath287, bonjour à tous, C'est ça ! (je n'aurai pas eu l'idée d'aller chercher dans les tolérances). Je pensais passer à côté d'une solution AUTOCAD prévu pour cela... Je ne dois pas être le seul à faire ce type de cotation (?) Bonne journée à tous.

  • Sujets

×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité

  J’accepte