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

CADghost · 发表于 2005-10-5 11:02:00

1.如何把标题栏中的2004改成其它的字母,比如"ACBDEFG",前面的CAD图标也不要了,或者换成别的,
2.如何关闭AutoCAD的启动画面,我们平常知道的是在快捷方式里设置参数,可是怎么样才能控制acad.exe在启动的时候不显示画面呢?
3.有下列三组数字,第三组的值为前两组之和,怎么样才能做到在改写了前两组数字后,第三组仍能为前两组之和.

alin · 发表于 2005-10-5 14:26:00

1.

Use apps such as Resouce Hacker can change the icon.
2.

du3lnsjxz2u.jpg

3. Use reactors

CADghost · 发表于 2005-10-5 15:00:00

谢谢alin,
不过
第一个问题
怎么样才可以在安装直接打开CAD就直接改变成为需要的样式呢?我的意思是不通地命令来实现,而是从CAD的内部更改它.
默认的文件名都为Drawing1.dwg,怎么才能把它也改掉呢?
第二个问题
我是想实现如何直接点击ACAD.EXE这个文件就可不显示启动画面,而不是通过修改快捷方式的属性
第三个问题
可不可以说详细一点

mikewolf2k · 发表于 2005-10-5 17:30:00

1  可以用exescope等资源查看软件将acad中你要改的东西修改为你要的东西。
2  可以找到启动画面文件删除或修改。
3  要自动改变恐怕比较难（你想要acad编程excel？？？），通过编程就比较简单了。或者监视第1、2组图元，如果修改了(objectmodified)就更新第3组。

jsyang_ren · 发表于 2005-10-6 08:40:00

第一个问题　通过ＶＢ　ＡＰＩ可以轻松实现．我测试可以
第二个问题　不好操作，如果有人的ＤＷＧ里有特殊字体的话是必须显示的，无法避免
第三个问题　在ＶＢＡ里不能创建响应事件的类，你可以先将所有数字选入对话框中，再操作就是一样的效果

雪山飞狐_lzh · 发表于 2005-10-10 23:49:00

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:vap4mhaoz0f.rar
下载次数:0 文件大小:39.13 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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

copy


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 · 发表于 2005-10-11 17:43:00

版主，你的“CADghost 材料表精灵 v1.0”的确好牛，只可惜我不是你这个专业，用不了你的东西，能否告诉我如何卸载？再一个，你的安装软件是如何开发的？
请你看看我的“信息吸血鬼”软件（已放在CAD社区上dispbbs.asp?boardID=4&ID=42906&page=1），能否帮我指点一二，如何制作安装软件？

dfgs · 发表于 2005-10-12 16:00:00

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

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

发表回复

精选推荐