Einfügen von flankierten Bildern

[Papao]

Guten Morgen.
Ich habe eine Lippe, die mir erlaubt, in den Zeichnungsbereich einzufügen, alle Bilder in einem bestimmten Ordner enthalten.
der Einführpunkt ist über den Mausklick (auf dem Zeichenbereich) für jedes Bild.

Bei einem Anfangspunkt des Einfügens auf dem Bildschirm legen Sie die zwei bis zwei gestapelten Bilder (ab der unteren linken Ecke, wie beispielsweise unten:Ρ
Ρ
Ρ Platz unter Code:

(jeder Artikel (vl-directory-files loc "*.jpg) 1)
(Befehl "._image" "_a"
(Strcat loc "" item)
Pause
(* scala 50.0)
0,03
)
(Befehl "_imageframe" 2)
)

Ich versuchte, den Bildschirmpunkt einer Variablen zuzuordnen, dann zu erhöhen, um die nächsten Bilder einzufügen... aber ich verwechsele etwas und deshalb funktioniert es nicht:

(setq pt1 (getpoint "\n angeben Einführpunkt:"))

Haben Sie Vorschläge?

 

[Papao]

Leute, nicht so was?

 

[Papao]

allego Bild Stapelbeispiel, ausgehend von der unteren linken Ecke (Bild 1)
Tut mir leid, aber ich konnte keinen Weg finden, es zu posten...

 

[dsw]

Ich schätze... werden alle im Urlaub sein?

cmq, wenn Sie helfen können, qui Es gibt einen Faden, der über das gleiche Thema spricht... und es scheint gelöst worden zu sein. .

 

[Papao]

Richtig... .. sie lösten den Griff, um die verdiente Ruhe zu nehmen.

In der Zwischenzeit, danke, dass Sie von dem Interesse, wenn Sie den Link korrigieren können Sie veröffentlicht, es funktioniert nicht mit mir.

 

[dsw]

wahr, der Link funktioniert nicht und ich reinsercate qui, Ich veröffentlichte mit meinem Handy, aber manchmal habe ich einige Anzeige / Eingabe Probleme mit dieser Website....

 

[Papao]

Ich glaube, ich kenne diesen Beitrag
meine war danach ein Antrag, eine Evolution. .

Sie taten gut, um es zu posten, weil ich bemerkte, dass der endgültige Code fehlt: Ich poste es, könnte anderen Freunden des Forums dienen.

 

[GP.]

Annahme von Variablen loc (percorso) e Skala Sistano:

 (Abschnitt 60)
(setq diri 80)

(setq pt1 (getpoint "\n angeben Einführpunkt:"))
(setq im (vl-directory-files loc "*.jpg")
(setq Primal 1)
(setq pt_ins pt)
(sing)
(Befehl "_.-attach" (strcat loc (car im)) pt_ins (* scale 50.0) "0.0"
(- 1 Primacol)
(falls (zerop primacol)
(setq pt_ins (polar pt_ins 0.0 say)
(Progn)
(Setq pt1 (polar pt1 (/ pi2))
(setq pt_ins pt)
)
)
(setq im)
)
(princ)

 

[Papao]

Ich habe Ihren Code innerhalb meiner hinzugefügt/ersetzt und es ist in Ordnung.
Ich würde gerne auch lernen.
Danke.