河、渠道绘制程序，免费分享
本程序说明一.安装说明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下载地址：
感谢分享， 感谢分享 本帖最后由 新鲜8 于 2020-6-17 21:21 编辑
楼主怎么用VB6.0在CAD画 椭圆呀。有例子吗 新鲜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
页:
[1]