insert cont. Block

[k005]

(defun c:mim (/ bry)
(setvar "cmdecho" 0)
(setvar "OSMODE" 1)
  
(if (= ant2 nil)(setq ant2 10))
(setq ant2_t (getreal (strcat "\nÖlçek giriniz   <" (rtos ant2 2 2)"> : ")))
(if (= ant2_t nil)(setq ant2_t ant2))
(setq ant2 ant2_t)
(setq bry(getpoint "\nBu noktaya: "))
(command "-insert" "mim01" "scale" ant2 bry  "")
(setvar "cmdecho" 1)
(setvar "OSMODE" 0)
(princ)
)

D:\Blocks\    «--- Supported...

xxxx01.dwg

xxxx02.dwg

xxxx03.dwg

xxxx04.dwg

Hello to everyone

I have blocks in this order in the folder I specified.

When I run the mim command; How can I call the block with the last numeric value?

(command "-insert" "xxxx04" "scale" ant2 bry "")

[Kent1Cooper · Accepted solution]

If all the files in that directory are named the same way except for the numerical ending, try this:

(command "-insert"

  (last (vl-sort (vl-directory-files "D:/Blocks" "*.dwg" 1) '<))

  "scale" ant2 bry ""

)

[k005]

I added the code. but it doesn't get a block.

[Kent1Cooper]

What does this by itself return?

(vl-sort (vl-directory-files "D:/Blocks" "*.dwg" 1) '<)

[k005]

@Kent1Cooper  sorry I made a mistake... The code is working.
Thank you so much.

[k005]

(vl-sort (vl-directory-files "D:/Blocks" "*.dwg" 1) '<)

Blocks = is Fixed...

"D:/Blocks"

How can I make it find this path automatically?

well ;

Let him look in the AutoCAD support folders - and find it himself.. how can we do this?

[Kent1Cooper]

OPTIONS command dialog box:

[k005]

I know the situation in this part.

I wanted to say, can we have the folders here look through the code?

So if it could be...

Not important. I can edit lisp., or support folders as you mentioned...