[求助]：MicroStation宏的问题

MicroStation迷 · 发表于 2004-10-26 07:59:34

试的结果怎样？应该没有问题了吧？！这个问题已经持续了很长时间了。

logis · 发表于 2004-10-26 09:09:55

试了一下有个问题，提示：“错误：溢出”

gdzhou · 发表于 2004-10-26 10:51:12

而且只能适用于现有单元存在于单元库中的。

我在图中没有替换过的单元，又放了一个单元库中的单元。
用你的程序试了一下，结果只重画了单元库中已有的单元。
原图中的单元也被选中最后没有替换成功反而被删除了。

注：我把你的程序改了一下，按属性选择时类型改为：单元和共享单元。了

MicroStation迷 · 发表于 2004-10-26 10:56:13

不会吧！我们是从DGN中提取单元，这时与单元库没有关系，放置单元时才从库中取！

gdzhou · 发表于 2004-10-26 15:35:12

可是我的改的只是选择时候的类型啊，只是加了一个共享单元也没有做什么
因为我如果没有把共享单元一项选上的话就选不到我要替换的。

但是选上之后放置的时候没有成功。删除到是成功了！

herdone · 发表于 2004-10-26 18:19:07

我以前用MDL做了一个单元替换的程序，当时也是只能替换库里有的单元，不过我做了判断把单元库里没有的符号保留下来了。

gdzhou · 发表于 2004-10-26 23:54:08

其实我的目的只有一个！就是把测图测出来的高程点单元在ＤＧＮ中替换成随机点或特征点的单元

MicroStation迷 · 发表于 2004-10-27 08:11:02

你们也不仔细看一看我辛辛苦苦写的程序(伤心之极！)，其中没有判断elem.type为共享单元呀！加上不就行了！如下程序替换单元M2219为DECID。当然前提是含有DECID单元的单元库要事先连上。

Sub Main
Dim elemSet as New MbeElementSet
Dim setMember as MbeSetMember
Dim elem as New MbeElement
Dim point As MbePoint

MbeSendCommand "SELECTBY SETTINGS CELL "
MbeSetAppVariable "SELECTBY", "selectorGlobals.cellName", "M2219"
MbeSendCommand "SELECTBY SETTINGS SHAREDCELL "
MbeSetAppVariable "SELECTBY", "selectorGlobals.sharedcellname", "M2219"
MbeSendCommand "SELECTBY EXECUTE "

MbeSetAppVariable "", "tcb->activecell", "DECID"
tmpStatus = elemSet.fromSelectionSet(0)
status = elemSet.getFirst(setMember)
Do While status = MBE_Success
   tmpStatus = elem.fromFile(setMember.filePos, setMember.fileNum)
   If elem.type = MBE_CellHeader Or elem.type = MBE_SharedCell Then
      tmpStatus = elem.getOrigin(point)
      MbeSendCommand "PLACE CELL ICON "
      MbeSendDataPoint point
   End If
   status = elemSet.getNext (setMember)
Loop

MbeSendCommand "DELETE"
End Sub

logis · 发表于 2004-10-27 09:03:31

呵呵，主要是你的后几步那些对我来说有点高深了，没看明白elem.fromFile(setMember.filePos, setMember.fileNum)
等等这类是什么意思？

好了我再去试试

MicroStation迷 · 发表于 2004-10-27 09:09:55

elem.FromFile就是根据文件位置(setMember.filePos)和文件号(setMember.fileNum)读取元素，为随后的elem.type和elem.getOrigin做准备。

logis · 发表于 2004-10-27 09:51:35

噢，现在成功了！谢谢！！
不过还有个小问题不知道为什么？

在512内存的机子上试，再循环到最后一个的时候提示我“错误：溢出”
在1G内存的机子上试，就没有问题是怎么回事呢？

MicroStation迷 · 发表于 2004-10-27 11:41:46

奇怪，我的机子才256M内存！肯定不是内存大小的问题。你可跟踪执行，看出现错误的是哪一行。

logis · 发表于 2004-10-27 12:02:58

就是执行到选择集中最后一个
tmpStatus = elem.fromFile(setMember.filePos, setMember.fileNum)
这一行
还有，我把程序改成函数来调用，怎么一到这一行就出错呢

你有QQ吗？？

MicroStation迷 · 发表于 2004-10-27 13:52:33

那就在这一行前加上对setMember.filePos的判断，跟踪一下你的程序，看这时的setMember.filePos是一个什么样的值。
我单位屏蔽ICQ和MSN，无法使用。

logis · 发表于 2004-10-27 14:19:13

可以改端口的啊！反正你的是可以上网的！你就使用tcp端口80就行啦

不行了，我调不出来了！！

救命了！MS迷

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

[求助]：MicroStation宏的问题

浏览过的版块