[求助]：CreateLineElement1后如何修改线型比例“属性”

zergman

你那里有mdl 的帮助吧?
每个mdl 函数的帮助后面，都有用vba调用时的声明，就是在vb中调用dll 的办法。

stoneball

我下载的mdl帮助没有那些东西，谢谢你能将你的帮助发给我吗？
stoneball@163.com

zergman

有好几兆，163的邮箱好像不支持这么大的附件吧。
可以去bentley下。好像这里的几个ftp上也有，你找找以前的帖子？

MicroStation迷

MDL的功能是在是比VBA强得多。幸亏我从来就没有重视过VBA，一直致力于MDL。
在MDL中有两个API : mdlElement_getLineStyle  / mdlElement_setLineStyle
其中涉及一个结构 StyleParam，它其中就有你想要的scale！

以下是VBA中调用这两个API的说明：
Declare Function mdlElement_setLineStyle Lib "stdmdlbltin.dll" ( ByVal pElement As Long , ByVal modelRef As Long , ByVal lsIndex As Long , ByVal styleNameP As String , ByVal paramsP As Long ) As Long
Declare Function mdlElement_getLineStyle Lib "stdmdlbltin.dll" ( ByVal styleNameP As String , ByVal paramsP As Long , ByVal elementP As Long , ByVal modelRef As Long , ByVal lsIndex As Long ) As Long

zergman

我个人觉得v8提供的vba也就是做个样子，给个概念而已，实用价值不大。

MicroStation迷

恐怕不能这么说吧！只是VBA是新生事物，必然有其不足之处。再者其定位就是做一些简单的用户定制工作，不适合用来设计大的商用程序。

zergman

对microstation来说，vba也许算是新事物。可实际上，微软都快要不提供对vb6的支持了。
本来对vba还抱有很大的希望的，希望能大幅的提高ms二次开发的生产率，可是实际一用，却
大失所望。
microstaion在做图上来说，也许真的很好。可是在它上面做开发应用，唉……

一些牢骚，发泄一下。继续用mdl 写我的程序了。

stoneball

谢谢各位MS的前辈
我刚刚接触MS一直用ACAD的ARX，有个项目需要转换所以用VBA上手快些

laixc66

建议使用MDL，功能比VBA强大多了！

stoneball

Dim oLineElement As LineElement
    Dim oLineStyle As LineStyle

    Set oLineElement = CreateLineElement1(Nothing, ptArr)
    Set oLineElement.Level = currentdgnDesignFile.Levels.FindByCode(1)
    oLineElement.Color = 1
    oLineElement.LineWeight = 0

    Set oLineStyle = currentdgnDesignFile.LineStyles.Find("MyLine")
    Set oLineElement.LineStyle = oLineStyle
？？？现在要设置比例，那位先将我的问题解决，用mdlElement_setLineStyle怎么设置比例？？？
    mdlElement_setLineStyle(oLineElement, MASTERFILE, Null, sLinetype, 5)
    '添加到新建的文件中
    currentdgnDesignFile.DefaultModelReference.AddElement oLineElement

zergman

我试了一下，没折腾出来
你看看\Program Files\Bentley\Workspace\System\vba\examples\中的vba例子吧，MdlExamples.mvba是用mdl 函数的例子，希望能对你有些帮助

stoneball

我KAO我竟然没有MdlExamples.mvba
发给我一份吧。谢谢啦

zergman

发到你的邮箱了

MicroStation迷

我是如下编写的，感觉很对，就是不出结果。我已将该程序发到Bentley的英文讨论组，估计明天会有结果，请耐心等待。

Declare Function mdlElement_setLineStyle Lib "stdmdlbltin.dll" _
(ByVal pElement As Long, ByVal modelRef As Long, ByVal lsIndex As Long, _
ByVal styleNameP As String, ByVal paramsP As Long) As Long

Declare Function mdlElement_getLineStyle Lib "stdmdlbltin.dll" _
(ByVal styleNameP As String, ByVal paramsP As Long, ByVal elementP As Long, _
ByVal modelRef As Long, ByVal lsIndex As Long) As Long

Type StyleParam
   modifiers As Long
   reserved As Long
   lscale As Double
   dashScale As Double
   gapScale As Double
   startWidth As Double
   endWidth As Double
   distPhase As Double
   fractPhase As Double
   lineMask As Long
   mlineFlags As Long
   normal As Point3d
   rMatrix As Matrix3d
End Type

Sub Main()
Dim oLineElement As LineElement
Dim oLineStyle As LineStyle
Dim ptArr(0 To 1) As Point3d
Dim styleP As StyleParam

ptArr(0) = Point3dFromXY(0, 0)
ptArr(1) = Point3dFromXY(100, 100)
Set oLineElement = CreateLineElement1(Nothing, ptArr)
Set oLineStyle = ActiveDesignFile.LineStyles("{ Curtain }")
Set oLineElement.LineStyle = oLineStyle
mdlElement_getLineStyle 0, VarPtr(styleP), VarPtr(oLineElement), 0, 0
styleP.lscale = 0.5
mdlElement_setLineStyle VarPtr(oLineElement), 0, 0, 0, VarPtr(styleP)
ActiveDesignFile.DefaultModelReference.AddElement oLineElement
oLineElement.Redraw
End Sub

zergman

我做实验写的也是这样，根本就没有作用。