ORDRE DE TRACE

[LUDWIG]

REREbonjour,

 

J'avais fait une petite demande (là) pour changer de calque les hachures solides de mon dessin (qu'elles soient dans un bloc ou non).

 

Le soucis est que ça me change mon "ordre de tracé" : les hachures sont en premier plan dans mes blocs et masquent le reste du bloc. J'ai rechercher un propriété "plot-quelquechose" histoire d'essayer de mettre cette propriété à la valeur "arrière-plan" pour chaque hachure. Mais j'ai l'impression que ça ne fonctionne pas comme ça. Je n'ai pas trouvé de propriété ordre de tracé.

 

Quelqu'un pourrait-il m'aider SVP ? Merci d'avance !

[LUDWIG]

Les variables draworderctl et hpdraworder ne changent rien

[Bred]

Salut,

j'ai pas trop letemps là, mais j'ai cherché et j'ai trouvé là ça :

(elle est bien cette page, connaissais pas...)

 

VxSetDrawOrder - Changes draw order of object(s) by given method

;
; -- Function VxSetDrawOrder
; Changes draw order of object(s) by given method.
; Copyright:
;   ©2004 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Type]:
;   Obl = Object list [list]
;   Tob = Target object [VLA-OBJECT] *)
;         or nil
;   Mde = Draw order method [sYMBOL]
;         Methods:
;         - 'MoveToTop
;         - 'MoveToBottom
;         - 'MoveAbove
;         - 'MoveBelow
; Return [Type]:
;   - True =  VxSetDrawOrder succeed [bOOLEAN]
;   - False = VxSetDrawOrder failed [bOOLEAN]
; Notes:
;   *) Draw order methods 'MoveAbove and 'MoveBelow require
;      a target object (Tob) as target of the draw order.
;   - AutoCAD 2k5+ only (Bug? <2k5 missing class 'AcDbSortentsTable')
;
(defun VxSetDrawOrder (Obl Tob Mde / ExtDic SreTbl)
(or Gb:AcO (setq Gb:AcO (vlax-get-acad-object)))
(or Gb:AcD (setq Gb:AcD (vla-get-ActiveDocument Gb:AcO)))
(setq ExtDic (vla-GetExtensionDictionary (vla-get-ModelSpace Gb:AcD)))
(if (vl-catch-all-error-p
     (setq SreTbl (vl-catch-all-apply
                   'vla-Item (list ExtDic "ACAD_SORTENTS")
                  )
     )
    )
 (setq SreTbl (vla-AddObject ExtDic "ACAD_SORTENTS" "AcDbSortentsTable"))
)
(cond
 ((vl-position Mde '(MoveToTop MoveToBottom))
  (not (vlax-Invoke SreTbl Mde Obl))
 )
 (Tob
  (not (vlax-Invoke SreTbl Mde Obl Tob))
 )
)
)

[Bred]

:mad:

salut,

j'ai testé un peu le code que je te propose ci-dessus, et je n'arrive vraiment pas à grand chose ...

désolé... :exclam: :P