找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 15239|回复: 114

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

[复制链接]
发表于 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]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
 楼主| 发表于 2003-8-1 20:02:40 | 显示全部楼层
这是pline在Acad与Excel之间的互导操作的演示
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-8-2 10:54:22 | 显示全部楼层
十分感谢陈志强先生。有了这个工具,将大大提高作图的速度。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-8-2 18:48:11 | 显示全部楼层
建议把这个工具加入晓东工具箱。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2003-8-2 23:35:44 | 显示全部楼层
2003.08.02版

应lixiaochun的要求,修改程序,使多义线在Acad与Excel之间的互导时均符合当前用户坐标系
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-8-3 10:04:35 | 显示全部楼层
是不是缺了什么啊??我怎么不能用?请赐教!(WINXP,ACAD2002)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8779个

财富等级: 富甲天下

发表于 2003-8-3 15:19:57 | 显示全部楼层
最初由 正航 发布
[B]是不是缺了什么啊??我怎么不能用?请赐教!(WINXP,ACAD2002) [/B]



去下载这个东东也许能解决:
http://www.pcdigest.com/download/magazine/2003-5/vbrun60sp5.exe
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-8-3 16:43:54 | 显示全部楼层
最初由 zuicai 发布
[B]


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


非常感谢,但依然错误如故:(
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8779个

财富等级: 富甲天下

发表于 2003-8-3 21:28:31 | 显示全部楼层
我也没辙了,还是等楼主来解决吧。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2003-8-4 21:48:46 | 显示全部楼层
各位对不起,程序修改后要用到选项卡控件,没有随程序上传导致运行出错
请将附件“TABCTL32.OCX“放到\WINNT\system32目录下,再运行程序试试
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-8-4 21:51:48 | 显示全部楼层
这个如何将一条线的点输到表格?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-8-5 02:03:46 | 显示全部楼层
如能按楼上斑竹所说,楼主再改进一下,不必一个点一个点的计算,只须点一下线,凡其它线与之相交的点(图一),或两条线间的距离、坐标等(图二)由程序自动计算、输出。这样好做吗?苛求了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-8-5 02:05:36 | 显示全部楼层
图二:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2003-8-13 17:38:55 | 显示全部楼层
msdg :
    谢谢你,CadAssis已更新,请在第一帖下载新程序。
  图一中的曲线不知是什么线?我现在是按PLine做的,并且只取与之相交的直线。
  图二的情况我认为只需将L1转为PLine,选取L1就可取得各红线的端点坐标,
  距离及增量可在Excel中据坐标容易实现。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-8-13 23:02:19 | 显示全部楼层
1、能否实现对首尾相接的一系列曲线进行识别,该系列曲线(包括直线、圆曲线和多义线)采用框选
2、对于选取的系列曲线,圆曲线自动求解交点坐标,在excel中输出导线点坐标、距离、方位角。作用:制作直线、曲线转角表
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 22:44 , Processed in 0.219842 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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