坐标标注LISP程序修改.

limj2007

SOS:

坐标标注LISP程序修改.

思路如下:

按画好的线-->生成指定位置坐标标注值.

现有点坐标标注程序,麻烦各位高手帮帮忙,修改此程序,让其按画好的线生成指定位置坐标标注,谢谢!

 

byghbcx

(defun c:zbb( / zg wid pt x y xx yy lken width pt2 pp2);
 (setq zg (getreal"\n字高<3.0>:"))
 (if (not zg) (setq zg 3.0))
 (command "_layer" "m" "坐标标注" "")
 (setvar "cecolor" "7")
 (setvar "clayer" "坐标标注")
 (setvar "dimzin" 0)
 (initget (+ 1 2) " ")
 ;(command "style" "k2" "Rs" "" "" "" "" "" "")
 (setvar "osmode" 33)
 (setq wid (cdr (assoc 41 (tblsearch "style" (getvar "TEXTSTYLE")))))
 (setq pt (getpoint "\n中心点:"))
 (while (listp pt)
    (setq x (rtos (car pt) 2 3))
    (setq y (rtos (cadr pt) 2 3))
    (setq xx (strcat "Y=" x))
    (setq yy (strcat "X=" y))
    (setq lken (strlen xx) width (* wid lken zg 0.75))
    (setvar "osmode" 0)
    (command "pline" pt )
    (setq pt2 (getpoint "\n方向点:" pt))
    (setq pp2 (polar pt2 (if (>= (car pt2) (car pt)) 0 pi) width))
    (command pt2)
    (command pp2 "")
    (setvar "osmode" 0)
    (command "text" (polar (if (>= (car pt2) (car pt)) pt2 (polar pt2 pi width)) (* pi 0.5) (/ zg 4)) zg 0 yy)
    (command "text" (polar (if (>= (car pt2) (car pt)) pt2 (polar pt2 pi width)) (* pi 1.5) (/ zg 0.8)) zg 0 xx)
   
    (setvar "osmode" 33)
   (initget (+ 1 2) " ")
    (setq pt (getpoint "\n下一中心点:"))
 )
(princ)
)

陈亚娣

学习学习