用法
评论
建议
取 消
确 定
(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."))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新