cad卸载不干净无法重装 试试这样做

1、首先打开系统的程序控制面板，在该面板中找到程序CAD。

2、右击程序后，出现命令“修改”和“卸载”选择“卸载”命令将该程序完整卸载。

3、在电脑键盘上同时按下WIN+R组合快捷键，在d出的“运行”窗口中输入“regedit”运行“注册表编辑器”。

4、在“注册表编辑器”的工具栏中切换到“编辑”标签，并选择“查找”命令。

5、在“查找”界面的编辑栏中输入查找“Products”勾选“项”，等待搜索结果。

6、找到“installer项”下的“Products项”，并选择图中所示的项。

7、查看一下这个项下的键值是否对应所需要删除的文件，然后将主项删除。

8、重新启动电脑后，再次安装CAD程序，完成重新安装。

先在 工程－引用 里面增加 aucocad类型库然后写代码如下：

Private Sub Command1_Click()

Dim p1(2) As Double, p2(2) As Double, p3(2) As Double

Dim acad As AcadApplication

Dim adoc As AcadDocument

Dim aline As acadline

Dim dima As AcadDimAligned

Set acad = CreateObject("autocad.application.16")

acad.Visible = True

Set adoc = acad.Documents.Add

p1(0) = 100: p1(1) = 100: p1(2) = 0

p2(0) = 1000: p2(1) = 1000: p2(2) = 0

p3(0) = 500: p3(1) = 520: p3(2) = 0

Set aline = adoc.ModelSpace.addline(p1, p2)

aline.Color = acblue

Set dima = adoc.ModelSpace.AddDimAligned(p1, p2, p3)

dima.TextHeight = 15

dima.TextColor = acGreen

dima.ArrowheadSize = 10

End Sub

---