[编程交流] 添加扩展数据

 
 (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)