program to import and insert blocks

[yag]

Hello I would have this need

in practice I have a .dwg file with many blocks
I would like to create a mask that lists me these blocks and how I click insert the block to the point that I tell them with the mouse

Can you do that?

 

[rpor66]

You okay in lisp?

 

[yag]

You okay in lisp?

even if in vba it is better...

 

[rpor66]

I could also do it in vba but in lisp it works well in x64 versions, unlike the vba.

command: insblocks

the .dcl file must be in a directory indicated in the search paths (tools/options/files/support file search path)

bye

 

[yag]

I could also do it in vba but in lisp it works well in x64 versions, unlike the vba.

command: insblocks

the .dcl file must be in a directory indicated in the search paths (tools/options/files/support file search path)

bye

So do what I asked, but I have to do the list right?

 

[rpor66]

the command lists the blocks contained in the open dwg, except for the unnamed ones.

bye

 

[yag]

the command lists the blocks contained in the open dwg, except for the unnamed ones.

bye

how to launch it gives me error not definition do_lista

 

[rpor66]

It's a part of code that is also used by other commands and that I have unified in my programs, so I escaped.

I re-attached the file, it should go now.

bye

 

[yag]

It's a part of code that is also used by other commands and that I have unified in my programs, so I escaped.

I re-attached the file, it should go now.

bye

works I'm trying to study my lips I'm programming decently in vba and other languages but lisp nn I've ever used it. . .

I don't understand
(seq selection ")
(seq selection)

imposed selection to "" and then do what selection is equal to itself?

 

[yag]

but it is possible to charge the blocks from an unloaded file but put in a folder?

 

[GP.]

@yag

(seq selection) maybe could be avoided, we will clarify rpor66, but the concept is not "imposti selection to "" and then do that selection is equal to itself", ma se (= rpcancel) then (seq selection ") otherwise (setq selection).

 

[confutatis]

but then why not enter directly (setq selection nil) instead of (setq selection ""), since it still represents an exit pressing the cancel button?

 

[rpor66]

I am of basic extraction, then become visual basic, in my functions that return string values, they return "" if they find nothing, otherwise the value sought.
habits are hard to die.... .
When I read a program, if I find "", I know by instinct what it means, I do not have to think it, so I transported this method also in the lisp.
Everything here, you can do it in a different way, I liked it so.

bye

 

[confutatis]

No, no, it was absolutely not a criticism, indeed, I just wanted to understand. . .
here certainly there was not the problem, but it may be that in some cases (just, for the truth) I have the need to cancel a variable, then to nil. and the symbol "" for the lisp means a variable not cancelled.

 

[rpor66]

critically accepts, I cleaned a little code, eliminated global variables and some local variables.

bye

 

[yag]

critically accepts, I cleaned a little code, eliminated global variables and some local variables.

bye

but the speech to read the blocks from an unopened file in autocad can not apply?

 

[confutatis]

Yes, you can, but you still have to integrate the program.

 

[yag]

Yes, you can, but you still have to integrate the program.

And can you give me some tips?

 

[rpor66]

if you want to have you listed the blocks of another dwg just enter the dwg in your drawing.

bye

 

[confutatis]

alternative to reading blocks from an unopened design is to use the autocad design center
command: adc