Help: Update insert block lisp

[mhy3sx.]

Hi, I use this code to insert blocks in the drawings. This code insert the block from a specific file in to AutoCAD by picking the insert point.

I want to add an extra option

a) pick a point for insert the block
b) To give the point number and insert the block and this can be for multiple points (The points I use is block attributes ,look test.dwg I insert some points for example)

for example

Insert point ? [point / number]

> number
20
enter
44
enter
46
enter
enter (<--- for exit)


This is the code I use

    (Defun c:DEH ( / dt1 )
     (command "_layer" "_m" "DEH" "_c" "33" "" "")
     (setq olderr *error*
             *error* at_err)
     (setvar "blipmode" 0)
     (setq osm (getvar "osmode"))
     (setvar "cmdecho" 0)
     (setq scl (getint "\n Set Scale (50,100,200,250,500,etc) :"))
     (setq scl1 (* scl 0.0025))
     (setq dt1 (getpoint "\n Select point to insert the block:"))
     (command "insert" "c:\\MBL\\DEH1.dwg" dt1 scl1 scl1 0)
     (setvar "cmdecho" 1)
     (setvar "blipmode" 1)
     (setvar "osmode" osm)
     (command "setvar" "clayer" "0")
    )

Thanks

[tedg]

The block that actually has the point number is "point"
I'm not sure how this all works, the drawing (block) DEH1.dwg you supplied and referenced doesn't have the attributes.

So I took a stab at your lisp with the block (named "point") and it allows you to type in a number.
Hope that helps

    (Defun c:DEH ( / dt1 pt1 )
     (command "_layer" "_m" "DEH" "_c" "33" "" "")
     (setq olderr *error*
             *error* at_err)
     ;;(setvar "blipmode" 0)
     (setvar "attreq" 1)
     (setvar "attdia" 0)
     (setq osm (getvar "osmode"))
     (setvar "cmdecho" 0)
     (setq scl (getint "\n Set Scale (50,100,200,250,500,etc) :"))
     (setq scl1 (* scl 0.0025))
     (setq pt1 (getstring "\nPoint Number: "))
     (setq dt1 (getpoint "\n Select point to insert the block:"))
     (command "insert" "c:\\MBL\\point.dwg" dt1 scl1 scl1 0 pt1 "" "")
     (setvar "cmdecho" 1)
     ;;(setvar "blipmode" 1)
     (setvar "osmode" osm)
     (command "setvar" "clayer" "0")
    )

[mhy3sx.]

Hi tedg. Thanks for the reply. I test your code but is not working.

[Ed Jobe]

Don't simply say something is "not working". It doesn't help to solve the problem. Describe the problem. Give some detail, like error messages.

[tedg]

Hi tedg. Thanks for the reply. I test your code but is not working.

As I mentioned, the drawing file that contains the point number (among other attributes) is a different file than the "DEH1.dwg".

I don't know where in your process that drawing file "Point" gets inserted but that is what you want to call for the insert (and the path to it needs to be in the routine)
This won't work when inserting "DEH1.dwg", Im not sure if that is a different routine to insert or can add that too
You need to put the path to "Point.dwg" in the routine and it will allow you to use it.

So, to recap:
you need to know the path that the Point.dwg is and
you need that in the routine
(They need to match wherever you have it)

I used "c:\\MBL\\point.dwg" but you may have it somewhere else.

As Ed mentioned, we need more information on what you're doing, what errors you're getting, and what isn't working specifically.
Screen shots of your command line and screen would help too.
(I also attached a copy of your "Point.dwg" to put somewhere if you don't know where it normally is in your process)

[mhy3sx.]

I ask to give the point number and insert the block and this can be for multiple points (The points I use is block attributes ,look test.dwg I insert some points for example)

The points is allready in the drawing. In tedg code have

))
     (setq pt1 (getstring "\nPoint Number: "))
     (setq dt1 (getpoint "\n Select point to insert the block:"))           ;<- what point to select, I give the number of the point to insert the DEH1.dwg
     (command "insert" "c:\\MBL\\point.dwg" dt1 scl1 scl1 0 pt1 "" "")   ;<-- I want to insert DEH1.dwg

[Opie]

This means your code needs to search all of the blocks within the drawing that contain the attribute that has the Point Number specified by the user. As you want to continue to insert new blocks until you "Enter" out of the code means you will need to place all of this into a loop.

[tedg]

I ask to give the point number and insert the block and this can be for multiple points (The points I use is block attributes ,look test.dwg I insert some points for example)

The points is allready in the drawing. In tedg code have
...

There are prettier ways to do this, but this works based on what you provided for info.
I commented out where it needs a path for the "point.dwg" assuming it is in the file you're working in already.
This inserts both of those blocks, you pick the scale and then loops for numbers and pick points.

That's all I have

    (Defun c:DEH ( / dt1 pt1 )
     (command "_layer" "_m" "DEH" "_c" "33" "" "")
     (setq olderr *error*
             *error* at_err)
     ;;(setvar "blipmode" 0)
     (setvar "attreq" 1)
     (setvar "attdia" 0)
     (setq osm (getvar "osmode"))
     (setvar "cmdecho" 0)
     (setq scl (getint "\n Set Scale (50,100,200,250,500,etc) :"))
     (setq scl1 (* scl 0.0025))
(while ;<-- while lets you continue to type numbers and pick points
     (setq pt1 (getstring "\nPoint Number: "))
     (setq dt1 (getpoint "\n Select point to insert the block:"))
     ;;(command "insert" "c:\\MBL\\point.dwg" dt1 scl1 scl1 0 pt1 "" "");<--if outside the dwg
     (command "insert" "point" dt1 scl1 scl1 0 pt1 "" "");<--if inside the dwg
     (command "insert" "c:\\MBL\\DEH1.dwg" dt1 scl1 scl1 0)
) ;<-- end while
     (setvar "cmdecho" 1)
     ;;(setvar "blipmode" 1)
     (setvar "osmode" osm)
     (command "setvar" "clayer" "0")
    )

[Opie]

Ted, I believe you are misreading the request for help.

The user would enter the "Point number". This would be a number (actually it would be a string) in an attribute for one of the many "Point" named block insertions. Once that number associated block is found, then use the insertion of said block to insert the DEH1 block. There would not be a prompt for insertion point.

At least that is how I would interpret the request. The request is a little more complicated than the provided code.

It would probably be helpful to cycle through all of the points once and make an associative list between the point number found in the attribute's textstring and the associated point block. This would reduce the necessary time to go through all of the points each time the user inputs a new number.

[mhy3sx.]

Opie is correct. Ted the points are allredy in the drawing, Your code insert point with givings number , not the DEH1.dwg to exist point number