lisp写标高线_cad自动写标高lisp

cad自动写标高lisp

;;自动标高主程序(使用方法:新建文件，后缀名为.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))