通信人家园
标题:
AUTOlisp开发CAD转战VBA开发CAD第一天
[查看完整版帖子]
[打印本页]
时间:
2018-10-15 13:24
作者:
水吉空
标题:
AUTOlisp开发CAD转战VBA开发CAD第一天
本帖最后由 水吉空 于 2018-10-15 14:41 编辑
本人使用AUTOlisp开发CAD已有3年左右的时间,自觉对lisp知识都已经大体掌握。(也编写了几个通信管线专用插件)最近闲来无事,特来研究下vba开发CAD,包括lisp翻译vba等。愿与有兴趣的同行沟通学习。
插件交流群请移步
http://www.txrjy.com/thread-218116-1-1.html
第124楼
通信工程与CAD↓↓↓
2018-10-15 14:41 上传
下载附件
(8.29 KB)
addline方法
VBA创建直线代码:
Public Sub drawline() '宏
Dim pt1(2) As Double '定义变量类型,在vba中使用变量前一定要先定义
Dim pt2(2) As Double
pt1(0) = 0
pt1(1) = 0
pt1(2) = 0
pt2(0) = 100: pt2(1) = 100: pt3(2) = 100
ThisDrawing.ModelSpace.AddMLine pt1, pt2
End Sub
AUTOlisp翻译VBA创建直线代码:
(Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'ModelSpace) 'AddLine (Vlax-3d-Point '(0 0 0)) (Vlax-3d-Point '(100 100 100))
==================水吉空出品==================================
附件:
1.jpg
(2018-10-15 13:25, 25.3 KB) / 下载次数 0
https://www.txrjy.com/forum.php?mod=attachment&aid=Mzc1NTI0fDg3YjA5ZGYxfDE3MzA0MTY3MDV8MHww
附件:
通信工程与CAD.jpg
(2018-10-15 14:41, 8.29 KB) / 下载次数 0
https://www.txrjy.com/forum.php?mod=attachment&aid=Mzc1NTMxfGZiN2M1Zjc4fDE3MzA0MTY3MDV8MHww
通信人家园 (https://www.txrjy.com/)
Powered by C114