本人小白一个请教大虾呀，VB调用CAD画图，比如矩形是啥命令，为什么线条可以Dim line1 as acadline,矩形?
矩形为啥Dim rec1 as acadrectang,CAD直接画图命令不就是Rectang吗
是上面补充的命令无法编译。。。
用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)追问
上面sendcommand语句有错呀，麻烦看一下，谢谢
追答object.SendCommand "Rectang " & X1 & "," & Y1 & " " & X2 & "," & Y2 & " "
嗯是有问题，应该是这样的.你再试试
...比如矩形是啥命令,为什么线条可以Dim line1 as acadline,矩形?_百...
或者先定义四个点用多线段的方法画,s是四个坐标点 dim s(0 to 7) as double Dim lwp As AcadLWPolyline set lwp=object.AddLightWeightPolyline(s)
vb问题: vb调用cad画线问题,总是出错,百思不得其解(本人小白,请大神帮 ...
Set LineObj = activeDoc.ModelSpace.AddLine(startpoint, endpoint) '画线中的参数只需两个点，而你的数组是多点的，不匹配。要画多点连续线可用Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多段线 。要分段线可以渐次画出。sub 划线（）'作为一模块 Dim myAcadApp As AutoC...
用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...
VB中能调用CAD自动画图么
On Error GoTo prcERR myAcadApp.Visible = True '显示CAD Set activeDoc = myAcadApp.ActiveDocument Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double Dim LineObj As AcadLine'如果画图时出错，改为Dim LineObj As Object startPoint(0) = 0: startPoint(1) = 0: star...
用VB编写画图程序
提供一个绘制任意曲线的简单代码。其他功能类似，希望能举一反三。在窗体中添加一个Picture box，然后输入命令如下：Dim oldx As SingleDim oldy As Single Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then '当鼠标左...
CAD绘图的常用命令?
第一类,绘图类。常用的命令有: line 直线 xline 构造线(用来画辅助线) mline 双线(在画墙线时常用到,也可自己定义使用其它线型) pline 多义线(大部分由线段组成的图元,能够定义为多义线的就定义为多义线,这样在选择时比较方便) rectang 矩形(实际上就是四段围合的多义线) arc 圆弧 circle 圆 hatch 填充(要...
VB连CAD创建面域后,VB对面域面积的查询
其实AUTOCAD用的熟练的话，也该知道选择几个对象不是只能生成一个REGION的，那ADDREGION怎么可能返回一个REGION对象呢？Sub Example_AddRegion()' This example creates a region from an arc and a line.Dim curves(0 To 1) As AcadEntity ' Define the arc Dim centerPoint(0 To 2) As Double ...
谁能帮我编一段用VB对CAD进行二次开发的程序代码啊
下面看画圆命令:Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)Call语句的作用是调用其他过程或者方法。ThisDrawing.ModelSpace是指当前CAD文档的模型空间AddCircle是画圆方法Addcicle方法需要两个参数:圆心和半径CC就是圆心坐标,i*10就是圆的半径,本例中,这些圆的半径分别是10、110、210、310……本课到此结束...
CAD的快截键。。最好全点,建筑那方面的!
2、绘图命令: PO, *POINT(点) L, *LINE(直线) XL, *XLINE(射线) PL, *PLINE(多段线) ML, *MLINE(多线) SPL, *SPLINE(样条曲线) POL, *POLYGON(正多边形) REC, *RECTANGLE(矩形) C, *CIRCLE(圆) A, *ARC(圆弧) DO, *DONUT(圆环) EL, *ELLIPSE(椭圆) REG, *REGION(面域) MT, *MTEXT...
CAD中怎么快速切换图层?
4. 创建矩形的快捷方式是REC+空格5. 创建点的快捷方式是PO+空格6. 创建单行文本的命令是DT7. 创建多行文本的命令是MT8. 创建填充的命令是H9.将已经画出的线段延伸到某一线段 EX+空格10.将已经画出的矩形倒圆角 F+空格11.修剪绘图过程中多余的线 TR+空格12. 修改文本 ED+空格13. 移动命令是M+空格;14...
