rajouter / enlever points de cotes pivotés

[PHILPHIL]

bonjour

 

y a t'il un LISP permettant de rajouter / enlever des points de cotes sur des cotes pivotes ??

 

j'ai bien entamer ca

 

mais c'est franchement pas TOP

manque l'orientation de la cote et son style

et bien d'autre trucs

 

merci

 

phil

 

 

;;---------------------------------

;;;ajouter des point dans des cotes

;;---------------------------------

 

 

(defun c:apc ()

(prompt "CLIQUER SUR LA COTE A MODIFIER POUR ADITIONNER DES POINTS:")

(setq SELent nil)

(while (null SELent) (setq SELent (ssget (list (cons 0 "DIMENSION")))))

(setq ENT1 (ssname SELENT 0))

(setq Poi (cdr (assoc 10 (entget (ssname SELENT 0)))))

(COMMAND "qdim" SELENT "" "m" "a" pause "q" poi "")

(princ)

)

 

 

;;------------------------------------

;;;supprimer des points dans des cotes

;;------------------------------------

 

 

(defun c:spc ()

(prompt "CLIQUER SUR LA COTE A MODIFIER SOUSTRAIRE DES POINTS:")

(setq SELent nil)

(while (null SELent) (setq SELent (ssget (list (cons 0 "DIMENSION")))))

(setq ENT1 (ssname SELENT 0))

(setq Poi (cdr (assoc 10 (entget (ssname SELENT 0)))))

(COMMAND "qdim" SELENT "" "m" "s" pause pause pause pause pause pause pause pause pause pause "q" poi ""

)

(princ)

)

(princ)