自动标高主程序(使用方法：新建文件，后缀名为.lsp，将全部内容粘贴过去，然后将lsp文件拖进cad窗口（即加载），输入命令xbg，按命令行提示操作即可)(defun c:xbg(/ xs_d os dim jd i_sc i_bg i_uni bg_jz pt_jz zb_jz pt_nt zb_nt bg_nt) (setvar "cmdecho" 0) (setvar "dimzin" 0) (setvar "blipmode" 0) (setq xs_d (getvar "dimzin")) (setq os (getvar "osmode")) (setq dim (getvar "dimzin")) (chk_style) (princ "\n适用于真实尺寸作图") (setq i_uni (getstring "\n图纸单位是mm/cm/m:")) (if (= "" i_uni) (setq i_uni "cm")) (cond ((= i_uni "mm") (setq i_bg 1000.0)) ((= i_uni "cm") (setq i_bg 100.0)) ((= i_uni "m") (setq i_bg 1.0)) (t (setq i_bg 1.0)) ) (if (setq jd (getint "\n标高有效位数<3>:")) () (setq jd 3)) (if (setq i_sc (getreal "\n比例系数<1>：")) () (setq i_sc 1)) (if (setq bg_jz (getreal "\n输入基准点标高<100.0>：")) () (setq bg_jz 100.0)) (setq pt_jz (getpoint "\n指定基准点：")) (setq zb_jz (cadr pt_jz)) (d_fh pt_jz bg_jz) ;绘制基准点 (while (setq pt_nt (getpoint "\n指定下一点：")) (progn (setq zb_nt (cadr pt_nt)) (setq bg_nt (+ bg_jz (/ (- zb_nt zb_jz) i_bg))) (d_fh pt_nt bg_nt);绘制标准点 ))(setvar "dimzin" xs_d)(setvar "dimzin" dim));;测试子程序(defun c:css(/ pt bg) (setq pt (getpoint "\n````")) (setq bg 100.0) (setq jd 2) (setq i_sc 1) (d_fh) ) ;;标注标高(defun d_fh(pt bg / pt1) (setvar "osmode" 0) (command "line" (polar pt 0 (* 3.0 i_sc)) (polar pt 0 (* 7.0 i_sc)) "") (command "line" (polar pt 0 (* 5.0 i_sc)) (polar (polar pt 0 (* 5.0 i_sc)) (/ pi 3) (* 3.0 i_sc)) "") (command "line" (polar pt 0 (* 5.0 i_sc)) (polar (polar pt 0 (* 5.0 i_sc)) (* 2 (/ pi 3)) (* 3.0 i_sc)) "") (command "line" (polar (polar pt 0 (* 5.0 i_sc)) (* 2 (/ pi 3)) (* 3.0 i_sc)) (polar (polar (polar pt 0 (* 5.0 i_sc)) (* 2 (/ pi 3)) (* 3.0 i_sc)) 0 (* 12.0 i_sc)) "") (setq pt1 (polar (polar (polar pt 0 (* 5.0 i_sc)) (* 2 (/ pi 3)) (* 3.0 i_sc)) 0 (* 6.0 i_sc))) (command "_.text" "j" "m" (polar pt1 (/ pi 2) (* 1.8 i_sc)) (* 2.5 i_sc) "0" (rtos bg 2 jd)) (setvar "osmode" os))(defun chk_style();检查字型 (setq chksty(tblsearch "style" "standa")) (if (null chksty) (progn (command "_style" "standa" "fsdb" "0" "0.7" "0" "n" "n" "n") )) (setq chklay(tblsearch "layer" "文本")) (if (null chklay) (command "_layer" "m" "文本" "c" "3" "文本" "") ) (setvar "clayer" "文本") (setvar "textstyle" "standa"))(princ "\n--自动写标高程序--hez87")(prin1)。
