| tiancao1001 于 2008-08-03 09:29 PM 发表评论： |
| 在AutoCAD的VBA窗体中可以嵌入AcCtrl控件打开dwg图形 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2008-07-19 10:37 PM 发表评论： |
| 赤壁，果真含有不少笑料，张飞一手好字，主公还是忘记不了老本行编草鞋 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2008-07-19 10:34 PM 发表评论： |
| 好123，混到百度主页上去了，从我的博客关键字被搜索的情况看，百度只占据14%，而谷歌占据81%。 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2008-07-19 03:00 PM 发表评论： |
| 隐藏日志的评论 |
| 查看所评论的日志：CAD VBA 也能画出这样的样条曲线 |
| tiancao1001 于 2008-07-19 01:15 PM 发表评论： |
| 隐藏日志的评论 |
| 查看所评论的日志：CAD VBA 也能画出这样的样条曲线 |
| tiancao1001 于 2008-07-17 09:03 PM 发表评论： |
| 隐藏日志的评论 |
| 查看所评论的日志：CAD VBA 也能画出这样的样条曲线 |
| tiancao1001 于 2008-07-16 02:58 PM 发表评论： |
Sub DeleteMenu()
'读取有那些菜单
Dim i As Integer
Dim i1 As Integer
Dim i2 As Integer
Dim index() As Long
Dim DataString As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSO_File = FSO.OpenTextFile(GetPath & "menu.txt", ForReading, True)
Do While Not FSO_File.AtEndOfStream
DataString = FSO_File.ReadLine
i = inStr_n(DataString, ",", index)
If i = 0 Then
i1 = Val(DataString)
ElseIf i = 1 Then
DataString = Left(DataString, Len(DataString) - 1)
For Each TG In ThisDrawing.Application.MenuGroups
For Each T In TG.Toolbars
If T.Name = DataString Then
T.Delete
i2 = i2 + 1
If i2 = i1 Then Exit Do
End If
Next
Next
End If
Loop
FSO_File.Close
End Sub |
|
| 查看所评论的日志：ACAD vba CreateMenu2.0 自动生成CAD工具栏 |
| 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将所有的直线转换成样条曲线 |
[28] [29] [30] [31] [32] [33] [34] [35] [36] [37] ... [37] 