Message posté par : bruno v. ---------------------------------------- Bonjour, Une cotation alignée, cela irait? Si oui dans excel tu enlève tes rangées d'entête, tu ne garde que les valeurs et tu enregistre ton fichier en CSV avec comme séparateur le point vigule ";" Ensuite dans ton dessin tu charge le lisp (tu peux aussi copier-coller directement le code en ligne de commande pour tester) Tu pointe ton fichier "csv" et cela devrait se dessiner. ----------------- Code : (defun c:readCSV ( / input f_open adoc obj_dim l_read x1 y1 x2 y2 value pt_start pt_end pt_text dimObj) (setq input (getfiled "Select a CSV file" "" "csv" 2) f_open (open input "r") ) (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object)) obj_dim (vla-add (vla-get-Dimstyles adoc) "Zone") ) (vla-put-activedimstyle adoc obj_dim) (while (setq l_read (read-line f_open)) (setq x1 (atof (substr l_read 1 (vl-string-position 59 l_read))) l_read (substr l_read (+ 2 (vl-string-position 59 l_read))) y1 (atof (substr l_read 1 (vl-string-position 59 l_read))) l_read (substr l_read (+ 2 (vl-string-position 59 l_read))) x2 (atof (substr l_read 1 (vl-string-position 59 l_read))) l_read (substr l_read (+ 2 (vl-string-position 59 l_read))) y2 (atof (substr l_read 1 (vl-string-position 59 l_read))) l_read (substr l_read (+ 2 (vl-string-position 59 l_read))) value (substr l_read 1 (vl-string-position 59 l_read)) pt_start (list x1 y1) pt_end (list x2 y2) pt_text (mapcar '* (mapcar '+ pt_start pt_end) '(0.5 0.5)) dimObj (vla-AddDimAligned modelSpace (vlax-3d-point pt_start) (vlax-3d-point pt_end) (vlax-3d-point pt_text)) ) (vla-put-TextOverride dimObj value) (vla-put-TextRotation dimObj (angle pt_start pt_end)) (vla-put-ArrowheadSize dimObj 0.5) (vla-put-TextHeight dimObj 1.0) (vla-put-ExtLine1Suppress dimObj :vlax-true) (vla-put-ExtLine2Suppress dimObj :vlax-true) ;(vla-put-DimLineInside dimObj :vlax-true) (vla-Update dimObj) ) (close f_open) (prin1) ) ----------------- ---------------------------------------- Le message est situé https://georezo.net/forum/viewtopic.php?pid=333991#p333991 Pour y répondre : autodesk_sig_fr(a)ml.georezo.net ou reply de votre messagerie Pour vous désabonner connectez-vous sur le forum puis Profil / Abonnement -- Association GeoRezo - le portail géomatique https://georezo.net