Création de Vues sur limites de communes

[fabcad]

Quotidiennement appelé à créer des vues avec le nom des commune, j'ai créé ce bout de lisp pour créer une liste de vues uniquement sur Autocad MAP avec le nom de chaque commune contenu dans une table de données d'objets, il faudra juste remplir les termes entre guillemets avec vos propres valeurs mais en conservant les guillemets.

Bonne utilisation,

Fabcad

 

;;;------------------------------------------------------------------------
;;; Fonction VUES-COMMUNES   Version 1.0
;;; par Fabrice DEMIEL
;;; le 02-03-2006
;;;------------------------------------------------------------------------
(defun traite-js (js / nbr obj-commune)
(setvar "cmdecho" 0)
(setq nbr (sslength js))
       (setq i 0)
       (while (<= i (- nbr 1))
	(setq obj-commune (ssname js i))
	
	(command "zoom" "objet" obj-commune "")
	;(redraw obj-commune 3)
	
	
	;Recupération du nom de la commune de l'objet
	; tbl Nom de la table de données d'objets contenant le champ de nom de commune ici "COMMUNE"
	; ch1 Nom du champ du nom de commune ici "NOM_COMM"
	(setq recnum 0 tbl "COMMUNE" ch1 "NOM_COMM")
	(setq NOM-COMMUNE (ade_odgetfield obj-commune tbl ch1 recnum))
	

	
	(setq acadObject (vlax-get-acad-object))
	(setq vlaobject-en-cours (vlax-ename->vla-object obj-commune))
	(vla-getboundingbox vlaobject-en-cours 'minpoint 'maxpoint)
	(command "-VUE" "Fenêtre" NOM-COMMUNE (vlax-safearray->list minpoint) (vlax-safearray->list maxpoint))
(setq i (+ i 1))
       ); fin while
nil
); fin defun
;;;------------------------------------------------------------------------

;;;------------------------------------------------------------------------
; FONCTION MAITRE
(defun c:VUES-COMMUNES ()
;recuperation des variables
(setq var-accrobj (getvar "osmode"))
(setq var-cmddia (getvar "cmddia"))
(setq var-cmdecho (getvar "cmdecho"))

(setvar "osmode" 0)
(setvar "cmddia" 0)
(setvar "cmdecho" 0)
(vl-load-com)
(setq js (ssget))
(traite-js js)
(setq js nil)

;retour a la normale des variables utilisées
(setvar "cmddia" var-cmddia)
(setvar "osmode" var-accrobj)
(setvar "cmdecho" var-cmdecho)

(prompt "\n---COPYRIGHT 13/01/2009 Par Fabrice DEMIEL---")
nil
);fin c:centroides
;;;------------------------------------------------------------------------
(prompt "\npour lancer Tapez : VUES-COMMUNES ")

 

[Edité le 13/1/2009 par fabcad]