Aller au contenu
  • Qui est en ligne   0 membre, 0 anonyme, 55 invités (Afficher la liste complète)

    • Il n’y a aucun utilisateur enregistré actuellement en ligne

LISP et Visual LISP


Sous-forums

  1. Débuter en LISP

    Vous voudriez savoir ce qu'est le LISP? Vous êtes débutant, vous n'êtes pas programmeur mais vous souhaitez vous y mettre? Ce forum est fait pour vous!

    14,5 k
    messages
  2. 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.

    9,8 k
    messages
  3. Visual LISP

    Vous voulez en savoir plus sur le Visual LISP, son éditeur/débugeur/compilateur? Vous voulez partager vos expériences dans cet environnement? Ce forum est pour vous...

    2,2 k
    messages
  4. Routines LISP

    Postez ici vos routines LISP. Une routine est du code court destiné à être réutilisé. Par exemple, un programme mettant à jour la valeur d'un attribut de bloc est une routine. Ne postez pas d'applications ici!

    13,2 k
    messages
  5. ObjectDCL

    ObjectDCL est un projet open source qui permet l'ajout de boites de dialogues interfacées avec le LISP.

    415
    messages

406 sujets dans ce forum

  1. Aide aux développeurs

    • 0 réponse
    • 1,6 k vues
  2. Adieu Patrick_35 1 2 3

    • 52 réponses
    • 12,7 k vues
    • 9 réponses
    • 279 vues
  3. LISP - Sélection

    • 4 réponses
    • 148 vues
    • 17 réponses
    • 601 vues
    • 4 réponses
    • 185 vues
    • 13 réponses
    • 415 vues
    • 9 réponses
    • 490 vues
    • 22 réponses
    • 586 vues
    • 2 réponses
    • 299 vues
    • 4 réponses
    • 343 vues
    • 13 réponses
    • 397 vues
  4. Double tri sur liste

    • 5 réponses
    • 275 vues
    • 3 réponses
    • 314 vues
    • 27 réponses
    • 1,1 k vues
    • 9 réponses
    • 433 vues
    • 2 réponses
    • 378 vues
    • 0 réponse
    • 236 vues
    • 5 réponses
    • 581 vues
    • 13 réponses
    • 444 vues
    • 4 réponses
    • 551 vues
    • 8 réponses
    • 656 vues
    • 0 réponse
    • 560 vues
    • 20 réponses
    • 3,8 k vues
    • 2 réponses
    • 1,3 k vues


  • Statistiques des forums

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

  • Messages

    • 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 "") ) ) ) ))  
    • 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  
    • 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
    • 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.        
    • 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é