点击查看详细介绍

  2. UG GRIP 二次开发
  3. GRIP判断某层是否可见以及设置图层的方法

GRIP判断某层是否可见以及设置图层的方法

nxopen 11年前 15343 81

购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008  QQ号：85585969  

$$ 判断某层 是否可见
$$
$$ &LYRVIS(层号)=数字
$$
$$ 1 = &YES (层是可见的)
$$ 2 = &NO (层是不可见的)

$$ CH层号
$$ 判断某层 是否可见
$$ 可见就设为不可见
$$ 不可见就设为可见

CH=5

●●●请先 登陆 或 注册 后查看●●●

XS:
&LYRVIS(CH)=2

END:
HALT



0

点此查看：NX CAM 加工模块二次开发视频教程全集（胡君录制）

最新回复 (81)
  • sisi168168 11年前
    1楼

    看看那新鲜内容！！

  • hahap 11年前
    2楼

    好想自己做个图层控制功能的grx

  • hahap 11年前
    3楼

    请教版主：

    $$ 不可见就设为可见

    这个要修改成：不可见就设为可选择，代码要做哪些调整呢？

  • hahap 11年前
    4楼

    XS:&LYRVIS(CH)=1

    END:HALT

    就是可选择了吧，呵呵

  • hahap 11年前
    5楼

    还是不行呢，有“可选择“”的代码吗

  • 沈才曾 11年前
    6楼

    好想自己做个图层控制功能的grx

  • waqa1314 VIP会员 11年前
    7楼

    好想自己做个图层控制功能的grx

  • Sarah 11年前
    8楼

    看看，谢谢！。。。。。。。。。。。。。。。

  • chtool 11年前
    9楼

    GRIP操作EXCEL源代码（VB 脚本法示例）
    		 楼主(阅：5123/回：156)
    关于脚本法，也就是VBS脚本，这是一个很好用的工具，同批处理（dos）一样，可以极大地扩展GRIP的功能，尤其是操作系统方面，而且它还有一个优点，就是，没有批处理的黑框窗口。

    下面是关于grip创建EXCEL的范例代码
    STRING/VBS(132)

    START:
    IFTHEN/&ACTPRT == 1
    MESSG/'No active part'
    JUMP/end:
    ELSE
    MASK/ALL
    ENDIF
    vbs='C:\WINDOWS\excel.vbs'

    L10:
    fdel/vbs,iferr,L20:

    L20:
    fetch/TXT,1,vbs,IFERR,L30:
    jump/L10:

    L30:
    CREATE/TXT,1,vbs,IFERR,L10:

    $$-----------------------写vbs文件－－－－－－－－－－

    WRITE/1,'On Error Resume Next '
    WRITE/1,'Set objExcel = GetObject("Excel.Application") '
    WRITE/1,'If Err.Number <> 0 Then'
    WRITE/1,'Set objExcel =CreateObject("Excel.Application")'
    WRITE/1,' End If'
    WRITE/1,'Err.Clear '
    WRITE/1,'Set objWorkbook = objExcel.Workbooks.Add'
    WRITE/1,'objExcel.Visible = True'
    WRITE/1,'Set objWorksheet = objWorkbook.Worksheets(1)'
    WRITE/1,'objWorksheet.Activate'
    WRITE/1,'objWorksheet.Name = "GRIP操作Excel示范"'
    WRITE/1,'objExcel.ActiveSheet.Rows(3).RowHeight = 2/0.035'
    WRITE/1,'objExcel.ActiveSheet.Rows(4).RowHeight = 2/0.035'
    WRITE/1,'objExcel.ActiveSheet.Rows(5).RowHeight = 2/0.035'
    WRITE/1,'objExcel.Cells(3, 3).value = "君闲NX二次开发" '
    WRITE/1,'objExcel.Cells(4, 3).value = “wwww.UGapi.com ”‘
    WRITE/1,'objExcel.Cells(5, 3).value = "GRIP培训与交流"'
    WRITE/1,'objExcel.ActiveSheet.Range( "A3:E5" ).Borders(2).Weight = 3 '
    WRITE/1,'Set objFSO=CreateObject("******ing.FileSystemObject")'
    WRITE/1,'objFso.DeleteFile("d:\君闲NX二次开发.xls")'
    WRITE/1,'objWorkbook.SaveAs "d:\君闲NX二次开发.xls" '
    WRITE/1,'objFso.DeleteFile("C:\WINDOWS\excel.vbs")'
    WRITE/1,'W******.Quit'

    file/txt,1

    L50:
    xspawn/'w******.exe C:\WINDOWS\excel.vbs'
    end:
    halt

  • 总有阳光在 11年前
    10楼

    我目前只做了几个简单的图层控制grip

  • wuxinrong 11年前
    11楼

    我目前只做了几个简单的图层控制grip

  • xushouxion 11年前
    12楼

    谢谢分享。。。。000

  • agie104687 10年前
    13楼

    看看，谢谢！

  • WJCYLXH 10年前
    14楼

    这是个好东西，非常感谢老师

  • ypj2015 10年前
    15楼

    看看隐藏的内容

请登录后发表新帖
论坛板块
UG NX 二次开发零基础视频教程 UG CAM 加工模块开发视频教程 开通VIP会员 CAM开发 NXOpen C/C++ GRIP UFun函数库 NXOpen帮助 疑难探讨 技术代码分享 UG 外挂 UG NX软件下载