How to get the 'Object ID' of a block while inserting.

[ReachAndre]

Hello,
I am trying to use fields to show duct sizing.
I am in need of finding th 'Object ID' of the block I am inserting.

If anyone can help, I certainly appreciate it.

Here is the lisp we have come up with this allows you to get the object id.

(defun c:oid ( / )
  (setq oid (vla-get-ObjectId (vlax-ename->vla-object (car (entsel "\n Select Source Object: ")))))
  (princ (strcat "Object ID = " (rtos oid 2 0) ))
  (princ))

Thanks again,
Andre

[RobertB]

You cannot get the object ID while in the process of inserting the object, because it doesn't exist yet. However, as soon as it is placed you can get the object ID of the last object in the current space.

[ReachAndre]

Rob, thank you for your response, it definately got me thinking. While I was not able to get the object ID while inserting, i was able to obtain the object ID prior to entering the attributes (which was my real need).

Here is the programming (I have cut out the irrelevent functions)

(defun c:szz (/ cclayer cattdia cdimscale oductw oducth ocfm ofpm osre cdimscale runlay oid displaytext)
  (setq cattdia (getvar "attdia"))
  (setq ductw (getreal "\nEnter duct width: "))
  (setq ducth (getreal "\nEnter duct width: "))

  (setvar "attdia" 0)
  
  (command "-insert" "T:\\Mechanical\\Symbols\\Duct Sizing - Rect - Field.dwg" "S" (getvar "Dimscale") pause pause)

  (setq oid (vla-get-ObjectId (vlax-ename->vla-object (entlast))))
  (setq displaytext (strcat "\n%<\\AcObjProp Object(%<\\_ObjId "(rtos (+ oid 8) 2 0) ">%).TextString>%"
                            "x"
                            "\n%<\\AcObjProp Object(%<\\_ObjId "(rtos (+ oid 16) 2 0) ">%).TextString>%"))
  (setvar "attdia" cattdia)

  (command (rtos ductw 2 0) (rtos ducth 2 0) "XXX" displaytext)  

  (princ))

Thanks,
Andre

[andrea.andreetti]

Rob, thank you for your response, it definately got me thinking. While I was not able to get the object ID while inserting, i was able to obtain the object ID prior to entering the attributes (which was my real need).

Here is the programming (I have cut out the irrelevent functions)

(defun c:szz (/ cclayer cattdia cdimscale oductw oducth ocfm ofpm osre cdimscale runlay oid displaytext)
  (setq ductw (getreal "\nEnter duct width: "))
  (setq ducth (getreal "\nEnter duct width: "))

  (setvar "attdia" 0)
  
  (command "-insert" "T:\\Mechanical\\Symbols\\Duct Sizing - Rect - Field.dwg" "S" (getvar "Dimscale") pause pause)

  (setq oid (vla-get-ObjectId (vlax-ename->vla-object (entlast))))
  (setq displaytext (strcat "\n%<\\AcObjProp Object(%<\\_ObjId "(rtos (+ oid 8) 2 0) ">%).TextString>%"
                            "x"
                            "\n%<\\AcObjProp Object(%<\\_ObjId "(rtos (+ oid 16) 2 0) ">%).TextString>%"))
  (setvar "attdia" cattdia)

  (command (rtos ductw 2 0) (rtos ducth 2 0) "XXX" displaytext)  

  (princ))

Thanks,
Andre

didn't test your code....
but cattdia variable is not defined..

[ReachAndre]

didn't test your code....
but cattdia variable is not defined..

Thanks, i fixed this problem on the site, the cattdia was erased during my 'clean up' before my posting irrelevant code.