QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 9572|回复: 42
收起左侧

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

[复制链接]
发表于 2011-4-12 10:38:25 | 显示全部楼层 |阅读模式 来自: 中国江苏南通

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

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

x
11111111111.png 怎么改变cad窗口的标题栏,可以显示别的东西
发表于 2011-4-12 12:30:16 | 显示全部楼层 来自: LAN
本帖最后由 woaishuijia 于 2011-4-17 13:29 编辑 1 @8 e* _# }! B# {% N5 [; P

7 ?" w  f9 R5 Z) M+ k  }6 yWindows API
; e+ x$ y: m+ I% R' |2 S8 m6 _/ B
  1. Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
    % G- M# D$ K) U* T) ]  ^3 r; }
  2. + c- o8 c2 p3 N3 o7 ~
  3. Sub MT()1 N3 i/ Z) P3 m/ {# I* m5 n/ u
  4. SetWindowText ThisDrawing.Application.hwnd, "我自己的标题"8 W# s. Q: a& A$ u3 n% o, n1 e
  5. End Sub
复制代码
发表于 2011-4-12 12:41:57 | 显示全部楼层 来自: 中国浙江温州
自己根据习惯可以设置的啊; j3 c% o" s( ]
主要包括:工作空间的选择和设置、工具栏的设置、工具选项等
2 L$ D# U6 V3 r3 L- {多用用就可以 了
发表于 2011-4-14 19:28:01 | 显示全部楼层 来自: 中国江苏常州
1# wangjinli840 % I6 y' [0 e. e8 G, n4 V$ L' b8 s
同是海安人,看看我的吧。
截图1302780436.jpg
 楼主| 发表于 2011-4-16 15:47:18 | 显示全部楼层 来自: 中国吉林吉林市
怎么修改的啊,太厉害啦
5 X2 x: U+ l+ J' D 4# feiguofeng2008 怎么
 楼主| 发表于 2011-4-24 09:09:17 | 显示全部楼层 来自: 中国吉林吉林市
4# feiguofeng2008 lao老兄怎么设置的啊
发表于 2011-4-26 14:56:25 | 显示全部楼层 来自: 中国广东佛山
4# feiguofeng2008
9 x; p; q; c, h6 S; v3 {- d: V. s# U: p+ p2 P( w
牛人!!!
. b. x; W9 G/ L6 B/ ~能是下怎么搞的吗?
# O! M2 v8 G  P: q6 ]1 W1 t) W8 X先谢谢了!
发表于 2013-1-29 22:24:32 | 显示全部楼层 来自: 中国广西梧州
本帖最后由 woaishuijia 于 2013-1-30 00:20 编辑
  O; q; }. ]3 q( E$ J2 ~. H
woaishuijia 发表于 2011-4-12 12:30 http://www.3dportal.cn/discuz/static/image/common/back.gif
' K% K: L. b, y1 D, \+ s# OWindows API
( g8 f& J1 C6 s9 I+ j: O7 E1 x
7 ~) d  j. c8 W6 `' t
要修改CAD窗口最上面的标题栏里的内容,具体的操作步骤是什么啊?
7 v1 C( U/ b5 ]. g6 Y, l上面那代码是用记事本写的吗?是用什么扩展名保存的啊?那个文件写好后要放到系统里的什么位置啊?
发表于 2013-1-30 00:58:38 | 显示全部楼层 来自: 中国辽宁
fcm 发表于 2013-1-29 22:24 static/image/common/back.gif
' z9 O; j" W  V# C- G% q要修改CAD窗口最上面的标题栏里的内容,具体的操作步骤是什么啊?/ a7 S! o- d0 t8 E2 v  I+ \' C3 [
上面那代码是用记事本写的吗?是用什 ...
" W! H% v3 a+ f3 e( m5 U: v- p. j
这是一段VBA代码.使用它的前提条件是你的CAD安装了VBA模块
: `' Y8 Z  R( z5 }' E
: d; n" ~8 O. Q  H* g复制上面的代码,在CAD命令行键入"vbaide"命令或按"alt+F11"(高版本需要按两次)或点击"工具"菜单>"宏">"visual Basic 编辑器",打开VBAIDE窗口,双击左上角"工程资源管理器"中的"ThisDrawing"对象,在弹出的代码窗口中粘贴代码,关闭VBAIDE回到CAD图形界面,在CAD命令行键入"vbarun"命令或按"alt+F8"(高版本需要按两次)或点击"工具"菜单>"宏">"宏...",在弹出的"宏"对话框中点击"运行"按钮,就能看到CAD窗口的标题栏已被修改为"我自己的标题"# @/ C3 S; `. g. G/ ]
把代码中"我自己的标题"改为其它文字,重新运行宏,可以把标题栏修改为任何你想要的文字.
2 k1 W2 \7 t$ Y. \% Q如果希望每次启动CAD时都能自动修改标题栏,可以把上面代码的第三行
  1. Sub MT()
复制代码
在VBAIDE中改为
  1. Sub AcadStartup()
复制代码
并点击保存按钮,把工程文件保存到CAD支持文件目录中,文件名为"acad.dvb".再在CAD命令行键入"appload"命令或点击"工具"菜单>"加载应用程序...",在弹出的"加载/卸载应用程序"对话框中点击"启动组"框架中的"内容"按钮,把CAD安装目录下的"acvba.arx"文件添加到启动组.以后每次启动CAD,都会自动运行该宏按自己希望的样子修改标题栏
发表于 2013-1-31 12:25:42 | 显示全部楼层 来自: 中国广西梧州
按照你说的步骤,到弹出“宏”的对话框时,“宏”里面的“运行”按钮是灰色的,宏名称里什么都没有,怎么不行啊?
发表于 2013-1-31 16:13:50 | 显示全部楼层 来自: 中国广西梧州
feiguofeng2008 发表于 2011-4-14 19:28 static/image/common/back.gif
" z' @/ j: G2 m  {: M0 r1# wangjinli840  
, I. v! c; Q6 i1 ]) c! d5 ^5 A+ G同是海安人,看看我的吧。

! |& B5 V8 ]  ]; I% V4 Q- l大侠,你是怎么弄的啊?把CAD窗口最上面标题栏里的内容修改成个性化的内容,具体的操作步骤是怎样的呢?大侠教教我,可以吗?
发表于 2013-1-31 20:17:31 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-1-30 00:58 static/image/common/back.gif
2 |9 V* w' H5 m, d. q) C, k  B6 Y& C这是一段VBA代码.使用它的前提条件是你的CAD安装了VBA模块
* v, I$ f" q1 n! z. k4 E7 G7 j' J# I' Q1 S1 d, Q% H
复制上面的代码,在CAD命令行键入"vbaide"命 ...
6 {( L/ p0 x0 P* ]; J) w! M
上面的代码,复制的时候怎么也把隐藏的代码也复制出来了?您可以具体写出每一行每一行的代码吗?
发表于 2013-1-31 22:10:14 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-1-30 00:58 static/image/common/back.gif
1 {0 ^6 ^" j  m- O# B这是一段VBA代码.使用它的前提条件是你的CAD安装了VBA模块4 n% }( E8 Z1 I
# H& ?6 w: ^1 j5 h1 R! e0 X* v5 M3 I
复制上面的代码,在CAD命令行键入"vbaide"命 ...

* X5 ~' o) K/ S; P8 C我按照您说的,弄出的CAD窗口最上面标题栏的左上角变成了下面这样子,是怎么回事啊?怎么显示不出“我自己的标题”字样啊?& J# G8 H3 W6 a# s2 n3 ~# x) L
123.jpg
5 x, f' @. g' K; ^. y3 U
发表于 2013-1-31 22:15:42 | 显示全部楼层 来自: 中国辽宁
fcm 发表于 2013-1-31 22:10 static/image/common/back.gif- p% V4 f5 P; d# B7 K! k# |1 \. k
我按照您说的,弄出的CAD窗口最上面标题栏的左上角变成了下面这样子,是怎么回事啊?怎么显示不出“我自己 ...

2 R+ _3 |2 U( ]9 o' H: F' ?把你VBAIDE中的thisdrawing代码窗口截屏传上来看一下,是否代码有误?
发表于 2013-1-31 22:36:11 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-1-31 22:15 static/image/common/back.gif& a2 K. r( H0 ]* r1 h
把你VBAIDE中的thisdrawing代码窗口截屏传上来看一下,是否代码有误?

8 a  m( f* p9 B  P  x 369.jpg
发表于 2013-1-31 22:40:21 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-1-30 00:58 static/image/common/back.gif9 a, {% W, I" C( s6 U9 B
这是一段VBA代码.使用它的前提条件是你的CAD安装了VBA模块% i! _  m* d4 O; `% d2 Y9 f3 U
" G, S6 ~1 B) w3 I7 E8 O8 e# r* g
复制上面的代码,在CAD命令行键入"vbaide"命 ...
9 D+ R' R% N& c8 t
具体的代码应该怎样写呢?
发表于 2013-1-31 23:00:01 | 显示全部楼层 来自: 中国辽宁
你把代码中的"我自己的标题"改为其它字符串,如"ABC"或"123"等等,看看是什么情况?
发表于 2013-2-1 08:34:00 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-1-31 23:00 static/image/common/back.gif
: ]- i/ C3 Y3 c; x你把代码中的"我自己的标题"改为其它字符串,如"ABC"或"123"等等,看看是什么情况?
# c0 l- r- o2 L& v6 D! {, ]
把“我自己的标题”改成其他的内容也不行啊,你试过那个代码了吗?
发表于 2013-2-1 09:07:19 | 显示全部楼层 来自: 中国广西梧州
fcm 发表于 2013-2-1 08:34 static/image/common/back.gif
) T/ D# S4 x6 g4 e把“我自己的标题”改成其他的内容也不行啊,你试过那个代码了吗?

4 s3 T3 D) y2 G! m# S5 a把“我自己的标题”改为其他的内容,CAD窗口最上面标题栏里的左上角也是变成了问号等乱码,这是怎么回事啊?您可以自己试一下CAD,好吗?
发表于 2013-2-1 12:28:45 | 显示全部楼层 来自: 中国黑龙江哈尔滨
真正掌握 cad 的专家。
发表于 2013-2-1 12:53:04 | 显示全部楼层 来自: 中国广西梧州
three_zyh 发表于 2013-2-1 12:28 static/image/common/back.gif$ g, ~; x7 i6 a0 ]1 F  u+ V
真正掌握 cad 的专家。

( ?4 B/ y  u9 Q, |' W您好!请问您是CAD的专家吗?您知道怎么把CAD最上面标题栏里左上角的内容修改为具有个性的内容吗?
发表于 2013-2-1 13:14:49 | 显示全部楼层 来自: 中国天津
本帖最后由 woaishuijia 于 2013-2-1 13:24 编辑 3 X( c5 v! O: J* C% U* `
fcm 发表于 2013-2-1 12:53 static/image/common/back.gif( Y& m7 [- D; R8 c4 J1 G* Q
您好!请问您是CAD的专家吗?您知道怎么把CAD最上面标题栏里左上角的内容修改为具有个性的内容吗?
) n0 T2 r- a/ m% V+ b! @0 G
本代码引用的是WIN32API,你的操作系统与之不匹配或者系统本身有问题
发表于 2013-2-1 13:45:03 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-2-1 13:14 static/image/common/back.gif
) `& k! c! d. a4 p6 w1 H- U本代码引用的是WIN32API,你的操作系统与之不匹配或者系统本身有问题

: j) }0 _( S. n, d' o, Z( R我电脑的系统是32位的啊
发表于 2013-2-1 13:47:23 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-2-1 13:14 static/image/common/back.gif
- j4 \6 {  T5 ^" }9 T, h) k5 q1 f本代码引用的是WIN32API,你的操作系统与之不匹配或者系统本身有问题
0 Q' y" d4 j% \0 F
我在办公室电脑和我自己的电脑上都试过了,你那代码不行,我这里的电脑系统都是32位的啊。您可以自己用上面的那代码试一下CAD,好吗?
发表于 2013-2-1 15:16:11 | 显示全部楼层 来自: 中国天津
fcm 发表于 2013-2-1 13:47 static/image/common/back.gif+ {( k9 }+ G7 O
我在办公室电脑和我自己的电脑上都试过了,你那代码不行,我这里的电脑系统都是32位的啊。您可以自己用上 ...
+ H/ J! c9 }% C, j! M: W: t
可以肯定是你的操作系统有问题了。具体原因可能是安装的是精简版系统,导致功能不完整;也有可能安装的某个应用软件篡改了系统有关的动态链接库文件。建议你找一个懂编程的电脑高手帮助诊断修复。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表