| 田草 于 2008-07-12 09:30 AM 发表评论： |
'创建匿名组，没有则创建，有则序号加一
Function NiMingZu(S As String) As String
Dim G As AcadGroup
Dim n As Long
For Each G In ThisDrawing.Groups
If Left(G.Name, Len(S)) = S Then n = n + 1
Next
NiMingZu = S & n + 1
End Function |
|
| 查看所评论的日志：vba 创建匿名组 |
| 田草 于 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快捷方式的参数， |
|
| 查看所评论的日志：田草日志 |
[100] [101] [102] [103] [104] [105] [106] [107] [108] [109] ... [143] 
