Cadence Skill 论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 1491|回复: 1

[原创] 格点设置Skill

[复制链接]
发表于 2024-3-9 19:41:51 | 显示全部楼层 |阅读模式
格点设置

G                打开格点设置界面

G 1                将格点xy都设置为1

G 1 2        将格点x设置为1 y都设置为2


没有加提示,大家可以自己加一下

去年都没时间学习 skill 今年不知道能不能有空学习一下,我英语有点不太好,但是用Doc里的网页文档可以直接用谷歌翻译看,对学习有很大帮助

之前看到论坛有位前辈也发了这个,遂自己想着按照他的思路也搞一个

因为漏看参数传递这一章,后面又太忙就一直没搞,最近有空看看想起来写一个

下面为大家附上源码


  1. procedure( Main_SetGrids(@rest Gridlist)

  2.         Gridlistlen = length(Gridlist)
  3.         ;print(atof(car(list)))

  4.         cond(;cond1
  5.                 ( Gridlistlen == 0
  6.                         axlShell("Define Grid")
  7.                 ) ;cond1 end
  8.                
  9.                 ;2
  10.                 ( Gridlistlen == 1
  11.                         GridsX = atof(car(list))
  12.                         GridsY = GridsX
  13.                         Sub_Grids()
  14.                 )

  15.                 ;3
  16.                 ( Gridlistlen == 2
  17.                         GridsX = atof(car(list))
  18.                         GridsY = atof(cdr(list))
  19.                         Sub_Grids()
  20.                 )

  21.                 ;4
  22.                 ( Gridlistlen > 2
  23.                         tex = "Too many parameters ! at most 2 parameters ."
  24.                         ;Sub_ERROR(tex) 错误提示的函数,axlMsgPut(tex)
  25.                 )
  26.         ) ;cond end

  27. )

  28. procedure( Sub_Grids()

  29.         grid = axlDBGridGet("TOP")
  30.         grid->name = 'all
  31.         grid->xGrids = GridsX
  32.         grid->yGrids = GridsY
  33.         axlDBGridSet(grid)

  34. )
复制代码


您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|网站地图|Cadence Skill 论坛 ( 蜀ICP备13024417号 )

GMT+8, 2024-6-18 03:43 , Processed in 0.218612 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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