alignement des cotes

[PHILPHIL]

bonjour

 

petit souci de lisp

 

ce petit lisp ne fonctionne pas

faut absolument que je tappe sur le "zero"

pour qu'il marche alors que "zero" est dans le programme

mystere ?? ou bug ???

la fonction "' dimspace" n'est elle pas programmable ????

 

phil

 

 ;; -----------------
;; ALIGNE LES COTES  LES AUTRES PAR RAPPORT A UNE
;; -----------------

(defun C:COA ()
  (setvar "cmdecho" 0)
 (command "_DIMSPACE" pause (while (> (getvar "cmdactive") 0) (command PAUSE)) "0")
 (princ)
)

[didier]

hello

 

au risque de passer pour l'ignare du jour,

elle est censée faire quoi cette "fonction" DIMSPACE ?

 

et le lisp lui-même, quelle action a t-il sur les cotes ?

 

Amicalement

[PHILPHIL]

bonjour

 

nouvelle fonction dans 2008

 

cette fonction permet de realigner les ligne de cotes entre elles

si on donne "0" comme reference

ou si sur "auto" les cotes sont espacées de deux fois la hauteur de texte de la cote de base

 

phil

[Bred]

Salut,

Je pense que ceci

(while (> (getvar "cmdactive") 0) (command PAUSE))

Ne peux fonctionner DANS une commande, car la commande est toujours active, donc ne valideras pas...

 

Test ça :

(defun C:COA (/ cot-B cot-esp)
(while (not cot-B)
 (setq cot-B (car (entsel "\nSélectionnez la cote de base:")))
 (if cot-B
   (if (not (equal (cdr (assoc 0 (entget cot-B))) "DIMENSION"))
     (setq cot-B nil))))

(prompt "\nSélectionnez les cotes à espacer:")
(setq cot-esp (ssget '((0 . "DIMENSION"))))
(vl-cmdf "_DIMSPACE" cot-B cot-esp "" "0")
(princ)
)

[PHILPHIL]

HELLO

 

grand merci bred ca marche

 

y'a un tit lisp aussi que j'aimerais bien faire

 

certains quand ils dessinent de cotes superposent les points d'accroche des lignes d'attache avec les points de la ligne de cote

 

ce qui fait qu'il n'y ait plus que deux grips par cote exepte celui du texte

et donc plus du tout de ligne d'attache

 

c'est peut etre bcp plus rapide pour tout coter sur une seule ligne

mais franchement en...... quand il sagit de modifier ses dites cotes

 

un tit lisp permettant de separer les 4 grips des cotes de facons distinctes serait sympa

quitte apres à devoir reprendre chaque point des lignes d'attache sur des extremites d'entites

comme tous bon dessinateurs devrait le faire

 

phil