按方位角标注边长lisp_标注方位角LSP插件

(defun c:fw(/ blip cmd ade dec prec nits bzx inipoint endpoint p1

p2 cs_from cs_to ini end p1_ucs p2_ucs xini xend

yini yend xp1_ucs yp1_ucs xp2_ucs yp2_ucs tt jdh1

jdd1 fwj os_mode bz_point mn node zdfwj)

(setq blip (getvar "blipmode"))

(setq cmd (getvar "cmdecho"))

(setq ade (getvar "dimadec"))

(setq dec (getvar "dimdec"))

(setq prec (getvar "auprec"))

(setq nits (getvar "aunits"))

(setvar "blipmode" 0)

(setvar "cmdecho" 1)

(setvar "dimadec" 5)

(setvar "dimdec" 3)

(setvar "auprec" 5)

(setvar "aunits" 3)

(prompt "\n请选要标注方位角的直线,它不能是多义线")

(setq bzx (entsel))

(setq bzx (entget (car bzx)))

(setq inipoint (cdr (assoc 10 bzx)))

(setq endpoint (cdr (assoc 11 bzx)))

(prompt "\n请按起点至终点的顺序选直线上的两个点,以便定方位")

(prompt "\n请输入起点")

(setq p1 (getpoint))

(prompt "\n请输入终点")

(setq p2 (getpoint))

(setq cs_from 0)

(setq cs_to 1)

(setq ini (trans inipoint cs_from cs_to))

(setq end (trans endpoint cs_from cs_to))

(setq p1_ucs (trans p1 cs_from cs_to))

(setq p2_ucs (trans p2 cs_from cs_to))

(setq xini (car ini))

(setq yini (cadr ini))

(setq xend (car end))

(setq yend (cadr end))

(setq xp1_ucs (car p1_ucs))

(setq yp1_ucs (cadr p1_ucs))

(setq xp2_ucs (car p2_ucs))

(setq yp2_ucs (cadr p2_ucs))

(setq tt 0)

(if (&gt (abs (- xini xend)) 0.000001)

(progn

(if (&gt= (/ (- yini yend) (- xini xend)) -0.00001)

(progn

(if (&lt xp1_ucs xp2_ucs)

(progn

(setq TT 1)

)

)

(if (&gt xp1_ucs xp2_ucs)

(progn

(setq TT 3)

)

)

)

)

(if (&lt (/ (- yini yend) (- xini xend)) -0.00001)

(progn

(if (&lt yp1_ucs yp2_ucs)

(progn

(setq TT 2)

)

)

(if (&gt yp1_ucs yp2_ucs)

(progn

(setq TT 4)

)

)

)

)

)

)

(if (&lt (abs (- xini xend)) 0.00001)

(progn

(if (&lt yp1_ucs yp2_ucs)

(progn

(setq tt 5)

)

)

(if (&gt yp1_ucs yp2_ucs)

(progn

(setq tt 6)

)

)

)