中文SpanishEnglish会员社区注册登录 您好,欢迎来到3DMine!
欢迎您注册成为3DMine用户!
请仔细阅读下面的协议,只有接受协议才能继续进行注册。
1.服务条款的确认和接纳
用户服务的所有权和运作权归北京东澳达科技有限公司拥有。所提供的服务将按照有关章程、服务条款和操作规则严格执行。用户通过注册程序点击“我同意” 按钮,即表示用户与达成协议并接受所有的服务条款。
2.服务简介
通过国际互联网为用户提供新闻及文章浏览、图片浏览、软件下载、网上留言和BBS论坛等服务。
用户必须:
1)购置设备,包括个人电脑一台、调制解调器一个及配备上网装置。
2)个人上网和支付与此服务有关的电话费用、网络费用。
用户同意:
1)提供及时、详尽及准确的个人资料。
2)不断更新注册资料,符合及时、详尽、准确的要求。所有原始键入的资料将引用为注册资料。
3)用户同意遵守《中华人民共和国保守国家秘密法》、《中华人民共和国计算机信息系统安全保护条例》、《计算机软件保护条例》等有关计算机及互联网规定的法律和法规、实施办法。在任何情况下,合理地认为用户的行为可能违反上述法律、法规,可以在任何时候,不经事先通知终止向该用户提供服务。用户应了解国际互联网的无国界性,应特别注意遵守当地所有有关的法律和法规。
3. 服务条款的修改
会不定时地修改服务条款,服务条款一旦发生变动,将会在相关页面上提示修改内容。如果您同意改动,则再一次点击“我同意”按钮。 如果您不接受,则及时取消您的用户使用服务资格。
4. 服务修订
保留随时修改或中断服务而不需知照用户的权利。行使修改或中断服务的权利,不需对用户或第三方负责。
5. 用户隐私制度
尊重用户个人隐私是的 基本政策。不会公开、编辑或透露用户的注册信息,除非有法律许可要求,或在诚信的基础上认为透露这些信息在以下三种情况是必要的:
1)遵守有关法律规定,遵从合法服务程序。
2)保持维护的商标所有权。
3)在紧急情况下竭力维护用户个人和社会大众的隐私安全。
4)符合其他相关的要求。
6.用户的帐号,密码和安全性
一旦注册成功成为用户,您将得到一个密码和帐号。如果您不保管好自己的帐号和密码安全,将对因此产生的后果负全部责任。另外,每个用户都要对其帐户中的所有活动和事件负全责。您可随时根据指示改变您的密码,也可以结束旧的帐户重开一个新帐户。用户同意若发现任何非法使用用户帐号或安全漏洞的情况,立即通知。
7. 免责条款
用户明确同意网站服务的使用由用户个人承担风险。   
不作任何类型的担保,不担保服务一定能满足用户的要求,也不担保服务不会受中断,对服务的及时性,安全性,出错发生都不作担保。用户理解并接受:任何通过服务取得的信息资料的可靠性取决于用户自己,用户自己承担所有风险和责任。
8.有限责任
对任何直接、间接、偶然、特殊及继起的损害不负责任。
9. 不提供零售和商业性服务
用户使用网站服务的权利是个人的。用户只能是一个单独的个体而不能是一个公司或实体商业性组织。用户承诺不经同意,不能利用网站服务进行销售或其他商业用途。
10.用户责任
用户单独承担传输内容的责任。用户必须遵循:
1)从中国境内向外传输技术性资料时必须符合中国有关法规。
2)使用网站服务不作非法用途。
3)不干扰或混乱网络服务。
4)不在论坛BBS或留言簿发表任何与政治相关的信息。
5)遵守所有使用网站服务的网络协议、规定、程序和惯例。
6)不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益。
7)不得利用本站制作、复制和传播下列信息:
1、煽动抗拒、破坏宪法和法律、行政法规实施的;
2、煽动颠覆国家政权,推翻社会主义制度的;
3、煽动分裂国家、破坏国家统一的;
4、煽动民族仇恨、民族歧视,破坏民族团结的;
5、捏造或者歪曲事实,散布谣言,扰乱社会秩序的;
6、宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的;
7、公然侮辱他人或者捏造事实诽谤他人的,或者进行其他恶意攻击的;
8、损害国家机关信誉的;
9、其他违反宪法和法律行政法规的;
10、进行商业广告行为的。
用户不能传输任何教唆他人构成犯罪行为的资料;不能传输长国内不利条件和涉及国家安全的资料;不能传输任何不符合当地法规、国家法律和国际法 律的资料。未经许可而非法进入其它电脑系统是禁止的。若用户的行为不符合以上的条款,将取消用户服务帐号。
11.网站内容的所有权
定义的内容包括:文字、软件、声音、相片、录象、图表;在广告中全部内容;电子邮件的全部内容;为用户提供的商业信息。所有这些内容受版权、商标、标签和其它财产所有权法律的保护。所以,用户只能在和广告商授权下才能使用这些内容,而不能擅自复制、篡改这些内容、或创造与内容有关的派生产品。
12.附加信息服务
用户在享用提供的免费服务的同时,同意接受提供的各类附加信息服务。
13.解释权
本注册协议的解释权归北京东澳达科技有限公司所有。如果其中有任何条款与国家的有关法律相抵触,则以国家法律的明文规定为准。
 
关 闭

VBA一问一答

1.问:什么版本能用VBA?
 
答:3DMine软件2011.6版本以上的都能用。
 
2.问:怎么打开vba
答:首先得安装vba程序,安装完成后,打开3DMine软件,启动工具—宏—VBA编辑器,则可开始写代码。
 
3.问:如何运行已经写好的宏?
答:工具—宏—运行宏,选择要运行的宏,点击运行即可。
 
4.问:如何找到3DMine的函数?
答:打开视图—对象浏览器,基本上3dmine的函数都能在VisualMine里找到。
 
5.如何在代码中添加注释?
答:直接添加注释符 (')。这个符号告诉 Visual Basic,忽略该符号后面的内容。注释可以和语句在同一行并写在语句的后面,也可占据一整行。您可以通过选中两行或多行代码并在“编辑”工具栏上通过选择“注释块”或“删除注释块”按钮来对该代码块添加或删除注释符号。
 
6.问:如何引用其他应用程序的类型库?
答:工具—引用,找到需要引用的类型库在前打勾,点击确定即可。
 
7.问:如何创建点?
答:Sub 创建点()
         Dim pointAs MineDPoint
         Set point= Library.CreatePoint(1, 2, 3)  
        ThisDrawing.ModelSpace.AddPointEntity point
EndSub
 
8.问:如何创建一根直线?
答:Sub 创建线()
             Dimpoly As Mine3DPolyline
              Dimpointss As MineDPoints
             Setpointss = Library.CreatePoints   ‘创建点集
              pointss.Add2, 3, 4, 0
              pointss.Add5, 6, 7, 0
             Setpoly = ModelSpace.Add3DPoly(pointss)  
End sub
 
9.问:如何创建圆?
答:Sub 创建圆()
             Dimpt1 As MineDPoint, pt2 As MineDPoint
             Setpt1 = Library.CreatePoint (1, 2, 3)
            Dimcir As MineCircle
             Setcir = ModelSpace.AddCircle (pt1, 2)
      Endsub
 
10.问:如何创建单行文字?
答:Sub 创建单行文字()
        DimtextObj As MineSText
        Dim point As MineDPoint
        Set point =ThisDrawing.Library.CreatePoint(1, 2, 3)
        Set textObj =ThisDrawing.ModelSpace.AddSText("hello, welcome to 3dmine", point,0.5)
End Sub  
 
11.问:如何创建多行文字?
答: Sub 创建多行文字()
           Dimdhwz As MineMText
           Dimpoint As MineDPoint
           Setpoint = ThisDrawing.Library.CreatePoint(1, 2, 3)
           Setdhwz = ThisDrawing.ModelSpace.AddMText(point, 0.5, "hello the world")
End Sub
 
12.问:如何创建面?
答: Sub 创建面1()
     Dim face As Mine3DFace
    Dim pt As MineDPoints
    Set pt = Library.CreatePoints
    pt.Add 1, 2, 3, 0
    pt.Add 12, 5, 9, 0
    pt.Add 4, 15, 7, 0
    pt.Add 8, 8, 14, 0
     Dim fList(0 To 7)  '定义数组
    fList(0) = 3
    fList(1) = 0
    fList(2) = 1
    fList(3) = 2
    fList(4) = 3
    fList(5) = 0
    fList(6) = 1
    fList(7) = 3
    Set face =ThisDrawing.ModelSpace.Add3DFace(pt, fList) 'flist为数组
    face.Color = 255
    face.Update
End Sub
 
13.问:如何写出对话框?
答:在VBA编辑器中,插入—用户窗体,然后按照需求在窗体中插入书签,文字框,复合框,命令按钮等。
 
14.问:如何获取打开的数据库?
答:Dim dbs As MineDrillHoleDbs
    Set dbs = ThisDrawing.DrillHoleDbs  注意:这里的数据库可以是多个数据库。
 
15.问:如何获取加载的块体模型?
答:Dim blk As MineBlockModel
    Set blk = BlockModel               注意:这里的块体模型只能是一个。
 
16.问:3DMine中基本的对象有哪些?
答:有:点(MinePointEntity)、线(Mine3DPolyline)、面(Mine3DFace)、圆(MineCircle)、圆弧(MineArc)、单行文字(MineSText)、多行文字(MineMText)、图层(MineLayer)、填充(MineHatch)、数据库(MineAcGeDrillDb)、块体模型(MineBlockModel)。
 
17.问:3DMine常用的VBA接口有哪些?
答:有:MineApplication、MineLibrary、MineModelSpace、MineUtility、Drawing
 
18.问:能否在VBA里读写txt,word,excel等格式?
答:可以的。 
版权所有:北京东澳达科技有限公司     地址:北京市石景山区八角东街融科创意中心A座902室    电话:010-88684762    邮箱:3dmine@3dmine.com.cn

京ICP备18042839号-1 京公网安备:11010702000728