• RE: Find nearest Grid Point

    Dharma Rajan
    Dharma Rajan
    Hai Jan, Sample.dgn file is attached for your reference. In that DGN File, the Red colored line element represents the input and the Green colored line element represents the output expected.
    • Sample.dgn
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Data point to lie on the grid cross hair or dot

    Dharma Rajan
    Dharma Rajan
    Dear All, How to snap the DataPoint to GridPoint? I tried with the code snippet given below. But it doesn't work. Is there anyother method/suggestion? ActiveSettings.GridLockEnabled = True CadInputQueue.SendKeyin "place smartline" CadInputQueue…
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Find nearest Grid Point

    Dharma Rajan
    Dharma Rajan
    Dear All, How to get the nearest Grid point details(XY-Co-ordinate) of a given point?
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Read Color.TBL file

    Dharma Rajan
    Dharma Rajan
    Dear All, How to read all the data of color.tbl file? For example the color '3' contains the RGB Value 255,0,0. Similarly I need to retrieve all the colors and their RGB Values in a specific color.tbl .
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Export To Shape with Float datatype fields

    Dharma Rajan
    Dharma Rajan
    Dear All, While exporting DGN to Shape file by using VBA[ArcViewShapeFileControl_crp.ocx], How to create a field with Float data type? Code snippet is given below for your reference which creates a field with double data type instead of float. Dim…
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Check User Attribute Data

    Dharma Rajan
    Dharma Rajan
    Dear all, How to check whether a element having any UserAttributeData or not?
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Set Mouse Pointer Symbol

    Dharma Rajan
    Dharma Rajan
    Dear all, In Microstation version 08.05.01.25 windows x86, How to set mouse pointer symbol like crosshair,Arrow,Help,etc., using vba?
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • VBA Merge Reference along with Dimension Object

    Dharma Rajan
    Dharma Rajan
    Hi All, I want to Merge a reference file into the Default Model and I tried the sample code already available in the link given below. But in case of dimension, the output was produced in a different scale. Please refer the attached screenshot. https…
    • AfterMerge.png
    • View
    • Hide
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • RE: Property of References

    Dharma Rajan
    Dharma Rajan
    Thanks Jan. [Actually compile error occurs at "att.ScaleMasterUnits = 1". Sorry I commented it to avoid compile error during testing and I posted the same.] while attaching, two reference DGN files are placed at different location by default(by using…
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Property of References

    Dharma Rajan
    Dharma Rajan
    1) How can I get bounding box value of a attached reference(DGN) file? 2) How to set values for the properties like attachment.ScaleMasterUnits,IsTruescale,etc.,? I tried as per the sample code given below. But compile error occured(Error : "Can't assign…
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Problem in getting Angle.

    Ezhumalai Ezhumalai
    Ezhumalai Ezhumalai
    Dear All, I have use the following code to create angle from three points, but the result is not I get is not the same as the result I get from Measure angle Tool.Can anybody help me out to solve this. Measure Angle Tool: 34 Degree GetActiveAngleFrom3Points…
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Angle between two shape elements

    Dharma Rajan
    Dharma Rajan
    Dear all, In the attachment, Green and Red elements represents the two different shape elements. I need to get the angle between them. Is there any inbuilt method available?
    • angle.JPG
    • View
    • Hide
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Manipulate *.LAS file using Microstation V8

    Dharma Rajan
    Dharma Rajan
    How to modify the *.las file using VBA in Microstation V8?
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Keyin for Display Style in Microstation V8

    Dharma Rajan
    Dharma Rajan
    The below given keyin works in MicrostationV8i. But the same not works in MicrostationV8; is there anyother equivalent keyin available? CHANGE VIEW CUSTOM Smooth 1
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Project a point perpendicular from line

    Dharma Rajan
    Dharma Rajan
    Dear All, I need to project a point(Blue colored) from a line(Majenta Color) to another line(Yellow Color) and the projected point should be perpendicular from a line(Majenta Color). The required output was represented(in attachment) as green colored…
    • PerpendicularFromLine.png
    • View
    • Hide
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Get Nearest Polygon

    Dharma Rajan
    Dharma Rajan
    Dear All, How to get the nearest Polygons which contains the selected elements (using VBA)? In the attached screenshot, the Majenta color represents the selected elements and the corresponding nearest polygons was represented in Green color.
    • sel.png
    • View
    • Hide
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • BE Conference Question - Power Point Presentation Location

    Thomas Carl
    Thomas Carl
    Does anyone know where I can find the Power Point Presentations from the BE Conference? I was told that I could find them on the Bentley website. Please send me the link if you know. Thanks! Tom
    • over 12 years ago
    • Everything Else
    • Everything Else Forum
  • VBA MACRO adding a Line

    RJB
    RJB
    I have the following, but cold not get the VBA to copy the added command? 12:01 PM 8/3/2010 - Copied from VBA Macro, but want to add the line below? Sub LocksOn() Dim startPoint As Point3d Dim point As Point3d, point2 As Point3d Dim lngTemp As Long…
    • over 13 years ago
    • MicroStation Programming
    • [Archived] MicroStation V8 2004 Edition VBA Forum
  • Re: Project Point onto a Plane

    Dharma Rajan
    Dharma Rajan
    Thanks Jon. I checked it. It produces a point perpendicular to the plane (or) the Nearest Point on Plane. But I want to get the height(Z values) on a plane corresponding to XY values. Is there anyother option? Refer the attachment: Majenta color…
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • 如何还原图纸初始状态

    Sophie Qingwen
    Sophie Qingwen
    [转载Bentley中文知识库原贴] nonsmall: 请问使用VBA进行添加修改等一些操作后 我需要把图纸还原最初状态,请问如何能快速还原? [转载Bentley中文知识库原贴] MicroStation迷:操作前发送命令MARK; 还原时发送命令UNDO MARK 。 [转载Bentley中文知识库原贴] nonsmall: 请问怎样才能让我的程序执行操作之后 用户退回一次就能回到程序前状态? [转载Bentley中文知识库原贴…
    • over 14 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • [求助]如何用VBA获取元素的MSLINK值

    Sophie Qingwen
    Sophie Qingwen
    [转载Bentley中文知识库原贴] MicroStation迷:元素下有方法GetDatabaseLinks可获得某个元素的所有数据库链接。每个DatabaseLink对象都有一个MSLINK属性。也就是说,一个元素可以含有许多个Mslink值。 转载Bentley中文知识库原贴] baibai0:需要先建立数据库的连接吗? [转载Bentley中文知识库原贴] MicroStation迷:仅仅获取MSLINK是不需要连接数据库的,因为MSLINK值作为附加信息是保存在图形元素的尾部的…
    • over 14 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • [下载]MVBA开发资源下载

    Sophie Qingwen
    Sophie Qingwen
    [转载Bentley中文知识库原贴] MicroStation迷: 1. 《Learning MicroStation VBA》电子书下载: ftp://ftp2.bentley.com/dist/collateral/Web/CN/Learning_MS_VBA_final_watermark.pdf 中文版《学习MicroStation VBA》也已经于2007年出版,需要的朋友可以通过网上购买: http://product.dangdang.com/product…
    • over 14 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Re: CommonDialog问题解决?

    Sophie Qingwen
    Sophie Qingwen
    [转载Bentley中文知识库原帖] cmx_stone:好的,请您看看呢,用之前在引用里勾选一下"Microsoft Common Dialog Control 6.0" [转载Bentley中文知识库原帖] MicroStation迷:把你的Function改成Sub就能运行了。MicroStation VBA中只有Sub才是可以直接运行的,Function必须被Sub调用才可。 [转载Bentley中文知识库原帖] cmx_stone…
    • over 14 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • Project Point onto a Plane

    Dharma Rajan
    Dharma Rajan
    Dear All, I have a point3d values and a Plane/Surface. I want to project the point onto a Plane/Surface. How Can I get that projected point using VBA Programming? Kindly clarify. Please refer the attachment: In the attachment Cyan color represents…
    • ProjectPointOnPlane.png
    • View
    • Hide
    • over 9 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
  • CommonDialog问题解决?

    Sophie Qingwen
    Sophie Qingwen
    [转载Bentley中文知识库原帖] cmx_stone:我想修改一下bentley的另存对话框,在里面需要使用CommonDialog控件,在"引用"中也选取了comdlg32.ocx控件了,但是使用中我的电脑可以,放到其他电脑上就不能使用了,请问是何道理? 程序如下: Public Function SaveTo() On Error GoTo error SaveTo = "" Dim Dname As String Dim comdlg As CommonDialog…
    • over 14 years ago
    • MicroStation Programming
    • [Archived] 中国BDN社区 VBA
<>