Insérer des images flanquées

[Papao]

Bonjour à tous,
J'ai un lisp qui me permet d'insérer dans la zone de dessin, toutes les images contenues dans un certain dossier.
le point d'insertion est via le clic de souris (sur la zone de dessin) pour chaque image.

Cependant, compte tenu d'un point initial d'insertion à l'écran, insérer les images empilées entre deux et deux (en commençant par le coin inférieur gauche, comme exemple ci-dessous:Autres
Autres
Autres placer le code ci-dessous:

(pour chaque élément (vl-répertoire-files loc "*.jpg" 1)
(commande "._image" "_a"
(strcat loc "" élément)
pause
(* scala 50,0)
0,0
)
(commande "_imageframe" 2)
)

J'ai essayé d'assigner le point d'écran à une variable, puis l'augmenter pour insérer les prochaines images... mais j'ai commis une erreur et donc cela ne fonctionne pas:

(setq pt1 (point d'entrée "\n indique le point d'insertion:"))

Avez-vous des suggestions ?

 

[Papao]

Pas du tout ?

 

[Papao]

exemple de gerbage d'image allégo, à partir du coin inférieur gauche (image 1)
Désolé, mais je n'ai pas pu le poster...

 

[dsw]

Je suppose que tout le monde sera en vacances ?

cmq si vous pouvez aider, pour Il y a un fil qui parle du même sujet... et il semble avoir été résolu. . . .

 

[Papao]

à juste titre... .. ils ont détaché la poignée pour prendre le repos mérité.

Pendant ce temps, merci de refaire l'intérêt, si vous pouvez corriger le lien que vous avez posté, cela ne fonctionne pas pour moi.

 

[dsw]

vrai, le lien ne fonctionne pas et je réinserte pour, j'ai posté avec mon téléphone portable mais parfois j'ai des problèmes d'affichage/entrée avec ce site...

 

[Papao]

Reddish, je crois que je connais déjà ce post
la mienne était une demande après cela, une évolution. . . .

Vous avez bien fait de la poster, parce que j'ai remarqué que le code final est manquant: Je la poste, pourrait servir d'autres amis du forum.

 

[GP.]

en supposant que les variables loc (percorso) e Échelle C'est quoi ?

 (Article 60)
(setq diri 80) ;distance entre les lignes

(setq pt1 (point d'entrée "\n indique le point d'insertion:"))
(setq im (vl-répertoire-files loc "*.jpg" 1))
(setq primal 1)
(setq pt_ins pt)
(chant)
(commande "_.-attach" (strcat loc (car im)) pt_ins (* échelle 50.0) "0.0" )
(seq primacol (- 1 primacol))
(si (zérop primacol)
(setq pt_ins (polar pt_ins 0.0 dire)
(progrès)
(setq pt1 (pt1 polaire (/ pi2))
(setq pt_ins pt)
)
)
(setq im)
)
(principal)

 

[Papao]

J'ai ajouté/remplacé votre code dans le mien et c'est bon.
J'aimerais apprendre aussi.
Je vous remercie.