LAYERS NO PRINT

[cedwit]

Bonjours, pourriez-vous me dire comment indiquer (dans un lisp qui charge les layer) un layer qui ne doit pas s'imprimmer?

Merci d'avance pour vos réponses.

[(gile)]

Salut,

 

Avec command :

 

(command "_.layer" "_p" "_n" "NomDuCalque" "") 

 

ou en VlisualLISP :

 

(vla-put-Plottable
 (vla-item (vla-get-Layers
      (vla-get-ActiveDocument
	(vlax-get-acad-object)
      )
    )
    "NomDuCalque"
 )
 :vlax-false
) 

[bonuscad]

et pour compléter en Lisp de base:

 

((lambda ( / )

(setq name_lay (getstring T "\nNom du calque à ne pas imprimer: "))

(cond

((tblsearch "LAYER" name_lay)

(setq dxf_obj (entget (tblobjname "layer" name_lay)))

(entmod (subst (cons 290 0) (assoc 290 dxf_obj) dxf_obj))

)

(T (princ "\nLe calque n'existe pas!"))

)

))

[cedwit]

(command "_.layer" "_p" "_n" "NomDuCalque" "")

 

J'ai essayer, mais ça ne fonctionne pas.

 

Voici le layer que je veus qui ne s'imprimme pas

 

(command "layer" "n" "VPORT" "c" "30" "VPORT" "l" "continuous" "VPORT" "")

[(gile)]

Re,

 

Il faut remplacer "NomDuCalque" par le nom du calque que tu veux rendre non imprimable :

 

(command "_.layer" "_p" "_n" "VPORTS" "") 

[cedwit]

ça ne marche toujours pas.

J'ai une version anglaise de autocad

[(gile)]

ça ne marche toujours pas.

J'ai une version anglaise de autocad

:casstet:

 

Ça devrait marcher quelque soit la version, en tout cas chez moi, ça marche, de même que les aures solutions.

[cedwit]

Merci à tous, j' ai trouvé la solution.

C'était : (command "layer" "n" "VPORT" "c" "30" "VPORT" "l" "continuous" "VPORT" "p" "VPORT" "")

[cedwit]

oups, je suis trompé.

(command "layer" "n" "VPORT" "c" "30" "VPORT" "l" "continuous" "VPORT" "p" "n" VPORT" "")