coller parfaitement des points sur une polyligne
Bonjour, Je me retrouve fréquemment confronté à un problème que je n'arrive pas à résoudre et qui me fait perdre beaucoup de temps dans mes conceptions de routes dans Autocad. Je m'explique, Je travaille régulièrement sur les mêmes projets : J'importe dans Autocad une route représentée par une polyligne créé par Geomedia 5.2. Geomedia me permet également d'importer dans Autocad, sur 2 calques séparés, des points kilométriques le long de cette route (tous les 1km), 1 calque avec les kp dans u
Salut, Ce code fonctionne avec les points, blocs, textes et textes multiligne. ;; PtOnCurveY (gile)
;; Déplace parallèlement à l'axe Y les points, blocs textes sélectionnés sur la courbe
(defun c:MoveOnCurveY (/ space dist curve pts coord line)
(vl-load-com)
(or *acdoc*
(setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object)))
)
(setq space (if (= (getvar "CVPORT") 1)
(vla-get-PaperSpace *acdoc*)
(vla-get-ModelSpace *acdoc*)
)
)
(if
(and
(setq dist (getdist