Classement

Hello @bonuscad Mais comment veux tu faire tourner du Lisp AutoCAD sur Mensura ? Ou alors on a Mensura et aussi AutoCAD !? Bye, lecrabe

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 "") ) ) ) ))

Bonjour, en utilisant les tolérances limites tu obtiendrais quelque chose comme ça C'est ce que tu cherches?