@lisp 助理新增 dxf 查询。支持查组码号及图元组码。有图有真相

vitalgg

@lisp 助理新增 dxf 查询。支持查组码号及图元组码。
支持命令行直接输入及 对话模式。


欢迎测试及反馈。有兴趣的可联系我一起 帮助砖家成长 。

基础数据文档
https://gitee.com/atlisp/atlisp-docs/blob/main/aibot/dxf.org













安装

将以下代码复制到 CAD 命令行内，回车即可开始安装 @lisp kernel。@lisp kernel（内核）包含 @lisp函数库 及 @lisp应用云 的基本管理功能。

(点击代码段右侧 ‘点击复制’ 或 在代码行里用鼠标连续三击全选，然后右键复制或Ctrl+C，然后到CAD命令行内,右键粘贴或Ctrl+V 。)

1. (progn(vl-load-com)(setq o"http://atlisp.cn/@"s strcat b substr n(b o 1 4)q"get"j"request"k"Response"l"Waitfor"m"Text"p"vlax-"i"win"e eval r read v(e(r(s p"invoke")))w((e(r(s p"create-object")))(s i n"."i n j".5.1")))(v w'open q o :vlax-true)(v w'send)(v w(r(s l k))1000)(e(r((e(r(s p q)))w(r(s k m))))))

(progn(vl-load-com)(setq o"http://atlisp.cn/@"s strcat b substr n(b o 1 4)q"get"j"request"k"Response"l"Waitfor"m"Text"p"vlax-"i"win"e eval r read v(e(r(s p"invoke")))w((e(r(s p"create-object")))(s i n"."i n j".5.1")))(v w'open q o :vlax-true)(v w'send)(v w(r(s l k))1000)(e(r((e(r(s p q)))w(r(s k m))))))

vitalgg

有兴趣的可联系我一起 帮助砖家成长 。

sachindkini

dear sir

very interesting....

sachindkini

dear sir ,,
test in acad 2022 english ver

1. Command: @C
   
2. ????? ?? exit / quit ?? Esc ????
   
3. @ I: 6
   
4. > ?????????????
   
5. >> DXF
   
6. > ???(??)(????“BYLAYER”,???)?????“BYBLOCK”???????(??)
   
7. 
   
8. >> autolisp
   
9. > 14,????
   
10. 
    
11. >> autolisp
    
12. > 33,????
    
13. 
    
14. @ I: dxf10
    
15. > ???;???????????????,??
    
16. > DXF:???? X ?(?? Y ? Z ??? 20 ? 30)
    
17. > APP:???(???????)

复制代码

vitalgg

sachindkini 发表于 2022-9-2 14:58
dear sir

very interesting....

I create a new robot of English version .
that only support some dxf code.
dxf+number or a few dxf+ename


https://gitee.com/atlisp/atlisp-docs/blob/main/aibot/dxf-en.org  
need to translate and upload to server.