import all pictures of a folder

[Papao]

Good morning.
I would like to create a lisp command that amounts all images that contains a certain folder.
ravaging in the network, I found something that does to my case but needs some improvements that though I am not able to do.

I would like to add therefore, reading the value of two block attributes present in the current design to define on which folder to fish the images to import (the path of the folder will be the same as I echo from the sum of the readings of the two block attributes and must be in place of "c:/tmp").
I would also like to define with a click the location where I would like to insert each image.
below, the code I found. Thank you.

(setq loc "c:/tmp")
(sing)
item
(vl-directory-files loc "*.jpg" 1)
(command)
"._image"
♪
(strcat loc "/" item)
(list 0.0 0.0)
1.0
0.0
)
)

 

[GP.]

to place the images individually replace (list 0.0 0.0 0.0) con pause.
for attributes we have to imagine if you have to select them individually or a block that contains them both?
attach a dwg?

 

[Papao]

thank you 1000 for the answer!
good for pause: it works perfectly!

attributes are contained in the block of the cartilage called etc.
the labels that contain the values to question, they are called _commessa e design-nthe block and its labels always have the same name in each design.

 

[Cristallo]

Good morning.
I would like to create a lisp command that amounts all images that contains a certain folder.

Sorry. but would you create it from absolute nothing?
I'll explain. I would also like to create an activity that produces approximately 2500 euros per month.
I found my iban (its020085689700000035421032)
I was wondering if 2000 of these 2500 could have turned you...

 

[Papao]

Sorry. but would you create it from absolute nothing?
I'll explain. I would also like to create an activity that produces approximately 2500 euros per month.
I found my iban (its020085689700000035421032)
I was wondering if 2000 of these 2500 could have turned you...

What's wrong with you?
If you don't want to help me just don't answer.... thankfully they're not all like you .

 

[Cristallo]

But I want to help you... try to die in this forum.
develops (paying obviously) software solutions.
an account is committing to producing something, helped by forum friends.
another is to make a program for their own needs, scrocco.
On the other hand, you said... You want to create.
you have it (another vampirata on the net, but you can stay), put yourself with a nice lisp manual and where you find it difficult to see how to help you. . .

But think about you... He's just...

 

[Papao]

thanks gp. with your help I managed in my intent to complete what I needed;
I added the dwgprefix variable to trace back to the file rescue path.
p.s.: do not be intimidated by the arrogances of people but always be yourself!

x the administrators/members of the forum:
for me we can close this "triste" discussion

 

[Cristallo]

Good.
and I see that in the perspective of sharing and dispassionate help you also posted your list, if it were to serve someone else. honor you.

 

[Papao]

as from regulation and spirit of sharing, I attach the complete list.
I thank again for the help received by the friends of the forum, which allowed me to achieve the desired result.