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

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

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

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

<P>1. </P>
<P><A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=42695" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=42695</A></P>
<P>Use apps such as Resouce Hacker can change the icon.</P>
<P>2. </P>
<P></P>
<P>3. Use reactors</P>

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

本帖最后由 作者 于 2005-10-5 16:18:03 编辑 <br /><br /> <P>谢谢alin,</P>
<P>不过</P>
<P>第一个问题</P>
<P>怎么样才可以在安装直接打开CAD就直接改变成为需要的样式呢?我的意思是不通地命令来实现,而是从CAD的内部更改它.</P>
<P>默认的文件名都为Drawing1.dwg,怎么才能把它也改掉呢?</P>
<P>第二个问题</P>
<P>我是想实现如何直接点击ACAD.EXE这个文件就可不显示启动画面,而不是通过修改快捷方式的属性</P>
<P>第三个问题</P>
<P>可不可以说详细一点</P>

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

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

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

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

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


注册该文件并在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

Jamme 发表于 2005-10-11 17:43:00

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

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

第三个问题：在2006版的表格里面可以象EXCEL一样进行自动计算。
页: [1]
查看完整版本: 三个问题想了好久,请高手解答