2013-09-25 明经AutoCAD.VBA编程(45054712) 群聊记录：[image={2BA651D0-CF14-E200-DE69-1C0F4B

明经快报

在路上26 07:57:28

[qqimg]201309/{2BA651D0-CF14-E200-DE69-1C0F4B6B954F}.jpg[/qqimg]，必须要2004吗，我在07下提示我错误啊

VBA-华仔 08:00:33

估计是必须2004

[VB&.NET]ppyyff 08:07:41

VBA写的代码一般都对应同一个版本，否则不能用

一般重新编录一下就行

我是说COM方式

明经快报

新儿 10:03:12

请教大家，怎么能在启动cad的时候自动运行宏/

新儿 10:05:03

之前我是把工程名改为acad.dvb,放到cad的安装目录下，每次打开cad的时候，宏就自动运行了，并且实现了在菜单里加载我编的菜单项的功能

新儿 10:05:58

重装系统后，这个方法怎么不灵了呢？大家有没有好办法，就是想让自己编的宏自动启动

新儿 10:12:03

哪里的设置/

新儿 10:12:47

是这样的，我是给设计人员做的，想给他们一个小程序，他们能够简单放到目录里就能运行宏，比较好

新儿 10:15:19

大家谁会啊
？

之前怎么可以实现？现在怎么不行了呢，大家帮忙分析下哦

VBA-华仔 10:15:50

CAD什么版本的？

新儿 10:16:02

2004

VBA-华仔 10:16:19

杀毒软件什么名？

新儿 10:16:27

瑞星

VBA-华仔 10:17:41

你把杀毒软件关了试试

新儿 10:24:10

貌似不行

试了，不行

我之前也没关过杀毒软件

新儿 10:25:52

现在是cad启动后，我自己编的菜单没自动加到菜单栏，但是工具---宏---宏下边会看到我编的程序

需要点击一下，才能加到菜单上

明经快报

新儿 11:11:29

怎么能在启动CAD的时候,自动初始化vba系统

?欢乐 11:12:01

vba系统指的是什么？

vba的IDE？

新儿 11:15:19

就是每次打开vba管理器的时候，命令行都显示初始化vba系统

只要能把vba系统激活就好

轻舞飞扬 11:16:25

系统目录  CAD***.lsp文件末尾加命令lisp:

轻舞飞扬 11:17:50

(command "vbarun" "路径加vba的sub全路径名"

明经快报

[VBA/VB/C#]efan2000 13:29:21

Sub testHatch()
    Dim vl(0 To 7) As Double
    vl(2) = 20
    vl(4) = 20
    vl(5) = 10
    vl(7) = 10
    Dim lwp As AcadLWPolyline
    Set lwp = ThisDrawing.ModelSpace.AddLightWeightPolyline(vl)
    lwp.Closed = True
    Dim h As AcadHatch
    Set h = ThisDrawing.ModelSpace.AddHatch(0, "SOLID", True)
    Dim e(0 To 0) As AcadEntity
    Set e(0) = lwp
    h.AppendOuterLoop e
    h.Evaluate
    lwp.Delete
    Dim mh As mcArxProject1Lib.Hatch
    Set mh = New mcArxProject1Lib.Hatch
    Debug.Print "numLoops: " & mh.numLoops(h)
    Debug.Print "loopTypeAt: " & mh.loopTypeAt(h, 0)
    Dim v As Variant
    Dim b As Variant
    mh.GetLoopAt h, 0, mh.loopTypeAt(h, 0), v, b
    Dim s As String
    Dim i As Integer
    If VarType(v) = (vbArray Or vbDouble) Then
        s = s & vbCrLf & vbTab & i & ": "
        For i = 0 To UBound(v)
            If i  UBound(v) Then
                s = s & v(i) & ", "
            Else
                s = s & v(i)
            End If
        Next
    Else
        Dim ss() As String
        ReDim ss(UBound(v))
        Dim j As Integer
        For i = 0 To UBound(v)
            s = s & vbCrLf & vbTab & i & ": "
            For j = 0 To UBound(v(i))
                If j  UBound(v(i)) Then
                    ss(i) = ss(i) & v(i)(j) & ", "
                Else
                    ss(i) = ss(i) & v(i)(j)
                End If
            Next
            s = s & ss(i)
        Next
    End If
    Debug.Print "getLoopAt: " & s
End Sub

numLoops: 1
loopTypeAt: 1
getLoopAt: 
    0: 0, 0, 20, 0
    1: 20, 0, 20, 10
    2: 20, 10, 0, 10
    3: 0, 10, 0, 0

光辉岁月 13:30:46

？

明经快报

在路上26 14:53:00

你在设置里，设置下，搜索路径，不一定非要放到安装目录去

[VBA/VB/C#]efan2000 14:53:01

测试用的，ARX扩展VBA功能。

②班1⒏號 14:54:15

[qqimg]201309/{6DB63CF5-3255-C3D8-0EC7-A88B0DF8B6BE}.jpg[/qqimg]word vba 我想在“现场照片”后插入图片，应该怎么实现？

明经快报

●`.峰 ！ | ●`.花！ 21:55:54

大家晚上好

●`.峰 ！ | ●`.花！ 21:57:09

请教一下2004CAD怎样用VBA角度提取

[mccad]mccad 21:59:39

没说清楚

你是说要提取一条直线的角度？

[mccad]mccad 22:00:33

直只有两个端点的属性，没有角度的属性

不过两点就已经形成角度了，计算就行

[mccad]mccad 22:01:25

好象是有角度angle这个属性，不过是只读的，你可以读取，但不能改

●`.峰 ！ | ●`.花！ 22:06:20

哦，谢谢

●`.峰 ！ | ●`.花！ 22:07:55

angle不能提取直线的角度吗

●`.峰 ！ | ●`.花！ 22:11:34

[qqimg]201309/{A3F844D3-97F9-D059-5C24-6BD183EED30E}.jpg[/qqimg]最后角度咋是这样的

能帮我解释一下吗

②班1⒏號 22:17:49

[qqimg]201309/{B9404703-351E-D00E-A90A-0205809F8F62}.jpg[/qqimg]

.7设为0.7

就可以了

有声 22:19:35

[qqimg]201309/{6B2878CB-1366-A18F-B4DD-D33EE19F6DAF}.jpg[/qqimg]

南京小贩为抢摊位持刀杀两人

有声 22:22:28

沈阳小贩夏俊峰今日被依法执行死刑

●`.峰 ！ | ●`.花！ 22:22:42

我知道是0.7怎样转换为角度45

②班1⒏號 22:25:10

弧度转成度就可以

●`.峰 ！ | ●`.花！ 22:26:52

哦

②班1⒏號 22:28:19

xx/3.1415962*180

●`.峰 ！ | ●`.花！ 22:30:16

是的，谢谢哟

祝大家晚上愉快哟

明经快报

Yakamoz 22:58:12

CAD的系统变量可以自己创建吗

[luozh7682]筑路人 23:02:34

应该不行吧，只能更改