田草 于 2008-07-12 09:23 AM 发表评论: |
'创建匿名块,没有则创建,有则序号加一 Function NiMingKuai(S As String) As String Dim B As AcadBlock Dim n As Long Dim m As Long For Each B In ThisDrawing.Blocks If Left(B.Name, Len(S)) = S Then m = Val(Mid(B.Name, Len(S) + 1)) If n <= m Then n = m + 1 End If Next NiMingKuai = S & n End Function |
|
查看所评论的日志:Auto CAD vba 怎样 创建匿名块 |
tiancao1001 于 2008-07-11 11:38 PM 发表评论: |
Sub Delete_HyperLinks() On Error Resume Next Dim Hyperlinks As AcadHyperlinks Dim Hyperlink As AcadHyperlink Dim Obj As AcadEntity Dim i As Integer Dim j As Long For Each Obj In ThisDrawing.ModelSpace DoEvents Set Hyperlinks = Obj.Hyperlinks MsgBox Hyperlinks.Count i = Hyperlinks.Count For j = 0 To i - 1 Hyperlinks.item(j).Delete Next j Next
End Sub |
|
查看所评论的日志:CAD 对象加上超链接 |
ladybug 于 2008-07-11 10:41 PM 发表评论: |
有病毒了 看看u盘有没有autorun.inf文件 这是一个系统文件,要把工具-->文件夹选项-->查看-->隐藏受保护的操作系统文件 选项关掉才可以看到
|
|
查看所评论的日志:对修复u盘写保护,无法格式化的一点经验 |
ladybug 于 2008-07-11 10:33 PM 发表评论: |
我不能下 给我一个,谢谢 nj_wzg@163.com |
|
查看所评论的日志:AutoCAD VBA 二次开发教程源码 |
田草 于 2008-07-09 10:18 PM 发表评论: |
@echo off taskkill /f /im explorer.exe set time1=%time:~0,-3% echo 现在时间是 %time1% for /f "tokens=1,2,3 delims=:" %%i in ("%time1%") do ( set /a hour_1=%%i set /a munite_1=%%j ) set /a munite_1=%munite_1%+1 echo 启动时间 %hour_1%:%munite_1% at %hour_1%:%munite_1% /interactive %systemroot%\explorer.exe
pause |
|
查看所评论的日志:用system登陆系统 |
tiancao1001 于 2008-07-04 09:27 PM 发表评论: |
|
查看所评论的日志:田草日志 |
tiancao1001 于 2008-06-26 09:34 PM 发表评论: |
直接修改主页的地址可以被很多软件检测到,可以直接修改windows快捷方式的参数, |
|
查看所评论的日志:田草日志 |
tiancao1001 于 2008-06-26 08:59 PM 发表评论: |
中望cad 2007 和2008i的破解方法是一样的,都是搜素16进制FFD7595950,找到后将50改为51保存退出.然后运行中望CAD,点击注册,随便填入数字,点击注册即可成功!!, |
|
查看所评论的日志:田草日志 |