河、渠道绘制程序，免费分享

zzyong00

本程序说明

一.安装说明

1. 要安装本程序，请首先把本文件夹放在一个固定的硬盘目录里，安装完以后不能随便更改目录，安装前，须关闭AutoCAD2012中文版，然后以管理员权限运行“安装程序至Autocad.exe”，点击“安装”按钮即可！

如不需要了，点“卸载”按钮即可。

2. 打开Autocad2012中文版，即可看到本软件的工具条。

3. 本软件文件夹中的“测试文件”文件夹仅用于测试，可以删除，其它文件均不能删除。

二．使用说明

1.“桩号”菜单下有7个功能：

2.“标高”菜单下有6个功能：

4. “桩号与标高”菜单下有1个功能：

该功能是按桩号位置提取自然标高，需要图中有表示自然标高的离散点。一般来说，地形图有离散点、等高线、属性块离散点等，需要使用Autocad的命令（me,div等）或其它软件（鸿业市政管线、鸿业市政道路或本人编写的垃圾填埋场绘制软件等）转化为离散点，才可以正确使用本功能。

5. “绘制纵断面”菜单下有2个功能：

6. “关于”

三．特别感谢

特别感谢AutoCAD CSharp plug-in1插件的提供者（明经通道ID:zjh2785），让我省去了做工具条的痛苦！

详见http://bbs.mjtd.com/thread-178678-1-1.html

下载地址：

cyfdean

感谢分享，

czb203

感谢分享

新鲜8

楼主怎么用VB6.0在CAD画 椭圆呀。有例子吗

zzyong00

新鲜8 发表于 2020-6-17 21:19
楼主怎么用VB6.0在CAD画 椭圆呀。有例子吗

Sub Example_AddEllipse()
    ' 该示例在模型空间中创建椭圆。
   
    Dim ellObj As AcadEllipse
    Dim majAxis(0 To 2) As Double
    Dim center(0 To 2) As Double
    Dim radRatio As Double
   
    ' 在模型空间中创建椭圆
    center(0) = 5#: center(1) = 5#: center(2) = 0#
    majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#
    radRatio = 0.3
    Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
    ZoomAll
   
End Sub