设为首页收藏本站
开启辅助访问 切换到宽版

Cadence Skill 论坛

 找回密码
 立即注册

QQ登录

只需一步，快速开始

搜索
Cadence Skill 论坛»首页 › 综合技术 › Allegro FORM相关 › quick_danglings.il代码解析form部分
返回列表 发新帖
查看: 83|回复: 7

quick_danglings.il代码解析form部分

[复制链接]
发表于 2025-2-17 14:28:49 | 显示全部楼层 |阅读模式
axlCmdRegister( "quick_danglings" 'quick_danglings ?cmdType "general" )

defvar( psmddo_HELPPAGE "http://www.eda365.com/") ;defvar( s_varName [ g_value ] )定义全局变量，并赋予值or 空


; load("quick_danglings.il")

procedure( quick_danglings(  )
  let(
    ( lDanglingLine
      lDanglingVia
      lIslandShape
      ps_DanglingForm
      ps_DanglingForm_file
      ps_DanglingForm_Port
      lDanglingObject
    );let函数定义局部变量

    when( axlOKToProceed() ;如果Allegro返回t,PCB编辑器已准备好正确执行SKILL命令，否则返回nil。
        axlMsgPut("quick_danglings from www.eda365.com" );axlMsgPut( g_message_format [g_arg1 ...] )将消息放入日志文件中

        lDanglingObject = ps_ddoCheck()
        lDanglingLine = car(lDanglingObject)
        ;car(l_list):car( '(a b c) ) => a;car( '((a b c)) => (a b c);car(nil) => nil;
        ;返回列表lDanglingObject的第一个元素,不会改变列表lDanglingObject的内容。
        lDanglingVia = cadr(lDanglingObject)
        ;SKILL使用a和d的任意组合实现所有c…r函数，最多四个字符.cadr is equivalent to car( cdr( l_list))).
        ;举例cdr( '((a b c)) => nil;cdr( '(a b c) ) => (b c);
        lIslandShape = caddr(lDanglingObject)
        ;caddr is equivalent to car( cdr( cdr( l_list))).
        ;举例caddr('(((1 2 3)(4 5 6))(7 8 9))) => nil;cadr('(((1 2 3)(4 5 6))(7 8 9)))=> (7 8 9);
        
        if( lDanglingVia || lDanglingLine || lIslandShape then     
                ;if(g_condition  g_thenExpression  [ g_elseExpression ])   
                ;if(g_condition  then g_thenExpr1 ...  [ else g_elseExpr1 ... ])         
          ps_DanglingForm_file = strcat( axlTempDirectory() "./ps_DanglingForm.form" )
          ;strcat(S_string1 [ S_string2 ... ])接收输入字符串或符号并将其连接起来。举例strcat( "l" "ab" "ef" ) => "labef";
          ;返回当前平台的临时目录,和后面字符串合并形成的新字符串作为断头线ps_DanglingForm_file文件路径
          ps_DanglingForm_Port= outfile( ps_DanglingForm_file "w" )
          ;outfile的功能是打开一个输出端口，准备写入文件。
          ;outfile(S_fileName要打开或创建的文件的名称 [ t_mode ] [ g_openHiddenFile如果指定为非nil，则强制使用指定的Windows隐藏文件打开 ])
          ;必须指定t_mode选项（仅指定为w创建新文件写入且任何存在的文件被覆盖或a-打开现有文件增加）
          ; 创建新文件覆盖ps_DanglingForm_file文件   
          fprintf( ps_DanglingForm_Port "FILE_TYPE=FORM_DEFN VERSION=2\n" ) ; 这行内容不能修改，且必须出现在FORM文件的第一行
          fprintf( ps_DanglingForm_Port "FORM\n" )     
;FORM [form_options]表示FORM开始，FORM到ENDFORM为FORM之间的内容。
          fprintf( ps_DanglingForm_Port "FIXED\n" )    ;“formtype”有两个选择，一个为“FIXED” 另一个为 “VARIABLE”，但SKILL只支持“FIXED”类型，所以默认该部分填写“FIXED”
          fprintf( ps_DanglingForm_Port "PORT 42 42\n" )    ;“PORT w h” 用于描述FORM的高度和宽度。其中“w-width”描述的是宽度，“h-height”描述的是高度，可根据需要填写。
          fprintf( ps_DanglingForm_Port "HEADER \"Delete Dangling Design Objects\"\n" )  ; “HEADER "text"” FORM标题栏显示的字符，将"text"替换为自己需要的字符串。
          ;form_header包含以下三个选项1)[{default_button_def}]定义默认按键标签 2)[{popup_def}] 3)[{message_def}]
          fprintf( ps_DanglingForm_Port "TILE\n" )
;必须有ENDTILE结束，否则产生错误。
          ;“{tile_def}”这是FORM的主要部分，FORM上的各个控件都在该部分定义，比如标签、文本框、按键等。
          ;TILE [<tileLabel>];[TPANEL tileType];[{text_def}];[{group_def}];[{field_def}];[{button_def}];[{grid_def}];[{glex_def}]

          fprintf( ps_DanglingForm_Port "FIELD ddoRefresh\n" )            ;定义一个FIELD字段，字段名为ddoRefresh
          fprintf( ps_DanglingForm_Port "FLOC 2 39\n" )                   ;FIELD定义位置
          ;LOC是location（位置）的缩写。
          ;FLOC 是为FIELD 定义坐标的，因为FIELD第一个字母是F;TLOC 是为TEXT 定义坐标的，因为TEXT第一个字母是T
          ;比如GROUP,那么就使用GLOC定义坐标。
          fprintf( ps_DanglingForm_Port "MENUBUTTON \"Refresh\" 10 3\n" ) ;定义一个按键，按键名为“Refresh”,长宽分别为10 3
          fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                    ;结束FIELD定义

          fprintf( ps_DanglingForm_Port "FIELD ddoHelp\n" )               ;定义一个FIELD字段，字段名为ddoHelp
          fprintf( ps_DanglingForm_Port "FLOC 16 39\n" )                  ;FIELD定义位置x=16,y=39   
          fprintf( ps_DanglingForm_Port "MENUBUTTON \"Help\" 10 3\n" )    ;定义一个按键，按键名为“Help”,长宽分别为10 3
          fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                    ;结束FIELD定义

          fprintf( ps_DanglingForm_Port "FIELD ddoClose\n" )              ;定义一个FIELD字段，字段名为ddoClose
          fprintf( ps_DanglingForm_Port "FLOC 30 39\n" )                  ;FIELD定义位置x=30,y=39
          fprintf( ps_DanglingForm_Port "MENUBUTTON \"Close\" 10 3\n" )   ;定义一个按键，按键名为“Close”,长宽分别为10 3
          fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                    ;结束FIELD定义

          fprintf( ps_DanglingForm_Port "TEXT \"Tool from www.eda365.com\"\n" )   ;定义一个文本,文本内容Tool from www.eda365.com
          fprintf( ps_DanglingForm_Port "FLOC 2 1\n" )                            ;FIELD定义位置???
          fprintf( ps_DanglingForm_Port "ENDTEXT\n" )                             ;文本结束

          fprintf( ps_DanglingForm_Port "TABSET tset\n     FLOC 2 3\n      FSIZE 39 35\n")   ;定义一个TAB
                  
                  
                  ;cline:
          fprintf( ps_DanglingForm_Port "TAB \"Dangling Lines\" \n")  
;定义一个TAB,名字Dangling Lines
          fprintf( ps_DanglingForm_Port "TEXT \"Dangling Line:\"\n" )       ;定义一个文本,文本内容Dangling Line:
          fprintf( ps_DanglingForm_Port "TLOC 2 1\n" )                      ;TEXT 定义坐标的
          fprintf( ps_DanglingForm_Port "ENDTEXT\n" )                       ;文本结束

          fprintf( ps_DanglingForm_Port "TEXT \n" )                         ;定义一个文本      
          fprintf( ps_DanglingForm_Port "FLOC 12 1\n" )                     ;FIELD定义位置???
          fprintf( ps_DanglingForm_Port "INFO ddoLineInfo 10\n" )           
          ;INFO文本???
          ;ddoLineInfo断头线数量信息
          ;后面有程序axlFormSetField( ps_DanglingForm "ddoLineInfo" length(lDanglingLine) )
          ;10 应该是字体大小???
          fprintf( ps_DanglingForm_Port "ENDTEXT\n" )                       ;文本结束

          fprintf( ps_DanglingForm_Port "FIELD ddoLineList\n" )             ;定义一个FIELD字段，字段名为ddoLineList
          fprintf( ps_DanglingForm_Port "FLOC 2 3\n" )                      ;FIELD定义位置
          fprintf( ps_DanglingForm_Port "LIST \"\" 34 14\n" )               ;定义一个LIST,内容\,位置34 14  短路线的list内容
          fprintf( ps_DanglingForm_Port "OPTIONS multiselect\n" )           ;OPTIONS multiselect多选下拉菜单组件,可以多选断头线的选项
          fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                      ;FIELD字段结束

          fprintf( ps_DanglingForm_Port "FIELD ddoLinesDel\n" )             ;定义一个FIELD字段，字段名为ddoLinesDel
          fprintf( ps_DanglingForm_Port "FLOC 13 30\n" )                    ;FIELD定义位置
          fprintf( ps_DanglingForm_Port "MENUBUTTON \"Delete\" 12 3\n" )    ;定义一个按键，按键名为“Delete”,长宽分别为12 3
          fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                      ;FIELD字段结束            

          fprintf(ps_DanglingForm_Port "ENDTAB\n")                          
;TAB结束
                  
                  
                  
                  ;via

          fprintf(ps_DanglingForm_Port "TAB \"Dangling Vias\" \n")
;定义一个TAB,名字Dangling Vias
          fprintf( ps_DanglingForm_Port "TEXT \"Dangling Vias:\"\n" )
          fprintf( ps_DanglingForm_Port "TLOC 2 1\n" )
          fprintf( ps_DanglingForm_Port "ENDTEXT\n" )

          fprintf( ps_DanglingForm_Port "TEXT \n" )
          fprintf( ps_DanglingForm_Port "FLOC 12 1\n" )
          fprintf( ps_DanglingForm_Port "INFO ddoViaInfo 10\n" )               
          ;INFO文本
          ;ddoViaInfo悬空过孔数量信息
          ;后面有程序axlFormSetField( ps_DanglingForm "ddoViaInfo" length(lDanglingVia) )
          ;10 应该是字体大小???
          fprintf( ps_DanglingForm_Port "ENDTEXT\n" )

          fprintf( ps_DanglingForm_Port "FIELD ddoViaList\n" )
          fprintf( ps_DanglingForm_Port "FLOC 2 3\n" )
          fprintf( ps_DanglingForm_Port "LIST \"\" 34 14\n" )
          fprintf( ps_DanglingForm_Port "OPTIONS multiselect\n" )              ;OPTIONS multiselect多选下拉菜单组件,可以多选悬空过孔的选项
          fprintf( ps_DanglingForm_Port "ENDFIELD\n" )

          fprintf( ps_DanglingForm_Port "FIELD ddoViasDel\n" )
          fprintf( ps_DanglingForm_Port "FLOC 2 30\n" )
          fprintf( ps_DanglingForm_Port "MENUBUTTON \"Delete\" 12 3\n" )       ;定义一个按键，按键名为“Delete”,长宽分别为12 3
          fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                    

          fprintf( ps_DanglingForm_Port "FIELD ddoAssign\n" )
          fprintf( ps_DanglingForm_Port "FLOC 24 30\n" )
          fprintf( ps_DanglingForm_Port "MENUBUTTON \"Change Net\" 12 3\n" )   ;定义一个按键，按键名为“Change Net”,长宽分别为12 3
          fprintf( ps_DanglingForm_Port "ENDFIELD\n" )

          fprintf(ps_DanglingForm_Port "ENDTAB\n")
;TAB结束
                  
                  ;shape

          fprintf(ps_DanglingForm_Port "TAB \"Island Shapes\" \n")
          fprintf( ps_DanglingForm_Port "TEXT \"Island Shapes:\"\n" )
          fprintf( ps_DanglingForm_Port "TLOC 2 1\n" )
          fprintf( ps_DanglingForm_Port "ENDTEXT\n" )

          fprintf( ps_DanglingForm_Port "TEXT \n" )
          fprintf( ps_DanglingForm_Port "FLOC 12 1\n" )
          fprintf( ps_DanglingForm_Port "INFO ddoShapeInfo 10\n" )
          ;INFO文本???
          ;ddoShapeInfo孤岛数量信息
          ;后面有程序axlFormSetField( ps_DanglingForm "ddoShapeInfo" length(lIslandShape) )
          ;10 应该是字体大小???          
          fprintf( ps_DanglingForm_Port "ENDTEXT\n" )

          fprintf( ps_DanglingForm_Port "FIELD ddoShapeList\n" )
          fprintf( ps_DanglingForm_Port "FLOC 2 3\n" )
          fprintf( ps_DanglingForm_Port "LIST \"\" 34 14\n" )
          fprintf( ps_DanglingForm_Port "OPTIONS multiselect\n" )
          fprintf( ps_DanglingForm_Port "ENDFIELD\n" )

          fprintf( ps_DanglingForm_Port "FIELD ddoShapesDel\n" )
          fprintf( ps_DanglingForm_Port "FLOC 13 30\n" )
          fprintf( ps_DanglingForm_Port "MENUBUTTON \"Delete\" 12 3\n" )
          fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                    

          fprintf(ps_DanglingForm_Port "ENDTAB\n")

          fprintf(ps_DanglingForm_Port "ENDTABSET\n")

          fprintf( ps_DanglingForm_Port "ENDTILE\n" )  ;ENDTILE与前面TILE照应，表示TILE结束
          fprintf( ps_DanglingForm_Port "ENDFORM\n" )  ;ENDFORM与前面FORM照应，表示FORM结束

          close( ps_DanglingForm_Port ) ;排空、关闭和释放端口。关闭文件时，它会释放与p_port关联的file*。
          ;不要使用此函数在piport、poport、stdin、stdout和stderr上。

          ps_DanglingForm = axlFormCreate( (gensym) ps_DanglingForm_file '(e outer) 'ps_DanglingForm_action t)
          ;axlFormCreate(s_formHandle  t_formfile/(t_formName t_contents)  [lt_placement]  g_formAction  g_nonBlock  [g_stringOption])
          ;支持“fixed”类型的表单，如果t_formfile包含任何可变图块，则会失败。
          ;这个函数不显示表单。请使用axlFormDisplay显示表单。
          ;支持另一种接口，允许将表单文件的内容嵌入到skill代码。
          ;s_formHandle代表FORM的句柄，就是该FORM在那个窗口上显示，一般这个参数我们使用 (gensym)
          ;t_formfile代表FORM文件的完整路径，即form文件路径为ps_DanglingForm_file字符串内容。
          ;[lt_placement] ：可选参数，这个代表FORM的显示位置。当使用nil 时，allegro会调用默认的位置显示。
;下面是位置参数(注，使用的时候选择括号中的字母即可)
;north(n) northeast(ne) east(e) southeast(se) south(s) southwest(sw) west(w) northwest(nw) center(c)
          ;[lt_placement] 选择Inner or Outer 设置FORM显示在ALLEGRO里面还是外面，默认为里面即 Inner
          ;g_formAction  对FORM所有触发事件响应的函数，比如对点击某个按钮，则会执行该函数。事件函数为ps_DanglingForm_action
          ;g_nonBlock 可设置FORM是否在non-blocking模式下运行。
          ;[g_stringOption] 可选参数，如果为t，那么form返回的所有值都为string格式。一般设置为nil

          axlFormSetField( ps_DanglingForm "ddoLineList" lDanglingLine )
          ;axlFormSetField(r_form  t_field  g_value/nil) 在开放的FORM表r_form里，将t_field设置为g_value值
          ;即ps_DanglingForm里，把"ddoLineList"列表设置为lDanglingLine 【其中 lDanglingLine = car(lDanglingObject)，即lDanglingObject列表的第一个元素】   
;r_form Form dbid.开放的FORM表r_form
;t_field 字段名称。字段名是字符串或符号。
;字段名有多种,有List Field(field is named "list");Color field (field is named "color");Tab field (field is named "tab")等
;g_value 字段的期望值。可以是字符串、布尔值、整数或浮点数或列表；字段类型的函数。
          axlFormSetField( ps_DanglingForm "ddoViaList" lDanglingVia )
          axlFormSetField( ps_DanglingForm "ddoShapeList" lIslandShape )
          axlFormSetField( ps_DanglingForm "ddoLineInfo" length(lDanglingLine) )  ;断头线数量
          axlFormSetField( ps_DanglingForm "ddoViaInfo" length(lDanglingVia) )    ;悬空过孔数量
          axlFormSetField( ps_DanglingForm "ddoShapeInfo" length(lIslandShape) )  ;孤岛数量
          axlFormColorize( ps_DanglingForm "ddoLineInfo" 'text 'red )             ;断头线数量信息高亮成红色
          axlFormColorize( ps_DanglingForm "ddoViaInfo" 'text 'red )              ;悬空过孔数量信息高亮成红色
          axlFormColorize( ps_DanglingForm "ddoShapeInfo" 'text 'red )            ;孤岛数量信息高亮成红色

          axlFormDisplay( ps_DanglingForm )         ;axlFormSetField函数不显示表单,使用axlFormDisplay显示表单。
          when( lDanglingLine
            axlMsgPut(sprintf(nil "E- %d Dangling Lines, check Dangling Lines Tab" length(lDanglingLine) ))
          )  ;在allegro的状态栏里输出断头线数量
          when( lDanglingVia
            axlMsgPut(sprintf(nil "E- %d Dangling Via, check Dangling Vias Tab" length(lDanglingVia) ))
          )  ;在allegro的状态栏里输出悬空过孔数量
          when( lIslandShape
            axlMsgPut(sprintf(nil "E- %d Island Shape, check Island Shapes Tab" length(lIslandShape) ))
          )  ;在allegro的状态栏里输出孤岛数量
          axlUIWPrint( ps_DanglingForm "Select Dangling, Island Line/Via/Shape..." )
          ;axlUIWPrint(r_window/nil  t_formatString  [g_arg1 ...])
          ;UIW-User Interface window用户界面窗口
          ;r_window/nil消息显示在主窗口外，为空则在主窗口显示，此处为ps_DanglingForm，显示在主窗口外的FORM表ps_DanglingForm窗口上
          ;t_formatString 替换参数为字符串"Select Dangling, Island Line/Via/Shape...",这个是FORM表ps_DanglingForm窗口上的增加的内容，位置默认在最下脚。
          ;[g_arg1 ...]打印任意数量的替换参数t_formatString
          axlUIWDisableQuit(ps_DanglingForm);axlUIDisableQuit(o_window) 禁用系统菜单“退出”选项，因此用户无法选择它来关闭窗口。就是不能直接关掉ps_DanglingForm窗口
          deleteFile(ps_DanglingForm_file);将创建的ps_DanglingForm_file文件删除
        else
          axlMsgPut("I- No dangling, island line/via/shape problems")  ;在allegro的状态栏里输出I- No dangling, island line/via/shape problems
        ); end if lDanglingVia || lDanglingLine || lIslandShape
    ); end when
  ); end let
); end quick_danglings


;FORM编程的一般步骤
;1.创建form文件
;可以自己提前将 FORM 代码写到单独的form文件，或者将代码嵌入到SKILL文件中，在SKILL执行过程中创建form文件 。
;2.使用 axlFormCreate 函数打开 FORM
;3.使用 axlFormSetField 函数初始化 FORM 中的各个字段
;4.使用 axlFormDisplay 函数显示 FORM
;5.使用 axlFormCallback 与用户交互
;6.使用 axlFormClose 关闭 FROM
回复

使用道具 举报

 楼主| 发表于 2025-2-17 14:30:47 | 显示全部楼层
  1. axlCmdRegister( "quick_danglings" 'quick_danglings ?cmdType "general" )

  3. defvar( psmddo_HELPPAGE "http://www.eda365.com/") ;defvar( s_varName [ g_value ] )定义全局变量，并赋予值or 空


  6. ; load("quick_danglings.il")

  8. procedure( quick_danglings(  )
  9.   let(
  10.     ( lDanglingLine
  11.       lDanglingVia
  12.       lIslandShape
  13.       ps_DanglingForm
  14.       ps_DanglingForm_file
  15.       ps_DanglingForm_Port
  16.       lDanglingObject
  17.     );let函数定义局部变量

  19.     when( axlOKToProceed() ;如果Allegro返回t,PCB编辑器已准备好正确执行SKILL命令，否则返回nil。
  20.         axlMsgPut("quick_danglings from www.eda365.com" );axlMsgPut( g_message_format [g_arg1 ...] )将消息放入日志文件中

  22.         lDanglingObject = ps_ddoCheck()
  23.         lDanglingLine = car(lDanglingObject)
  24.         ;car(l_list):car( '(a b c) ) => a;car( '((a b c)) => (a b c);car(nil) => nil;
  25.         ;返回列表lDanglingObject的第一个元素,不会改变列表lDanglingObject的内容。
  26.         lDanglingVia = cadr(lDanglingObject)
  27.         ;SKILL使用a和d的任意组合实现所有c…r函数，最多四个字符.cadr is equivalent to car( cdr( l_list))).
  28.         ;举例cdr( '((a b c)) => nil;cdr( '(a b c) ) => (b c);
  29.         lIslandShape = caddr(lDanglingObject)
  30.         ;caddr is equivalent to car( cdr( cdr( l_list))).
  31.         ;举例caddr('(((1 2 3)(4 5 6))(7 8 9))) => nil;cadr('(((1 2 3)(4 5 6))(7 8 9)))=> (7 8 9);
  32.         
  33.         if( lDanglingVia || lDanglingLine || lIslandShape then     
  34.                 ;if(g_condition  g_thenExpression  [ g_elseExpression ])   
  35.                 ;if(g_condition  then g_thenExpr1 ...  [ else g_elseExpr1 ... ])         
  36.           ps_DanglingForm_file = strcat( axlTempDirectory() "./ps_DanglingForm.form" )
  37.           ;strcat(S_string1 [ S_string2 ... ])接收输入字符串或符号并将其连接起来。举例strcat( "l" "ab" "ef" ) => "labef";
  38.           ;返回当前平台的临时目录,和后面字符串合并形成的新字符串作为断头线ps_DanglingForm_file文件路径
  39.           ps_DanglingForm_Port= outfile( ps_DanglingForm_file "w" )
  40.           ;outfile的功能是打开一个输出端口，准备写入文件。
  41.           ;outfile(S_fileName要打开或创建的文件的名称 [ t_mode ] [ g_openHiddenFile如果指定为非nil，则强制使用指定的Windows隐藏文件打开 ])
  42.           ;必须指定t_mode选项（仅指定为w创建新文件写入且任何存在的文件被覆盖或a-打开现有文件增加）
  43.           ; 创建新文件覆盖ps_DanglingForm_file文件   
  44.           fprintf( ps_DanglingForm_Port "FILE_TYPE=FORM_DEFN VERSION=2\n" ) ; 这行内容不能修改，且必须出现在FORM文件的第一行
  45.           fprintf( ps_DanglingForm_Port "FORM\n" )     
  46. ;FORM [form_options]表示FORM开始，FORM到ENDFORM为FORM之间的内容。
  47.           fprintf( ps_DanglingForm_Port "FIXED\n" )    ;“formtype”有两个选择，一个为“FIXED” 另一个为 “VARIABLE”，但SKILL只支持“FIXED”类型，所以默认该部分填写“FIXED”
  48.           fprintf( ps_DanglingForm_Port "PORT 42 42\n" )    ;“PORT w h” 用于描述FORM的高度和宽度。其中“w-width”描述的是宽度，“h-height”描述的是高度，可根据需要填写。
  49.           fprintf( ps_DanglingForm_Port "HEADER "Delete Dangling Design Objects"\n" )  ; “HEADER "text"” FORM标题栏显示的字符，将"text"替换为自己需要的字符串。
  50.           ;form_header包含以下三个选项1)[{default_button_def}]定义默认按键标签 2)[{popup_def}] 3)[{message_def}]
  51.           fprintf( ps_DanglingForm_Port "TILE\n" )
  52. ;必须有ENDTILE结束，否则产生错误。
  53.           ;“{tile_def}”这是FORM的主要部分，FORM上的各个控件都在该部分定义，比如标签、文本框、按键等。
  54.           ;TILE [<tileLabel>];[TPANEL tileType];[{text_def}];[{group_def}];[{field_def}];[{button_def}];[{grid_def}];[{glex_def}]

  56.           fprintf( ps_DanglingForm_Port "FIELD ddoRefresh\n" )            ;定义一个FIELD字段，字段名为ddoRefresh
  57.           fprintf( ps_DanglingForm_Port "FLOC 2 39\n" )                   ;FIELD定义位置
  58.           ;LOC是location（位置）的缩写。
  59.           ;FLOC 是为FIELD 定义坐标的，因为FIELD第一个字母是F;TLOC 是为TEXT 定义坐标的，因为TEXT第一个字母是T
  60.           ;比如GROUP,那么就使用GLOC定义坐标。
  61.           fprintf( ps_DanglingForm_Port "MENUBUTTON "Refresh" 10 3\n" ) ;定义一个按键，按键名为“Refresh”,长宽分别为10 3
  62.           fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                    ;结束FIELD定义

  64.           fprintf( ps_DanglingForm_Port "FIELD ddoHelp\n" )               ;定义一个FIELD字段，字段名为ddoHelp
  65.           fprintf( ps_DanglingForm_Port "FLOC 16 39\n" )                  ;FIELD定义位置x=16,y=39   
  66.           fprintf( ps_DanglingForm_Port "MENUBUTTON "Help" 10 3\n" )    ;定义一个按键，按键名为“Help”,长宽分别为10 3
  67.           fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                    ;结束FIELD定义

  69.           fprintf( ps_DanglingForm_Port "FIELD ddoClose\n" )              ;定义一个FIELD字段，字段名为ddoClose
  70.           fprintf( ps_DanglingForm_Port "FLOC 30 39\n" )                  ;FIELD定义位置x=30,y=39
  71.           fprintf( ps_DanglingForm_Port "MENUBUTTON "Close" 10 3\n" )   ;定义一个按键，按键名为“Close”,长宽分别为10 3
  72.           fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                    ;结束FIELD定义

  74.           fprintf( ps_DanglingForm_Port "TEXT "Tool from www.eda365.com"\n" )   ;定义一个文本,文本内容Tool from www.eda365.com
  75.           fprintf( ps_DanglingForm_Port "FLOC 2 1\n" )                            ;FIELD定义位置???
  76.           fprintf( ps_DanglingForm_Port "ENDTEXT\n" )                             ;文本结束

  78.           fprintf( ps_DanglingForm_Port "TABSET tset\n     FLOC 2 3\n      FSIZE 39 35\n")   ;定义一个TAB
  79.                   
  80.                   
  81.                   ;cline:
  82.           fprintf( ps_DanglingForm_Port "TAB "Dangling Lines" \n")  
  83. ;定义一个TAB,名字Dangling Lines
  84.           fprintf( ps_DanglingForm_Port "TEXT "Dangling Line:"\n" )       ;定义一个文本,文本内容Dangling Line:
  85.           fprintf( ps_DanglingForm_Port "TLOC 2 1\n" )                      ;TEXT 定义坐标的
  86.           fprintf( ps_DanglingForm_Port "ENDTEXT\n" )                       ;文本结束

  88.           fprintf( ps_DanglingForm_Port "TEXT \n" )                         ;定义一个文本      
  89.           fprintf( ps_DanglingForm_Port "FLOC 12 1\n" )                     ;FIELD定义位置???
  90.           fprintf( ps_DanglingForm_Port "INFO ddoLineInfo 10\n" )           
  91.           ;INFO文本???
  92.           ;ddoLineInfo断头线数量信息
  93.           ;后面有程序axlFormSetField( ps_DanglingForm "ddoLineInfo" length(lDanglingLine) )
  94.           ;10 应该是字体大小???
  95.           fprintf( ps_DanglingForm_Port "ENDTEXT\n" )                       ;文本结束

  97.           fprintf( ps_DanglingForm_Port "FIELD ddoLineList\n" )             ;定义一个FIELD字段，字段名为ddoLineList
  98.           fprintf( ps_DanglingForm_Port "FLOC 2 3\n" )                      ;FIELD定义位置
  99.           fprintf( ps_DanglingForm_Port "LIST "" 34 14\n" )               ;定义一个LIST,内容\,位置34 14  短路线的list内容
  100.           fprintf( ps_DanglingForm_Port "OPTIONS multiselect\n" )           ;OPTIONS multiselect多选下拉菜单组件,可以多选断头线的选项
  101.           fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                      ;FIELD字段结束

  103.           fprintf( ps_DanglingForm_Port "FIELD ddoLinesDel\n" )             ;定义一个FIELD字段，字段名为ddoLinesDel
  104.           fprintf( ps_DanglingForm_Port "FLOC 13 30\n" )                    ;FIELD定义位置
  105.           fprintf( ps_DanglingForm_Port "MENUBUTTON "Delete" 12 3\n" )    ;定义一个按键，按键名为“Delete”,长宽分别为12 3
  106.           fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                      ;FIELD字段结束            

  108.           fprintf(ps_DanglingForm_Port "ENDTAB\n")                          
  109. ;TAB结束
  110.                   
  111.                   
  112.                   
  113.                   ;via

  115.           fprintf(ps_DanglingForm_Port "TAB "Dangling Vias" \n")
  116. ;定义一个TAB,名字Dangling Vias
  117.           fprintf( ps_DanglingForm_Port "TEXT "Dangling Vias:"\n" )
  118.           fprintf( ps_DanglingForm_Port "TLOC 2 1\n" )
  119.           fprintf( ps_DanglingForm_Port "ENDTEXT\n" )

  121.           fprintf( ps_DanglingForm_Port "TEXT \n" )
  122.           fprintf( ps_DanglingForm_Port "FLOC 12 1\n" )
  123.           fprintf( ps_DanglingForm_Port "INFO ddoViaInfo 10\n" )               
  124.           ;INFO文本
  125.           ;ddoViaInfo悬空过孔数量信息
  126.           ;后面有程序axlFormSetField( ps_DanglingForm "ddoViaInfo" length(lDanglingVia) )
  127.           ;10 应该是字体大小???
  128.           fprintf( ps_DanglingForm_Port "ENDTEXT\n" )

  130.           fprintf( ps_DanglingForm_Port "FIELD ddoViaList\n" )
  131.           fprintf( ps_DanglingForm_Port "FLOC 2 3\n" )
  132.           fprintf( ps_DanglingForm_Port "LIST "" 34 14\n" )
  133.           fprintf( ps_DanglingForm_Port "OPTIONS multiselect\n" )              ;OPTIONS multiselect多选下拉菜单组件,可以多选悬空过孔的选项
  134.           fprintf( ps_DanglingForm_Port "ENDFIELD\n" )

  136.           fprintf( ps_DanglingForm_Port "FIELD ddoViasDel\n" )
  137.           fprintf( ps_DanglingForm_Port "FLOC 2 30\n" )
  138.           fprintf( ps_DanglingForm_Port "MENUBUTTON "Delete" 12 3\n" )       ;定义一个按键，按键名为“Delete”,长宽分别为12 3
  139.           fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                    

  141.           fprintf( ps_DanglingForm_Port "FIELD ddoAssign\n" )
  142.           fprintf( ps_DanglingForm_Port "FLOC 24 30\n" )
  143.           fprintf( ps_DanglingForm_Port "MENUBUTTON "Change Net" 12 3\n" )   ;定义一个按键，按键名为“Change Net”,长宽分别为12 3
  144.           fprintf( ps_DanglingForm_Port "ENDFIELD\n" )

  146.           fprintf(ps_DanglingForm_Port "ENDTAB\n")
  147. ;TAB结束
  148.                   
  149.                   ;shape

  151.           fprintf(ps_DanglingForm_Port "TAB "Island Shapes" \n")
  152.           fprintf( ps_DanglingForm_Port "TEXT "Island Shapes:"\n" )
  153.           fprintf( ps_DanglingForm_Port "TLOC 2 1\n" )
  154.           fprintf( ps_DanglingForm_Port "ENDTEXT\n" )

  156.           fprintf( ps_DanglingForm_Port "TEXT \n" )
  157.           fprintf( ps_DanglingForm_Port "FLOC 12 1\n" )
  158.           fprintf( ps_DanglingForm_Port "INFO ddoShapeInfo 10\n" )
  159.           ;INFO文本???
  160.           ;ddoShapeInfo孤岛数量信息
  161.           ;后面有程序axlFormSetField( ps_DanglingForm "ddoShapeInfo" length(lIslandShape) )
  162.           ;10 应该是字体大小???         
  163.           fprintf( ps_DanglingForm_Port "ENDTEXT\n" )

  165.           fprintf( ps_DanglingForm_Port "FIELD ddoShapeList\n" )
  166.           fprintf( ps_DanglingForm_Port "FLOC 2 3\n" )
  167.           fprintf( ps_DanglingForm_Port "LIST "" 34 14\n" )
  168.           fprintf( ps_DanglingForm_Port "OPTIONS multiselect\n" )
  169.           fprintf( ps_DanglingForm_Port "ENDFIELD\n" )

  171.           fprintf( ps_DanglingForm_Port "FIELD ddoShapesDel\n" )
  172.           fprintf( ps_DanglingForm_Port "FLOC 13 30\n" )
  173.           fprintf( ps_DanglingForm_Port "MENUBUTTON "Delete" 12 3\n" )
  174.           fprintf( ps_DanglingForm_Port "ENDFIELD\n" )                    

  176.           fprintf(ps_DanglingForm_Port "ENDTAB\n")

  178.           fprintf(ps_DanglingForm_Port "ENDTABSET\n")

  180.           fprintf( ps_DanglingForm_Port "ENDTILE\n" )  ;ENDTILE与前面TILE照应，表示TILE结束
  181.           fprintf( ps_DanglingForm_Port "ENDFORM\n" )  ;ENDFORM与前面FORM照应，表示FORM结束

  183.           close( ps_DanglingForm_Port ) ;排空、关闭和释放端口。关闭文件时，它会释放与p_port关联的file*。
  184.           ;不要使用此函数在piport、poport、stdin、stdout和stderr上。

  186.           ps_DanglingForm = axlFormCreate( (gensym) ps_DanglingForm_file '(e outer) 'ps_DanglingForm_action t)
  187.           ;axlFormCreate(s_formHandle  t_formfile/(t_formName t_contents)  [lt_placement]  g_formAction  g_nonBlock  [g_stringOption])
  188.           ;支持“fixed”类型的表单，如果t_formfile包含任何可变图块，则会失败。
  189.           ;这个函数不显示表单。请使用axlFormDisplay显示表单。
  190.           ;支持另一种接口，允许将表单文件的内容嵌入到skill代码。
  191.           ;s_formHandle代表FORM的句柄，就是该FORM在那个窗口上显示，一般这个参数我们使用 (gensym)
  192.           ;t_formfile代表FORM文件的完整路径，即form文件路径为ps_DanglingForm_file字符串内容。
  193.           ;[lt_placement] ：可选参数，这个代表FORM的显示位置。当使用nil 时，allegro会调用默认的位置显示。
  194. ;下面是位置参数(注，使用的时候选择括号中的字母即可)
  195. ;north(n) northeast(ne) east(e) southeast(se) south(s) southwest(sw) west(w) northwest(nw) center(c)
  196.           ;[lt_placement] 选择Inner or Outer 设置FORM显示在ALLEGRO里面还是外面，默认为里面即 Inner
  197.           ;g_formAction  对FORM所有触发事件响应的函数，比如对点击某个按钮，则会执行该函数。事件函数为ps_DanglingForm_action
  198.           ;g_nonBlock 可设置FORM是否在non-blocking模式下运行。
  199.           ;[g_stringOption] 可选参数，如果为t，那么form返回的所有值都为string格式。一般设置为nil

  201.           axlFormSetField( ps_DanglingForm "ddoLineList" lDanglingLine )
  202.           ;axlFormSetField(r_form  t_field  g_value/nil) 在开放的FORM表r_form里，将t_field设置为g_value值
  203.           ;即ps_DanglingForm里，把"ddoLineList"列表设置为lDanglingLine 【其中 lDanglingLine = car(lDanglingObject)，即lDanglingObject列表的第一个元素】   
  204. ;r_form Form dbid.开放的FORM表r_form
  205. ;t_field 字段名称。字段名是字符串或符号。
  206. ;字段名有多种,有List Field(field is named "list");Color field (field is named "color");Tab field (field is named "tab")等
  207. ;g_value 字段的期望值。可以是字符串、布尔值、整数或浮点数或列表；字段类型的函数。
  208.           axlFormSetField( ps_DanglingForm "ddoViaList" lDanglingVia )
  209.           axlFormSetField( ps_DanglingForm "ddoShapeList" lIslandShape )
  210.           axlFormSetField( ps_DanglingForm "ddoLineInfo" length(lDanglingLine) )  ;断头线数量
  211.           axlFormSetField( ps_DanglingForm "ddoViaInfo" length(lDanglingVia) )    ;悬空过孔数量
  212.           axlFormSetField( ps_DanglingForm "ddoShapeInfo" length(lIslandShape) )  ;孤岛数量
  213.           axlFormColorize( ps_DanglingForm "ddoLineInfo" 'text 'red )             ;断头线数量信息高亮成红色
  214.           axlFormColorize( ps_DanglingForm "ddoViaInfo" 'text 'red )              ;悬空过孔数量信息高亮成红色
  215.           axlFormColorize( ps_DanglingForm "ddoShapeInfo" 'text 'red )            ;孤岛数量信息高亮成红色

  217.           axlFormDisplay( ps_DanglingForm )         ;axlFormSetField函数不显示表单,使用axlFormDisplay显示表单。
  218.           when( lDanglingLine
  219.             axlMsgPut(sprintf(nil "E- %d Dangling Lines, check Dangling Lines Tab" length(lDanglingLine) ))
  220.           )  ;在allegro的状态栏里输出断头线数量
  221.           when( lDanglingVia
  222.             axlMsgPut(sprintf(nil "E- %d Dangling Via, check Dangling Vias Tab" length(lDanglingVia) ))
  223.           )  ;在allegro的状态栏里输出悬空过孔数量
  224.           when( lIslandShape
  225.             axlMsgPut(sprintf(nil "E- %d Island Shape, check Island Shapes Tab" length(lIslandShape) ))
  226.           )  ;在allegro的状态栏里输出孤岛数量
  227.           axlUIWPrint( ps_DanglingForm "Select Dangling, Island Line/Via/Shape..." )
  228.           ;axlUIWPrint(r_window/nil  t_formatString  [g_arg1 ...])
  229.           ;UIW-User Interface window用户界面窗口
  230.           ;r_window/nil消息显示在主窗口外，为空则在主窗口显示，此处为ps_DanglingForm，显示在主窗口外的FORM表ps_DanglingForm窗口上
  231.           ;t_formatString 替换参数为字符串"Select Dangling, Island Line/Via/Shape...",这个是FORM表ps_DanglingForm窗口上的增加的内容，位置默认在最下脚。
  232.           ;[g_arg1 ...]打印任意数量的替换参数t_formatString
  233.           axlUIWDisableQuit(ps_DanglingForm);axlUIDisableQuit(o_window) 禁用系统菜单“退出”选项，因此用户无法选择它来关闭窗口。就是不能直接关掉ps_DanglingForm窗口
  234.           deleteFile(ps_DanglingForm_file);将创建的ps_DanglingForm_file文件删除
  235.         else
  236.           axlMsgPut("I- No dangling, island line/via/shape problems")  ;在allegro的状态栏里输出I- No dangling, island line/via/shape problems
  237.         ); end if lDanglingVia || lDanglingLine || lIslandShape
  238.     ); end when
  239.   ); end let
  240. ); end quick_danglings


  243. ;FORM编程的一般步骤
  244. ;1.创建form文件
  245. ;可以自己提前将 FORM 代码写到单独的form文件，或者将代码嵌入到SKILL文件中，在SKILL执行过程中创建form文件 。
  246. ;2.使用 axlFormCreate 函数打开 FORM
  247. ;3.使用 axlFormSetField 函数初始化 FORM 中的各个字段
  248. ;4.使用 axlFormDisplay 函数显示 FORM
  249. ;5.使用 axlFormCallback 与用户交互
  250. ;6.使用 axlFormClose 关闭 FROM
复制代码


回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-2-17 14:31:25 | 显示全部楼层
红色部分不知道怎么解释，有高手解释一下吗
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-2-17 14:38:38 | 显示全部楼层

axlUIWPrint函数界面区别

本帖最后由 xieeyawen 于 2025-2-17 14:41 编辑


axlUIWPrint函数界面区别
下载2.png
下载1.png
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-2-17 14:39:40 | 显示全部楼层

axlMsgPut函数显示在allegro窗口上

本帖最后由 xieeyawen 于 2025-2-17 14:44 编辑

axlMsgPut(sprintf(nil "E- %d Dangling Lines, check Dangling Lines Tab" length(lDanglingLine) ))
下载3.png
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-2-17 18:23:05 | 显示全部楼层
  1. procedure( ps_DanglingForm_action( ps_DanglingForm1 )  ;ps_DanglingForm_action函数，变量ps_DanglingForm1，此函数主要用途是判断用户在form里面的一些操作和allegro视图交互功能
  2.   let(
  3.     ( lDanglingVia
  4.       lDanglingLine
  5.       lIslandShape
  6.       lIssueCline
  7.       lTemp
  8.       sLayer
  9.       fStartX
  10.       fStartY
  11.       fEndX
  12.       fEndY
  13.       sStart
  14.       sEnd
  15.       lSeg
  16.       lStartA
  17.       lStartB
  18.       lEndA
  19.       lEndB
  20.       sStartTempA
  21.       sStartTempB
  22.       sEndTempA
  23.       sEndTempB
  24.       fCoordX
  25.       fCoordY
  26.       dVia
  27.       lVia
  28.       fFindRange
  29.       lClines
  30.       sNet
  31.       sMessage
  32.       lViaInfo
  33.       lShapeInfo
  34.       lShape
  35.       dShape
  36.       lDanglingObject
  37.       lSys
  38.       lCoord
  39.       bShape
  40.       bDRC
  41.     ) ;定义局部变量
  42.     fFindRange = axlMKSConvert(1 "MILS")
  43.     ;axlMKSConvert(1 "MILS") => 0.0254即1的单位是mil，输出单位nil即输出单位为当前设计单位（现在设计单位用的mm）值为0.0254
  44.     ;axlMKSConvert(1 "mm" "mils") => 39.37008即1的单位是mm，输出单位为指定单位mils，值为39.37008
  45.     case( ps_DanglingForm1->curField            ;curField-current Field当前Field字段，同样有curValue-当前值
  46.     ;case(g_selectionExpr  l_clause1  [ l_clause2 ... ])
  47.     ;例子nameofmonth = "February"  ;month = case( nameofmonth  ("January" 1) ("February" 2) (t 'Other))  => 2
  48.     ;此处的curField，用户在form里可以点击的有Refresh，linelist，vialist，shapelist，lineDel，viaDel，shapeDel，Help，close，Assign(change Net)
  49.       ( "ddoRefresh"
  50.         axlClearSelSet()        
  51.         lDanglingObject = ps_ddoCheck()
  52.         lDanglingLine = car(lDanglingObject)
  53.         lDanglingVia = cadr(lDanglingObject)
  54.         lIslandShape = caddr(lDanglingObject)

  56.         if( lDanglingLine || lDanglingVia || lIslandShape then
  57.           when( lDanglingLine
  58.             axlMsgPut(sprintf(nil "E- %d Dangling Lines, check Dangling Lines Tab" length(lDanglingLine) ))
  59.           )
  60.           when( lDanglingVia
  61.             axlMsgPut(sprintf(nil "E- %d Dangling Via, check Dangling Vias Tab" length(lDanglingVia) ))
  62.           )
  63.           when( lIslandShape
  64.             axlMsgPut(sprintf(nil "E- %d Island Shape, check Island Shapes Tab" length(lIslandShape) ))
  65.           )
  66.         else
  67.           axlMsgPut("I- No Dangling, Island Lines/Vias/Shapes")
  68.         )
  69.         axlFormListDeleteAll( ps_DanglingForm1 "ddoLineList" )
  70.         axlFormListDeleteAll( ps_DanglingForm1 "ddoViaList" )
  71.         axlFormListDeleteAll( ps_DanglingForm1 "ddoShapeList" )
  72.         axlFormSetField( ps_DanglingForm1 "ddoLineList" lDanglingLine )
  73.         axlFormSetField( ps_DanglingForm1 "ddoViaList" lDanglingVia )
  74.         axlFormSetField( ps_DanglingForm1 "ddoShapeList" lIslandShape )
  75.         axlFormSetField( ps_DanglingForm1 "ddoLineInfo" length(lDanglingLine) )
  76.         axlFormSetField( ps_DanglingForm1 "ddoViaInfo" length(lDanglingVia) )
  77.         axlFormSetField( ps_DanglingForm1 "ddoShapeInfo" length(lIslandShape) )
  78.         axlFormColorize(ps_DanglingForm1 "ddoLineInfo" 'text 'red)
  79.         axlFormColorize(ps_DanglingForm1 "ddoViaInfo" 'text 'red)
  80.         axlFormColorize(ps_DanglingForm1 "ddoShapeInfo" 'text 'red)
  81.       );case的第一种情况"ddoRefresh"
  82.       ( "ddoLineList"
  83.         lDanglingLine = axlFormListGetSelItems(ps_DanglingForm1 "ddoLineList")   
  84.         ;axlFormListGetSelItems(r_form  t_field)即GET获得FORM表里选择项目Select-Items的表list，即返回一个form（a list of string），值为断头线这个field里列表被多选的部分。
  85.         axlClearSelSet()        ;取消所有选择
  86.         axlSetFindFilter( ?enabled  '("noall" "clines") ?onButtons '("clines") )    ;取消选项并选择走线   
  87.         lIssueCline = nil       ;初始化lIssueCline
  88.         axlVisibleDesign(nil)   ;设计可显示
  89.         foreach( sline lDanglingLine   ;在form弹窗里被用户多选的那部分断头线列表里进行遍历
  90.           lTemp = parseString( sline "," )         
  91.           sLayer = car( lTemp )
  92.           lCoord = parseString(caddr(lTemp) " ()to")
  93.           fStartX = atof(car(lCoord))
  94.           fStartY = atof(cadr(lCoord))
  95.           fEndX = atof(caddr(lCoord))
  96.           fEndY = atof(nth(3 lCoord))
  97.           axlVisibleLayer(strcat("etch/" sLayer) t)         
  98.           axlVisibleLayer(strcat("via class/" sLayer) t)  
  99.           axlVisibleLayer(strcat("pin/" sLayer) t)      
  100.           sStart = sprintf(nil "x%0.3fy%0.3f" fStartX fStartY)
  101.           sEnd = sprintf(nil "x%0.3fy%0.3f" fEndX fEndY)
  102.           lClines = axlGetSelSet(
  103.                       axlSingleSelectBox(
  104.                         list((fStartX-fFindRange):(fStartY-fFindRange)
  105.                           (fStartX+fFindRange):(fStartY+fFindRange))      
  106.                       ))
  107.           axlClearSelSet()         
  108.           if( lClines then
  109.             foreach( cline lClines
  110.               lSeg = cline->segments
  111.               lStartA = car(car(lSeg)->startEnd)
  112.               lEndA = cadr(car(last(lSeg))->startEnd)
  113.               sStartTempA = sprintf( nil "x%0.3fy%0.3f" car(lStartA) cadr(lStartA))
  114.               sEndTempA = sprintf( nil "x%0.3fy%0.3f" car(lEndA) cadr(lEndA))

  116.               lStartB = car(car(last(lSeg))->startEnd)
  117.               lEndB = cadr(car(lSeg)->startEnd)
  118.               sStartTempB = sprintf( nil "x%0.3fy%0.3f" car(lStartB) cadr(lStartB))
  119.               sEndTempB = sprintf( nil "x%0.3fy%0.3f" car(lEndB) cadr(lEndB))

  121.               when( (sStartTempA==sStart && sEndTempA==sEnd) ||
  122.                   (sStartTempA==sEnd && sEndTempA==sStart) ||
  123.                   (sStartTempB==sStart && sEndTempB==sEnd) ||
  124.                   (sStartTempB==sEnd && sEndTempB==sStart)
  125.                 lIssueCline = cons( cline lIssueCline )
  126.               )
  127.             )           
  128.           else
  129.             axlUIWPrint( ps_DanglingForm1 "Can not find the cline, find it manually..." )
  130.           )
  131.         )
  132.         axlHighlightObject(lIssueCline)
  133.         axlZoomToDbid(lIssueCline t)   
  134.       );case的第二种情况"ddoLineList"
  135.       ( "ddoViaList"

  137.         when( lDanglingVia = axlFormListGetSelItems(ps_DanglingForm1 "ddoViaList")  

  139.           axlClearSelSet()        
  140.           axlSetFindFilter( ?enabled  '("noall" "vias") ?onButtons '("vias") )
  141.           lVia = nil
  142.           axlVisibleDesign(nil)
  143.           foreach( svia lDanglingVia
  144.             lViaInfo = parseString(svia ",")
  145.             axlVisibleLayer(strcat("via class/" car(lViaInfo)) t)
  146.             axlVisibleLayer(strcat("etch/" car(lViaInfo)) t)
  147.             axlVisibleLayer(strcat("pin/" car(lViaInfo)) t)
  148.             lCoord = parseString(caddr(lViaInfo) " ()")
  149.             fCoordX = atof(car(lCoord))
  150.             fCoordY = atof(cadr(lCoord))
  151.             dVia = car(axlGetSelSet(axlSingleSelectPoint(fCoordX:fCoordY)))
  152.             axlClearSelSet()
  153.             when( dVia
  154.               lVia = cons( dVia lVia)
  155.             )
  156.           )
  157.           axlHighlightObject(lVia)
  158.           axlZoomToDbid(lVia t)     
  159.         )
  160.       );case的第三种情况"ddoViaList"
  161.       ( "ddoShapeList"

  163.         when( lIslandShape = axlFormListGetSelItems(ps_DanglingForm1 "ddoShapeList")  

  165.           axlClearSelSet()        
  166.           axlSetFindFilter( ?enabled  '("noall" "shapes") ?onButtons '("shapes") )
  167.           lShape = nil
  168.           axlVisibleDesign(nil)
  169.           foreach( shape lIslandShape
  170.             lShapeInfo = parseString(shape ",")
  171.             axlVisibleLayer(strcat("via class/" car(lShapeInfo)) t)
  172.             axlVisibleLayer(strcat("etch/" car(lShapeInfo)) t)
  173.             axlVisibleLayer(strcat("pin/" car(lShapeInfo)) t)
  174.             lCoord = parseString(caddr(lShapeInfo) " ()")
  175.             fCoordX = atof(car(lCoord))
  176.             fCoordY = atof(cadr(lCoord))
  177.             dShape = car(axlGetSelSet(axlSingleSelectPoint(fCoordX:fCoordY)))
  178.             axlClearSelSet()
  179.             when( dShape
  180.               lShape = cons( dShape lShape )
  181.             )
  182.           )
  183.           axlHighlightObject(lShape)
  184.           axlZoomToDbid(lShape t)     
  185.         )
  186.       );case的第四种情况"ddoShapeList"
  187.       ( "ddoLinesDel"
  188.         when( lDanglingLine = axlFormListGetSelItems(ps_DanglingForm1 "ddoLineList")  
  189.           axlClearSelSet()        
  190.           axlSetFindFilter( ?enabled  '("noall" "clines") ?onButtons '("clines") )   
  191.           lIssueCline = nil
  192.           axlVisibleDesign(nil)
  193.           foreach( sline lDanglingLine
  194.             lTemp = parseString( sline "," )         
  195.             sLayer = car( lTemp )
  196.             lCoord = parseString(caddr(lTemp) " ()to")
  197.             fStartX = atof(car(lCoord))
  198.             fStartY = atof(cadr(lCoord))
  199.             fEndX = atof(caddr(lCoord))
  200.             fEndY = atof(nth(3 lCoord))
  201.             axlVisibleLayer(strcat("etch/" sLayer) t)         
  202.             axlVisibleLayer(strcat("via class/" sLayer) t)  
  203.             axlVisibleLayer(strcat("pin/" sLayer) t)      
  204.             sStart = sprintf(nil "x%0.3fy%0.3f" fStartX fStartY)
  205.             sEnd = sprintf(nil "x%0.3fy%0.3f" fEndX fEndY)
  206.             lClines = axlGetSelSet(
  207.                       axlSingleSelectBox(
  208.                         list((fStartX-fFindRange):(fStartY-fFindRange)
  209.                           (fStartX+fFindRange):(fStartY+fFindRange))      
  210.                       ))
  211.             axlClearSelSet()         
  212.             when( lClines
  213.               foreach( cline lClines
  214.                 lSeg = cline->segments
  215.                 lStartA = car(car(lSeg)->startEnd)
  216.                 lEndA = cadr(car(last(lSeg))->startEnd)
  217.                 sStartTempA = sprintf( nil "x%0.3fy%0.3f" car(lStartA) cadr(lStartA))
  218.                 sEndTempA = sprintf( nil "x%0.3fy%0.3f" car(lEndA) cadr(lEndA))
  219.                 lStartB = car(car(last(lSeg))->startEnd)
  220.                 lEndB = cadr(car(lSeg)->startEnd)
  221.                 sStartTempB = sprintf( nil "x%0.3fy%0.3f" car(lStartB) cadr(lStartB))
  222.                 sEndTempB = sprintf( nil "x%0.3fy%0.3f" car(lEndB) cadr(lEndB))
  223.                 when( (sStartTempA==sStart && sEndTempA==sEnd) ||
  224.                     (sStartTempA==sEnd && sEndTempA==sStart) ||
  225.                     (sStartTempB==sStart && sEndTempB==sEnd) ||
  226.                     (sStartTempB==sEnd && sEndTempB==sStart)
  227.                   lIssueCline = cons( cline lIssueCline )
  228.                 )
  229.               )
  230.             ); end when lClines           
  231.           ); end foreach
  232.           axlDeleteObject(lIssueCline)
  233.           axlFormListDeleteItem(ps_DanglingForm1 "ddoLineList" lDanglingLine)  
  234.           axlMsgPut("I- Dangling Line was deleted")
  235.         ); end when dline
  236.       );case的第五种情况"ddoLinesDel"
  237.       ( "ddoViasDel"
  238.         bDRC = axlDBControl('drcEnable nil)
  239.         bShape = axlDBControl( 'dynamicFillMode nil )
  240.         if( lDanglingVia = axlFormListGetSelItems(ps_DanglingForm1 "ddoViaList")  then
  241.           axlClearSelSet()        
  242.           axlSetFindFilter( ?enabled  '("noall" "vias") ?onButtons '("vias") )
  243.           lVia = nil
  244.           lSys = axlVisibleGet()
  245.           axlVisibleDesign(nil)
  246.           foreach( svia lDanglingVia
  247.             lViaInfo = parseString(svia ",")
  248.             axlVisibleLayer(strcat("via class/" car(lViaInfo)) t)
  249.             lCoord = parseString(caddr(lViaInfo) " ()")
  250.             fCoordX = atof(car(lCoord))
  251.             fCoordY = atof(cadr(lCoord))
  252.             dVia = car(axlGetSelSet(axlSingleSelectPoint(fCoordX:fCoordY)))
  253.             axlClearSelSet()
  254.             when( dVia
  255.               lVia = cons( dVia lVia)
  256.             )
  257.             axlVisibleLayer(strcat("via class/" car(lViaInfo)) nil)
  258.           )
  259.           axlDeleteObject(lVia)
  260.           axlFormListDeleteItem(ps_DanglingForm1 "ddoViaList" lDanglingVia)  
  261.           axlMsgPut("I- Dangling Via was deleted")
  262.           axlVisibleSet(lSys)
  263.         else
  264.           axlUIConfirm("E- Pick a item from the list before cilck on Delete button")
  265.         )
  266.         axlDBControl('drcEnable bDRC)        
  267.         axlDBControl( 'dynamicFillMode bShape )   
  268.       );case的第六种情况"ddoViasDel"
  269.       ( "ddoShapesDel"
  270.         axlMsgPut("R- if delete shape on this form is too slow, please use Shape->Delete Islands to delete all island shape and use this tool to double confirm")
  271.         bDRC = axlDBControl('drcEnable nil)
  272.         bShape = axlDBControl( 'dynamicFillMode nil )
  273.         if( lIslandShape = axlFormListGetSelItems(nv_DanglingForm1 "ddoShapeList")  then
  274.           axlClearSelSet()        
  275.           axlSetFindFilter( ?enabled  '("noall" "shapes") ?onButtons '("shapes") )
  276.           lShape = nil
  277.           lSys = axlVisibleGet()
  278.           axlVisibleDesign(nil)
  279.           foreach( shape lIslandShape
  280.             lShapeInfo = parseString(shape ",")
  281.             axlVisibleLayer(strcat("via class/" car(lShapeInfo)) t)
  282.             axlVisibleLayer(strcat("etch/" car(lShapeInfo)) t)
  283.             axlVisibleLayer(strcat("pin/" car(lShapeInfo)) t)
  284.             lCoord = parseString(caddr(lShapeInfo) " ()")
  285.             fCoordX = atof(car(lCoord))
  286.             fCoordY = atof(cadr(lCoord))
  287.             dShape = car(axlGetSelSet(axlSingleSelectPoint(fCoordX:fCoordY)))
  288.             axlClearSelSet()
  289.             when( dShape
  290.               if( dShape->shapeBoundary then
  291.                 ;  need to use current dynamic shape and void this island shape
  292.                 dVoidPoly=car(axlPolyFromDB(dShape))   ; to be void poly
  293.                 dDynaShapePoly=car(axlPolyFromDB(dShape->shapeBoundary))  ; dynamic shape poly
  294.                 dNewPoly  = car(axlPolyOperation(dDynaShapePoly dVoidPoly 'ANDNOT))  ; new shape poly
  295.                 sNet = dShape->net->name  
  296.                 sLayer = dShape->shapeBoundary->layer
  297.                 lDynShapeGroup = car(dShape->parentGroups)
  298.                 axlDeleteObject(dShape->shapeBoundary)  ; delete original shape
  299.                 dNewShape = car(axlDBCreateShape(dNewPoly t sLayer sNet))  ; create new shape
  300.                 dParent=car(car(dNewShape->shapeAuto)->parentGroups)
  301.                 axlShapeDynamicUpdate(dNewShape, t) ;update the shape, this is a time causing step            
  302.               else
  303.                 lShape = cons( dShape lShape )
  304.               )
  305.             )
  306.             axlVisibleLayer(strcat("etch/" car(lShapeInfo)) nil)
  307.           )
  308.           axlDeleteObject(lShape) ; delete static/whole dynamic shape
  309.           axlFormListDeleteItem(nv_DanglingForm1 "ddoShapeList" lIslandShape)  
  310.           axlMsgPut("I- Island Shape was deleted")
  311.           axlVisibleSet(lSys)
  312.           axlFlushDisplay()
  313.         else
  314.           axlUIConfirm("E- Pick a item from the list before cilck on Delete button")
  315.         )
  316.         axlDBControl('drcEnable bDRC)        
  317.         axlDBControl( 'dynamicFillMode bShape )   
  318.       );case的第七种情况"ddoShapesDel"
  319.       ( "ddoClose"
  320.         axlFormClose( ps_DanglingForm1 )
  321.         axlClearSelSet()
  322.         axlFlushDisplay()
  323.         axlEndSkillMode()
  324.         axlMsgPut("Done, Please update DRC and refresh shapes")
  325.       );case的第八种情况"ddoClose"
  326.       ( "ddoAssign"
  327.         bDRC = axlDBControl('drcEnable nil)
  328.         bShape = axlDBControl( 'dynamicFillMode nil )
  329.         if( lDanglingVia = axlFormListGetSelItems(ps_DanglingForm1 "ddoViaList")  then
  330.           axlClearSelSet()        
  331.           axlSetFindFilter( ?enabled  '("noall" "vias") ?onButtons '("vias") )
  332.           lVia = nil
  333.           lSys = axlVisibleGet()
  334.           axlVisibleDesign(nil)
  335.           foreach( svia lDanglingVia
  336.             lViaInfo = parseString(svia ",")
  337.             axlVisibleLayer(strcat("via class/" car(lViaInfo)) t)
  338.             lCoord = parseString(caddr(lViaInfo) " ()")
  339.             fCoordX = atof(car(lCoord))
  340.             fCoordY = atof(cadr(lCoord))
  341.             dVia = car(axlGetSelSet(axlSingleSelectPoint(fCoordX:fCoordY)))
  342.             axlClearSelSet()
  343.             when( dVia
  344.               lVia = cons( dVia lVia)
  345.             )
  346.             axlVisibleLayer(strcat("via class/" car(lViaInfo)) nil)
  347.           )
  348.           axlMsgPut("I- Select a net by click in the design")
  349.           axlVisibleSet(lSys)

  351.           axlSetFindFilter( ?enabled  '("noall" "nets") ?onButtons '("nets") )
  352.           if( axlSingleSelectPoint() then
  353.             sNet = car(axlGetSelSet())->name
  354.             axlClearSelSet()
  355.             foreach( item lVia
  356.               axlDBCloak( 'axlDBCreateVia( item->name item->xy sNet ) 'shape )
  357.               if( item->net->name then
  358.                   sMessage = sprintf( nil "I- Change via net from %s to %s" item->net->name sNet )
  359.               else
  360.                   sMessage = sprintf( nil "I- Change via net from nil to %s" sNet )
  361.               ); end if                       
  362.               axlMsgPut( sMessage )
  363.             )
  364.             axlDeleteObject(lVia)
  365.             axlFormListDeleteItem(ps_DanglingForm1 "ddoViaList" lDanglingVia)  
  366.             ;axlMsgPut("I- Dangling Via net was changed")
  367.           else
  368.             axlMsgPut("E- Dummy net was selected, no changes")
  369.           ); end when
  370.         else
  371.           axlUIConfirm("E- Pick a item from the list before cilck on Assign Net button")
  372.         )
  373.         axlDBControl('drcEnable bDRC)        
  374.         axlDBControl( 'dynamicFillMode bShape )
  375.       );case的第九种情况"ddoAssign"
  376.       ( "ddoHelp"
  377.         axlHttp( psmddo_HELPPAGE )
  378.       );case的第十种情况"ddoHelp"
  379.     );end case
  380.   );end let
  381. );end procedure
复制代码


回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-2-17 18:24:54 | 显示全部楼层
  1. procedure( ps_ddoCheck() ;check主程序
  2.   let(
  3.     ( lClines
  4.       lVias
  5.       sNet
  6.       sVia
  7.       lDanglingLine
  8.       bIgnore
  9.       lDanglingVia
  10.       lIslandShape
  11.       sShape
  12.       sLine
  13.     )
  14.     axlClearSelSet()        
  15.     axlSetFindFilter( ?enabled  '("noall" "invisible" "clines" ) ?onButtons '("clines" ) )
  16.     lClines = axlGetSelSet(axlAddSelectAll())
  17.     axlClearSelSet()
  18.     axlSetFindFilter( ?enabled  '("noall" "invisible"  "vias") ?onButtons '( "vias") )
  19.     lVias = axlGetSelSet(axlAddSelectAll())
  20.     axlClearSelSet()
  21.     foreach( cline lClines
  22.       when( length(axlDBGetConnect( cline t ))<2
  23.         unless(cline->prop->FILLET||cline->symbolEtch
  24.           if(cline->net then
  25.             sNet = cline->net->name
  26.           else
  27.             sNet = "Dummy"
  28.           )
  29.           sLine = sprintf(nil "%s, %s, %L to %L"
  30.             cadr(parseString(cline->layer "/"))
  31.             sNet
  32.             car(car(cline->segments)->startEnd)
  33.             cadr(car(last(cline->segments))->startEnd)
  34.           )
  35.           lDanglingLine = cons( sLine lDanglingLine )
  36.         )
  37.       )
  38.     )

  40.     lDanglingLine = reverse(sort(lDanglingLine nil))
  41.     foreach( via lVias
  42.       unless( via->symbolEtch ;;; ignore symbol type via
  43.         bIgnore = nil
  44.         if(via->net then
  45.           sNet = via->net->name
  46.           when( rexMatchp("^SNN_" sNet)
  47.             bIgnore = t
  48.           )
  49.         else
  50.           sNet = "Dummy"
  51.         )
  52.         sVia = sprintf( nil "%s, %s, %L"
  53.           cadr(parseString(car(via->startEnd) "/"))
  54.           sNet
  55.           via->xy
  56.         )
  57.         unless( bIgnore
  58.           when( onep(length(axlDBGetConnect( via t )))
  59.             unless( via->testPoint || rexMatchp("_VOID$" via->name )
  60.               lDanglingVia = cons( sVia lDanglingVia )
  61.             )
  62.           )
  63.           when( zerop(length(axlDBGetConnect( via t )))
  64.              lDanglingVia = cons( sVia lDanglingVia )
  65.           ); end when
  66.         ); end unless bIgnore
  67.       ); end unless
  68.     )
  69.     lDanglingVia = reverse(sort(lDanglingVia nil))
  70.     foreach( shape axlDBGetShapes("etch")
  71.       when( length(axlDBGetConnect(shape t))<2
  72.         unless( shape->symbolEtch
  73.           sNet = "Dummy"
  74.           when( shape->net && shape->net->name != ""
  75.             sNet = shape->net->name
  76.           )
  77.           sShape = sprintf(nil "%s, %s, %L"
  78.               cadr(parseString(shape->layer "/"))
  79.               sNet
  80.               car(car(shape->segments)->startEnd)
  81.             )
  82.           lIslandShape = cons( sShape lIslandShape )
  83.         ); end unless
  84.       ); end when
  85.     )
  86.     foreach(net axlDBGetDesign()->nets
  87.       when( net->nBranches > 1
  88.         foreach( branch cdr(net->branches)
  89.           foreach( obj branch->children
  90.             when( obj->objType == "shape"
  91.               sShape = sprintf(nil "%s, %s, %L"
  92.                   cadr(parseString(obj->layer "/"))
  93.                   net->name
  94.                   car(car(obj->segments)->startEnd)
  95.                 )
  96.               unless( member( sShape lIslandShape )
  97.                 lIslandShape = cons( sShape lIslandShape )
  98.               )
  99.             )
  100.           ); end obj
  101.         ); end branch
  102.       ); end when
  103.     ); end foreach

  105.     lIslandShape = reverse(sort(lIslandShape nil))
  106.     list(lDanglingLine lDanglingVia lIslandShape)
  107.   ); end let
  108. ); end ps_ddoCheck
复制代码


回复 支持 反对

使用道具 举报

发表于 6 天前 | 显示全部楼层
很详细,期待还有更多的代码分析,
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-2-28 06:54 , Processed in 0.157100 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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