明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1694|回复: 1

CASS51中方便画等高线小程序

[复制链接]
发表于 2006-10-18 11:57 | 显示全部楼层 |阅读模式

;       =======================================

;       |            方便画等高线小程序       |

;       |               Ver: 1.0                   |

;       =======================================

 

;此程序把用于在CASS中画等高线时不用输入高程值

;此程序仅在对等高线要求不严格时使用

;

;绘制首曲线

(defun c:drawsqx()………………………………………………………1

    (setvar "CMDECHO" 0)…………………………………………...2

    (setq dg (getreal"请首曲线的高程值<0>:"))…………….………..3

    (if (= nil dg)…………………………………………………………4

    (setq dg 0)…………………………………………………………...5

    )……………………………………………………………………..6

    (command "dd" "201101" dg)………………………………………7

)…………………………………………………………………………..8

;绘制计曲线

(defun c:drawjqx()

   (setvar "CMDECHO" 0)

   (setq dgx (getreal"请计曲线的高程值<0>:"))

   (if (= nil dgx)

   (setq dgx 0)

   )

   (command "dd" "201102" dgx)

)

 

 

发表于 2024-5-16 21:03 | 显示全部楼层
有人用过没,我07版不能用
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-16 14:46 , Processed in 0.136702 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表