【文字offset】可用于写说明，自己几年前刚学lisp时编的

寒林清远

;;;;;;;;;Offset Text;;;;;;;;;
(defun inivar()
(setq old_os (getvar "osmode"))
(setvar "osmode" 0)
(princ)
)
(defun resvar()
(setvar "osmode" old_os)
(princ)
)
;;;;;;;;;
(defun c:ot(/ ot_dis1 ss s0 s0data p0 ang0 p1 p2 ang1 kk i j)
(if (/= ot_dis nil)
(progn
  (setq ot_dis1 (getreal (strcat "\n请输入偏移尺寸<" (rtos ot_dis) ">:")) )
  (if (null ot_dis1) (setq ot_dis ot_dis) (setq ot_dis ot_dis1)  )
);;;end progn
  (setq ot_dis (getreal"\n请输入偏移尺寸：") )
);;;end if
  (setq ss (entsel"\n选择需偏移的文字:"))
  (setq s0 (car ss))
  (redraw s0 3)
  (setq s0data (entget s0))
  (setq p0 (cdr (assoc 10 s0data)) )
  (setq ang0(cdr (assoc 50 s0data)) )
(setq i 0 j 0)
(while i
  (setq p2 (getpoint"\n请输入偏移方向："))
  (redraw s0 4)
  (setq ang1 (- (angle p0 p2) ang0))
  (setq kk (sin ang1))
  (inivar)
(cond
((> kk 0)
  (progn
  (setq p1 (polar p0 (+ (/ PI 2) ang0) (* (+ 1 i) ot_dis) ) )
  (command "copy" s0 "" p0 p1)
  (setq i (+ 1 i))
  (resvar)
  );;;end progn1
)
((< kk 0)
  (progn
  (setq p1 (polar p0 (+ (/ PI 2) ang0) (* (+ 1 j) ot_dis) ) )
  (command "copy" s0 "" p1 p0)
  (setq j (+ 1 j))
  (resvar)
  );;;end progn2
)
(t (progn(resvar)(exit)))
);;;end cond
);;;end while
  (setvar "cmdecho" 0)
  (princ)
)

hooboxu

What??????c7g3