[转贴]：发一个自定义得tch6屏幕菜单

wwf616

发一个自定义得tch6屏幕菜单

在别的网站上发现的，现在给大家共同分享。（附有原创作者编写的程序）



**楼梯
ID______0      [_Toolbar("楼梯", _Bottom, _Show, 3, 0, 1)]
Id_Lstair      [_Button("直线梯段", "TCH_16_Lstair", "TCH_16_Lstair")]T61_TLStair
Id_Astair      [_Button("圆弧梯段", "TCH_16_Astair", "TCH_16_Astair")]T61_TAStair
Id_Tstair      [_Button("双跑楼梯", "TCH_16_Tstair", "TCH_16_Tstair")]T61_TRStair
Id_MultiStair  [_Button("多跑楼梯", "TCH_MultiStair", "TCH_16_MultiStair")]T61_TMultiStair
Id_Lift        [_Button("电梯", "TCH_16_Lift", "TCH_16_Lift")]T61_TElevator
Id_THandRail   [_Button("添加扶手", "Tch_HandRail", "Tch_HandRail")]T61_THandRail
Id_LinkHand    [_Button("连接扶手", "TCH_LINKHAND", "TCH_LINKHAND")]T61_TLinkHand
Id_Lbalcony    [_Button("阳台", "TCH_16_Lbalcony", "TCH_16_Lbalcony")]T61_TBalcony
Id_Ascent      [_Button("坡道", "Tch_16_Slope", "Tch_16_Slope")]T61_TAscent

**符号标注
ID__________0  [_Toolbar("符号标注", _Top, _Show, 1, 1, 1)]
ID_Coord       [_Button("注坐标点", "TCH_COORDXY", "TCH_COORDXY")]T61_TCoord
ID_ELEDIM1     [_Button("单注标高", "TCH_16_ELEDIM1", "TCH_16_ELEDIM1")]T61_TElev
ID_ELEDIM2     [_Button("连注标高", "TCH_16_ELEDIM2", "TCH_16_ELEDIM2")]T61_TMElev
ID_Indexnum1   [_Button("指向索引", "Tch_16_Indexnum3", "Tch_16_Indexnum3")]T61_TIndexPtr
ID_Indexnum2   [_Button("剖切索引", "TCH_16_Indexnum2", "TCH_16_Indexnum2")]T61_TIndexSec
ID_Sectnum1    [_Button("剖面剖切", "TCH_16_Sectnum1", "TCH_16_Sectnum1")]T61_TSection
ID_Sectnum2    [_Button("断面剖切", "TCH_16_Sectnum2", "TCH_16_Sectnum2")]T61_TSection1
ID_Rupture     [_Button("加折断线", "TCH_16_SSECT", "TCH_16_SSECT")]T61_TRupture
**其他
ID______0      [_Toolbar("其他", _Bottom, _Show, 2, 0, 1)]
ID_MirWinIO    [_Button("内外翻转", "TCH_16_MIRRY", "TCH_16_MIRRY")]T61_TMirWinIO
ID_MirWinLR    [_Button("左右翻转", "TCH_16_MIRRX", "TCH_16_MIRRX")]T61_TMirWinLR
ID_DOORLINE    [_Button("加门口线", "TCH_DOORLINE", "TCH_DOORLINE")]T61_TDoorLine
               [--]
ID_Lvtry       [_Button("布置洁具", "TCH_Lvtry", "TCH_Lvtry")]T61_TSan
ID_Clap        [_Button("布置隔板", "TCH_Clap", "TCH_Clap")]T61_TClap
ID_Apart       [_Button("布置隔断", "TCH_Apart", "TCH_Apart")]T61_TApart
ID_Rpipe       [_Button("加雨水管", "TCH_16_Rpipe", "TCH_16_Rpipe")](_@Ld"Proof");rpipe
               [--]
ID_AddHole     [_Button("图案加洞", "TCH_AddHole", "TCH_AddHole")]T61_THatchAddHole
ID_DelHole     [_Button("图案减洞", "TCH_DelHole", "TCH_DelHole")]T61_THatchDelHole
**尺寸标注
ID__________0  [_Toolbar("尺寸标注", _Bottom, _Show, 1, 0, 1)]
ID_DimWall     [_Button("墙厚标注", "TCH_DimWall", "TCH_DimWall")]T61_TDimWall
ID_DimWC       [_Button("墙中标注", "TCH_16_DIMWPT", "TCH_16_DIMWPT")]T61_TDimWC
               [--]
ID_Dimmp       [_Button("逐点标注", "TCH_16_Dimmp", "TCH_16_Dimmp")]T61_TDimMP
ID_DimRad      [_Button("半径标注", "Icon_16_Dimrad", "Icon_16_Dimrad")]T61_TDimRad
ID_DimDia      [_Button("直径标注", "Icon_16_Dimdia", "Icon_16_Dimdia")]T61_TDimDia
ID_DimAng      [_Button("角度标注", "ICON_16_DIMANG", "ICON_16_DIMANG")]T61_TDimAng
ID_DimArc      [_Button("弧长标注", "TCH_16_DIMAWT", "TCH_16_DIMAWT")]T61_TDimArc
               [--]
ID_ChDimText   [_Button("更改文字", "ICON_16_DIMHOM", "ICON_16_DIMHOM")]T61_TChDimText
ID_ResetDimT   [_Button("文字复值", "TCH_16_DIMRES", "TCH_16_DIMRES")]T61_TResetDimT
**工具一
ID______0      [_Toolbar("工具一", _Top, _Show, 1, 0, 1)]
ID_PJOIN       [_Button("线变复线", "TCH_16_TBCOLERA", "TCH_16_TBCOLERA")](_@ld"intftool");c_l2pl
Id_Towidth     [_Button("加粗曲线", "Tch_16_Latoplc", "Tch_16_Latoplc")](_@ld"tool1");towidth;
ID_Clip2d      [_Button("图形裁剪", "TCH_CUT0", "TCH_CUT0")]T61_Tclip
               [--]
ID_DRoad       [_Button("道路绘制", "Tch_16_Droad", "Tch_16_Droad")](_@ld"dwall");droad
ID_FilRoad     [_Button("道路圆角", "TCH_16_DARC", "TCH_16_DARC")](_@ld"road");filroad
               [--]
ID_Title       [_Button("插入图框", "TCH_16_Title", "TCH_16_Title")](_@ld"title");title;
ID_Compass     [_Button("画指北针", "TCH_16_Compass", "TCH_16_Compass")]T61_TNorthThumb
ID_DwgName     [_Button("图名标注", "Tch_DwgName", "Tch_DwgName")]T61_TDrawingName
**剖面
ID______1      [_Toolbar("剖面", _Bottom, _Show, 0, 0, 1)]
Id_Sdwall      [_Button("画剖面墙", "Tch_16_Dwall", "Tch_16_Dwall")](_@Ld"Dwall");sdwall
Id_Sdfloor     [_Button("双线楼板", "Tch_16_Sdfloor", "Tch_16_Sdfloor")](_@Ld"Sfloor");sdfloor
ID_SBeam       [_Button("加剖断梁", "Tch_16_Sbeam", "Tch_16_Sbeam")](_@ld"sfloor");sbeam
Id_Lnptlib     [_Button("线图案", "Tch_16_Soil1", "Tch_16_Soil1")]T61_TLinePattern
               [--]
Id_Ddlst       [_Button("参数直梯", "Tch_16_Ddlst", "Tch_16_Ddlst")](_@Ld"Ddlst");ddlst
Id_Handrail    [_Button("楼梯栏杆", "Tch_16_Handrail", "Tch_16_Handrail")](_@ld"sstair1");handrail
Id_Handrail1   [_Button("楼梯拦板", "Tch_16_Handrail1", "Tch_16_Handrail1")](_@ld"sstair1");handrail1
Id_Connrail    [_Button("扶手接头", "Tch_16_Join", "Tch_16_Join")](_@ld"sstair1");connrail
               [--]
ID_FillSect    [_Button("剖面填充", "ICON_16_BHATCH", "ICON_16_BHATCH")](_@Ld"AllFill");FillSect
Id_Sltopli1    [_Button("向内加粗", "Tch_16_Latopli", "Tch_16_Latopli")](_@Ld"Thickl");sltopli2
**备用
ID_______1_0   [_Toolbar("备用", _Left, _Show, 0, 0, 1)]
Id_Chdote      [_Button("轴改线型", "Tch_Chdote", "Tch_Chdote")](_@Ld"Axtool");chdote
Id_Stod        [_Button("单线变墙", "Tch_16_Stod", "Tch_16_Stod")]T61_TSWall
Id_Hpwallp     [_Button("加保温层", "Tch_16_Hpwallp", "Tch_16_Hpwallp")]T61_TAddInsulate
               [--]
ID_Text        [_Button("单行文字", "Tch_Text2", "Tch_Text2")]T61_ttext
               [--]
Id_Dimmp       [_Button("逐点标注", "TCH_16_DIMMP", "TCH_16_DIMMP")]T61_TDimMP
ID_TBreakDim   [_Button("增补尺寸", "TCH_16_DMDIV", "TCH_16_DMDIV")]T61_TBreakDim
ID_TMergeDim   [_Button("连接尺寸", "TCH_16_DMMGE", "TCH_16_DMMGE")]T61_TMergeDim
            
**轴线
ID______2      [_Toolbar("轴线", _Left, _Show, 1, 0, 1)]
Id_Desaxis     [_Button("直线轴网", "Tch_AXIS", "Tch_AXIS")]T61_TRectAxis
Id_Caxis       [_Button("弧线轴网", "Tch_Caxis", "Tch_Caxis")]T61_TArcAxis
Id_TWall2Axis  [_Button("墙生轴网", "TCH_WALL2AXIS", "TCH_WALL2AXIS")]T61_TWall2Axis
Id_TAxisDim2p  [_Button("两点轴标", "Tch_16_dimax", "Tch_16_dimax")]T61_TAxisDim2p
Id_TAxisDimp   [_Button("逐点轴标", "Tch_AxisDimp", "Tch_AxisDimp")]T61_TAxisDimp
               [--]
Id_Maxcha      [_Button("重排轴号", "Tch_16_Maxcha", "Tch_16_Maxcha")]T61_TReAxisNo
Id_Axcha       [_Button("单轴变号", "Tch_ChAxisNo", "Tch_ChAxisNo")]T61_TAxisNo
Id_TAddLabel   [_Button("添补轴号", "Tch_16_AxAdd", "Tch_16_AxAdd")]T61_TAddLabel
Id_TDelLabel   [_Button("删除轴号", "TCH_16_AxDel", "TCH_16_AxDel")]T61_TDelLabel
               [--]
Id_Axadd       [_Button("添加轴线", "TCH_ADDAXIS", "TCH_ADDAXIS")]T61_TInsAxis
Id_TInsAxisR   [_Button("添加径轴", "Tch_16_Dmaddx", "Tch_16_Dmaddx")]T61_TInsAxisR
Id_TPolyColu   [_Button("Pline转柱", "TCH_CornColu", "TCH_CornColu")]T61_TPolyColu
**工具二
ID________0    [_Toolbar("工具二", _Floating, _Show, 270, 120, 1)]
Id_AlignWall   [_Button("边线对齐", "TCH_ALIGNWALL", "TCH_ALIGNWALL")]T61_TFillet
ID_MText       [_Button("多行文字", "TCH_MTEXT", "TCH_MTEXT")]T61_TMText
Id_ChScl       [_Button("改变比例", "TCH_16_CHSCL", "TCH_16_CHSCL")]T61_TChScale
ID_TPSCALE     [_Button("当前比例", "TCH_PSCALE", "TCH_PSCALE")]T61_TPScale
ID_SpArea      [_Button("查询面积", "TCH_16_RMAREA", "TCH_16_RMAREA")]T61_TSpArea
ID_TextFind    [_Button("查找替换", "ICON_16_TEXTFIND", "ICON_16_TEXTFIND")]T61_TRepFind
Id_Wall2Curve  [_Button("平行生线", "TCH_Wall2Curve", "TCH_Wall2Curve")]T61_TWall2Curve




附图：

wwf616

这里是使用方法和上传的软件：

这是作者自编的天正6for2002的屏幕菜单。把常用的一些命令做成快捷菜单。
因为6不像3一样有好多自带的快捷菜单。所以把这个上传共享，也算是为大家
节省一点时间把。呵呵
   有编过的兄弟，如果有需要加入的命令直接去上面拷贝语句就可以了。
上面那个附件是tch.mns。拷到sys15下直接覆盖同名文件。也可以把上面那些作者自
编的菜单直接调用。



附件：

LDLJLXD

已下载，不知有必要否。

wwf616

多谢斑主的奖励,我以后有好的东东都会传上来给大家共同分享的.

kellyzheng

羡慕ing....

dbest

cad2000可以吗??

bb66

cad2004可以用吗？

boy_tian

我觉得还是把常用的编成快捷键，要比点图标快的多。

我想现在很少有人画条line，还要点图标的吧。

pc815

对了，天正对2004的自持有没有2002好哦？

wwf616

最好是在CAD2002中使用，这样会好一点。这个菜单也是针对2002来做的。

shjdamin

谢谢楼主的自定义菜单，不过天正6.5不是有一个可以自定义的菜单嘛，用那个可以把自己常用的定义出一个啊，不需要编程，个人感觉直观一点。

yamakushi

多谢楼主的东西

slyrabbit

你好有天正电气7.0的屏幕菜单吗