Insert block with attributes

[aabfm]

Hi,

I've been trying tons of different solutions to solve this problem: insert a block that has an attribute which happens to be the last object id.

This is the best code I tried so far but without any succss.

 

(defun c:q1()
(command "_.PLINE")
(while (= (getvar "CMDNAMES") "PLINE")
(command pause)
)

(setq objname (entlast))
(setq oad (getvar "attdia"))
(setq orq (getvar "attreq"))
(setq oec (getvar "cmdecho"))
(setvar "attdia" 1)
(setvar "attreq" 0)
(setvar "CMDECHO" 0)
(setq xScale 1)
(setq yScale 1)
(setq rot 0)
(setq at1 "abc")
(setq pt (getpoint "\nSpecify Insertion Point: "))
(command "_.insert" "TROC_PRP" pt xScale yScale rot objname)

(setvar "attdia" oad)
(setvar "attreq" orq)
(setvar "cmdecho" 1)
)

 

Can you help me?

Kind regards.

Edited January 5, 2012 by aabfm

[SLW210]

Please read the CODE POSTING GUIDELINES and edit your post.

[BlackBox]

While you're at it, please stop posting duplicate threads.

[alanjt]

Post a drawing of what you are trying to accomplish.

[SLW210]

While you're at it, please stop posting duplicate threads.

 

That's a different forum, how would that be a duplicate?

[alanjt]

That's a different forum, how would that be a duplicate?

Duplicate on the internets dude!!