原创！Vlisp与Cpython无缝联合开发CAD
先说原理，Vlisp中可以通过(vlax-get-or-create-object obstr)这种形式调用一个已注册的Com对象，而在CPython中，利用pythoncom和win32com这两个模块则可以轻松地创建和注册一个Com server，以供lisp调用。lisp调用python建立的com接口时，可以直接把通过（vlax-get-acad-object）获取到的CAD接口通过传递参数的形式直接传给Python。Python一旦接收到了这个接口，能做的可就太多了。可以像vba一样访问CAD对象下所有的属性、事件和方法，甚至可以直接把这个接口存成一个文件，以便其他程序和进程来访问……先说在Python中定义com server的方法。
import pythoncomimport win32com.client as win32import win32timezone#不导入此，无法编译为exefrom win32com.client import Dispatch class PythonUtilities: _reg_clsctx_ =pythoncom.CLSCTX_LOCAL_SERVER _public_methods_=['SplitString']###外部调动的方法 _reg_progid_='PythonDemos.Utilities' # 先使用print (pythoncom.CreateGuid())" 得到一个自己的clsid，不要用下面这个！！_reg_clsid_='{848B2AEB-0E17-45E1-8D8A-0A242D4607E8}' def SplitString(self,val):####方法定义 retvalue=do_something()###编写业务代码 return retvalue ####返回值if __name__=='__main__':####自动注册server print ('Registering COMserver...') import win32com.server.registerwin32com.server.register.UseCommandLine(PythonUtilities)
以上代码就定义了一个包含一个SplitString方法的com接口，运行这段代码，即可自动注册com server，如需取消注册，直接在命令行运行这个py文件，并带—unregister参数即可（无需在python源代码中写相关逻辑代码）。之后在Vlisp中运行以下代码，即可调用SplitString方法：(defun c:tt2()(setq aa (vlax-get-or-create-object "PythonDemos.Utilities"))(setq ab (vlax-invoke aa 'SplitString )))
在windows系统上，可以把python代码通过pyinstaller编译成exe文件，在lisp中需要调用时，先执行一遍exe，在运行上述代码即可。执行exe时可选择不显示黑框，那么在用户看来，这与直接使用纯lisp插件并无区别。
下面直接给出一个案例源代码，先运行py文件再用lisp调用即可。在实际操作中，运行py文件的代码也可一并写入lisp中。本案例中python需要先安装pysimplegui模块。
以下为运行效果 ：
利用这种技术思路还以制作非模态对话框，就像Lisp自带的一样无缝嵌入：
除此之外，还可以注册cad的事件，但是经过测试，凡是涉及到数据库修改的事件，用python注册之后都会引起cad崩溃（cad2014）
但是这个方法有一个致命弱点：那就是com server在win10上极难注册成功，考虑到win10普及度如此之广，可以说是相当难办了。希望能有高手提出简单易行的解决方案。
本帖最后由 flowerson 于 2022-5-11 15:44 编辑
python里的错误：
Registering COM server...
Traceback (most recent call last):
File "C:\Users\xxxx\AppData\Local\Programs\Python\Python37\lib\site-packages\win32com\server\register.py", line 419, in RegisterClasses
moduleName = os.path.splitext(win32api.FindFiles(sys.argv))
pywintypes.error: (3, 'FindFirstFile', '系统找不到指定的路径。')
cad里 错误：
Python COM Server Internal Error: Unexpected Python Error: Traceback (most recent call last):
注册出现这样的错误，有高手能帮解决吗？
flowerson 发表于 2022-5-14 12:59
win10 python 3.7一直打包不成功！
我还想到一个思路：利用.NET语言，定义一个命令，这个命令的作用是，借coMarshalInterface把cad的com接口对象写成文件。然后外部程序通过counMarshalInterface再把这个文件还原成com接口对象。这样就可以实现外部程序调用指定的cad进程的com对象了。而.net只需要维护一小段代码即可。可以轻松实现跨版本。
也可以避免注册com server。
只可惜C#我水平不足，目前调用coMarshalInterface还未成功。。。 flowerson 发表于 2022-5-11 18:41
楼主，请问如果是python定义的函数 ，有没有什么办法变成lisp的函数啊？
举例pthon
def pinyin(word):
对于你说的这种情况，可以通过命令行的方式传参。在py里面用getopt接收参数，通过print返回参数。在lisp里面通过exec启动py并接收返回值 点赞支持！ 学习学习，cad下用python的资料还是不多 同求win10注册解决办法。 flowerson 发表于 2022-5-11 15:20
python里的错误：
Registering COM server...
Traceback (most recent call last):
是win10么？ 这个缺点太致命了 陨落 发表于 2022-5-11 16:19
是win10么？
是的，是win10.还有其它例子吗？ 本帖最后由 flowerson 于 2022-5-13 01:56 编辑
楼主，请问如果是python定义的函数 ，有没有什么办法变成lisp的函数啊？
举例pthon
def pi……
这样有什么好办法？