怎么改变cad窗口的标题栏

wangjinli840 · 发表于 2011-4-12 10:38:25

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

怎么改变cad窗口的标题栏，可以显示别的东西

woaishuijia · 发表于 2011-4-12 12:30:16

本帖最后由 woaishuijia 于 2011-4-17 13:29 编辑

Windows API

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long, _: z* p! A3 w K, g2 M, U
5 y, x* T7 D! D8 ^# z
Sub MT()8 I. X8 @: D3 _) r0 E
SetWindowText ThisDrawing.Application.hwnd, "我自己的标题". @, h( l: } }2 ?2 C8 i6 s
End Sub

复制代码

625070723 · 发表于 2011-4-12 12:41:57

自己根据习惯可以设置的啊
主要包括：工作空间的选择和设置、工具栏的设置、工具选项等
多用用就可以了

feiguofeng2008 · 发表于 2011-4-14 19:28:01

1# wangjinli840
同是海安人，看看我的吧。

wangjinli840 · 发表于 2011-4-16 15:47:18

怎么修改的啊，太厉害啦
4# feiguofeng2008 怎么

wangjinli840 · 发表于 2011-4-24 09:09:17

4# feiguofeng2008 lao老兄怎么设置的啊

wen_jg · 发表于 2011-4-26 14:56:25

4# feiguofeng2008

牛人！！！
能是下怎么搞的吗？
先谢谢了！

fcm · 发表于 2013-1-29 22:24:32

本帖最后由 woaishuijia 于 2013-1-30 00:20 编辑

woaishuijia 发表于 2011-4-12 12:30 http://www.3dportal.cn/discuz/static/image/common/back.gif: T% S: r E( z: Q# X! j) Q
Windows API

要修改CAD窗口最上面的标题栏里的内容，具体的操作步骤是什么啊？
上面那代码是用记事本写的吗？是用什么扩展名保存的啊？那个文件写好后要放到系统里的什么位置啊？

woaishuijia · 发表于 2013-1-30 00:58:38

fcm 发表于 2013-1-29 22:24 static/image/common/back.gif
3 c! h: [6 y# L: l- L要修改CAD窗口最上面的标题栏里的内容，具体的操作步骤是什么啊？8 M$ `, J* K( b0 n! [! ^
上面那代码是用记事本写的吗？是用什 ...

这是一段VBA代码.使用它的前提条件是你的CAD安装了VBA模块

复制上面的代码,在CAD命令行键入"vbaide"命令或按"alt+F11"(高版本需要按两次)或点击"工具"菜单>"宏">"visual Basic 编辑器",打开VBAIDE窗口,双击左上角"工程资源管理器"中的"ThisDrawing"对象,在弹出的代码窗口中粘贴代码,关闭VBAIDE回到CAD图形界面,在CAD命令行键入"vbarun"命令或按"alt+F8"(高版本需要按两次)或点击"工具"菜单>"宏">"宏...",在弹出的"宏"对话框中点击"运行"按钮,就能看到CAD窗口的标题栏已被修改为"我自己的标题"
把代码中"我自己的标题"改为其它文字,重新运行宏,可以把标题栏修改为任何你想要的文字.
如果希望每次启动CAD时都能自动修改标题栏,可以把上面代码的第三行

Sub MT()

复制代码

在VBAIDE中改为

Sub AcadStartup()

复制代码

并点击保存按钮,把工程文件保存到CAD支持文件目录中,文件名为"acad.dvb".再在CAD命令行键入"appload"命令或点击"工具"菜单>"加载应用程序...",在弹出的"加载/卸载应用程序"对话框中点击"启动组"框架中的"内容"按钮,把CAD安装目录下的"acvba.arx"文件添加到启动组.以后每次启动CAD,都会自动运行该宏按自己希望的样子修改标题栏

fcm · 发表于 2013-1-31 12:25:42

按照你说的步骤，到弹出“宏”的对话框时，“宏”里面的“运行”按钮是灰色的，宏名称里什么都没有，怎么不行啊？

fcm · 发表于 2013-1-31 16:13:50

feiguofeng2008 发表于 2011-4-14 19:28 static/image/common/back.gif
$ \2 m% q# h- k* \) j4 u6 E1# wangjinli840 4 a/ f' }0 \5 S( I3 l# t
同是海安人，看看我的吧。

大侠，你是怎么弄的啊？把CAD窗口最上面标题栏里的内容修改成个性化的内容，具体的操作步骤是怎样的呢？大侠教教我，可以吗？

fcm · 发表于 2013-1-31 20:17:31

woaishuijia 发表于 2013-1-30 00:58 static/image/common/back.gif& n9 b; [: k$ n7 _; v3 {! `; d
这是一段VBA代码.使用它的前提条件是你的CAD安装了VBA模块; W8 f6 J7 b* k8 w1 n, j' `/ _ }

* d1 a* ?& B$ \复制上面的代码,在CAD命令行键入"vbaide"命 ...

上面的代码，复制的时候怎么也把隐藏的代码也复制出来了？您可以具体写出每一行每一行的代码吗？

fcm · 发表于 2013-1-31 22:10:14

woaishuijia 发表于 2013-1-30 00:58 static/image/common/back.gif
T9 x5 k) i+ P% n! _: d3 k这是一段VBA代码.使用它的前提条件是你的CAD安装了VBA模块 p; y3 j0 g' L" \4 }# h* ]$ Y

* j. T1 k3 w' e5 T& |+ _复制上面的代码,在CAD命令行键入"vbaide"命 ...

我按照您说的，弄出的CAD窗口最上面标题栏的左上角变成了下面这样子，是怎么回事啊？怎么显示不出“我自己的标题”字样啊？

woaishuijia · 发表于 2013-1-31 22:15:42

fcm 发表于 2013-1-31 22:10 static/image/common/back.gif6 ~6 r8 A" U9 T. u6 R
我按照您说的，弄出的CAD窗口最上面标题栏的左上角变成了下面这样子，是怎么回事啊？怎么显示不出“我自己 ...

把你VBAIDE中的thisdrawing代码窗口截屏传上来看一下,是否代码有误?

fcm · 发表于 2013-1-31 22:36:11

woaishuijia 发表于 2013-1-31 22:15 static/image/common/back.gif% T* f0 ~0 N8 e( ?3 {; a0 Q; q
把你VBAIDE中的thisdrawing代码窗口截屏传上来看一下,是否代码有误?

fcm · 发表于 2013-1-31 22:40:21

woaishuijia 发表于 2013-1-30 00:58 static/image/common/back.gif: J* I2 O" n+ a7 o. q
这是一段VBA代码.使用它的前提条件是你的CAD安装了VBA模块
5 L1 w) L% a7 G2 B8 Y3 H8 V! Z5 J! l8 x$ x
复制上面的代码,在CAD命令行键入"vbaide"命 ...

具体的代码应该怎样写呢？

woaishuijia · 发表于 2013-1-31 23:00:01

你把代码中的"我自己的标题"改为其它字符串,如"ABC"或"123"等等,看看是什么情况?

fcm · 发表于 2013-2-1 08:34:00

woaishuijia 发表于 2013-1-31 23:00 static/image/common/back.gif# S U/ H9 m/ e' n* J& y
你把代码中的"我自己的标题"改为其它字符串,如"ABC"或"123"等等,看看是什么情况?

把“我自己的标题”改成其他的内容也不行啊，你试过那个代码了吗？

fcm · 发表于 2013-2-1 09:07:19

fcm 发表于 2013-2-1 08:34 static/image/common/back.gif
( E/ B' R: \% ?把“我自己的标题”改成其他的内容也不行啊，你试过那个代码了吗？

把“我自己的标题”改为其他的内容，CAD窗口最上面标题栏里的左上角也是变成了问号等乱码，这是怎么回事啊？您可以自己试一下CAD，好吗？

three_zyh · 发表于 2013-2-1 12:28:45

真正掌握 cad 的专家。

fcm · 发表于 2013-2-1 12:53:04

three_zyh 发表于 2013-2-1 12:28 static/image/common/back.gif
4 C3 {* S1 Z4 s# v* x真正掌握 cad 的专家。

您好！请问您是CAD的专家吗？您知道怎么把CAD最上面标题栏里左上角的内容修改为具有个性的内容吗？

woaishuijia · 发表于 2013-2-1 13:14:49

本帖最后由 woaishuijia 于 2013-2-1 13:24 编辑

fcm 发表于 2013-2-1 12:53 static/image/common/back.gif1 o9 |" f% M2 i u' U$ [2 \
您好！请问您是CAD的专家吗？您知道怎么把CAD最上面标题栏里左上角的内容修改为具有个性的内容吗？

本代码引用的是WIN32API，你的操作系统与之不匹配或者系统本身有问题

fcm · 发表于 2013-2-1 13:45:03

woaishuijia 发表于 2013-2-1 13:14 static/image/common/back.gif3 @8 q) r0 c, d; f
本代码引用的是WIN32API，你的操作系统与之不匹配或者系统本身有问题

我电脑的系统是32位的啊

fcm · 发表于 2013-2-1 13:47:23

woaishuijia 发表于 2013-2-1 13:14 static/image/common/back.gif
. p% v, j: D. H* k# K4 h本代码引用的是WIN32API，你的操作系统与之不匹配或者系统本身有问题

我在办公室电脑和我自己的电脑上都试过了，你那代码不行，我这里的电脑系统都是32位的啊。您可以自己用上面的那代码试一下CAD，好吗？

woaishuijia · 发表于 2013-2-1 15:16:11

fcm 发表于 2013-2-1 13:47 static/image/common/back.gif
7 ?2 J7 D! M3 E5 f" n+ n我在办公室电脑和我自己的电脑上都试过了，你那代码不行，我这里的电脑系统都是32位的啊。您可以自己用上 ...

可以肯定是你的操作系统有问题了。具体原因可能是安装的是精简版系统，导致功能不完整；也有可能安装的某个应用软件篡改了系统有关的动态链接库文件。建议你找一个懂编程的电脑高手帮助诊断修复。

		自动登录	找回密码
密码			注册

通知

[已解决] 怎么改变cad窗口的标题栏

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块