un script lisp à creer concernant Polyligne

[ToNiSOu]

Bonjour,

Comme vous savez, je bosse chez le bureau d'etude,

 

je voudrais créer un script et mon probleme se pose dans ce language lisp et lancer le script sous AutoCAD

c'est tout simple, j'explique:

 

sous autocad:

je tape la commande _selectrap puis y a un boite de dialogue, je clique Polyligne > largeur global > passer à supérieur à 0

 

sous script lsp:

je crée un fichier lsp, je le nomme "poly.lsp":

j'ouvre et j'ai mis comme code d'exemple:

 

(defun c:poly (/ ss )

(setq ss (ssget "X" '((0 . "*Polyline") (-4 . ">") (0))))

(princ)

)

 

pouvez-vous corriger mon script dans le but qu'il fait que je demande

 

 

D'avance, merci de pouvoir me le resoudre ce script à coder

[lovecraft]

Bonjour,

 

(setq ss (ssget "X" '((0 . "*Polyline") (-4 . ">") (40 . 0))))

 

Cordialement,

[lovecraft]

Sinon le code

 

 

(defun c:sspl (/ ss )

 

(setq ss (ssget "X" '((0 . "*Polyline") (-4 . ">") (43 . 0))))

 

(command "pselect" "p" "")

 

)

 

Cordialement,

 

Laurent

[-Olivier-]

Bonjour à tous,

ToNiSOu parlais de largeur globale, j'aurais plutôt fait ainsi :

(defun c:polylines (/ )
 (sssetfirst nil (ssget "_X" '((0 . "LWPOLYLINE") (-4 . ">") (43 . 0))))
 )

 

Cordialement

Olivier

[lovecraft]

Autant pour moi Olivier,

 

Je me suis trompé dans le code dxf j'ai pris 40 au lieu de 43. c'est corrigé dans le code ci-dessus.

 

Cordialement,

 

Laurent

[ToNiSOu]

Merci de votre aide :)

 

je dois effectuer la commande POLY apres appload

 

oui effectivement, Polyligne > largeur global > passer à supérieur à 0

 

 

je charge laquelle l'un des deux:

(defun c:poly (/ ss )

 

(setq ss (ssget "X" '((0 . "*LWPOLYLINE") (-4 . ">") (43 . 0))))

 

(command "pselect" "p" "")

 

)

 

OU

 

(defun c:poly (/ ss )

 

(setq ss (ssget "X" '((0 . "*Polyline") (-4 . ">") (43 . 0))))

 

(command "pselect" "p" "")

 

)

[lovecraft]

C'est pareil les deux fonctionneront.

 

@plus

[ToNiSOu]

j'ai fait le test il y a 2 heures,

Il me semble operationnel et se lance le script sans probléme, je l'ai ajouté dans mon grand script.

 

merci à vous tous !!

 

 

j'ai un autre probléme, je posterai le nouveau sujet :)