J\'en demande trop ?

[winfield]

Bonsoir à tous,

Pour un besoin très spécifique, je cherche à rendre non-imprimable certaines entités qui ne peuvent pas être dans un calque à part ni dans une couleur à part.

Par non-imprimable, je veux dire qu'il faut que les entités restent manipulable.

Qqn a une idée ?

Merci

[jalna]

Salut,

Si 'ai bien compris je pense aux groupes!!

Sinon j'ai rien compris!!

Désolé, j'avais pas vu que tu avais posté dans routines VBA, alors on oublie

 

[Edité le 13/12/2006 par jalna]

[nazemrap]

Bonjour,

 

Je ne sais pas si cela répond vraiment.

J ai essayé de bidouiller un truc qui demande sur la ligne de commande avant impression les objets à ne pas imprimer......à tester...

 

 

Dim obj As AcadEntity
Dim selection As AcadSelectionSet

Public Sub pas_vu_pas_pris() 'indique les objets à ne pas imprimer
Set selection = ThisDrawing.SelectionSets.Add("truc")
selection.SelectOnScreen
For Each obj In selection
obj.Visible = False
Next

End Sub

Private Sub AcadDocument_BeginPlot(ByVal DrawingName As String) 'évènement impression
pas_vu_pas_pris
End Sub

Public Sub revoir() 'pour revoir les objets invisibles
For Each obj In ThisDrawing.ModelSpace
If obj.Visible = False Then obj.Visible = True
Next
End Sub

Public Sub ef() 'pour détruire truc
ThisDrawing.SelectionSets("truc").Delete
End Sub  

[winfield]

Salut et merci du coup de main, je cherche plutôt un moyen où je n'ai pas à désigner manuellement.

Mais tu as raison, va falloir passer par les évènements.

[sechanbask]

Tu souhaites rendre non-imprimable des objets, tu a moyen d'en faire une sélection rapide pas exemple? les DXF ne serait-il pas le plus simple moyen?

[LUDWIG]

Je me souviens d'un lisp de bonuscad pour sélectionner des objets et les rendre invisibles indépendamment de l'état du calque. Peut être qu'il y a un code du même style pour " l'imprimabilité " de chaque entité.

 

;**********************************************************************************************************************************************************
;Activer/désactiver des objets indépendemment de l'état du calque
;**********************************************************************************************************************************************************
;un objet peut être "gelé" même si son calque est actif et non gelé
;attention commande DANGEREUSE surtout si la commande est arrêtée pendant le choix des entités à réactiver !

(defun c:e_off (/ js_off n ent dxf_ent)
 (princ "\nChoix des entités à inactiver: ")
 (setq	js_off (ssget)
n      0
) ;_ Fin de setq
 (cond
   (js_off
    (repeat (sslength js_off)
      (setq
 ent	 (ssname js_off n)
 dxf_ent (entget ent)
 ) ;_ Fin de setq
      (if (not (member '(60 . 0) dxf_ent))
 (entmod (append dxf_ent '((60 . 1))))
 (entmod (subst '(60 . 1) '(60 . 0) dxf_ent))
 ) ;_ Fin de if
      (setq n (1+ n))
      ) ;_ Fin de repeat
    )
   (T
    (princ "\nSélection vide.")
    )
   ) ;_ Fin de cond
 (princ)
 ) ;_ Fin de defun
(defun c:e_on (/ js_off n js_swap n_swap ent ent_dxf js_on nb)
 (setq	js_off (ssget "_X" '((60 . 1)))
n      0
) ;_ Fin de setq
 (cond
   (js_off
    (setq js_swap (ssget "_X" '((-4 . "")))
   n_swap  0
   ) ;_ Fin de setq
    (cond
      (js_swap
(repeat	(sslength js_swap)
  (setq ent (ssname js_swap n_swap))
  (redraw ent 2)
  (setq n_swap (1+ n_swap))
  ) ;_ Fin de repeat
)
      ) ;_ Fin de cond
    (repeat (sslength js_off)
      (setq ent (ssname js_off n))
      (setq dxf_ent (entget ent))
      (entmod (subst '(60 . 0) '(60 . 1) dxf_ent))
      (entupd ent)
      (setq n (1+ n))
      ) ;_ Fin de repeat
    (princ "\nChoix des entités à réactiver: ")
    (setq js_on (ssget)
   n	 0
   ) ;_ Fin de setq
    (cond
      (js_on
(repeat	(sslength js_on)
  (if (ssmemb (ssname js_on n) js_off)
    (setq js_off (ssdel (ssname js_on n) js_off))
    ) ;_ Fin de if
  (setq n (1+ n))
  ) ;_ Fin de repeat
(cond
  (js_off
   (setq nb 0)
   (repeat (sslength js_off)
     (setq ent (ssname js_off nb))
     (setq dxf_ent (entget ent))
     (if (not (member '(60 . 0) dxf_ent))
       (entmod (append dxf_ent '((60 . 1))))
       (entmod (subst '(60 . 1) '(60 . 0) dxf_ent))
       ) ;_ Fin de if
     (entupd ent)
     (setq nb (1+ nb))
     ) ;_ Fin de repeat
   (cond
     (js_swap
      (setq n_swap 0)
      (repeat (sslength js_swap)
	(setq ent (ssname js_swap n_swap))
	(redraw ent 1)
	(setq n_swap (1+ n_swap))
	) ;_ Fin de repeat
      )
     ) ;_ Fin de cond
   )
  (T
   (princ "\nAucune entité à réactivée!")
   )
  ) ;_ Fin de cond
)
      (T
(princ "\nSélection vide.")
)
      ) ;_ Fin de cond
    )
   (T
    (princ "\nAucune entité à réactivée!")
    )
   ) ;_ Fin de cond
 (princ)
 ) ;_ Fin de defun
(prompt "\ne_on : Réactiver les objets")
(prompt "\ne_off : Désactiver les objets")
;**********************************************************************************************************************************************************
;CODE DXF 60 = 1
;;**********************************************************************************************************************************************************
;Rend tous les objets cachés par "e_off" visibles

(defun c:dxf60 ()
 (setq	all (ssget "x")
n   0
) ;_ Fin de setq

 (cond	(all
 (repeat (sslength all)
   (setq
     ent     (ssname all n)
     dxf_ent (entget ent)
     ) ;_ Fin de setq

   (if (not (member '(60 . 1) dxf_ent))
     (entmod (append dxf_ent '((60 . 0))))
     (entmod (subst '(60 . 0) '(60 . 1) dxf_ent))
     ) ;_ Fin de if
   (setq n (1+ n))
   ) ;_ Fin de repeat
 )
(T
 )
) ;_ Fin de cond
 (princ)
 ) ;_ Fin de defun
(prompt
 "\dxf60 : Rend tous les objets cachés par 'e_off' visibles"
 ) ;_ Fin de prompt