（XD::String:TailFill）字符串尾部填充指定长度的字符

Lispboy · 发表于 2016-10-28 09:29:06

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

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

×

(defun XD::String:TailFill (str val len / len1)
  (if (and
        (> len (setq len1 (xdrx_string_length str)))
        (/= val "")
      )
    (progn
      (setq len (- len len1))
      (repeat len
        (setq str (strcat str (vl-princ-to-string val)))
      )
    )
  )
  str
)

命令: (XD::STRING:TailFill "晓东CAD" " " 12)
"晓东CAD "

xzs16 · 发表于 2016-12-12 09:26:29

订阅订阅,,,,,,,,,,,,,,,,,,,,,,,,,,,

账号		自动登录	找回密码
密码			立即注册

[字符串] （XD::String:TailFill）字符串尾部填充指定长度的字符

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