三个问题想了好久,请高手解答
1.如何把标题栏中的2004改成其它的字母,比如"ACBDEFG",前面的CAD图标也不要了,或者换成别的,2.如何关闭AutoCAD的启动画面,我们平常知道的是在快捷方式里设置参数,可是怎么样才能控制acad.exe在启动的时候不显示画面呢?
3.有下列三组数字,第三组的值为前两组之和,怎么样才能做到在改写了前两组数字后,第三组仍能为前两组之和.
1.
Use apps such as Resouce Hacker can change the icon.
2.
3. Use reactors
谢谢alin,
不过
第一个问题
怎么样才可以在安装直接打开CAD就直接改变成为需要的样式呢?我的意思是不通地命令来实现,而是从CAD的内部更改它.
默认的文件名都为Drawing1.dwg,怎么才能把它也改掉呢?
第二个问题
我是想实现如何直接点击ACAD.EXE这个文件就可不显示启动画面,而不是通过修改快捷方式的属性
第三个问题
可不可以说详细一点
1可以用exescope等资源查看软件将acad中你要改的东西修改为你要的东西。
2可以找到启动画面文件删除或修改。
3要自动改变恐怕比较难（你想要acad编程excel？？？），通过编程就比较简单了。或者监视第1、2组图元，如果修改了(objectmodified)就更新第3组。
第一个问题 通过ＶＢ ＡＰＩ可以轻松实现．我测试可以
第二个问题 不好操作，如果有人的ＤＷＧ里有特殊字体的话是必须显示的，无法避免
第三个问题 在ＶＢＡ里不能创建响应事件的类，你可以先将所有数字选入对话框中，再操作就是一样的效果
注册该文件并在VBA中引用TlsCad
在thisdrawing模块中加入下列代码
将TlsCadInit宏设为初始启动，即在acaddoc.lsp文件中加入(command "-vbarun" "TlsCadInit")
运行test宏
Public TlsApp As New TlsApplication
Private WithEvents Reactor1 As TlsReactor
Public Sub TlsCadInit()
TlsApp.Application = Application
Set Reactor1 = TlsApp.Reactors("Reactor1")
End Sub
Private Sub Reactor1_DoubleClick(ByVal pObject As IAcadObject, ByVal Value As Variant)
ThisDrawing.SendCommand "_.ddedit" & vbCr & vbCr
End Sub
Private Sub Reactor1_Modified(ByVal pObject As IAcadObject, ByVal Value As Variant)
Dim pText1 As AcadText
Dim pText2 As AcadText
Dim pText3 As AcadText
Set pText1 = ThisDrawing.HandleToObject(Value(0))
Set pText2 = ThisDrawing.HandleToObject(Value(1))
Set pText3 = pObject
pText1.TextString = CDbl(pText3.TextString) + CDbl(pText2.TextString)
End Sub
Public Sub test()
Set t1 = ThisDrawing.ModelSpace.AddText("1", ThisDrawing.Utility.GetPoint, 5)
Set t2 = ThisDrawing.ModelSpace.AddText("1", ThisDrawing.Utility.GetPoint, 5)
Set t3 = ThisDrawing.ModelSpace.AddText("1", ThisDrawing.Utility.GetPoint, 5)
Reactor1.Add t1, Array(t3.Handle, t2.Handle)
Reactor1.Add t2, Array(t3.Handle, t1.Handle)End Sub 版主，你的“CADghost 材料表精灵 v1.0”的确好牛，只可惜我不是你这个专业，用不了你的东西，能否告诉我如何卸载？再一个，你的安装软件是如何开发的？
请你看看我的“信息吸血鬼”软件（已放在CAD社区上dispbbs.asp?boardID=4&ID=42906&page=1），能否帮我指点一二，如何制作安装软件？
第三个问题：在2006版的表格里面可以象EXCEL一样进行自动计算。
页:
[1]