说明：  等高线编辑的几个程序源码 文件名：CDGXZC.lsp 执行命令：CDGXZC 功能：等高线层、值相符相符检查 ============================================= | 等高线层、值相符相符检查 | | 版本: V1.1 作者: 金德海 | | E_mail jdhszh@163.com | ============================================= (defun C:CDGXZC() (setvar "cmdecho" 0) (if (car (atoms-family 1 ("vl-load-com"))) (vl-load-com)) (setq dgj(getreal "\n 输入等高距: ")) (setq sqx(getstring "\n 输入等高线首曲线层:")) (setq sqxk(getreal "\n 输入首曲线宽度:"))