vl-ACAD-defun是什么鬼？

baitang36

(defun c:tt1() (princ "this is a test" ))
编译后再反编译，成了
(vl-ACAD-defun (DEFUN C:TT1() (PRINC "this is a test" )  ) )
'C:TT1
这(vl-ACAD-defun 是什么鬼？
看了一下编译后的代码，原来一个(defun c:tt1被分成了两步，第一步是定义一个c:tt1函数，它是不能当命令运行的。第二步是调用(vl-ACAD-defun ，把c:tt1定义成AutoCAD命令。
改一下，去掉第二步试试。
试验结果如下：
命令: (LOAD "F:/00/sth2_new.fas") C:TT1
命令: tt1
未知命令“TT1”。按 F1 查看帮助。
命令: (c:tt1)
this is a test"this is a test"

结论，去掉vl-ACAD-defun 调用后，确实可以定义一个名为c:tt1的函数，它可以用（c:tt1）调用，但不是cad命令。

正常的lsp源码不可能出现vl-ACAD-defun，因为没人愿意去自找麻烦。
只要有这个vl-ACAD-defun 一定是反编译出来的，可以认为是盗版别人的，这是个明显标记。

自贡黄明儒

定义后TT1可以当透明命令使用，也可以像cad自身的命令一样用(command "TT1"...http://bbs.xdcad.net/thread-667731-1-2.html

baitang36

自贡黄明儒 发表于 2020-8-11 17:10
定义后TT1可以当透明命令使用，也可以像cad自身的命令一样用(command "TT1"...http://bbs.xdcad.net/thread ...

谢谢，也就是说（defun c:xx   在编译时被分成了两步，第一步是定义一个 （c:xx）函数，它不是能当命令来执行的，第二步用（vl-acad-defun定义成cad命令

tryhi

自贡黄明儒 发表于 2020-8-11 17:10
定义后TT1可以当透明命令使用，也可以像cad自身的命令一样用(command "TT1"...http://bbs.xdcad.net/thread ...

黄老师审题不仔细，是vl-ACAD-defun，而不是Vlax-Add-Cmd

baitang36

tryhi 发表于 2020-8-12 09:41
黄老师审题不仔细，是vl-ACAD-defun，而不是Vlax-Add-Cmd

反编译的源码中可以删除这东西，没有任何不良影响。删了再编译还会自动加上。

tryhi

将 Visual LISP 函数符号定义为外部子例程

(vl-acad-defun ’symbol)
参数

symbol

标识函数的符号。

如果函数没有 c: 前缀，而又需要从外部 ObjectARX 应用程序调用此函数，则可以使用 vl-acad-defun 来实现。


只能解释为所有的c:函数都应该加上这个，可以不加是因为解释器会自动识别，编译时编译器会自动加上

baitang36

只要程序源码中有这个vl-ACAD-defun 一定是反编译出来的，可以认为是盗版标记。这样的程序都应该是免费的。