ENLEVER DES REACTEURS

[PHILPHIL]

HELLO

 

bon je ne sais plus si ca s'appele vraiment un reacteur mais bon

 

je voudrais dans un lisp modifier le code dxf d'une cote pour quelle soit en option 2 ( voir ci dessous )

 

dans la fenetre des propriétées à "AJUSTER"

déplacement du texte ==> option 1 "conserver la ligne de cote avec le texte"

option 2 "deplacer le texte , ajouter une ligne de repere"

option 3 "deplacer le texte, pas de ligne de repere"

 

 

dans ce lisp si la cote est en otpion 2 ca marche sans probleme par contre si apres certaines manips la cote est sur l'option1 le texte se déplace bien a droite mais sans tenir compte du décalage

 

bon l'idée de droite gauche sur une cote est parfois aleatoire suivant la position du reacteur 10 qui bouge si la cote a été modifiée par une symétrie

 

merci

 

phil

 

 

 	; -------------------------------------------------------
				; MODIFICATION DE L EMPLACEMENT DU TEXTE DE COTE A DROITE
				; -------------------------------------------------------
(defun C: CD ()
 (setvar "cmdecho" 0)
 (setq OSM (getvar "osmode"))
 (setq DECATEXTECOTE (atof (getcfg "APPDATA/DECATEXTECOTE")))
 (setq TMP (getdist (strcat "\nENTRER LE DECALAGE DE TEXTE DE COTE <" (rtos DECATEXTECOTE 2 8) ">: ")))
 (if TMP
   (setq DECATEXTECOTE TMP)
 )
 (setvar "osmode" 0)
 (prompt "\nCLIQUER SUR LE(S) COTE(S) A MODIFIER :")
 (setq ENTX NIL)
 (while (null ENTX) (setq ENTX (ssget (list (cons -4 "[b]<[/b]or") (cons 0 "DIMENSION") (cons -4 "or>")))))
 (setq COMPT 0)
 (setq COM (sslength ENTX))
 (while (< COMPT COM)
   (progn (setq SJ2 (entget (ssname ENTX COMPT)))
   (setq POINT10  (cdr (assoc 10 SJ2))
	 POINT13  (cdr (assoc 13 SJ2))
	 POINT14  (cdr (assoc 14 SJ2))
	 ANGCOTE  (cdr (assoc 50 SJ2))
	 LONGCOTE (cdr (assoc 42 SJ2))
	 CODEMPLA (cdr (assoc 70 SJ2))
   )
   (command "scu" "z" POINT10 (polar POINT10 ANGCOTE 10))
   (if (> (car (trans POINT13 0 1)) (car (trans POINT10 0 1)))
     (progn (setq DIST (+ LONGCOTE DECATEXTECOTE)))
     (progn (setq DIST DECATEXTECOTE))
   )
   (command "scu" "p")
   )
   (if	(or (= CODEMPLA 33) (= CODEMPLA 161))
     (progn (setq ANGLECOTE2 (angle POINT13 POINT14))
     (setq POINT11 (polar POINT10 ANGLECOTE2 DIST))
     (setq SJ2 (subst (cons 70 160) (assoc 70 SJ2) SJ2))
     (entmod SJ2)
     (setq SJ2 (subst (cons 11 POINT11) (assoc 11 SJ2) SJ2))
     (entmod SJ2)
     )
   )
   (if	(or (= CODEMPLA 32) (= CODEMPLA 160))
     (progn (setq POINT11 (polar POINT10 ANGCOTE DIST))
     (setq SJ2 (subst (cons 70 160) (assoc 70 SJ2) SJ2))
     (entmod SJ2)
     (setq SJ2 (subst (cons 11 POINT11) (assoc 11 SJ2) SJ2))
     (entmod SJ2)
     )
   )
   (entmod SJ2)
   (setq COMPT (1+ COMPT))
 )
 (setvar "osmode" OSM)
 (setcfg "APPDATA/DECATEXTECOTE" (rtos DECATEXTECOTE 2 8))
 (princ)
)

[Edité le 13/11/2008 par PHILPHIL]