'testing export each drawing from the cubicle drawing as separate file. Sub inttest() Dim entry As AcadEntity Dim BlockObj As AcadBlock Dim ssetObj As AcadSelectionSet Dim moSpace As AcadModelSpace Set moSpace = ThisDrawing.ModelSpace Dim minExt As Variant Dim maxExt As Variant Dim m ...
1. 设置共享宿主文件夹 sudo modprobe vboxsf sudo mount -t vboxsf (your windows folder,alias name you set in virtual box) (your linux folder, including path) demo: sudo mount -t vboxsf fileshare /home/hz/winshare; //home/hz can be accessed by type "cd ~" in terminal 2. Ubuntu安装python最新版 ...
1. DB块打开后,选择generate sources功能,完成后会在S7资源管理器sources下看到生成的source文件 2. 打开source文件,复制到excel里面做处理,trim前面的空格,下面VBA脚本即为针对纯struct块的处理过程 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Sub CreateTag() Dim a As Variant Dim b As Variant Dim szGroup, szTagname ...
Sub extractFATtestingcase() ' ' extractFATtestingcase 宏 ' ' Dim objDoc As Document Dim objTable, objLastTable As Table Dim objCell As Cell Dim intCount As Integer Dim strText As String ...
1 编写一个业务函数,实现字符串(前后各有三个空格,单词前后也均有空格) " i am student, you are teacher " , 各个单词首字符大写,结果如下" I Am Student, You Are Teacher " , //写了一个多小时,才写出来这么点,很多地方不规范,功能还没实现,逗号后的大写还 ...