Classement

Je suppose que ça s'adresse à moi? (vl-load-com) (defun c:DimSwicth_Line&Arrow ( / js ent obj pt_sel dxf_ent pt_first pt_snd key lpr) (setq js (ssget "_+.:E:S" (list (cons 0 "DIMENSION") (cons 67 (if (eq (getvar "CVPORT") 2) 0 1)) (cons 410 (if (eq (getvar "CVPORT") 2) "Model" (getvar "CTAB"))) ) ) ) (cond (js (setq obj (vlax-ename->vla-object (setq ent (ssname js 0)))) (cond ((or (eq (vlax-get obj "ObjectName") "AcDbRotatedDimension") (eq (vlax-get obj "ObjectName") "AcDbAlignedDimension") ) (setq pt_sel (cadar (cdddar (ssnamex js))) pt_first (cdr (assoc 13 (setq dxf_ent (entget ent)))) pt_snd (cdr (assoc 14 dxf_ent)) ) (if (> (distance pt_sel pt_snd) (distance pt_sel pt_first)) (setq lpr '("ExtLine1Suppress" "Arrowhead1Type")) (setq lpr '("ExtLine2Suppress" "Arrowhead2Type")) ) (foreach n (mapcar 'cons (mapcar '(lambda (x) (vlax-get obj x)) lpr) lpr) (if (zerop (car n)) (vlax-put obj (cdr n) (if (member (cdr n) '("ExtLine1Suppress" "ExtLine2Suppress")) -1 19)) (vlax-put obj (cdr n) 0) ) ) ) (T (princ "\nN'est pas une côte pivotée ou alignée")) ) ) (T (princ "\nPas de sélection valable")) ) (prin1) )

Une variante en vlax, plus concise. (vl-load-com) (defun c:DimSwicth_Line&Arrow ( / js obj key lpr) (setq js (ssget "_+.:E:S" (list (cons 0 "DIMENSION") (cons 67 (if (eq (getvar "CVPORT") 2) 0 1)) (cons 410 (if (eq (getvar "CVPORT") 2) "Model" (getvar "CTAB"))) ) ) ) (cond (js (setq obj (vlax-ename->vla-object (ssname js 0))) (cond ((or (eq (vlax-get obj "ObjectName") "AcDbRotatedDimension") (eq (vlax-get obj "ObjectName") "AcDbAlignedDimension") ) (princ "\n<Click gauche> pour switcher l'état / <Click droit> pour valider") (while (and (not (member (setq key (grread T 4 2)) '((2 13) (2 32)))) (/= (car key) 25)) (cond ((eq (car key) 3) (setq lpr '("ExtLine1Suppress" "ExtLine2Suppress" "Arrowhead1Type" "Arrowhead2Type")) (foreach n (mapcar 'cons (mapcar '(lambda (x) (vlax-get obj x)) lpr) lpr) (if (zerop (car n)) (vlax-put obj (cdr n) (if (member (cdr n) '("ExtLine1Suppress" "ExtLine2Suppress")) -1 19)) (vlax-put obj (cdr n) 0) ) ) ) ) ) ) (T (princ "\nN'est pas une côte pivotée ou alignée")) ) ) (T (princ "\nPas de sélection valable")) ) (prin1) )

Salut Je trouve que tu pousses un peu. Tu n'as même pas cherché comment faire car changer des variables en lisp, il n'y a rien de plus simple. (De plus que tu donnes les variables !) J'ai un besoin, je demande sans même chercher, un merci histoire d'aller dans le sens du poil. On consomme en gros Je passe mon tour. @-

Avec la fonction setvar @+

Bonjour, J'ai touvé sur internet un lisp permettant d'enlever la ligne de côte en utilisant les variables DIMSE1 et DIMSE2. Est ce que quelqu'un aurait une solution pour rajouter à ce lisp les variables DIMBLK1 et DIMBLK2, celles ci permettent d'enlever la flèche. Merci XL-TOGL.lsp