[下载]：CadAssis新版下载，增加了pline在Acad与Excel的互导

zhqchn · 发表于 2003-8-1 19:57:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

上个月将拙作CadAssis贴上论坛，没想到有这么多朋友喜欢，今根据xzg_hello的建议修改了程序
主要是增加了pline在Acad与Excel的互导。
在此特别感谢xzg_hello及msdg的建议与支持！
'
'             AutoCAD辅助程序(CadAssis)
'
'    编制:  甘肃省交通规划勘察设计院设计一室  陈志强
'             2000年十一月
'
'功能： 1.完成Dist与ID的功能，同时将结果按指定精度与项目写入文件，若此时
' Excel已打开，则写入Excel活动单元格否则写入工作目录下的
' DistOut.txt文件中
' 2.完成多义线在Acad与Excel之间的互导
'
' 3.根据不同参数重复执行某个命令,用SCRIPT也可实现,但此方法方便得多
'安装：请将TABCTL32.OCX和TABCTCHS.DLL两个文件拷入\WINDOWS\system32目录中
' 主程序CadAssis_2K.exe不用安装，可在任意位置运行。
[/COLOR]
'用法： 1.Dist与ID: 打开Cad和Excel,指定一活动单元格，从面板复选框指定精度与范围
' 然后在Cad屏幕拾取两点(一点)
' 2.pline之Acad-〉Excel，在Dist面板指定输出精度(默认小数点后三位)，在Excel中
' 指定放置坐标的起始单元格位置，再在Pline面板中按下“-〉Excel”，选取
' 一根多义线(三维多义线跟轻量多义线均可)，最后到Excel中看看吧
'' 若勾选“-〉Excel”按钮右边的复选框，则输出PLine坐标的同时还会输出与
' 之相交的直线的起终坐标及交点坐标[/COLOR]
' 3.pline之Excel-〉Acad，在Excel中选取坐标值(二维选两列，三维选三列)，按下
' “-〉Acad”CadAssis会分别生成LWpline跟3Dpline
'
'说明： 1.为尽可能减小程序界面，各控件上的文字都采用了英文简写，甚至没有文字，大家
' 把鼠标指针在控件上停留一会儿就会有说明文字出现。
'
'
'更新：
'2000.11.28 因挡墙设计中，横断面常因设挡墙而须修改坡脚值
' 遂写此程序，简化操作。
'
'2001.10.14 涵洞设计中，因需从横断面图上取用多个点的坐标
' 以便后续计算，遂修改此量距程序，使之具有取点功能
'
'2003.08.01 1、应网友xzg_hello的要求，增加了多义线在Acad与Excel之间的互导
' 2、同时修正了一些小bug
' 3、将面板改成标签式，使界面缩小了1/3，将按钮放到右边，更便于操作
' 输出精度默认值改为三位
' 取消修改文字功能
' 4、修正pline顶点坐标写入文本文件的错误

'20003.08.02 应lixiaochun的要求，修改程序，使多义线在Acad与Excel之间的互导
' 时均符合当前用户坐标系

'20003.08.13 1、应msdg的要求，多义线从Acad导入Excel时增加了提取与之相交的
' 直线的起终坐标及交点坐标的选项
' 2、修改ID功能部分，使输出结果符合当前用户坐标系

'20003.08.16 1、增加SCR功能，根据给定的命令及其参数重复执行，用于将测量点快速
' 输入cad，并标注各点号
'20004.03.20 1、改进SCR功能，Command栏改为下拉列表框，可直接选择命令，此时
' 程序提示输入对应参数
'20004.03.29 1、修改程序启动时的显示位置，当屏幕分辨率为1024x768或800x600时
' 程序界面位于屏幕左下角，其他分辨率时界面移至左上角,不再出现程序
' 界面跑到屏幕之外的情况
[/COLOR]

'2003.10.28                         移植到Acad2004环境下

特别提醒：
本程序只处理当前工作表的选中区域的内容！所以请在执行一项操作请先在Excel中选好要处理的数据区域！
[/COLOR]

zhqchn · 发表于 2003-8-1 20:02:40

这是pline在Acad与Excel之间的互导操作的演示

msdg · 发表于 2003-8-2 10:54:22

十分感谢陈志强先生。有了这个工具，将大大提高作图的速度。

cgl5.1 · 发表于 2003-8-2 18:48:11

建议把这个工具加入晓东工具箱。

zhqchn · 发表于 2003-8-2 23:35:44

2003.08.02版

应lixiaochun的要求，修改程序，使多义线在Acad与Excel之间的互导时均符合当前用户坐标系

正航 · 发表于 2003-8-3 10:04:35

是不是缺了什么啊？？我怎么不能用？请赐教！(WINXP,ACAD2002)

zuicai · 发表于 2003-8-3 15:19:57

最初由正航发布
[B]是不是缺了什么啊？？我怎么不能用？请赐教！(WINXP,ACAD2002) [/B]

去下载这个东东也许能解决：
http://www.pcdigest.com/download/magazine/2003-5/vbrun60sp5.exe

正航 · 发表于 2003-8-3 16:43:54

最初由 zuicai 发布
[B]

去下载这个东东也许能解决：
[url]http://www.pcdigest.com/download/magazine/2003-5/vbrun6... [/B]

非常感谢，但依然错误如故：(

zuicai · 发表于 2003-8-3 21:28:31

我也没辙了，还是等楼主来解决吧。

zhqchn · 发表于 2003-8-4 21:48:46

各位对不起，程序修改后要用到选项卡控件，没有随程序上传导致运行出错
请将附件“TABCTL32.OCX“放到\WINNT\system32目录下，再运行程序试试

fjw_ok · 发表于 2003-8-4 21:51:48

这个如何将一条线的点输到表格？

msdg · 发表于 2003-8-5 02:03:46

如能按楼上斑竹所说，楼主再改进一下，不必一个点一个点的计算，只须点一下线，凡其它线与之相交的点（图一），或两条线间的距离、坐标等（图二）由程序自动计算、输出。这样好做吗？苛求了！

msdg · 发表于 2003-8-5 02:05:36

图二：

zhqchn · 发表于 2003-8-13 17:38:55

msdg :
谢谢你，CadAssis已更新，请在第一帖下载新程序。
  图一中的曲线不知是什么线？我现在是按PLine做的，并且只取与之相交的直线。
  图二的情况我认为只需将L1转为PLine，选取L1就可取得各红线的端点坐标，
  距离及增量可在Excel中据坐标容易实现。

xzg_hello · 发表于 2003-8-13 23:02:19

1、能否实现对首尾相接的一系列曲线进行识别，该系列曲线（包括直线、圆曲线和多义线）采用框选
2、对于选取的系列曲线，圆曲线自动求解交点坐标，在excel中输出导线点坐标、距离、方位角。作用：制作直线、曲线转角表

账号		自动登录	找回密码
密码			立即注册

[下载]：CadAssis新版下载，增加了pline在Acad与Excel的互导

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子