《cad自动写标高lisp》由会员分享，可在线阅读，更多相关《cad自动写标高lisp（2页珍藏版）》请在装配图网上搜索。
1、;自动标高主程序(使用方法：新建文件，后缀名为.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
2、_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标高有效位数:) () (setq jd 3) (if (setq i_sc (getreal n比例系数：) () (setq
3、 i_sc 1) (if (setq bg_jz (getreal n输入基准点标高：) () (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 d
4、imzin 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
5、 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) ) (se
6、tq 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)
cad自动写标高lisp
