[求助]：写了一个标注批量相关的lisp，还有些问题，请大家帮帮忙！！

maplesu

由于利用ET中的工具chspace把以前在模型空间的标注转至图纸空间，但是这样一来标注原先有关联的都没有了。因为图纸空间的标注要是和模型空间的对象没有了关联也就失去了意义。所有就要利用dimreassociate命令重新关联。但是这个太麻烦了。
故我写了一个程序来批量关联（注意：前提是转移以前的是有关联的，而且转移后两个空间的没有动过）

但是现在还有个问题就是半径和直径在用dimreassociate命令的时候要选取对象，本来我可以利用箭头的顶点选取的，但是因为不再一个空间，对象始终在标注下面，这样一来总选的是标注，cad就说没有选择到相应的对象。所以我利用角度让其偏转了一些。这样在一定的情况下可以做了，但是存在的两个问题。1、是当图形放的很小的时候同样选择不上。2、有可能偏转到对象以外了，这就更选择不上了。

我附上程序大家给点意见：
[PHP]
;批量关联
(defun c:gl()
  (setq ss (ssget '((0 . "DIMENSION"))))  
  (setq i 0)
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (setq en_data (entget en))
    (setq pt1 (cdr (assoc 13 en_data))
          pt2 (cdr (assoc 14 en_data))
          pt3 (cdr (assoc 15 en_data))
          pt4 (cdr (assoc 10 en_data))
          new_pt_data (cdr (assoc 16 en_data))
          kind (cdr (assoc 70 en_data)))
    (cond ((= kind 34)
           (progn
             (setq ang1 (angle pt1 pt2)
                   dd1 (distance pt1 pt2)
                   pt_cen_12 (polar pt1 ang1 (/ dd1 4))
                   ang2 (angle pt3 pt4)
                   dd2 (distance pt3 pt4)
                   pt_cen_34 (polar pt3 ang2 (/ dd2 4)))                  
             (command "dimreassociate" en "" pt_cen_12 pt_cen_34)
             (setq en_data (entget en))
             (setq old_text (assoc 16 en_data))
             (setq new_text (cons 16 new_pt_data))
             (setq en_data (subst new_text old_text en_data))
             (entmod en_data)
             );progn
           )
          ((= kind 37)
           (command "dimreassociate" en "" "cen" pt1 pt1 pt2))
          ((= kind 164)
           (progn
             (setq os (getvar "osmode"))
             (setvar "osmode" 0)
             (setq ang (angle pt4 pt3))
             (setq ptt (polar pt4 (+ ang (/ pi 100)) (distance pt4 pt3)))
             (command "dimreassociate" en "" ptt "")
             (setvar "osmode" os)
             );progn
           )
          ((= kind 163)
           (progn
             (setq os (getvar "osmode"))
             (setvar "osmode" 0)
             (setq ang (angle pt4 pt3))
             (setq ptt (polar (polar pt4 ang (/ (distance pt4 pt3) 2)) (+ ang (/ pi 100)) (/ (distance pt4 pt3) 2)))
             (command "dimreassociate" en "" ptt "")
             (setvar "osmode" os)
             );progn
           )
          ((= kind 38)
           (command "dimreassociate" en "" pt1))
          (t (command "dimreassociate" en "" pt1 pt2)))
    (command "dimstyle" "a" en "")
    (setq i (+ i 1))
    )
  (command "dimregen")
  )
[/PHP]