@lisp Editor ext:anchor-hiddenfun

用法

建议

(defun ext:anchor-hiddenfun (fun prefix / dat file fo len fun1)
  "显化AutoCAD 隐藏的函数, fun 隐藏函数名；prefix 显化函数的前缀."
  ""
  "(ext:anchor-hiddenfun 'beep 'at-)"
  (if (= (type fun)
      (quote sym))
    (setq fun (strcase (vl-symbol-name fun)
        t)))
  (cond ((null prefix)
      (setq prefix ""))
    ((= (type prefix)
        (quote sym))
      (setq prefix (strcase (vl-symbol-name prefix)
          t)))
    ((/= (quote str)
        (type prefix))
      (setq prefix ""))
    (t (setq prefix "")))
  (setq fun1 (strcat prefix fun))
  (setq len (+ (strlen fun)
      (strlen fun1)
      28))
  (setq file (strcat @:*prefix* ".cache\\"
      FUN ".fas"))
  (SETQ DAT (APPEND (QUOTE (13 266 32))
      (VL-STRING->LIST "fas4-file ; do not change it!")
      (QUOTE (13 266 49 13 266 49 32 36 32 36))
      (QUOTE (13 266))
      (VL-STRING->LIST (ITOA LEN))
      (QUOTE (32 52 32 36 20 1 1 1 256 219))
      (VL-STRING->LIST FUN1)
      (QUOTE (256 256 214))
      (VL-STRING->LIST FUN)
      (QUOTE (256 256 1 67 256 256 2 256 266 266 131 1 256 160 134 256 256 1 22 36 59))
      (VL-STRING->LIST "@lisp")))
  (IF (SETQ FO (OPEN FILE "w"))
    (PROGN (FOREACH X DAT (WRITE-CHAR X FO))
      (CLOSE FO)
      (LOAD FILE)
      (EVAL (READ FUN)))
    (PRINC (STRCAT "manifest faile."))))

统计信息

上传记录

统计信息

上传记录 刷新

上传记录