[resolu] base de la carte disparue

[GEGEMATIC]

salut à tous,

en bidouillant des couches FDO, on ne sait pas comment on a fait, mais on a supprimé la visibilité de la base la carte pour un zoom donné.

résultat, plus de base de la carte, quelque soit le zoom !!

clic droit comparer les seuils, on recoche le zoom manquant: change rien

 

sans conviction, je ressors un vieux lisp "c:ent_visible"

miracle tout revient, mais alors tout ...

pour revenir a l'affichage voulu des couches fdo, il faut les désactiver puis les réactiver à convenance.

 

ci dessous un extrait du code, mais le principe actif, dans notre cas c'est :

 

(big_clean '(60 . 1)'(60 . 0))

et là c'est complet.

a+

gégé

 

 

 

; ****************************************************************************
;;§/dxf/balaye le dessin entier remplace prop1 par prop2/prop1 prop2 
;;prop1 et 2 : code assoc dxf
(defun big_clean ( prop1 prop2 / )

(defun modif ()
 (setq eg (entget ent))
 (if (equal (assoc (car prop1) eg) prop1)
    (if prop2
(progn
 (setq eg (subst prop2 prop1 eg))
 ;(print eg)
 (entmod eg)
)
    )
 )
)
(setq ent (entnext))
(modif)
;(print eg)
(while (/= nil (setq ent (entnext ent)))
 (print "p")
 (modif)
 ;(print eg)
)
)

; ****************************************************************************
;;§/dxf/rends toutes les entitész visibles/none
;;avec le code 60 et le code 70 pour les attributs
;;traite les blocs, les attributs, les blocs vides, et fait un zoom étendu
;;attentio : peut être long ...
(defun c:ent_visible ( / lbloc lface sel zextent)
 (setvar "QTEXTMODE" 1)
 (big_clean '(60 . 1)'(60 . 0))
 (bclean '(60 . 1)'(60 . 0))
 (setq lbloc (pw_listsel (ssget "x" '((0 . "INSERT")))))
 (pw_at_visible lbloc)
 (setq lface (pw_listsel (ssget "x" '((0 . "3DFACE")))))
 (pw_3dface_visible lface)
 
 ;;partie zoom
 (pw_list_empty_blocks)
 (if (not (member "" pw-att-only-blocks))
   (progn
   (prompt "\nLes blocs suivants n'ont que des attributs :\n")
   (print pw-att-only-blocks)
   )
   )
  (if (not (member "" pw-empty-blocks))
   (progn
   (prompt "\nLes blocs suivants sont vides :\n")
   (print pw-empty-blocks)
   )
   )
 
 (setq sel (ssget "x"))
 (setq zextent (pw_englobe_sel sel))
 (command "_zoom" "_w" (car zextent) (cadr zextent))
 (sssetfirst sel sel)
 (prompt "\nPour retouver l'aspect des textes, QTEXTMODE à 0")
 
)

[tiphon]

Bonjour

Ce problème est marqué comme résolu.

Mais ce problème d'objets de base de la carte qui n'apparait pas comme il faut, je le rencontre assez fréquemment. Je le résout à chaque fois en fermant autocad Map tout simplement. En général, fermer simplement le dessin et le rouvrir suffit. Peut être que cela aurait été suffisant dans ce cas.

 

Cordialement

[lecrabe]

Hello

 

YES +1 avec Mr Ciclone de l'Est !

 

Bon WE, Bye, lecrabe

[GEGEMATIC]

Salut les gars,

dans notre cas,on avait bien essayé de quitter autocad et de revenir.

j'ai même ouvert sur un autre poste.

c'est pour ça que j'ai sorti la grosse Bertha !

a+

Gégé