ajustement et hachures

[zelf-op]

Bonjour à tous,

Faisant mes premiers pas en lisp, je suis confronté à deux problèmes:

 

# - Besoin d'ajuster une ligne sur une entité, je suppose que la commande doit-être ADJUST, mais pour le reste je ne sais pas comment faire. (entité déja définie dans un premier SETQ, et ligne définie dans un deuxième SETQ)

 

# - Comment hachurer en solide mon entité ?

 

Encore un grand merci pour vos réponses,

 

Cordialement,

 

zelf-op

[(gile)]

Salut et bienvenue,

 

En LISP on peut utiliser les commandes natives d'AutoCAD et leur passer comme argument les réponses aux invites.

 

1) la commande est : _trim mais le problème que tu risques de rencontrer est le choix du côté de la ligne à ajuster.

Si tu as acquis l'entité ligne par un (entesl) tu peux passer la liste entsel comme argument (pas uniquement le nom d'entité) et le côté de laligne qui sera ajusté sera celui sur lequel l'utilisateur a cliqué (comme la commande native)

Si tu as construit la ligne à partir de point, tu peux passer comme argument le point à l'extrémité que tu veux ajuster.

 

Exemple 1:

(setq ent (car (entsel "\nSélectionnez l'entité: ")))
(setq line (entsel "\nSélectionnez la ligne du côté à ajuster: "))
(command "_trim" ent "" line "")

 

Exemple 2 :

(setq ent (car (entsel "\nSélectionnez l'entité: ")))
(setq pt1 (getpoint "\nPoint de départ: "))
(setq pt2 (getpoint "\nExtrémité: "))
(command "_line" pt1 pt2 "")
(command "_trim" ent "" pt2 "")

 

2) Comme dit en introduction, tu peux utiliser la commande _HATCH et spécifier tous les choix comme tu le ferait si tu utilisait la commande en ligne de commande (pour avoir les commandes qui utilisent les boites de dialogue en ligne de commande il faut faire précéder le nom de la commande par un tiret (-) ce n'est pas nécessaire dans l'expression LISP :

Commande: _-hatch

 

Motif de hachures courant: ANSI31

Spécifiez le point interne ou [Propriétés/Sélectionner les objets/dEssiner

contour/supprimer Contours/Avancé/ordre de Tracé/Origine]: _p

 

Entrez un nom de motif ou [?/Solid/Utilisateur] : solid

 

Motif de hachures courant: SOLID

Spécifiez le point interne ou [Propriétés/Sélectionner les objets/dEssiner

contour/supprimer Contours/Avancé/ordre de Tracé/Origine]: _s

 

Choix des objets: !ent

1 trouvé(s)

 

Choix des objets: [Enter]

 

Ce qui donne en LISP :

(command "_hatch" "_p" "solid" "_s" ent "")