glopri

Il est vrai que cela donne le même résultat !! Elles ont du fonctionner pour un besoin specifique et il y longtemps !! Merci pour l'info ! Concernant le CVPORT .... toujours le même probleme !! impossible de changer son ID !

voici les codes des 2 fonctions : ;********************************************************* ; LENGTHLIST ; calcul du nombre d'éléments d'une liste ;--------------------------------------------------------- (defun LENGTHLIST (liste / nbre elt) (setq nbre 0) (if (= (type liste) 'LIST) (foreach elt liste (setq nbre (1+ nbre))) ) nbre ) ;***************************************************************************** ; SSET_LISTE ; Retourne une liste formée des nom d'entité contenus dans un jeux de selection ;------------------------------------------------------------------------------ (defun SSET_LISTE (sset / liste n ent) (setq liste nil) (setq n 0) (if (not (eq sset nil)) (progn (while (< n (sslength sset)) (setq ent (ssname sset n)) (setq liste (cons ent liste)) (setq n (+ n 1)) ) ) ) liste )

Oui bien sur Je developpe en Lisp, mais je suis débutant ... Voici le code de départ ! (Defun C:transvue (/ temp THISTAB VPLST VPS nblay llay nbvue listvue) (setq *old1* (getvar "cmdecho")) (setq *old2* (getvar "LAYOUTREGENCTL")) (setvar "cmdecho" 0) (setvar "LAYOUTREGENCTL" 0) (setq THISTAB (getvar "CTAB")) (setq nblay (lengthlist (setq llay (layoutlist)))) (setq a 0) (while (< a nblay) (progn (setvar "CTAB" (nth a llay)) (setq VPLST (ssget "x" (list (cons 0 "viewport") ;(cons 68 1) (cons 410 (nth a llay))))) (setq nbvue (lengthlist (setq listvue (sset_liste VPLST)))) (setq b 0) (if listvue (while (< b nbvue) (if (and (/= (cdr (assoc 68 (entget (nth b listvue)))) -1) (/= (cdr (assoc 68 (entget (nth b listvue)))) 0) ) (progn (setvar "CVPORT" (cdr (assoc 69 (entget (nth b listvue))))) (command "_.MSPACE") (command "_.UCS" "_W") (command "-pan" (list 0 0 0) (list -617592.5171 -144913.5211 0)) (command "_.DVIEW" "" "_TW" -5 "") (command "_.PSPACE") ) ) (setq b (+ b 1)) ) ) (setq vplst nil) (setq nbvue nil) (setq a (+ a 1)) ) ) (setvar "CTAB" THISTAB) (RestaureEnv) ; Appel à la procédure de restauration )

Bonjour Je souhaite effectuer une translation (pan) et rotation (dview) dans plusieurs fenetres sur une même présentation. Au final, je traiterai plusieurs présentations ! J'arrive à faire la boucle qui traite l'ensemble des présentations. J'arrive aussi à récupérer une liste de l'ensemble des fenetres "Actives". Mais lorsque je veux traiter, fenetre par fenetre (mspace+pan+dview+pspace), je bloque sur le traitement automatique du choix des fenetres avec la variable CVPORT qui lorsque l'Id de la fentre est > à 1 ...... erreur !! Est-ce que qu'elqu'un aurait une idée ? Merci

Merci pour ces precisions Le but est qu'une personne, qui ne connait rien à AUTOCAD, puisse à partir d'un fichier Excel, sur un serveur d'echange, puisse visualiser et localiser une pièce à partir de son numéro de porte ! La finalité serait de faire la même chose via un logiciel de visualisation de fichier AUTOCAD type TRUEVIEW !

Bonjour Je recherche un moyen, à partir d'une liste Excel et donc dans le programme Excel, de creer un lien vers autocad. Je m'explique: ma liste dans excel serait du type: 1G7121 (numéro de porte d'un local) et losrque je viendrai cliquer dessus, le lien ouvrirait le bon fichier autocad (à partir de renseignement lier à la feuille excel), et viendrai me faire un zoom sur le texte AUTOCAD 1G7121 !!! Est-ce que quelqu'un aurait une astuce ? Merci

merci Par contre je n'ai pas encore attaqué les fonctions su type VLAX.... Quelques conseils ? Merci

Alors depuis le début. J'ai une multitude de polylignes fermées(des pièces) avec des textes au milieu (les numéros de locaux). Je veux me creer, en lisp, une liste simple. Cette liste devra être composée de binome TEXTE + POLYLIGNE. Ce binome sera créer après analyse de la position du texte dans le dessin, et de la polyligne qui devrait englober ce texte ! Soit attribution d'un numéro de local à une pièce ! Voila, j'espère que c'est plus clair !! (je peux envoyer un extrait de plan !)

Non je veux attribuer un XDATA et me creer une liste, en lisp, du style (TEXTE, NOM ENTITE POLYLIGNE) pour pouvoir par la suite rentrer des informations en XDATAS sur l'entité polyligne en fonction du texte et surtout à partir d'un fichier EXCEL.

merci Ok pour l'attribution d'un texte à une polyligne mais ce qui m'interesse, en lpus, est le controle de la position du texte par rapport à cette polyligne ! je travaille dans la gestion de patrimoine et je gère plus de 3000 locaux (actuellement générés par des polylignes !) donc si je pouvais en quelques clics leurs attribuer un texte .... formidable !!

Bonjour Je recherche un moyen de lier un texte à une LWPOLYLINE ! Soit à partir du point d'insertion du texte, faire un premier controle si il est contenu dans une LWPOLYLINE fermée !! puis création d'une paire pointée (PT,ENTITE) quelqu'un aurait une idée sur le moyen de controler la position du point en fonction de l'entite LWPOLYLINE ? Merci de cotre aide

Bonjour Petite question concernant les champs ! Voila, j'ai mis en place une routine qui, par l'intermediaire, d'une question, me complête un ensemble de cartouche 'ESPACE PAPIER" et surtout renseigne un CHAMP. La réponse à la question posée est traduite dans la variable USERS2 puis affichée dans le CHAMP. Jusqu'ici tout fonstionne normalement !! Mais lorsque je selectionne plusieurs Présentation et que je lui demande de les publier, le résultat papier n'affiche pas la valeur du CHAMP !!!! Par contre, si je fais une impression de chaque Présentation (1 à 1 !!!) là cela fonctionne !!!!! Est-ce que quelqu"un aurait une idée ?? la valeur de FIELDEVAL et à 31 ! Merci

Merci Mais comment intégrer cette fonction dans une commande LISP?

Bonjour Je recherche un moyen, en lisp, de re inserer un bloc qui existe déja dans le dessin et donc de le redefinir!! Actuellement, si je passe par la commande "_-insert", il ne me propose pas de REDEFINIR le bloc ! Pourriez vous m'aider ? Merci

Merci pour le tri des xrefs ! Maintenant il faut que je trouve le moyen de récupérer l'ensemble des entités (polyligne) autour d'un point selectionné !