如何只用vb编程, 画一个长方形并进行尺寸标注。就像在cad中绘制的...
发布网友
发布时间：2024-10-16 15:19
共0个回答
编程我会，不过楼梯应该画成什么样我不知道，这样吧，你用这个尺寸发一个画好的过来，我帮你编成程序，以后你就可以用程序画了，每次画的时候，你只要输入内外半径与高度等3个参数，程序自动画好楼梯
如何用VB编程序绘cad图,比如利用vb编程在VB里画一个源,一条直线。谢谢...先在 工程－引用 里面增加autocad类型库然后写以下代码 Private Sub Command1_Click()Dim p(2) As Double Dim acad As AcadApplication Dim mspace As AcadDocument Set acad = CreateObject("autocad.application.16")acad.Visible = True Set mspace = acad.Documents.Add For i = 1.5 To ...
用VB调用Autocad中的VBA,能不能像VB自己的函数一样有编写提示?一、 可以的，设置方法为先把AutoCad的对象模型搞懂 在Cad的帮助里有相关的内容 先打开Cad，然后运行下面的代码 Dim acadapp As Object Dim acaddoc As Object Dim mspace As Object Set acadapp = GetObject(, "autocad.application") Set acaddoc = acadapp.activedocument Set mspace = acaddoc.m...
cad能不能在一个地方标长宽高,生成模型,以后只要输入不同长宽高尺寸就...我们德州华星给自己的客户写过一些这样的程序。对于形状相似尺寸不同的一系列图，只要输入几个必要的尺寸，瞬间就可生成CAD图（DXF格式的）。我们是用VB写的。可以完全不依赖CAD
有没有一中方法,在CAD中先画好一个标准图,然后输入数据,自动生成和标 ...对于形状类似、尺寸不同的一系列图，只要输入几个必要的尺寸，就能瞬间得到所要的CAD图。我们德州华星用VB为客户写过这样的程序，比如通风管道的消声器、消声弯头、蜗壳风机、皮带罩子、封头等等。不知你的图是什么形状的？可以把你的图发一个过来。我们看一下。
200分 VB6 调用CAD画三维长方实体 需要完整的步骤以及代码 包括VB里 ...inspnt(0) = N: inspnt(1) = 0: inspnt(2) = 0 '插入点，要在EXCEL中补充 texthight = 2 textstr = xlSheet.Cells(N, 1)L = Val(xlSheet.Cells(N, 2)) '长 w = Val(xlSheet.Cells(N, 3)) '宽 h = Val(xlSheet.Cells(N, 4)) '高 moSpace.AddBox inspnt, L, w,...
vb.net如何在编程中获取CAD对象的DXF组码感觉 vb.net对象中根本不存在组码这个东西，一切皆对象。直接遍历访问，要对应组码有何用？如果你想获取组码一句简单lsp语句就行了。
如何用vb.net编程在cad图形中插入dwg图块?Dim ppr As PromptPointResult = ed.GetPoint("请选择插入点：")Dim pt As Point3d = ppr.Valueutility.WriteToEditor(pt.ToString())Dim pidBlock As New PIDBlock()'自己定义的图块类，保存图块的路径和名称 pidBlock.Name = "sample"pidBlock.Path = blockPath & "b_sample.dwg"Using ...
关于用VB在CAD中画直线的问题set doc = acadapp.activedocument set mspace = doc.modelspace dim p1(2) as double ,p2(2) as double p2(1)=10 mspace.addline p1,p2 点在VBA是用三元素的Double数组表示 p1(0)-X p1(1)-Y p1(2)-Z
本人小白一个请教大虾呀,VB调用CAD画图,比如矩形是啥命令,为什么线条可以...cad 程序里没有acadrectang这个实体名称 用sendcommand的方法 object.SendCommand "Rectang " & x1 "," & y1 " " & x1 "," & y1 " "或者先定义四个点用多线段的方法画,s是四个坐标点 dim s(0 to 7) as double Dim lwp As AcadLWPolyline set lwp=object.AddLightWeightPolyline(s)
