VBA开头白度提问，然后AI写程序，根据结果改写lisp

自贡黄明儒

自动新建模块module,并写入代码:
搜了大半天，也问了好多人。最后还是白度的AI帮我写的。为记念这一重要时刻，贴出来。。。
VB如下

1. Sub CreateModule()
   
2.     Dim vbProj As Object
   
3.     Dim vbComp As Object
   
4.        ' 设置对当前工程的引用
   
5.     Set vbProj = Application.VBE.ActiveVBProject
   
6.    
   
7.     ' 添加一个新的module
   
8.     Set vbComp = vbProj.VBComponents.Add(1)
   
9.    
   
10.     ' 设置module的名称
    
11.     'vbComp.Name = "MyNewModule"
    
12.    
    
13.     ' 现在可以在module中添加代码了
    
14.     vbComp.CodeModule.AddFromString "Sub MySub()" & vbCrLf & _
    
15.                                     "    MsgBox ""Hello, World!""" & vbCrLf & _
    
16.                                     "End Sub"
    
17.    
    
18.     ' 可选：激活module编辑器
    
19.     Application.VBE.ActiveCodePane.CodeModule.InsertLines 1, "'"
    
20.     Application.VBE.ActiveCodePane.CodeModule.InsertLines 2, "'" & vbTab & "Created by CreateModule macro"
    
21.     Application.VBE.ActiveCodePane.CodeModule.InsertLines 3, "'"
    
22.     Application.VBE.ActiveCodePane.CodeModule.InsertLines 4, ""
    
23.    
    
24.     ' 提示用户module已创建
    
25.     MsgBox "Module created successfully!"
    
26. End Sub
    

Sub CreateModule()<br />     Dim vbProj As Object<br />     Dim vbComp As Object<br />        ' 设置对当前工程的引用<br />     Set vbProj = Application.VBE.ActiveVBProject<br />     <br />     ' 添加一个新的module<br />     Set vbComp = vbProj.VBComponents.Add(1)<br />     <br />     ' 设置module的名称<br />     'vbComp.Name = "MyNewModule"<br />     <br />     ' 现在可以在module中添加代码了<br />     vbComp.CodeModule.AddFromString "Sub MySub()" & vbCrLf & _<br />                                     "    MsgBox ""Hello, World!""" & vbCrLf & _<br />                                     "End Sub"<br />     <br />     ' 可选：激活module编辑器<br />     Application.VBE.ActiveCodePane.CodeModule.InsertLines 1, "'"<br />     Application.VBE.ActiveCodePane.CodeModule.InsertLines 2, "'" & vbTab & "Created by CreateModule macro"<br />     Application.VBE.ActiveCodePane.CodeModule.InsertLines 3, "'"<br />     Application.VBE.ActiveCodePane.CodeModule.InsertLines 4, ""<br />     <br />     ' 提示用户module已创建<br />     MsgBox "Module created successfully!"<br /> End Sub<br />

在lisp如下

1. (defun c:Example_VBE (/ ACTIVEVBPROJECT CODEMODULE MODULE NEWROUTINE VBCOMPONENTS VBE)
   
2.   (setq VBE (vla-get-VBE (vlax-get-acad-object))) ;ActiveVBProject
   
3.   (setq ActiveVBProject (vlax-get-property VBE 'ActiveVBProject))
   
4.   
   
5.   (setq VBComponents (vlax-get-property ActiveVBProject 'VBComponents))
   
6.   (setq module (vlax-invoke VBComponents 'Add 1))  
   
7.   (setq  newRoutine
   
8.    (strcat "Sub Dynamic_Procedure()"
   
9.      "\n    MsgBox \"New subroutine1.\""
   
10.      "\nEnd Sub"
    
11.    )
    
12.   )
    
13.   (setq CodeModule (vlax-get-property module 'CodeModule))
    
14.   (vlax-invoke CodeModule 'AddFromString newRoutine)
    
15. )
    

(defun c:Example_VBE (/ ACTIVEVBPROJECT CODEMODULE MODULE NEWROUTINE VBCOMPONENTS VBE)<br />   (setq VBE (vla-get-VBE (vlax-get-acad-object))) ;ActiveVBProject<br />   (setq ActiveVBProject (vlax-get-property VBE 'ActiveVBProject))<br />   <br />   (setq VBComponents (vlax-get-property ActiveVBProject 'VBComponents))<br />   (setq module (vlax-invoke VBComponents 'Add 1))  <br />   (setq  newRoutine<br />    (strcat "Sub Dynamic_Procedure()"<br />      "\n    MsgBox \"New subroutine1.\""<br />      "\nEnd Sub"<br />    )<br />   )<br />   (setq CodeModule (vlax-get-property module 'CodeModule))<br />   (vlax-invoke CodeModule 'AddFromString newRoutine)<br /> )<br />

你有种再说一遍

自贡黄明儒 发表于 2024-7-23 16:12
前半句“lisp的终点是调用VB”，表示赞同。后半句，就不知道你是什么意思了。

写lisp的人没有注意到,很多时候写了两个for去比较数据.
然后这个for在lisp上面还不能中断.
和尚777这里就用了dictionary词典来减少时间复杂度
http://bbs.mjtd.com/thread-186202-1-1.html
词典的原理就是数组长度取模,这样就是O(1)速度.

自贡黄明儒

你有种再说一遍 发表于 2024-7-23 14:31
lisp的终点是调用VB,如果连词典概念都没有,那么连时间复杂度都不晓得.嘻嘻

前半句“lisp的终点是调用VB”，表示赞同。后半句，就不知道你是什么意思了。

你有种再说一遍

lisp的终点是调用VB,如果连词典概念都没有,那么连时间复杂度都不晓得.嘻嘻

moshouhot

以后我们都是项目经理，代码可以不会写，但一定要懂上层架构和基本原理。

yuangengyun

虽然看不懂，但是我很想学！

XPG

干嘛的。看起来很牛逼的样子。

panliang9

恭喜黄工迈入人工智能时代！

spp_wall

恭喜黄工迈入人工智能时代！

tranque

AI这么厉害了么，但是最厉害的还是会使用AI的人

自贡黄明儒

tranque 发表于 2024-7-23 15:56
AI这么厉害了么，但是最厉害的还是会使用AI的人

网上搜不到，资料也找不到。百度搜，以VBA开头，就会自动写程序了，可能不完善，只能VBA开头。