yann-2

Lisp essai.pdf

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.

Bonjour à tous, J'utilise la cotation superposée pour coter l'élévation Y de mes plans, avec comme base le 0 du SCU. Mon client me demande de faire apparaître aussi la valeur par rapport au 0 usine. Exemple : +6000 (+120000) Existe t'il un moyen pour le faire simplement (donner une valeur différentielle : +114000 dans mon exemple) ? Merci à vous.

OK. Merci encore et bonne continuation à tous.😉

Bonjour (gile), Merci d'avoir commis le LISP de départ et cette modification. Juste une question : Dans la première version ht (getvar 'textsize)) que l'on ne retrouve pas dans la deuxième version. Pourtant, lorsque l'on modifie sa hauteur, celle-ci est bien prise en compte ?

Bonjour à tous, Ce programme permet d'écrire des angles à la volée sur une vue en orientation en désignant tout d'abord le centre de la vue (1 seule fois) puis en désignant les différents angles. Ce programme a été écrit par un Cadxipien dont je ne me rappelle pas le nom, en tous cas, merci à lui. J'ai tenté de le modifier pour pouvoir écrire en MTEXT plutôt qu'en TEXT, mais je n'y arrive pas. Merci pour votre aide. (defun c:y (/ *error* space cen pt ang ht just rot text) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (defun *error* (msg) (and msg (/= msg "Fonction annulée") (prompt (strcat "\nErreur : " msg)) ) (vla-EndUndoMark *acdoc*) (princ) ) (if (setq cen (getpoint "\nCentre de la cotation: ")) (progn (vla-StartUndoMark *acdoc*) (setq space (vla-get-Block (vla-get-ActiveLayout *acdoc*))) (while (setq pt (getpoint cen "\nExtémité de l'angle: ")) (setq pt (trans pt 1 0) cen (trans cen 1 0) ang (angle cen pt) ht (getvar 'textsize)) (cond ((equal ang (* pi 0.5) 1e-9) (setq just acAlignmentBottomCenter rot 0.0 ) ) ((equal ang (* pi 1.5) 1e-9) (setq just acAlignmentTopCenter rot 0.0 ) ) ((< (* pi 0.5) ang (* pi 1.5)) (setq just acAlignmentMiddleRight rot (+ pi ang) ) ) (T (setq just acAlignmentMiddleLeft rot ang ) ) ) ;;(vla-AddLine space (vlax-3d-point cen) (vlax-3d-point pt)) (setq text (vla-AddText space (strcat (angtos (- (* 0.5 pi) ang)) "°") (vlax-3d-point pt) ht)) (vla-put-Rotation text rot) (vla-put-Alignment text just) (vla-put-TextAlignmentPoint text (vlax-3d-point pt)) ) ) ) (*error* nil) )