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))