Hachure suivant contour

[La Lozère]

Bonjour,

Voilà, je cherche à créer UNE hachure suivant un contour sélectionné, dans le calque du contour sélectionné.

Donc à partir d'une partit de code que j'ai trouvé (ET COMPRIS), j'arrive à hachurer mon contour:

(defun c:hs (/ ss n)

(if (setq n -1

ss (ssget)

)

(while (setq ent (ssname ss (setq n (1+ n))))

(command "_bhatch" "_select" ent "" "")

)

)

(princ)

)

 

Ensuite, je cherche à extraire le nom du calque du contour, soit de la sélection "ss", mais c'est la que je plante.

Car apparemment, la fonction "ssget" n'est pas compatible avec "entget", ce qui est normal car on demande les infos d'UN objet à partir d'une sélection multiple.

Donc j'ai essayé de remplacer "ssget" par "entsel", mais ça ne marche pas...

 

Je me prend la tête depuis 1 heure....

[DenisHen]

Salut La Lozère.

 

PS : le message suivant est le bon...

[DenisHen]

Si tu veux placer les hachures dans le même calque que les contours 1 par 1 :

;;; hachure selon contours dans même calque, pour La Lozère de CadXP
;;; DenisHen...
(defun c:hs (/ ss n)
 (setq old_layer (getvar "clayer"))
   (while (setq ent (car (entsel "\nSélectionnez le contour :")))
     (setq NomCalq (cdr (assoc 8 (entget ent)))
     ) ;_ Fin de setq
     (setvar "clayer" NomCalq)
     (command "_bhatch" "_select" ent "" "")
     (setvar "clayer" old_layer)
     (princ (strcat "\nNomCalq=" NomCalq))
   ) ;_ Fin de while  
 (princ)
) ;_ Fin de defun

J'ai choisi de hachurer chaque contour un par un... Je trouve ça plus "propre"...

 

On aurait pu aussi créer un calque NomCalq + "_HACH" pour faire plus pratique. Exemple, si le contour est dans le calque Contour, on créé un calque Contour_HACH et on place les hachures dedans...

[La Lozère]

Merci Denis, j'ai cherché...; Et je me suis bien pris la tête. Mais comme il faut que j'avance mon taf, j'avais laissé de coté.

Du coup, ton code va bien m'aider.

 

Juste un bricole, le top serait que ça marche si l'objet était préalablement sélectionné.

Mais MERCI

[vincentp010]

Tu peux faire ton entget sur ta variable ent:

(defun c:hs (/ ss n)
(if (setq n -1
ss (ssget)
)
(while (setq ent (ssname ss (setq n (1+ n))))
(command "_bhatch" "_select" ent "" "")
(setq MONCALQUE (cdr (assoc 8 (entget ent))))
)
)
(princ)
)

[DenisHen]

Du coup, ton code va bien m'aider.

C'est le but, content de t'aider...

 

Juste un bricole, le top serait que ça marche si l'objet était préalablement sélectionné.

Là, je ne vois pas trop comment faire...

[La Lozère]

Bon ben merci les gars,

Avec votre aide, le support de (gile) et un peu beaucoup de tâtonnement, je suis arrivé à ça, et ça marche:

(defun c:hs (/ ss n)
(if (setq n -1
ss (ssget)
)
(while (setq ent (ssname ss (setq n (1+ n))))
(setq MONCALQUE (cdr (assoc 8 (entget ent))))
     (setq CCOURANT (getvar "clayer"))
     (setvar "clayer" MONCALQUE)
     (command "_bhatch" "_select" ent "" "")
     (setvar "clayer" CCOURANT)
)
)
(princ)
)