也许有一天 发表于 2020-9-29 09:51:28

请问一下各位，VB调用CAD中如何把画好的直线中的某一小截改为虚线（暂不考虑分开画）

Dim acadapp As AcadApplication
Dim AcadDoc As AcadDocument
Dim obj_Acad As Object, obj_Doc As Object, obj_ModelSpace As Object




Private Sub Command3_Click()
    On Error Resume Next '如果目前系统中已执行autocad，则取得已执行autocad物件
    Set acadapp = GetObject(, "AutoCAD.Application.17") '检查AutoCAD是否已经打开
    If Err Then '没有打开
      Err.Clear '如果目前系统中尚未执行autocad，则建立autocad物件
      Set acadapp = CreateObject("AutoCAD.Application.17") '打开CAD
      If Err Then
            MsgBox "连接错误" '打开失败显示连接错误
      End If
    End If

    On Error GoTo 0 '这行是增加的：取消错误陷阱。没有这一行，调试时你后面程序中的错误无法发现

    acadapp.Visible = True '显示CAD
    Set AcadDoc = acadapp.ActiveDocument'使用acaddoc变量引用当前的AutoCAD图形

    Dim HatchObj1 As AcadHatch '定义HatchObj1为CAD里面填充对象
    Dim Ld1(0 To 0) As AcadEntity '定义outerLoop为CAD里面的实体
    Dim syu(0 To 7) As Double'画矩形不需要5个顶点
    syu(0) = 0: syu(1) = 0
    syu(2) = 800: syu(3) = 0
    syu(4) = 800: syu(5) = 200
    syu(6) = 0: syu(7) = 200

    Set Ld1(0) = AcadDoc.ModelSpace.AddLightWeightPolyline(syu)

    AcadDoc.Regen True
End Sub

sgwsssxm 发表于 2020-9-29 10:34:22

不知道，手动把画好的直线中的某一小截改为虚线你是怎么操作的，说一下，也许可以参考一下。

mikewolf2k 发表于 2020-9-30 09:40:40

方法你已经知道了，如果否决了那就无法。

也许有一天 发表于 2020-9-30 19:09:18

sgwsssxm 发表于 2020-9-29 10:34
不知道，手动把画好的直线中的某一小截改为虚线你是怎么操作的，说一下，也许可以参考一下。

我正是问这个问题，还没搞出来。

也许有一天 发表于 2020-9-30 19:11:04

mikewolf2k 发表于 2020-9-30 09:40
方法你已经知道了，如果否决了那就无法。

就想着有没有这种方法，多学习一下，嘿嘿

Wanda 发表于 2020-11-17 13:17:01

我也不考虑画它

也许有一天 发表于 2020-11-21 20:44:22

Wanda 发表于 2020-11-17 13:17
我也不考虑画它

我最终还是分开画的
页: [1]
查看完整版本: 请问一下各位，VB调用CAD中如何把画好的直线中的某一小截改为虚线（暂不考虑分开画）