VLisp调用Python

晨曦CAD

LisPy内置函数创建py临时脚本文件，用于写入python语句
;返回值 脚本文件路径名称
(HG::PY::CREATE )

2. (setq fi(HG::PY::CREATE))

(setq fi(HG::PY::CREATE))

返回值："C:\\Users\\ASUS\\AppData\\Local\\Temp\\LisPy001_20210406.py"


;写一行PYThon语句
;pytempfilename py脚本文件路径,可由(HG::PY::CREATE)创建
;pystring python语句
(HG::PY::WRITELINE pytempfilename pystring)

1. (HG::PY::WRITELINE (HG::PY::CREATE) "print ("hello world!")" )

复制代码

返回值：无返回值，临时文件中写入print (\hello world!")


;写很多行PYthon语句
;pystringlst python语句List(按行分割的字符串list)，例如 ("print (\"hello\")" "print (\"world!\")")
;!!!!字符串应注意PYTHON格式要求，代码前面自行预留缩进空格
;!!!!默认基本缩进为4个空格
(HG::PY::WRITELIST  pytempfilename pystringlst)

2. (setq pystringlst (list "print ("hello")" "print ("world!")"))
   
3. (HG::PY::WRITELINE (HG::PY::CREATE) pystringlst )

(setq pystringlst (list "print ("hello")" "print ("world!")"))<br /> (HG::PY::WRITELINE (HG::PY::CREATE) pystringlst )

返回值：无返回值，临时文件中写入print ("hello") print ("world!")


;替代 print语句
;将console文本输出至log文件
;输出python console信息或返回值请用此函数替代Print
;logstring要输出的字符
;logstring同意需自行预留缩进空格,基本缩进为4个空格
;para-p logstring是否为python变量 0普通字符串 1字符串变量 2列表字符串变量 3列表字符串变量换行输出
;示例(HG::PY::WRITELOG pytempfilename "hello log!" 0)
(HG::PY::WRITELOG pytempfilename logstring para-p)

1. (HG::PY::WRITELOG pytempfilename "hello log!" 0)

复制代码

返回值：log文件路径
在文件路径中写入输出Log文件语句

;运行单行Python语句,有返回结果
(HG::PY::RUN pystring)

1. (HG::PY::RUN "print(8**2)")

复制代码

返回值：("64")
此python语句含义，8的平方值

;运行Python文件，无返回值
(HG::PY::RUNFILE pyfilename)

1. (HG::PY::RUNFILE "C:\\LisPyDEMO2.py")

复制代码

LisPyDemo2.py代码如下：

1. import plotbar
   
2. import matplotlib.pyplot as plt
   
3. 
   
4. def main():
   
5.     x=['1','2','3','4']
   
6.     y=[4254,3563,567,6744]
   
7.     a,b=plotbar.bar(x,y)
   
8. 
   
9. main()

复制代码

输出结果如下：



;运行Python文件，有返回值
(HG::PY::RUNFILE2 pyfilename)

1. (HG::PY::RUNFILE2 "C:\\LisPyDEMO1.py")

复制代码

LisPyDemo1.py代码如下：

1. print(9**2)

复制代码

返回值：("81")






测试环境：Windows 10 + autocad2016 + python 3.6
测试需要python库: 词法分析工具LAC
测试功能：深度学习实现中文分词

2. ;自然语言处理-中文分词
   
3. ;paddle平台LAC
   
4. ;需安装lac库
   
5. (setq fi(HG::PY::CREATE))
   
6. (setq pystringlst(list
   
7.     "# coding:cp936"  ;;由于LISP语言特性，这里编码不是utf8
   
8.     "from LAC import LAC"
   
9.     ""
   
10.     "# 装载分词模型"
    
11.     "lac = LAC(mode='seg')"
    
12.     "# 单个样本输入，输入为Unicode编码的字符串"
    
13.     "text = u"LAC是个优秀的分词工具，LisPy中文分词案例测试""
    
14.     "seg_result = lac.run(text)"
    
15.        ))
    
16. (HG::PY::WRITELIST fi pystringlst)
    
17. (setq foo(HG::PY::WRITELOG fi "seg_result" 3))
    
18. (HG::PY::RUNFILE2 fi)
    
19. 
    

;自然语言处理-中文分词<br /> ;paddle平台LAC<br /> ;需安装lac库<br /> (setq fi(HG::PY::CREATE))<br /> (setq pystringlst(list<br />     "# coding:cp936"  ;;由于LISP语言特性，这里编码不是utf8<br />     "from LAC import LAC"<br />     ""<br />     "# 装载分词模型"<br />     "lac = LAC(mode='seg')"<br />     "# 单个样本输入，输入为Unicode编码的字符串"<br />     "text = u"LAC是个优秀的分词工具，LisPy中文分词案例测试""<br />     "seg_result = lac.run(text)"<br />        ))<br /> (HG::PY::WRITELIST fi pystringlst)<br /> (setq foo(HG::PY::WRITELOG fi "seg_result" 3))<br /> (HG::PY::RUNFILE2 fi)<br /> <br />

程序输入："LAC是个优秀的分词工具，LisPy中文分词案例测试"
结果输出： "LAC" "是" "个" "优秀" "的" "分词" "工具" "，" "LisPy" "中文" "分词" "案例" "测试"

通过加载LisPy.vlx 就可以使用Python丰富的资源了。

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:LisPyV1.1.rar 
下载次数:23  文件大小:3.92 KB  售价:2D豆 [记录]
下载权限: 不限 以上  [免费赚D豆]

liuyj

能再多给几个例子吗？曲线相关的，文字相关的等等

晨曦CAD

liuyj 发表于 2021-4-5 21:49
能再多给几个例子吗？曲线相关的，文字相关的等等

看你是什么方面的了。python本身并不适合cad绘图，适合数据处理、深度学习这些。举个“曲线”例子，可以直接在CAD里面看股市K线,玩笑
可以由cad文件绘制相关曲线图、词云图，用于汇报展示。例如

SHUNDocker

感谢楼主分享学习！！！

weizx2000

谢谢分享谢谢分享

janshyl

學習了 感謝樓主分享

hh_lj007

谢谢分享！

279491611

感谢分享，还有这种操作。

flowerson

可以提供源码学习吗？

flowerson

autocad2018 +win10下试了这个(HG::PY::RUNFILE2 pyfilename)，cad 完全没有反应的假死了。自己.py文件是可以运行的。

flowerson

这种方法是每一次调用.py的有没有方法只需要加载一次.py 后面可以直接可以继续调用呢？