sujet Commande LISP pour associer une commande d'automatisation d'un attribut dans AutoCAD – tous produits - Forum Français

Commande LISP pour associer une commande d'automatisation d'un attribut

Anonymous — Tue, 18 Apr 2017 06:14:57 GMT

Bonjour,

Je suis débutant en matière de programmation "LISP" et j'aimerai savoir comment associer une

commande d'automatisation d'un attribut hyperlien sur un bloc point ?

sujet edité par un modérateur pour une meilleur compréhension et un meilleur référencement; sujet original: Commande LISP

Re: Commande LISP

_gile — Tue, 04 Apr 2017 14:58:14 GMT

Salut et bienvenue,

Grossièrement la programmation consiste à exprimer dans un langage (LISP ou autre) des instructions à donner à une machine (ou à un logiciel tiers) pour obtenir un résultat, la machine étant uniquement capable d'exécuter ces instructions.

Donc, la première chose à faire quand on veut faire un programme est d'exprimer le plus précisément possible dans sa langue maternelle le résultat qu'on veut obtenir, à partir de quelles données et, enfin, comment y parvenir.

sarratjean a écrit :

comment associer une commande d'automatisation d'un attribut hyperlien sur un bloc point ?

En l'état, ce que tu demandes m'est complètement obscur malgré les quelques capacités d'interprétation que je pense avoir acquises et qui me différencie d'une machine.

Par exemple, si je peux essayer d'interpréter (sans aucune certitude) ce que tu entends par : "bloc point", AutoCAD, de son côté, connaît les références et les définitions de bloc, les points comme données géométriques ou comme entité (nodal) mais ne sait rien du concept "bloc point".

Essaye donc d'exprimer plus clairement ce que tu cherches à faire en étant le plus précis possible et en ne perdant pas de vue qu'au final tu devra t'adresser à une machine qui, même si elle est dotée d'une capacité de calcul phénoménale, n'en est pas moins dénuée de toute intelligence...

Re: Commande LISP

Anonymous — Thu, 06 Apr 2017 12:44:15 GMT

Enfaîte j'arrive à créer un hyperlien entre une photo et un point topo qui ce trouve être un bloc "tcpoint" et j'aimerai savoir s'il est possible par le biais d'une programmation en LISP d'automatisé cette création d'hyperlien. On m'a orienté sur une possibilité via une création en LISP d'un "bloc avec attribut" ou je suppose l'attribut sera mon hyperlien menant à un fichier JPG. Mais le problème c'est que je n'ai aucune connaissance en programmation et j'ai du mal à comprendre comment cela fonctionne.

Merci pour la rapidité de votre réponse _gile

Re: Commande LISP

_gile — Thu, 06 Apr 2017 19:34:30 GMT

Salut,

Ça se précise, mais c'est pas encore ça.

Il faudrait éclaircir ce que tu entends par "automatiser cette création d'hyperlien". S'agit-il de traiter tous les blocs "TCPOINT" sans l'intervention de l'utilisateur ? Sinon, l'utilisateur doit-il sélectionner les blocs un par un ?

Par ailleurs, si l'hyperlien ne pointe pas vers la même "photo" pour tous les blocs, comment déterminer quel fichier est lié à quel bloc ?

Re: Commande LISP

Anonymous — Fri, 07 Apr 2017 12:18:43 GMT

bonjour,

Pour être plus précis, j'aimerai faire un sorte qu'à chaque points je puisse associer un hyperlien menant à une photo différentes pour chaque point ( ces points correspondant au coordonnée de l'axe de la photo ) et mon interrogation porte sur le fait de pouvoir faire en sorte que cela se fasse sans intervention de l'utilisateur. Par exemple par le biais d'un attribut du bloc point. Et donc je voulais savoir s'il était possible de programmer de tel fonction.

Re: Commande LISP

_gile — Fri, 07 Apr 2017 12:59:47 GMT

Je ne comprends pas en quoi un attribut supplémentaire peut aider à l'automatisation.

Si l'attribut doit contenir le chemin de l'image, autant renseigner directement l'hyperlien...

Ici, le seul moyen d'automatiser le processus sans intervention de l'utilisateur serait de pouvoir reconstruire le nom de fichier de limage à partir des données existantes dans le bloc (coordonnées du bloc et valeur de ses attributs).

Re: Commande LISP

Anonymous — Wed, 12 Apr 2017 17:09:31 GMT

Bonsoir Giles

Je viens d'intégrer le site , je suis nouveau et je m'interesse beaucoup au langage lisp.

Re: Commande LISP

_gile — Wed, 12 Apr 2017 17:21:24 GMT

@Anonymous Bienvenue au club.

Tu trouveras (si ce n'est déjà fait) Introduction à AutoLISP sur Exchange Apps (ou sur gileCAD).

Et surtout, n'hésites pas à poser des questions et demander de l'aide sur ce forum.

Re: Commande LISP

Anonymous — Wed, 12 Apr 2017 17:29:19 GMT

Merci pour l'accueil, c très cool de ta part , je compte bien en poser beaucoup des questions (lol!!!)

En effet oui j'ai déjà le fichier , je compte bien m'initier petit à petit , d'autre part j'ai déjà téléchargé beaucoup de tes lisps.

Merci encore

Re: Commande LISP

Anonymous — Sat, 15 Apr 2017 11:13:49 GMT

Bonjour Giles , j'ai une question par rapport à une lisp que je voudrai améliorer, la lisp est dénomée CEP et voici le texte:

;;;Fonctionnement :

;;;- Les cadres de pages doivent être des blocs.

;;;(Si vous avez des cadres en simple rectangle, transformez en un en bloc et faites un réseau ou un copier)

;;;- Afin d'éviter toutes erreur, une présentation déjà paramétré doit exister (Une fenêtre de présentation cadré et mis à l'échelle, Traceur, échelle de tracé pour un cadre).

;;;- Les cadres en Espace Objets peuvent être à n'importe quel échelle, et peuvent être mélangé Portrait et Paysage.

;;;- L'unité d'insertion doit être en millimètre, centimètre ou mètre.

;;;- Le nom des onglet sera incrémenter de +1.

;;;- Commande : CEP

; Crée un onglet EP par cadre (bloc) de page sélectionné en EO

; par Bred - Un onglet déjà paramétrer doit exister

(defun c:CEP (/ ACDOC B C FEN I LAYS N-P NOM-P ONG-BASE ONG_DEST SEL XMIN YMAX

A-P HAUT LARG P1 P2 NOM ECH LAY LOCK UNIT)

(vl-load-com)

; 4 Millimètres 5 Centimètres 6 Mètres

(setq Unit (cdr (assoc (getvar "INSUNITS") '((4 . 1) (5 . 10) (6 . 1000)))))

(while (not sel)

(setq sel (car (entsel "\n Choix du cadre (Bloc) :")))

(if sel

(if (not (equal (vla-get-ObjectName (setq b (vlax-ename->vla-object sel))) "AcDbBlockReference"))

(setq sel nil)))

)

(setq sel (ssget '((0 . "INSERT")))

AcDoc (vla-get-activedocument (vlax-get-acad-object))

nom-p (getstring t "\n Nom des Onglets à Créer :")

layS (layoutlist))

(if (> (length layS) 1)

(progn

(princ "\n Copie configuration traceur d'onglet Existant. \n Plusieurs Présentations détectées.")

(while (not ong-base)

(princ "\n")

(repeat (setq i (length layS))

(princ (strcat (nth (- (length layS) i) layS) " * "))

(setq i (1- i)))

(setq ong-base (getstring t "\n Présentation d'où la configuration du traceur sera récupérée :"))

(if (not (member ong-base layS))

(setq ong-base nil))))

(setq ong-base (car layS)))

(setq a-p (vla-item (vla-get-layouts AcDoc) ong-base))

(vla-getcustomscale a-p 'n 'm)

(vla-put-ActiveLayout AcDoc a-p)

(vlax-for e (vla-get-paperspace AcDoc)

(if (equal (vla-get-ObjectName e) "AcDbViewport")

(setq lay (vla-get-Layer e)

lock (vla-get-DisplayLocked e)))

)

(setq i 0)

(repeat (sslength sel)

(if (vlax-property-available-p (vlax-ename->vla-object (ssname sel i)) 'effectivename)

(setq nom vla-get-effectivename)

(setq nom vla-get-name))

(if (equal (nom (setq c (vlax-ename->vla-object (ssname sel i))))

(nom b))

(progn

(vla-GetBoundingBox c 'xmin 'ymax)

(setq n-p (vla-add (vla-get-Layouts AcDoc) (setq ong_dest (strcat nom-p " - " (rtos (1+ i) 2 0)))))

(setq ech (vla-get-XEffectiveScaleFactor c))

(vla-copyfrom n-p a-p)

(vla-put-ActiveLayout AcDoc n-p)

(setq fen

(vla-AddPViewport (vla-get-paperspace AcDoc) (vlax-3d-point '(0 0 0))

(setq Larg (* Unit (/ (- (car (vlax-safearray->list ymax)) (car (vlax-safearray->list xmin))) ech)))

(setq Haut (* Unit (/ (- (cadr (vlax-safearray->list ymax)) (cadr (vlax-safearray->list xmin))) ech)))))

(vla-put-Layer fen lay)

(vla-put-DisplayLocked fen lock)

(vla-ZoomExtents (vlax-get-acad-object))

(vla-Display fen :vlax-true)

(vla-put-MSpace AcDoc :vlax-true)

(vla-put-ActivePViewport AcDoc fen)

(vla-ZoomWindow (vlax-get-acad-object) xmin ymax)

(vla-put-MSpace AcDoc :vlax-false)

(if (> (- (car (vlax-safearray->list ymax)) (car (vlax-safearray->list xmin)))

(- (cadr (vlax-safearray->list ymax)) (cadr (vlax-safearray->list xmin))))

(vla-put-PlotRotation (vla-get-activelayout AcDoc) ac90degrees)

(vla-put-PlotRotation (vla-get-activelayout AcDoc) ac0degrees))

(setq p1 (vlax-make-safearray vlax-vbdouble (cons 0 1))

p2 (vlax-make-safearray vlax-vbdouble (cons 0 1)))

(vlax-make-variant

(vlax-safearray-fill p1 (list (- (/ Larg 2)) (- (/ Haut 2)))))

(vlax-make-variant

(vlax-safearray-fill p2 (list (/ Larg 2) (/ Haut 2))))

(vla-put-PlotType (vla-get-activelayout AcDoc) acWindow)

(vla-setwindowtoplot (vla-get-activelayout AcDoc) p1 p2)

(setq i (1+ i))

) ) )

(setvar "TILEMODE" 1)

(princ)

En fait le but est de sélectionner deux cadres en même temps pour chaque présentation au lieu d'un , par exemple si on a deux cadres qui s'alignent verticalement (même s'ils ne sont pas collés) , pouvoir afficher les deux superposés dans chaque présentation

VOICI UN fichier word pour illustrer