- UID
- 193952
- 积分
- 0
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2004-11-17
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2004-11-19 17:18:31
|
显示全部楼层
If elemSet.fromSelectionSet (1) <> MBE_Success Then
'Print "No Selection Set - trying fence"
If elemSet.fromFence () <> MBE_Success Then
print "No fence - giving up"
Exit Sub
Else
Print "Processing Fence"
End If
Else
Print "Processing Selection Set"
End If
gotElement = elemSet.getFirst (setMember)
Do While gotElement = MBE_Success
filePos = element.fromFile (setMember.filePos, setMember.fileNum)
area = element.area
If element.getCentroid (centroid) = MBE_Success Then
'mbeMessageBox Str$(area)
Pname=format$(area,"0.0")
MbeSendCommand "Place TEXT"
MbeSendKeyIn Pname
MbeSendDataPoint centroid
MbeSendReset
' print centroid.x
End If
其中的 gotElement = elemSet.getFirst (setMember), filePos = element.fromFile (setMember.filePos, setMember.fileNum)
area = element.area
If element.getCentroid (centroid) = MBE_Success Then 'mbeMessageBox Str$(area)
Pname=format$(area,"0.0")
MbeSendCommand "Place TEXT"
MbeSendKeyIn Pname
MbeSendDataPoint centroid
MbeSendReset 是什么意思啊?
中午发现有个文件的线型不能加粗, 挖出来之后参考什么都不显示,我的图层和参考的图层都打开了,把参考文件和并后宽度能改粗了,那位大侠解答一下 |
|