Pline_Block (giles)

[ludo07]

Bonjour à tous et plus particulièrement à (giles)

 

J'ai essayé ton lisp Pline_Block trés impréssionnant JE SUIS.

 

Sauf qu'il me semble qu'il y a quelque temps je t'ai posé une question (plus particulièremnt un souhait) et il ne me semble pas que tu m'ais répondu (SAUF ERREUR DE MA PART dans le cas contraire je m'en excuserais de bien BAS).

 

Donc je te la repose:

 

Peux tu faire en sorte qu'on choisisse l'ensemble des polylignes et que le programme les traite en une seule fois, bien entendu en ce qui concerne le nom de la pièce une incrémentation comme PIECE1, PIECE2, PIECE3... conviendrait.

 

 

Merci.

 

A+

[(gile)]

Je n'ai effectivement pas donné suite à ton message pensant que serge l'avait fait.

 

Je vais voir si je peux faire quelque chose, mais j'ai pas mal de turcs sur le feu en ce moment.

[(gile)]

Voilà

 

(defun c:pline_block_m (/ AcDoc Space bloc ech ind reg ins op id long aire ref)
 (vl-load-com)
 (setq	AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))
Space (if (= (getvar "CVPORT") 1)
	(vla-get-PaperSpace AcDoc)
	(vla-get-ModelSpace AcDoc)
      )
 )
 (if (or
(tblsearch "BLOCK" (setq bloc "Pline_block"))
(findfile (setq bloc "Pline_block.dwg"))
     )
   (if	(ssget '((0 . "LWPOLYLINE")))
     (progn
(or (vlax-ldata-get "Pline_block" "ech")
    (vlax-ldata-put "Pline_block" "ech" 1)
)
(if (not (setq
	   ech
	    (getreal
	      (strcat "\nEntrez le facteur d'échelle 			      (rtos (vlax-ldata-get "Pline_block" "ech"))
		      ">: "
	      )
	    )
	 )
    )
  (setq ech (vlax-ldata-get "Pline_block" "ech"))
  (vlax-ldata-put "Pline_block" "ech" ech)
)
(setq ind 1)
(vlax-for pl (setq ss (vla-get-ActiveSelectionSet AcDoc))
  (if (= (vla-get-closed pl) :vlax-false)
    (progn
      (vla-put-closed pl :vlax-true)
      (setq op T)
    )
  )
  (setq	reg (vlax-invoke space 'addRegion (list pl))
	ins (vlax-get (car reg) 'Centroid)
  )
  (if op
    (vla-put-closed pl :vlax-false)
  )
  (vla-delete (car reg))
  (setq	id   (vla-get-ObjectID pl)

	;; Attribut périmètre (mm -> m)
	long (strcat "%			     (itoa id)
		     ">%).Length \\f \"%lu2%pr2%ct8[0.001]\">%"
	     )

	;; Attribut surface (mm² -> m²)
	aire (strcat "%			     (itoa id)
		     ">%).Area \\f \"%lu2%pr2%ct8[1e-006]\">%"
	     )
  )

  (setq	ref
	 (vla-InsertBlock
	   Space
	   (vlax-3d-point (trans ins 1 0))
	   bloc
	   ech
	   ech
	   1.0
	   0.0
	 )
  )

  ;; attribution de leur valeur aux attributs
  (mapcar '(lambda (x y) (vla-put-TextString x y))
	  (vlax-invoke ref 'GetAttributes)
	  (list (strcat "PIECE_" (itoa ind)) long aire)
  )
         (setq ind (1+ ind))
  (vla-regen AcDoc acActiveViewport)
)
     )
   )
   (alert "Le bloc \"Pline_block\" est introuvable.")
 )
 (princ)
) 

[ludo07]

Bonjour à tous,

 

MERCI (giles)

 

A+

[lili2006]

Bonsoir à toutes et tous,

 

En effet, marche du tonnerre !

 

Merci (gile) :P

[ludo07]

(giles) je reviens vers toi car j'ai un petit problème.

 

Ton programme marche trés bien, seulement mon idée était de pouvoir aprés coût de créer une table d'extraction d'attributs afin de pouvoir obtenir un tableau récapitulatif de toutes les surfaces.

 

Mais quand je fais une extraction d'attribut autocad ne retrouve pas le bloc Pline_Block.

 

Tu as une idée.

 

A+

[(gile)]

Salut,

 

Ce n'est pas normal, mais je ne pense pas que ça vienne du LISP.

[lili2006]

Re,

 

Je viens de tester, pas de pb chez moi (v2008 pleine).

[ludo07]

Bonjour à tous,

 

En effet je viens de le tester au bureau sur une V2009 tous fonctionne.

 

Je ferais un nouvel essais sur ma V2008 à la maison, (j'ai du trop boire)...

 

Merci

 

A+

[philous2]

Bjr,

Il est ou le lisp Pline_Block modifié(dernier) vois pas