cad自动写标高lisp

本资料包含doc文件1个，下载需要1积分

;;自动标高主程序(使用方法：新建文件，后缀名为.lsp，将全部内容粘贴过去，然后将lsp文件拖进cad窗口（即加载），输入命令xbg，按命令行提示操作即可)
(defun c:xbg(/ xsd os dim jd isc ibg iuni bgjz ptjz zbjz ptnt zbnt bgnt)
(setvar "cmdecho" 0)
(setvar "dimzin" 0)
(setvar "blipmode" 0)
(setq xsd (getvar "dimzin"))
(setq os (getvar "osmode"))
(setq dim (getvar "dimzin"))
(chkstyle)
(princ "n适用于真实尺寸作图")
(setq iuni (getstring "n图纸单位是mm/cm/m:")) (if ( "" iuni) (setq iuni "cm"))
(cond (( iuni "mm") (setq ibg 1000.0))
(( iuni "cm") (setq ibg 100.0))
(( iuni "m") (setq ibg 1.0))
(t (setq ibg 1.0))