三个问题想了好久,请高手解答

CADghost

1.如何把标题栏中的AutoCAD2004改成其它的字母,比如"ACBDEFG",前面的CAD图标也不要了,或者换成别的,

2.如何关闭AutoCAD的启动画面,我们平常知道的是在快捷方式里设置参数,可是怎么样才能控制acad.exe在启动的时候不显示画面呢?

3.有下列三组数字,第三组的值为前两组之和,怎么样才能做到在改写了前两组数字后,第三组仍能为前两组之和.

alin

1.

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=42695

Use apps such as Resouce Hacker can change the icon.

2.

3. Use reactors

CADghost

谢谢alin,

不过

第一个问题

怎么样才可以在安装直接打开CAD就直接改变成为需要的样式呢?我的意思是不通地命令来实现,而是从CAD的内部更改它.

默认的文件名都为Drawing1.dwg,怎么才能把它也改掉呢?

第二个问题

我是想实现如何直接点击ACAD.EXE这个文件就可不显示启动画面,而不是通过修改快捷方式的属性

第三个问题

可不可以说详细一点

mikewolf2k

1  可以用exescope等资源查看软件将acad中你要改的东西修改为你要的东西。

2  可以找到启动画面文件删除或修改。

3  要自动改变恐怕比较难（你想要acad编程excel？？？），通过编程就比较简单了。或者监视第1、2组图元，如果修改了(objectmodified)就更新第3组。

jsyang_ren

第一个问题　通过ＶＢ　ＡＰＩ可以轻松实现．我测试可以

第二个问题　不好操作，如果有人的ＤＷＧ里有特殊字体的话是必须显示的，无法避免

第三个问题　在ＶＢＡ里不能创建响应事件的类，你可以先将所有数字选入对话框中，再操作就是一样的效果

雪山飞狐_lzh

注册该文件并在VBA中引用TlsCad
在thisdrawing模块中加入下列代码
将TlsCadInit宏设为初始启动，即在acaddoc.lsp文件中加入(command "-vbarun" "TlsCadInit")
运行test宏

2. Public TlsApp As New TlsApplication
3. Private WithEvents Reactor1 As TlsReactor
4. Public Sub TlsCadInit()
5.     TlsApp.Application = Application
6.     Set Reactor1 = TlsApp.Reactors("Reactor1")
7. End Sub
8. Private Sub Reactor1_DoubleClick(ByVal pObject As IAcadObject, ByVal Value As Variant)
9. ThisDrawing.SendCommand "_.ddedit" & vbCr & vbCr
10. End Sub
11. Private Sub Reactor1_Modified(ByVal pObject As IAcadObject, ByVal Value As Variant)
12.     Dim pText1 As AcadText
13.     Dim pText2 As AcadText
14.     Dim pText3 As AcadText
15.    
16.     Set pText1 = ThisDrawing.HandleToObject(Value(0))
17.     Set pText2 = ThisDrawing.HandleToObject(Value(1))
18.     Set pText3 = pObject
19.    
20.    
21.     pText1.TextString = CDbl(pText3.TextString) + CDbl(pText2.TextString)
22. End Sub
23. Public Sub test()
24. Set t1 = ThisDrawing.ModelSpace.AddText("1", ThisDrawing.Utility.GetPoint, 5)
25. Set t2 = ThisDrawing.ModelSpace.AddText("1", ThisDrawing.Utility.GetPoint, 5)
26. Set t3 = ThisDrawing.ModelSpace.AddText("1", ThisDrawing.Utility.GetPoint, 5)
27. Reactor1.Add t1, Array(t3.Handle, t2.Handle)
28. Reactor1.Add t2, Array(t3.Handle, t1.Handle)
30. End Sub

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

Jamme

版主，你的“CADghost 材料表精灵 v1.0”的确好牛，只可惜我不是你这个专业，用不了你的东西，能否告诉我如何卸载？再一个，你的安装软件是如何开发的？

请你看看我的“信息吸血鬼”软件（已放在CAD社区上dispbbs.asp?boardID=4&ID=42906&page=1），能否帮我指点一二，如何制作安装软件？

dfgs

第三个问题：在2006版的表格里面可以象EXCEL一样进行自动计算。