Hachure automatique et polyligne

[Hydro8]

Bonjour

 

J'essaye de faire une chose je pense simple sous autocad : des hachures automatique une fois une polyligne fermée.

 

Pour réaliser cette fonction j'ai trouvé ce lisp :

 

(defun c:plyhat (/ *error* oldcmd ply)
(vl-load-com)

(defun *error* (msg)
  (if oldcmd (setvar "CMDECHO" oldcmd))
  (if (not (member msg '("Function cancelled"
                         "quit / exit abort")))
    (princ (strcat "\n<< Error: " msg " >>"))
    (princ "\n<< Cancelled >>"))
  (princ))

(setq oldcmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)

(command "_pline")
(prompt "\nConstruct Polyline...")
(while (eq 1 (logand 1 (getvar "CMDACTIVE")))
  (command pause))
(vla-put-Closed
  (vlax-ename->vla-object (setq ply (entlast))) :vlax-true)
(command "_hatch" "_S" ply "" "")
(princ))

 

Il fonctionne bien, mon seul soucis c'est que j'aimerais le diffuser à d'autres personnes qui n'auront pas forcément en tête les options de la fonction polyligne.

 

Du coup, est-il possible d'afficher les options de la fonction polyligne dans ce lisp ? Je veux parler de "Arc Demi-larg LOngueur annUler LArgeur" et des sous options quand on choisit Arc par exemple.

 

Merci pour votre aide.

[(gile)]

Salut,

 

Remplace (setvar "CMDECHO" 0) par (setvar "CMDECHO" 1) et tu auras les invites.

[Hydro8]

Super merci !!

 

Petit question qui à plus au moins à voir avec le sujet initial, est-il possible de faire des hachures AINSI31 rempli pour partie automatiquement ?

 

Pour le moment nous faisons des hachures AINSI31, nous les décomposons et nous remplissons en SOLID une intervalle sur deux. Je me dis qu'il doit être possible de le faire en automatique mais je n'ai rien trouvé d'approchant sur internet ?

[Elun]

Bonjour,

 

J'essaye actuellement de faire un programme qui utilise la commande "_-HATCH" (c'est pour cela que je me permet de poster un msg dans ce sujet similaire au lieu d'en ouvrir un autre), cependant j'ai un souci : lors du premier lancement de mon programme AutoCAD me renvoie le message d'erreur

Carnet de couleurs introuvable.

donc je suppose que c'est lors de l'appel de la commande "_-HATCH" car c'est la seule ligne où je spécifie une couleur.

 

Mais si je relance le programme une seconde fois, aucun problème et mon programme fonctionne parfaitement...

Je dois créer des hachures vertes (3) et des hachures rouges (10), j'ai également essayé en passant par les coUleurs vraies, soit vert (0,255,0) et rouge (255,0,0).

 

Votre aide me sera précieuse :P

 

Désolé Hydro8, mais je ne suis pas en mesure de t'aider pour ton problème...

[Olivier Eckmann]

Bonjour,

 

on peut paramétrer la couleur indépendamment de la commande avec la variable HPCOLOR.

 

ci dessous la liste des variable commençant par HP et gérant les valeurs proposées dans le dialogue hachures ou la commande -hatch

 

HPANG 0.0000g

HPANNOTATIVE 0

HPASSOC 1

HPBOUND 1

HPBOUNDRETAIN 0

HPDOUBLE 0

HPDRAWORDER 3

HPGAPTOL 0.0100

HPINHERIT 0

HPISLANDDETECTION 1

HPISLANDDETECTIONMODE 1

HPMAXLINES 1000000

HPNAME "_SOLID"

HPOBJWARNING 10000

HPORIGIN 0.000,0.000

HPORIGINMODE 5

HPORIGINSTOREASDEFAULT 0

HPQUICKPREVTIMEOUT 2

HPSCALE 1.0000

HPSEPARATE 1

HPSPACE 1.000

HPBACKGROUNDCOLOR "Aucune"

HPCOLOR "Utiliser la valeur courante"

HPDLGMODE 1

HPLASTPATTERN "ANSI31" (lecture seule)

HPLAYER "Utiliser la valeur courante"

HPLINETYPE Inactif

HPMAXAREAS 10000

HPPICKMODE 0 (lecture seule)

HPQUICKPREVIEW Inactif

HPRELATIVEPS Inactif (lecture seule)

HPTRANSPARENCY "Utiliser la valeur courante"

 

Olivier

[Elun]

Thank you !!!

 

That's perfect ;p

[Hydro8]

Content que tu ai réglé ton problème :)

 

Quelqu'un sait s'il est possible de faire automatiquement des hachures AINSI31 coloré avec des hachures SOLID ?