2013-09-22 QQ群：CAD开发高级服务群(325489190) 聊天记录：我进来了,不过待会我要去吃饭

CCarch

孤单的时候~~(286168051)于2013-09-22 21-48-05：
static void xqlArxProject6ccir(void)
        {
                // Add your code for command xqlArxProject6.ccir here
            AcGePoint3d pcenter (0.0,0.0,0.0);
            AcGeVector3d pvec( 0.0,0.0,1.0);
                double ra = 10.0;
                AcDbCircle *pCir = new AcDbCircle(pcenter,pvec,ra);
                pCir->setColorIndex(2);
                PostToModelSpace(pCir);
        }

CCarch

Tony(609719845)于2013-09-22 21-48-32：
这个知道了哦，画圆的

CCarch

Tony(609719845)于2013-09-22 21-48-46：
[qqimg]{3B6260FF-C1D5-0AB0-C22C-421843E091B8}.gif[/qqimg]

守仁格竹GM

守仁格竹?????GM(23214352)于2013-09-22 21-50-18：
每节课 选一个录视频的 是好主意

守仁格竹GM

守仁格竹?????GM(23214352)于2013-09-22 21-50-38：
这样 还能节省好多精力

CCarch

孤单的时候~~(286168051)于2013-09-22 21-51-44：
呵呵

CCarch

阿龙(596525395)于2013-09-22 21-52-41：
第八课是什么名称？

守仁格竹GM

守仁格竹?????GM(23214352)于2013-09-22 21-53-55：
是不是学完ARX vb.net也想通呢

守仁格竹GM

守仁格竹?????GM(23214352)于2013-09-22 21-54-21：
我看好多东西 现在都跟vb。net相关了

CCarch

一棵树(50863170)于2013-09-22 22-29-10：
Option Explicit

'
' 引用 Microsoft Shell Controls And Automation
'
Private shlShell As Shell32.Shell
Private shlFolder As Shell32.Folder
Private Const BIF_RETURNONLYFSDIRS = &H1
Dim File_Path As String
Dim xlApp As Excel.Application


Private Sub Command1_Click()
   File_Path = OpenPath()
End Sub

Private Sub Command2_Click()
    Dim i As Integer
    Dim Name As String
    For i = 0 To File_Excel.ListCount - 1
   File_Excel.ListIndex = i
    Name = File_Path & "\" & File_Excel.List(i)
    Call innitExcel
   
    xlApp.Workbooks.Open Name
   xlApp.Cells(xlApp.ActiveSheet.UsedRange.Rows.Count, 7) = Text3.Text
    Call CloseExcel

        If i = File_Excel.ListCount - 1 Then
           MsgBox "替换完成!"
        End If
Next i

End Sub

Private Sub Command3_Click()
    End
End Sub

Function OpenPath() As String
    If shlShell Is Nothing Then
       Set shlShell = New Shell32.Shell
    End If
    Set shlFolder = shlShell.BrowseForFolder(Me.hWnd, "请选择文件夹", BIF_RETURNONLYFSDIRS)
    If Not shlFolder Is Nothing Then
          File_Excel.Path = shlFolder.Items.Item.Path
    End If
    OpenPath = File_Excel.Path
End Function

Sub innitExcel()
    Set xlApp = CreateObject("Excel.Application")
    With xlApp
    .Visible = False
    .DisplayAlerts = False
    End With  
End Sub
Sub CloseExcel()
      xlApp.Quit
      Set xlApp = Nothing
      Shell "cmd.exe /c taskkill /f /im excel.exe" '关闭EXCEL进程
End Sub

CCarch

一棵树(50863170)于2013-09-22 22-29-39：
老出错,请问怎么解决?

CCarch

Tony(609719845)于2013-09-22 22-30-50：
这是C++

CCarch

一棵树(50863170)于2013-09-22 22-31-00：
[qqimg]{C676136C-F4F2-3A55-05A0-C904A41DA8CB}.jpg[/qqimg]

CCarch

一棵树(50863170)于2013-09-22 22-31-01：
vb

CCarch

Tony(609719845)于2013-09-22 22-31-14：
这里是C++群，