点击查看详细介绍

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

nxopen 6年前 8392 72

UG NX 二次开发 技术交流 qq群:641226372      UG二次开发(C、C#、WPF)


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

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

CH=5

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

XS:
&LYRVIS(CH)=2

END:
HALT



0

最新回复 (72)
  • sisi168168 6年前
    1

    看看那新鲜内容!!

  • hahap 6年前
    2

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

  • hahap 6年前
    3

    请教版主:

    $$ 不可见就设为可见

    这个要修改成:不可见就设为可选择,代码要做哪些调整呢?

  • hahap 6年前
    4

    XS:&LYRVIS(CH)=1

    END:HALT

    就是可选择了吧,呵呵

  • hahap 6年前
    5

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

  • 沈才曾 6年前
    6

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

  • waqa1314 VIP会员 6年前
    7

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

  • Sarah 6年前
    8

    看看,谢谢!。。。。。。。。。。。。。。。

  • chtool 6年前
    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

  • 总有阳光在 6年前
    10

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

  • wuxinrong 6年前
    11

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

  • xushouxion 6年前
    12

    谢谢分享。。。。000

  • agie104687 5年前
    13

    看看,谢谢!

  • WJCYLXH 5年前
    14

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

  • ypj2015 5年前
    15

    看看隐藏的内容

请登录后发表新帖