RhymOne Posté(e) le 19 mars 2010 Posté(e) le 19 mars 2010 Bonjour a tous,Est ce que qqun a la connaissance d'un lisp pour inserer en serie un point sur un texte et élevé automatiquement le point celon le texte.Sur des milliers de points en pas trop de temps de calcul serait top....Merci d'avance. DAO: AutoCAD(2D & 3D), CovadisCAO: 3D's MAX, Rhinoceros 3D, REVITGeoModeliSation: AutoCAD MEP, RhinoTerrainRendu: Vray for Rhino, Keyshot, LumionProgrammation: Grasshopper, Dynamo, VisualStudio C.V.Profil LinkedInBookSite web http://nsa37.casimages.com/img/2016/09/26/160926023334168603.jpg
(gile) Posté(e) le 19 mars 2010 Posté(e) le 19 mars 2010 Salut, Si j'ai bien compris la demande... (defun c:txt2pt (/ n ss ent elst alt ins) (if (and (setq n -1) (setq ss (ssget '((0 . "TEXT"))))) (while (setq ent (ssname ss (setq n (1+ n)))) (if (setq alt (distof (cdr (assoc 1 (setq elst (entget ent)))))) (progn (setq ins (assoc 10 elst)) (entmake (list '(0 . "POINT") (list 10 (cadr ins) (caddr ins) alt)) ) ) ) ) ) (princ) ) Gilles Chanteau - gileCAD - GitHub Développements sur mesure pour AutoCAD
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant