内部函数al-add-subr-name，将内部函数真正的成为lsp函数

nzl1116

用法：
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<-))

guosheyang

   朋友   我想使用vector-elt<-隐藏函数 的功能     (al-add-subr-name 'vector-elt<-)
(vector-elt<- '(1 2 3 4 5 6) 8 3) 这样不行    需要咋弄呢    谢谢!

caoliu023

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似乎不是一回事

小菜123

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
但是颜色确实变了

vlisp2012

大神，看不懂啊，好多年不学习了！

tigcat

惊动了一个长老

baitang36

试验了一下，好用

guosheyang

大佬这个咋用啊   咋很多都显示未定义函数

caoliu023

致敬

linzenghuo

学习一下 表示支持

nzl1116

guosheyang 发表于 2022-8-4 21:34
大佬这个咋用啊   咋很多都显示未定义函数

加载附件的fas

guosheyang

nzl1116 发表于 2022-8-5 07:32
加载附件的fas

朋友，你这儿的内部函数  是指的哪些隐藏函数吗？