等高线编辑的几个程序源码

文件名：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 输入首曲线宽度:"))

-等高线编辑的几个程序源码

文件名：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 输入首曲线宽度:"))