编辑代码

*(format t "Hello JSRUN     - from lisp") 
************* write  x,y  to dwg
(defun jj()
(SETQ OS (GETVAR "OSMODE"))
(setvar "osmode" 0)
 (setq p2 (getpoint p1 "\ntext place?")
       a1 (car p1)
       b1 (cadr p1)
       c1 (car p2)
       d1 (cadr p2)
       a2 (rtos a1 2 3)
       b2 (rtos b1 2 3)
       xx (strcat " " b2)
       yy (strcat " " a2)
 ) 
 (if (< c1 a1)
    (setq pp (polar p2 pi le)
          p3 (polar pp (/ pi 2) ll)
          p4 (polar pp (/ pi -2) (+ ll ht))
     )
     (setq pp (polar p2 0 le)
           p3 (polar p2 (/ pi 2) ll)
           p4 (polar p2 (/ pi -2) (+ ll ht))
     )
 )
(command "line" p1 p2 pp "")
(command "text" p3 ht 0 xx)
(command "text" p4 ht 0 yy)
)
(defun c:xy()
(setvar "texteval" 1)
(setvar "cmdecho" 0)
(setq h (getvar "dimscale"))
(setq ht (getreal "\nhigh of text (2.5mm)"))
(if (= ht nil) (setq ht (* h 2)) (setq ht (* h ht)))
(setq le (* ht 10) ll (/ ht 3))
(setq n 0)
(while (= n 0)
(setvar "osmode" 33)
(setq p1 (getpoint "\请选择要标注的点"))
(if (= nil p1) (setq n 1) (jj))
)
(setvar "osmode" OS)
)