求助各位高手，关于标注的问题

應該是有的,或者你到別的論壇上找下,我上面的圖是我廠里以前那個工程師帶的LISP,我現在只有圖,LISP早已找不到了.我在找下看,找到了我貼出來,DOR是標注座標的吧?

在塑膠模的區域上啊.我也只是看了一下,我現在工作上都用不到這個LISP,你去下載來看下.別的論壇去番下舊帖子應該還有的,是叫"頂針標注自動化"
   祝你好運!!
https://www.icax.org/viewthread. ... amp;extra=page%3D23

谢谢楼上的了，我找找看。

不客氣,別的網站好像也有的.多番下.不好意思,幫不了啦!

;;;自动标注模孔坐标,自动寻的（旁注）
;;;command: AD3
;;;2004-06-07     Chen Jian
;;;Version 1.0
;;;2005-09-21     Chen Jian
;;;Version 1.1
;;;2005-09-26     Chen Jian
;;;Version 1.2
;;;MADE IN CHINA
(defun c:AD3 (/                 dim-pt1   ssss      sss
              ss        ss1          ss2            ss3              circle-name
              pt1        pt2          pt1x            pt1y      y1
              y2        y3          circle-color              circle-linetype
              circle-lay          i            cpty      oldcolor
              temp        n          temp-cptx nn              j
                  num       circle-dia
             )
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (if (null name)(setq name (strcase (getstring "\n圆孔的名字: "))))
  (setq dim-pt1 nil)
  (setq ssss nil)
  (setq sss nil)
  (setq ss1 nil)
  (while (= sss nil)
    (setq sss (ssget '((0 . "CIRCLE")))) ;创建圆对象的选择集
  )
  (setq circle-name (ssname sss 0))
  (sub-get-circle-data circle-name)
  (setq pt1 (getpoint "\n模板右上角: "))
  (if (null pt1)
    (setq pt1 (list 350 150))
  )
  (setq pt2 (list 0 0))
  (setq pt1x (fix (car pt1)))
  (setq pt1y (fix (cadr pt1)))
;;;  取得选择集SS START
  (setq y1 (/ pt1y 3.0))
  (setq y2 (* (/ pt1y 3.0) 2))
  (setq y3 pt1y)
  (setq ss (ssadd))
;;;  取得选择集ssss
;;;  (setq ssss nil)
  (if (or(or (null circle-color)(null circle-linetype))(null circle-lay))
    (progn
    (Princ "\n---可能 '不支持' 对象的 '随层' 属性!")
    (sub-quit))
  )
  (setq        ssss (ssget "_C"
                    pt1
                    pt2
                    (list (cons 0 "CIRCLE")
                          (cons 40 circle-rad)
                          (cons 62 circle-color)
                          (cons 6 circle-linetype)
                          (cons 8 circle-lay)
                    )
             )
  )
  (if (null ssss)
    (progn
    (Princ "\n---可能未选择到物体!")
    (sub-quit))
    (progn
;;;  取得选择集ss1,ss2,ss3
      (setq ss1 (ssadd))
      (setq ss2 (ssadd))
      (setq ss3 (ssadd))
      (setq i 0)
      (repeat (sslength ssss)
        (setq circle-name (ssname ssss i)) ;取得对象的名字
        (sub-get-circle-data circle-name)                ;取得对象参数
        (if (< cpty y1)
          (ssadd circle-name ss1)
        )
        (if (and (<= cpty y2) (>= cpty y1))
          (ssadd circle-name ss2)
        )
        (if (> cpty y2)
          (ssadd circle-name ss3)
        )
        (setq i (1+ i))
      )
;;;      (setq ss1 ss1)
      (SUB-paixu ss1)
;;;      (setq ss1 ss2)
      (SUB-paixu ss2)
;;;      (setq ss1 ss3)
      (SUB-paixu ss3)
;;;取得选择集SS END
      (setq oldcolor (getvar "CECOLOR"))
      (if (null circle-color)
        (setvar "CECOLOR" "256")
        (setvar "CECOLOR" (rtos circle-color 2 0))
      )

      (sub1-getcircle)
      (setvar "CECOLOR" oldcolor)
      (setq ss nil)
      (command "undo" "e")
      (setq name nil)
      (setq centx nil)
      (if printtext
      (Princ printtext)
      (Princ "\n-----Bye c:AD3 自动标注模孔坐标,自动寻的（旁注）------"))
      (prin1)
    )
  )
)
请注意，未贴子程序，只想告诉大家算法，下面有效果图

15楼的,谢谢了,但我不知道怎么用,请指教