内部函数al-add-subr-name，将内部函数真正的成为lsp函数
本帖最后由 nzl1116 于 2022-8-4 13:07 编辑用法：
1(al-add-subr-name '内部函数名)
2(al-add-subr-name '("新函数名" . 内部函数名))
白糖和大海的方法只是用一个变量代替函数，我这个函数符号会变颜色的。
附件是和向量有关的内部函数
(al-add-subr-name 'copy-vector)
;;;生成一个向量表 (make-vector 10) (make-vector 10 9)
(al-add-subr-name 'make-vector)
(al-add-subr-name 'vector-fill)
(al-add-subr-name 'vector-length) ;AYL-vector-length和vector-length同时用
(al-add-subr-name '_localtime-vector)
(al-add-subr-name 'file-time-vector)
;;;(_package-vector :AUTOLISP)
(al-add-subr-name '_package-vector)
;;;(_package-vector<- :AUTOLISP (slot-value UNVar2 'Name-space))
(al-add-subr-name '_package-vector<-)
(al-add-subr-name 'sys-local-time-vector)
;;;向量交换
;;;vector-swap vector-position1 vector-position2
(al-add-subr-name 'vector-swap)
;;;(vector elt0 elt1 ...) vect
(al-add-subr-name '("AYL-vector" . vector))
(al-add-subr-name '("AYL-vector-length" . vector-length))
(al-add-subr-name '("AYL-vector-append" . vector-append))
(al-add-subr-name '("AYL-list->vector" . list->vector))
(al-add-subr-name '("AYL-vector->list" . vector->list))
;;;(vector-elt vect i) 读取某个值
(al-add-subr-name '("AYL-vector-elt" . vector-elt))
;;;替换某个值 (vector-elt<- vect value i)
(al-add-subr-name '("AYL-vector-elt<-" . vector-elt<-))
朋友 我想使用vector-elt<-隐藏函数 的功能 (al-add-subr-name 'vector-elt<-)
(vector-elt<- '(1 2 3 4 5 6) 8 3) 这样不行 需要咋弄呢 谢谢! baitang36 发表于 2022-8-5 08:48
这个函数的参数也是保留函数，所以不能直接用。
命令: (syz-tran-fun "al-add-subr-name")
syz-al-add-subr-name
syz-al-add-subr-name和al-add-subr-name似乎不是一回事 Command: (syz-al-add-subr-name 'vector-swap)
; warning:no function for AutoLISP symbol: VECTOR-SWAP
; warning:no function for AutoLISP symbol: VECTOR-SWAP
VECTOR-SWAP
但是颜色确实变了 大神，看不懂啊，好多年不学习了！ 惊动了一个长老 本帖最后由 baitang36 于 2022-8-4 21:23 编辑
试验了一下，好用 大佬这个咋用啊 咋很多都显示未定义函数 致敬 学习一下 表示支持 guosheyang 发表于 2022-8-4 21:34
大佬这个咋用啊 咋很多都显示未定义函数
加载附件的fas nzl1116 发表于 2022-8-5 07:32
加载附件的fas
朋友，你这儿的内部函数是指的哪些隐藏函数吗？
页:
[1]
2