【人工智能】ChatGPT写插件

晨曦CAD

案例：将圆和圆弧转为两节点多段线
案例来自帖子：[url=[函数] 将圆和圆弧转为两节点多段线]http://bbs.mjtd.com/thread-186768-1-1.html[/url]

人工智能给出如下答案：

2. ;; 定义一个函数，用于将圆和圆弧转为两节点多段线
   
3. (defun c:circle2polyline ()
   
4.   (vl-load-com)
   
5. 
   
6.   ;; 获取当前文档中的所有圆和圆弧
   
7.   (setq entities (vlax-get-Objects (vla-get-activedocument (vlax-get-acad-object)) '((8 . "CIRCLE") (8 . "ARC"))))
   
8. 
   
9.   (foreach entity entities
   
10.     (setq center (vlax-get-property entity 'center))
    
11.     (setq radius (vlax-get-property entity 'radius))
    
12. 
    
13.     ;; 如果是圆弧，则取出圆弧的起点和终点
    
14.     (if (vlax-member-of-object entity 'objectname "ARC")
    
15.         (setq start (vlax-get-property entity 'startpoint))
    
16.         (setq start center))
    
17.     (if (vlax-member-of-object entity 'objectname "ARC")
    
18.         (setq end (vlax-get-property entity 'endpoint))
    
19.         (setq end center))
    
20. 
    
21.     ;; 将圆或圆弧转为两节点多段线
    
22.     (command "pline" start end center)))
    
23. 
    
24. (princ))
    

;; 定义一个函数，用于将圆和圆弧转为两节点多段线<br /> (defun c:circle2polyline ()<br />   (vl-load-com)<br /> <br />   ;; 获取当前文档中的所有圆和圆弧<br />   (setq entities (vlax-get-Objects (vla-get-activedocument (vlax-get-acad-object)) '((8 . "CIRCLE") (8 . "ARC"))))<br /> <br />   (foreach entity entities<br />     (setq center (vlax-get-property entity 'center))<br />     (setq radius (vlax-get-property entity 'radius))<br /> <br />     ;; 如果是圆弧，则取出圆弧的起点和终点<br />     (if (vlax-member-of-object entity 'objectname "ARC")<br />         (setq start (vlax-get-property entity 'startpoint))<br />         (setq start center))<br />     (if (vlax-member-of-object entity 'objectname "ARC")<br />         (setq end (vlax-get-property entity 'endpoint))<br />         (setq end center))<br /> <br />     ;; 将圆或圆弧转为两节点多段线<br />     (command "pline" start end center)))<br /> <br /> (princ))<br />

测试了一下，只是像模像样，实际一跑就报错

lxl217114

vitalgg 发表于 2022-12-7 06:40
对于采用深度学习的人工智能。
需要足够的样例，和不断的调教。
就跟小孩一样，需要不断的教育。等他长大 ...

最后一句太幽默了

vitalgg

对于采用深度学习的人工智能。
需要足够的样例，和不断的调教。
就跟小孩一样，需要不断的教育。等他长大了，就不听你的了。

晨曦CAD

liuhe 发表于 2022-12-7 08:42
人工智能可以写lisp代码了？

生成的代码像模像样的，起码一个月的新手比不上它

晨曦CAD

另一个例子

yuanziyou

OpenAI's services are not available in your country.

caoliu023

可惜我们的手机号访问不了这个ai

飞鹰158

晨曦CAD 发表于 2022-12-6 18:42
另一个例子

太不清楚了，发原文件上来。

liuhe

人工智能可以写lisp代码了？

20060510412

能写出来像模像样的代码，已经很了不起了，至少可以给人整体思路吧。

guosheyang

你这是自动 生成的？  很不错呀   ！

晨曦CAD

caoliu023 发表于 2022-12-6 21:29
可惜我们的手机号访问不了这个ai

可以用接码平台用国外手机号注册个