利用VB在cad里面画图，X,Yvb赋值语句问题

来源：蜘蛛抓取(WebSpider) 时间：2012-05-20 10:09 标签： vb 赋值
能用vb编程对cad进行控制绘图么？_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：103,767贴子：
能用vb编程对cad进行控制绘图么？收藏
具体该怎么做？
vb 编程培训选择达内的理由1,企业级开发环境2,项目实战教学3,net课程可选4,金牌讲师授课5,周末/业余班任选.vb 编程培训首选达内--美国上市公司!
不知道，不过我做过用VB控制3DSMAX。
cad内部有几百个对象，几千个属性和方法，全部掌握了就好了。
vb控制3dsmax是通过OLE Automation完成的，搜了一下autocad应该也支持，具体的就不知道了。
登录百度帐号推荐应用VB调用CAD画图问题，大神求解-d画线问题，总是出错，百思不得.
你正在浏览：
VB调用CAD画图问题，大神求解-d画线问题，总是出错，百思不得.
VB调用CAD画图问题，大神求解
Open(&E:&#92, P2, Y(50) As DoubleSet BOOK_JSMJ = XLAPP: P2(1) = X(2) - 4
Set TEXT = myDoc.Visible = Truen = Val(Form1;在CAD绘图多边形
For j = 1 To n
P1(0) = Int(X(j))
P1(1) = Int(Y(j))
P1(2) = Int(0)
P2(0) = Int(X(j + 1))
P2(1) = Int(Y(j + 1))
P2(2) = Int(0)
Set LINE = myDoc:
Set TEXT = myDoc.ModelSpace.ModelSpace.AddText(&S=& & MJ, P2, 3) &#39.ApplicationSet XLAPP = CreateObject(&quot.Worksheets(&sheet1&)SHEET_JSMJ.ActivateDim n As IntegerDim P1(0 To 2) As DoubleDim P2(0 To 2) As DoubleDim MJ: Y(n + 1) = Y(1)
' & ZC;L=&quot.AddText(&给各顶点赋值
X(j) = SHEET_JSMJ, ZC As Double&#39.ModelSpace.AddLine(P1.application&)Dim BOOK_JSMJ As Excel.WorkbookDim SHEET_JSMJ As Excel.WorksheetDim X(50).TEXT)
For j = 1 To n + 1
'给各顶点赋值之后的内容。请求大神帮忙啊具体的EXCEL文件内容坐标 X YD1 20 20D2 40 20D3 20 40D4 40 40D5 30 50;)Set SHEET_JSMJ = BOOK_JSMJ, 3) '标注周长
End IfEnd SubSub jisuan()End Sub老师提示说只需要稍微修改下就可以了.Check1.Value = 1 Then
&#39，具体位置大概在n = Val(Form1.Text1(0).Text1(0) = nForm1.Text1(0).TEXT)
For j = 1 To n + 1
&#39.Application&)If Err ThenErr.ClearSet myacadApp = CreateObject(&AutoCAD.Application&quot, 2)
Y(j) = SHEET_JSMJ.Cells(j + 1, 3)
NextX(n + 1) = X(1);)If Err ThenMsgBox Err.DescriptionExit SubEnd IfEnd IfSet myDoc = myacadA 2MJ = Int(MJ * 1000 + 0.5) / 1000ZC = Int(ZC * 1000 + 0.5) / 1000Form1;计算多边形面积和周长
MJ = MJ + X(j) * Y(j + 1) - Y(j) * X(j + 1)
ZC = ZC + Sqr((X(j) - X(j + 1)) * (X(j) - X(j + 1)) + _
(Y(j) - Y(j + 1)) * (Y(j) - Y(j + 1)))
NextMJ = MJ &#47.ActiveDocumentmyacadApp.WAutoCAD: ZC = 0
'循环起点值为零
For j = 1 To 5
'多边形必须是封闭的MJ = 0, P2)
NextP2(0) = (X(2) + X(3)) / 2;标注面积
P2(1) = P2(1) - 4;张三\计算多边形面积&--------------------------------Dim myDoc As AcadDocumentDim myMos As AcadModelSpaceDim myPas As AcadPaperSpaceDim LINE As AcadLineDim TEXT As AcadTextDim myacadApp As AcadApplicationSet myacadApp = New AcadApplicationSet myacadApp = GetObject(, &quot。Private Sub Command1_Click()Dim XLAPP As Excel.ApplicationSet XLAPP = New Excel.Cells(j + 1有一个调用VB画图的程序;excel，可是画出的不是多边形，而是有很多直线会交叉 如何解决，望大虾们指点.Text1(1) = MJForm1.Text1(2) = ZC
要么在程序里加一段排列各点顺序的函数。手动改excel的内容是最好的办法。如果要加排序函数的话：若干个点的坐标 point(n；该最大夹角的两边上的点即为所求多边形中与a相连的点，找出最大的夹角,y)求：以这些点为顶点的凸多边形的顶点连接顺序；求以该点与其余任意两点所成的夹角大小（该点为角的顶点），也只能针对外凸多边形的情况写。 ============================================补充：关于按连线顺序排列个点的函数思路（只针对外凸多边形）已知,,)）；至此确定了两个点的顺序,x。正确的顺序是:d1d2d4d5d3你要么改一下excel的内容因为你的excel文件里的点没有按画图的顺序排列。思路：选定一点a（如point(1
要么在程序里加一段排列各点顺序的函数。手动改excel的内容是最好的办法。如果要加排序函数的话：若干个点的坐标 point(n；该最大夹角的两边上的点即为所求多边形中与a相连的点，找出最大的夹角,y)求：以这些点为顶点的凸多边形的顶点连接顺序；求以该点与其余任意两点所成的夹角大小（该点为角的顶点），也只能针对外凸多边形的情况写。 ============================================补充：关于按连线顺序排列个点的函数思路（只针对外凸多边形）已知,,)）；至此确定了两个点的顺序,x。正确的顺序是:d1d2d4d5d3你要么改一下excel的内容因为你的excel文件里的点没有按画图的顺序排列。思路：选定一点a（如point(1
使用多段线的closed方法，直接形成闭合的多段线，而且多段线有面积和周长的属性，直接读取就可以。希望采纳，y（0），x（1），y（1）.，通过vb调用CAD后建立轻量多段线..我给你一个更好绘制多边形，并计算其面积和周长的方法。使用cad中的多段线，建立多段线用的是一维坐标数组，数组中的坐标元素顺序是：x（0）.,不用首尾使用一个节点
确保CAD在经典模式下 工具---选项---配置----重置
答:1、line(l)或者pline(pl)回车,括号内为简写命令 2、依次输入...
在线等会CAD制图的高手替我画几张图并进行DRC验证~~下面是要求~~~求大神...类型以及尺寸与所...
外面那4个圆是两两相等的么?
1 矩形命令画好外框,共3个 2使用offset给定距离,偏移内框 3用阴影线充填,三个内框区域一次...
看到问题,我有几个疑问想要问一下,第一,我不知道你那边的标注比例因子是多少?第二,这个图的尺寸是不是...
好好学习,天天向上! (defun c:sjy (/ n p r i l) (setqn (geti...
你双击下,如果能弹出编辑块定义的窗口,说明你已经组好了,如果没有~~请继续组块。
你那个图中的R32和R53的圆心都有了,先画这两个直径圆,然后用相切、相切、半径画圆,与R32和R5...
你可能感兴趣的内容？

我要回帖

更多关于 vb 赋值 的文章

 

随机推荐