LISP & DXF

[GOLUM69]

Bonsoir a tous, je revient vers vous car j'ai encore un petit problème que je n'arrive pas a résoudre. Je voudrais créer un programme permettant de créer des zones de stockages pour un plan d'installation de chantier.

 

Le programme consisterais à demander à l'utilisateur de sélectionner plusieurs points sur le plan puis une fois qu'il appui sur return, la polyligne se ferme. (car dans mon début de programme, ci après, quand je met "c" a la fin de la commande cela ne fonctionne pas) puis de récupérer l'aire de la polyligne crée et de l'afficher en texte, centré au milieu de la zone.

 

J'ai malheureusement de très grosses lacunes en codes DXF, je ne sais pas trop les manipulés. C'est pour quoi j'implore grandement votre aide !!! :( :( :(

 

VOICI LE DEBUT DE MON CODE (tout pourri :( ) :

 

(defun c:ZoneStockage()

 

(setq pt(getpoint "\nPoint d'origine: "))

(command "polylign" pt "la" 0 0 "c")

(while pt

(setq pt (getpoint "\nPoint suivant(Return pour FIN): "))

(command pt))

)

[DenisHen]

Salut.

 

Je te propose ça :

;;; ********************
;;; Prog pour Golum69   
;;; ********************
(defun c:ZoneStockage ( / p )
 (setq p (getpoint))
 (command "_pline" p (while p (command (setq p (getpoint "\nPoint suivant (Return pour FIN) : " p)))))
 (command "pedit" (entlast) "c" "")
 (princ)
) ;_ Fin de defun

[GOLUM69]

Merci beaucoup DenisHen !! et dis moi saurais tu comment faire pour récupérer l'aire de la polyligne et que cela affiche l'aire en texte selon le point ou l'on clique ? Thanks you d'avance ..

[zebulon_]

(command "_.pline"
 (while (not (zerop (getvar "cmdactive")))
   (command pause)
 )
)

 

pour utiliser la commande _pline avec toutes ses possibilités, pas simplement entrer le point suivant...

 

Merci beaucoup DenisHen !! et dis moi saurais tu comment faire pour récupérer l'aire de la polyligne et que cela affiche l'aire en texte selon le point ou l'on clique ? Thanks you d'avance ..

je suggère l'utilisation d'un champ

 

Amicalement

Vincent

[DenisHen]

+1 avec Vincent.

 

Il serait judicieux de placer un champs plutôt qu'un texte, mais ça, je ne sais pas faire en lisp...

[Vincent P.]

Salut!

 

J'ai repris le code de DenisHen, et j'ai ajouté la création du champ.

 

;;; ********************
;;; Prog pour Golum69   
;;; ********************
(vl-load-com)
(defun c:ZoneStockage ( / p zst id aire)
 (setq p (getpoint))
 (command "_pline" p (while p (command (setq p (getpoint "\nPoint suivant (Return pour FIN) : " p))))) ;créer la polyligne
 (setq zst (entlast))							; stoker la polyligne
 (command "pedit" zst "c" "")
 (setq	id (vla-get-ObjectID (vlax-ename->vla-object zst))		; isoler l'ID de la polyligne
aire (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Area \\f \"%lu2\">%")) ; stoke le texte pour créer un champ contenant l'aire
 (command "-TEXTE" (getpoint) "4" "100g" (strcat "Aire de Stockage : " aire " m2"))
 (princ)
) ;_ Fin de defun

 

Dit nous si c'est ce que tu cherchais!