未公开的LISP函数用法讨论

highflybir

函数:
seturl
geturl

设置链接在一个实体上，或者获取链接。
例如：

2. (defun c:test1 (/ e)
   
3.   (if (setq e (car (entsel "\nSelect Object to Add Hyperlink to: ")))
   
4.     (seturl e "http://www.google.co.uk")
   
5.   )
   
6.   (princ)
   
7. )
   
8. (defun c:test2 (/ e)
   
9.   (if (setq e (car (entsel "\nSelect Object to Add Hyperlink to: ")))
   
10.     (vla-add (vla-get-hyperlinks (vlax-ename->vla-object e))
    
11.              "http://www.google.co.uk"
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    
16. 
    

(defun c:test1 (/ e)<br />   (if (setq e (car (entsel "\nSelect Object to Add Hyperlink to: ")))<br />     (seturl e "http://www.google.co.uk")<br />   )<br />   (princ)<br /> )<br /> (defun c:test2 (/ e)<br />   (if (setq e (car (entsel "\nSelect Object to Add Hyperlink to: ")))<br />     (vla-add (vla-get-hyperlinks (vlax-ename->vla-object e))<br />              "http://www.google.co.uk"<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

---------------------------------------------------

vl-bt
vl-bt-on
vl-bt-off

错误跟踪：
(defun c:ttt ( / *ERROR* )
(defun *ERROR* (ERROR )
  (vl-bt)
)

(+ 12 "asd")
)

运行后：

---------------------------------------------------
(vl-infp)
判断一个数是否无穷大？
譬如(vl-infp 333)  返回nil
(vl-infp 1e2222) 返回T
(vl-nanp)
---------------------------------------------------
(vlisp-* )是一系列函数
譬如vlisp-compile, vlisp-load-project
---------------------------------------------------
bherrs
In R14, (bherrs) could be used to check if the (c:bpoly) function
successfully generated a boundary.
---------------------------------------------------
fnsplitl
_$ (fnsplitl "c:\\path\\filename.ext")
("C:\\path\\" "filename" ".ext")

---------------------------------------------------
xstrcase
这个跟strcase有什么区别？
---------------------------------------------------

这些函数我暂时不知道它们的用法和用途，希望大家讨论一下，



待续...

另外相关链接如下：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91331

菜卷鱼

https://wiki.gz-labs.net/index.php/Vlisp-fasres-list

句法
（vlisp--fasres-list文件名）

功能
返回VLX文件中包含的FAS文件。
论据
filename：指示VLX文件的字符串。

返回值
Fas清单。

cabinsummer

偶也是第一次知道这些，看来要到国外网站上搜索一下了

Gu_xl

坐个板凳先！
这些函数真的用的很少！
列出全部的vlisp-*函数，几乎很少用到！具体用法不知道！

1. '(VLISP-FASRES-LOAD
   
2.   VLISP-MAKE-PROJECT-FAS    VLISP-DROP-PROJECT
   
3.   VLISP-EXPORT-SYMBOL     VLISP-LIST-LOADED-PROJECTS
   
4.   VLISP-IMPORT-EXSUBRS    VLISP-READ-PROJECT-XDV-LIST
   
5.   VLISP-FASRES-LIST     VLISP-LOAD-PROJECT
   
6.   VLISP-COMPILE-LIST     VLISP-MAKE-PROJECT-LOAD-FILE
   
7.   VLISP-INIRES-LIST     VLISP-IMPORT-SYMBOL
   
8.   VLISP-MAKE-FILE-FAS     VLISP-DCLRES-LIST
   
9.   VLISP-READ-FILE-XDV-LIST    VLISP-DCLRES-LOAD-DIALOG
   
10.   VLISP-COMPILE     VLISP-PROJECT-FAS-LIST
    
11.   VLISP-FIND-PROJECT
    
12. )

'(VLISP-FASRES-LOAD<br />   VLISP-MAKE-PROJECT-FAS    VLISP-DROP-PROJECT<br />   VLISP-EXPORT-SYMBOL     VLISP-LIST-LOADED-PROJECTS<br />   VLISP-IMPORT-EXSUBRS    VLISP-READ-PROJECT-XDV-LIST<br />   VLISP-FASRES-LIST     VLISP-LOAD-PROJECT<br />   VLISP-COMPILE-LIST     VLISP-MAKE-PROJECT-LOAD-FILE<br />   VLISP-INIRES-LIST     VLISP-IMPORT-SYMBOL<br />   VLISP-MAKE-FILE-FAS     VLISP-DCLRES-LIST<br />   VLISP-READ-FILE-XDV-LIST    VLISP-DCLRES-LOAD-DIALOG<br />   VLISP-COMPILE     VLISP-PROJECT-FAS-LIST<br />   VLISP-FIND-PROJECT<br /> )

只有vlisp-compile 可以查到！还有VL-INIT函数也查不到！

skynoon

真不知道还有这些，英语太差，外国网站也不会去上，唉

highflybir

好像前面两个函数还是有些用途哦：
seturl
譬如我在一个物体上设置一些链接，链接直接打开某个网址，或者某个文件夹或者程序（呵呵，你可以想得更歪哦。。）...
vl-bt 在错误跟踪处理上有用，有时候不知道程序哪个地方出错了，还可以用这个方法

缘份呐

没有见过这些，也不知啥意思？

自贡黄明儒

看到过fnsplitl，其它的听都没有听说过？

zyhandw

哇，高飞鸟都飞出大气层了！

cnks

这个都能挖出来，支持

198526

高人啊，学习了。谢谢！