Adding Xdata

[mcguirepm]

I am feeling particularly ignorant today. Why can't I get the below code to properly attach the xdata to the line?

 

 
 (while (setq PT1 (getpoint "\nPick the leader endpoint: "))
   (setq PT2 (getpoint PT1 "\nPick the tag center point: "))
   (setq DS (getvar "dimscale"))
   (setq ANG (angle PT2 PT1))
   (setq DIST (distance PT1 PT2))
   (setq LDRPT (polar PT2 ANG RAD))
   (command "line" PT1 LDRPT "")
   (setq LnEnt (entget(entlast)))
   (setq LnHndl (cdr (assoc 5 LnEnt)))
   (command "INSERT" "BALLOON" PT2 DS DS 0 TAGNUM)
   (setq BlnEnt (entget(entlast)))
   (setq BlnHndl (cdr (assoc 5 BlnEnt)))

   ;add entity handles to other entity
   (regapp "GP_Balloon")
   (princ "\n1")
   (setq exdata '((-3 ("GP_Balloon" (1005 . eval(LnHndl))))))
   (princ "\n2")
   (setq newent (append BlnEnt exdata))
   (princ "\n3")
   (entmod newent)
   (princ "\n4")
   
   (setq TAGNUM (1+ TAGNUM))
 )
 (redraw)

 

I added the (princ "\n#") lines as a pointer for failure analysis. I get 1, 2, & 3. Looking at it I think my problem is with the (setq exdata... line.

 

Any help would be appreciated.