Accrochage objet

[nicolas2]

Bonjour à tous,

je n'arrive pas à restaurer l'accrochage aux objets en fin de routine :(

 

 

(defun c:FB (/ DiamExt RayInt RayCar Ep	HtBD HtTot PtIns X0 X1 Y0 Y1
     Ang1)
 [surligneur]
 (setq os (getvar "osmode"))		; stocker
 (setvar "osmode" 0)			; désactiver[/surligneur]
 (setq
   DiamExt (getreal "\nDiamètre extérieur: ")
   RayCar  (/ DiamExt 10.0)
   Ep	    (getreal "\nEpaisseur: ")
   HtBD    (getreal "\nHauteur du bord droit: ")
   HtTot   (+ HtBD
       Ep
       (- DiamExt
	  (sqrt	(- (expt (- DiamExt RayCar) 2.0)
		   (expt (- (* DiamExt 0.5) Ep RayCar) 2.0)
		)
	  )
       )
    )
   PtIns   (getpoint "\nPoint d'insertion: ")
   X0	    (- (car PtIns) (* DiamExt 0.5))
   X1	    (+ (car PtIns) (* DiamExt 0.5))
   Y0	    (- (+ (cadr PtIns) HtTot) DiamExt Ep)
   Y1	    (+ (cadr PtIns) HtBD)
 )
 (command
   "_.PLINE"
   (list X1 (nth 1 PtIns))
   (list X1 Y1)
   "_A"
   "_CE"				; Arc défini par son centre
   (list (- X1 RayCar Ep) Y1)
   "_A"				; Angle...
   (setq Ang1 (/ (* 180
	     (angle (list (nth 0 PtIns) Y0)
		    (list (- X1 RayCar Ep) Y1)
	     )
	  )
	  pi
       )
   )
   "_CE"
   (list (nth 0 PtIns) Y0)
   "_A"				; Angle...
   (- 180 (* 2 Ang1))
   "_CE"
   (list (+ X0 RayCar Ep) Y1)
   "_A"				; Angle...
   Ang1
   "_L"				; Ligne...
   (list X0 (nth 1 PtIns))
   "_C"				; Ferme la polyligne
   [surligneur]
   (setvar "osmode" os)		; restaurer[/surligneur]
 )
)
(prompt "M.D.D. - FondB.lsp chargé.")
(prompt
 "\nTapez FB pour dessiner un fond GRC suivant NF E 81-102."
)
(princ)

 

Merci pour votre aide

[bseb67]

Salut,

 

ben je ne vois pas le problème, il faut juste penser à mettre os en local.

mais ta fonction marche chez moi.

 

 

[(gile)]

Salut,

 

Ton (setvar "osmode" os) est dans le bloc command :

 

(command ... (setvar "osmode" os)[surligneur])[/surligneur]

 

Il faut faire :

 

(command ... [surligneur])[/surligneur] (setvar "osmode" os)

 

PS : Je me suis permis de reformater ton code pour qu'il soit plus lisible.

[nicolas2]

Merci Bseb67, merci Gile

tout est OK :)

 

-------------------------------------------

Celui qui pose une question est bête 5 minutes, celui qui n'en pose jamais l'est toute sa vie