求助产生LOGO脚本的问题

evanzh · 发表于 2022-8-3 17:28:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

下面这个脚本我load不成功报错在);let这一行,请教一下这个脚本我改怎么修改
/*
Synopsis : BMP2LAY
Version    : 1.0c

let((win cv bmpfile bmpSize WORD Wnum number Grid Layer row column max_column
      i dot x y signature offset width height pixel ImageSize )

      win = hiGetCurrentWindow()
      cv = getEditRep(win)

      bmpfile = "demo_01.bmp"                      ;;; Input BMP File
      Layer = list("metal2" "drawing")       ;;; Output Layer
      Grid = 1.0                               ;;; Rectangle Size
      column = 0

;Read BMP file
      if(InFile = infile(bmpfile) then
            bmpSize = fileLength(bmpfile)
            declare(WORD[bmpSize])
            for(Wnum 0 bmpSize-1       WORD[Wnum] = charToInt(getc(InFile)) )
            close(InFile)
      else
            MessageForm("Input file does not exist!")
            return()
      )

      sprintf(signature "%02x%02x" WORD[0] WORD[1])
      offset = (WORD[0x0d]<<24) + (WORD[0x0c]<<16) + (WORD[0x0b]<<8) + WORD[0x0a]
      width  = (WORD[0x15]<<24) + (WORD[0x14]<<16) + (WORD[0x13]<<8) + WORD[0x12]
      height = (WORD[0x19]<<24) + (WORD[0x18]<<16) + (WORD[0x17]<<8) + WORD[0x16]
      pixel  = (WORD[0x1d]<<8) + WORD[0x1c]
      ImageSize = (WORD[0x25]<<24) + (WORD[0x24]<<16) + (WORD[0x23]<<8) + WORD[0x22]

      printf("--- BMP2LAY Start --- %L\n" getCurrentTime())
      printf("offset  : 0x%x \n" offset)
      printf("width : 0x%x \n" width)
      printf("height  : 0x%x \n" height)
      printf("ImgSize : 0x%x \n" ImageSize)

;check bmp file
      if(!equal(signature "424d") then
            MessageForm("*ERROR* Standard Input is not a BMP file")
            return()
      )

;check mono bmp file
      if(!equal(pixel 0x01) then
            MessageForm("*ERROR* only supports mono bmp files")
            return()
      )

;BMP2LAY
      max_column = ImageSize/height<<3
      number = offset+ImageSize-1

      for(Wnum offset number
            row = fix((Wnum-offset)/(max_column>>3))
            y = Grid*row

            for(i 0 7
                     dot = bitfield1(WORD[Wnum] 7-i)             ; bit<7> ~ bit<0>
                     x = Grid*column
                     if(zerop(dot) && column<width then
                              geSelectObject(dbCreateRect(cv Layer list(x:y x+Grid:y+Grid)))
                     )
                     column++
            );for
            if(equal(column max_column)       column=0)
            Wnum++
      );for

      hiZoomIn(win list(-10:-10 x+10:y+10))
      printf("--- BMP2LAY End ----- %L\nt\n" getCurrentTime())
);let

;-------------------------------------------------------
procedure(MessageForm(text)
prog( ()
      hiDisplayAppDBox(
            ?name 'JWDBox_Message
            ?dboxBanner "Message!!"
            ?buttonLayout 'Close
            ?dboxText text
      )
);prog
);procedure

[求助] 求助产生LOGO脚本的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

站长推荐 /2