| tiancao1001 于 2008-07-15 05:31 PM 发表评论： |
'样条曲线转化为直线(针对上面函数转化后的样条曲线)
Sub SPlineToLine()
Dim E As AcadEntity
Dim L As AcadLine
Dim SP As AcadSpline
Dim StartP As Variant
Dim EndP As Variant
For Each E In ThisDrawing.ModelSpace
'DoEvents
'ThisDrawing.Utility.Prompt E.ObjectName
If E.ObjectName = "AcDbSpline" Then
Set SP = E
StartP = SP.GetFitPoint(0)
EndP = SP.GetFitPoint(2)
Set L = ThisDrawing.ModelSpace.AddLine(StartP, EndP)
L.Layer = SP.Layer
L.color = SP.color
SP.Delete
End If
Next E
End Sub |
|
| 查看所评论的日志：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 对象加上超链接 |
| 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,点击注册,随便填入数字,点击注册即可成功!!, |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2008-06-22 08:35 PM 发表评论： |
| 修行功德圆满，要到到猴年马月，现在不靠坑蒙拐骗，生活的很难保证 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2008-06-22 08:29 PM 发表评论： |
| 今天回老家，和小外甥一起看西游记续集，其中的故事真差劲，大圣变的很无能，什么事情都自己解决不了，必须求助上天，真是垃圾。 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2008-06-20 06:49 PM 发表评论： |
|
| 查看所评论的日志：田草日志 |
[28] [29] [30] [31] [32] [33] [34] [35] [36] [37] ... [37] 
