Choix de l\'Epaisseur en plus

[willy95]

J'ai rajouté le choix dans l'épaisseur de la polytrame créer :

 

(defun C:decaltrame (/ OldAccr Ent Dis Disd Pol col) ;creation de la nouvelle commande

 

(Setq OldAccr (GetVar "OSMODE")) ;enregistre l'accrochage courant

 

(SetVar "OSMODE" 0) ;Accrochage aucun

 

(command "_-layer" "_make" "Limites-Trames" "_color" 20 "" "") ;creer le calque courant

 

(Setq Ent (Car (entsel "\nChoix de l'objet à décaler: "))) ;choix de l'objet

 

(setq Dis (getdist "\nChoix de l'épaisseur ?")) ;epaisseur

 

(setq Disd (/ Dis 2)) ;demi epaisseur

 

;(setq Dis "0.3") ;distance par defaut

 

(setvar "CMDECHO" 0) ;affichage détails du programme

 

(command "_OFFSET" Disd Ent Pause "") ;decalage

 

(setq Pol (entlast)) ;selectionne la polyligne

 

(command "chprop" Pol "" "_layer" "Limites-Trames" "") ;Met la selection dans le calque

 

(setq col (acad_colordlg 256)) ;Selection de la couleur

 

(command "chprop" Pol "" "_color" col "") ;Met dans la couleur

 

(command "chprop" Pol "" "t" "continuous" "") ;Type de ligne

 

(command "pedit" Pol "_width" Dis "") ;applique l'epaisseur

 

(command "_draworder" Pol "" "AR" "") ;met en arriere le contour trame

 

(command "_draworder" Ent "" "Av" "") ;met en avant la ligne depart

 

(SetVar "OSMODE" OldAccr) ;mettre accrochage d'avant

 

(command "_-layer" "_make" "0" "" "") ;mettre calque zero courant

 

(princ)

 

)

 

 

[willy95]

Bonjour à tous...

 

Je reviens un peu sur ce code que je souhaiterai modifié,

je m'explique :

 

Après quelques essais non concluant j'aimerai pouvoir créer

ma polytrame dans le calque courant, l'idéal peut etre serai

de pouvoir choisir : soit dans mon calque inposé ou calque courant ?

J'aimerai bien solutionné ce probleme qui comme d'habitude me

fait réfléchir à bouillir...

 

N'hésité pas à me répondre, merci par avance.