[重发原创]一个坐标标注的Lisp！

pkhvcd

原来在文章里发过，现在自已都找不到了！现在重帖一个！
  
(defun C:zbbz (/ zb gd cld MM)
  (setq gd (getreal "指定标注文字高度:>"))  (if (= gd nil)    (setq gd 0.5)  )
  (while (setq zb (getpoint "指定坐标点："))
    (setq cld (getpoint zb "指定文字插入点："))    (setq MM (getvar "osmode"))    (setvar "osmode" 0)    (command "pline"      zb      "w"      0.0      (* gd 0.5)      (list (+ (car zb) (* (cos (angle zb cld)) gd))     (+ (car (cdr zb)) (* (sin (angle zb cld)) gd))     0.0      )      "w"      0.0      0.0      cld      ""      ""    )
    (entmake (list        '(0 . "text")        (list 10 (+ (car cld) gd) (car (cdr cld)))        (cons 40 gd)        (cons 1 (strcat "X=" (rtos (cadr zb) 2 3)))        '(50 . 0)      )    )    (entmake (list        '(0 . "text")        (list 10       (+ (car cld) gd)       (- (car (cdr cld)) (+ gd (/ gd 3)))        )        (cons 40 gd)        (cons 1 (strcat "Y=" (rtos (car zb) 2 3)))        '(50 . 0)      )    )    (setvar "osmode" mm)  )  (princ))