注册 登录
明经CAD社区 返回首页

zzyong00的个人空间 http://www.mjtd.com/?332660 [收藏] [复制] [分享] [RSS]

统计信息

已有 1118 人来访过

    现在还没有记录

    现在还没有动态

换几瓶酒的问题 2016-03-08
啤酒     2元一瓶    4个瓶盖换1瓶            2个空瓶换1瓶 问:10元可以喝几瓶? '类模块 Option ...
(635)次阅读|(0)个评论

查看更多

你需要登录后才可以留言 登录 | 注册


q123135abc 2018-1-17 16:13
前辈你好,本人刚学VBA不久,有个问题想请教您一下,下面是代码: Sub polygon() Dim myselect(1 To 90) As AcadEntity '定义选择集数组 Dim num As Integer Dim pnt As Variant Dim lpnt As Variant num = 20 '正多边形边数 Dim fpnt(0 To 2) As Double '起点坐标 Dim leng As Double Dim i As Long For i = 1 To 90 '循环90次 fpnt(0) = 100 * Rnd: fpnt(1) = 100 * Rnd: fpnt(2) = 0 '起点随机坐标 leng = 3 * Rnd '边长随机长度 ReDim lpnt(0 To num * 2 - 1) As Double '下面是画正多边形 pnt = fpnt ... ...
zl465724825 2017-12-29 12:28
你那个自动生成桩号的程序怎么用啊 ,vlx和curve类解压后放哪
zl465724825 2017-12-29 12:26
大哥求加个qq
yuanziyou 2017-10-1 23:34
VLAX类及Curve类如何应用在更高本的64位cad系统如antocad2012
言戲無軍 2016-12-18 13:22
求自动布局小程序源码,多谢,虽然写过,但没楼主的高级
ztp0804 2016-10-24 11:24
那个自动布局的小程序还能用吗?
ztp0804 2016-10-24 11:24
那个自动布局的小程序还能用吗?
馨馨 2016-5-20 10:36
我把记录点的程序和用反距离插值高程写在一起了,帮我看看呗,谢谢啦 Sub RecordPointPosition() Dim NX As Integer, NY As Integer '离散点所在网格的列'离散点所在的网格的行 Dim i As Integer, j As Integer Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double dbld = 20 Open "E:\zuizhi.txt" For Input As #1 '打开输入文件 Input #1, Xmax, Ymax, Xmin, Ymin '读取文件数据 Close #1 L = 0 Open "E:\demdata.txt" For Input As #1 '打开原始文件 Do While Not EOF(1) Inpu ... ...
馨馨 2016-5-16 20:56
记录点的位置后,计算高程时怎么调用
馨馨 2016-5-16 19:10
我重改了一下,把L-1用900换了,可以运行没错,但是测试运行代码时还是下标越界了 dbld = 20, Open "E:\zuizhi.txt" For Input As #1 '打开输入文件 Input #1, Xmax, Ymax, Xmin, Ymin '读取文件数据 Close #1 M = Fix((Xmax - Xmin) / dbld) + 1 '列数 N = Fix((Ymax - Ymin) / dbld) + 1 '行数 ReDim IP(L), IREG(N - 1, M - 1) '循环判断 For i = 1 To 900 '计算样点所在网格 NX = Fix((X(i) - Xmin) / dbld) NY = Fix((Y(i) - Ymin) / dbld) If IREG(NY, NX) = 0 Then   I ... ...
馨馨 2016-5-16 18:00
Sub RecordPointPosition() '记录点在哪个网格            Dim NX As Integer, NY As Integer    '离散点所在网格的列'离散点所在网格的行             Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double          Dim i As Integer, j As Integer          82.             dblD = 20    & ... ...
Kye 2016-4-26 23:13
zzyong00 : 在循环里一直ReDim Preserve AttData 不慢才怪,重写吧 老师,用词典速度也差不多,代码如下,老师对DWGdirectX控件有研究吗 有没有现成的例子可供俺学习下?俺想用看看用这个控件能否提提速度 谢谢老师!!! Dim dicAtt As Object Set dicAtt = CreateObject("scripting.dictionary") For i = 0 To SSet.Count - 1     Set Ent = SSet.Item(i)     AttArry = Ent.GetAttributes     If AttArry(0).TextString <> "" Then      &nb ... ...
Kye 2016-4-26 10:15
zzyong00: 在循环里一直ReDim Preserve AttData
不慢才怪,重写吧
谢谢老师,我看很多人都在循环中redim Preserve 消除多余的数组项才这么用的,我再用词典试试看能快啵,怀疑要用DWGdirectX.OdaHostApp这个才能快的 网上的完整的资料很少,再次谢谢老师
Kye 2016-4-24 22:17
老师您好! 先贴上代码,属性块数据转成数组,测试是通过的,就是速度不怎么地 总共才36行15列数据 转成数组时花了快1.6秒时间(XP),用SQL把这些数据读到数据库花的时间也差不多,请问老师有没有更好的办法,是不是TextString这个就是费时间?我真怀疑用lisp都比这个速度快,我记得陈伯雄老师说过多读四百万的(可能一百万)数组才花二十几秒,VB在数组这块应该强于lisp才对啊 For i = 0 To SSet.Count - 1     Set Ent = SSet.Item(i)     AttArry = Ent.GetAttributes       If ... ...
Kye 2016-1-4 15:42
从上次向老师请教了几个问题后,我一直在学习VB6+SQL操作access数据库,老师对这方面有研究吗?
Kye 2016-1-4 15:41
谢谢老师给我的点评   http://bbs.mjtd.com/thread-112790-1-1.html
VB做页面确实很方便,其实支撑俺学VB的最大动力是其计算功能太强大了
查看全部
最近访客

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

GMT+8, 2018-9-24 14:11 , Processed in 0.137999 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部