- 博客(38)
- 收藏
- 关注
RSS订阅转载 生成类似零部件3
Sub 获取模板信息() Call sw初始化("") FilePathName = swModel.GetPathName If swFileTYpe = 2 Then '==== ElseIf swFileTYpe = 3 Then' Dim vDepend As Varian...
2018-09-11 16:29:00
519
转载 生成类似零部件2
Public 禁止改变 As BooleanPublic 表头行 As IntegerPublic 首行 As IntegerPublic 末行 As Long'Public 首列 As IntegerPublic 末列 As IntegerPublic 配置列 As IntegerPublic 长度列 As IntegerPublic...
2018-09-11 11:16:00
258
转载 项目汇总
Sub 遍历文件夹(ByVal 指定子文件夹) 目录路径 = ThisWorkbook.Path & "\" 获取行列号 If Not 指定子文件夹 Then 遍历文件夹路径 = 目录路径 Else 遍历文件夹路径 = Cells(ActiveCell.Row, 文件夹名称列号) & "\...
2018-09-10 09:25:00
213
转载 系列化零件=180709=增加配置处理
Sub 遍历配置() Dim swDim As SldWorks.Dimension 清除_保留首行 sw全名 = Cells(首行, 文件路径列) & Cells(首行, 文件名称列) Call sw初始化(sw全名) 获取浮动列 '先一次性获取所有配置尺寸值，再在后面列出==开始 ...
2018-09-07 13:00:00
218
转载 生成类似零部件
Public 禁止改变 As BooleanPublic 表头行 As IntegerPublic 首行 As IntegerPublic 末行 As Long'Public 首列 As IntegerPublic 末列 As IntegerPublic 配置列 As IntegerPublic 长度列 As Integ...
2018-09-07 12:56:00
291
转载 设置材质+属性+单位=180621=移动文件增加相关工程图处理
Sub 移动文件()获取行列号Set 已经处理文件 = CreateObject("Scripting.Dictionary")文件个数 = 1Set fso = CreateObject("Scripting.FileSystemObject")Call sw初始化("")For 当前行 = 表头行 + 1 To 末行 Cells(当前行,...
2018-09-07 12:55:00
413
转载 热改名
Sub 热改名(ByVal 旧文件名全名, ByVal 新文件名全名, ByRef 释放锁定或关闭的文件, ByRef 是否成功) Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next fso.MoveFile 旧文件名全名, 新文件名全名 '...
2018-09-07 12:45:00
500
转载 改图纸格式+属性+存PDF+打印=180606
Dim sw全名, 另存全名 As StringDim a, b As StringDim 拟转格式, 拟生成文件夹, SheetName As StringDim 当前行Sub 另存为其他格式(ByVal 拟转格式) '拟转格式 = "dwg" 拟生成文件夹 = Range("A4") & "\" & 拟转格式 I...
2018-09-07 12:39:00
444
转载 BOM层次及汇总表=180624
Sub 格式化项目号() Set 表字典 = CreateObject("Scripting.Dictionary") Call Excel转字典(表字典) 最大级数 = 1 For Each 行 In 表字典.items 行("项目号").Select a = Split(行("项目号"),...
2018-09-07 12:37:00
1182
转载 查表填表
Private Sub Workbook_Open()' Set 当前表 = ActiveSheet'' 文件短名称 = "查表填表.xlsm"' 文件全名 = "D:\余魁\swvba\" & 文件短名称' For Each kk In Workbooks' Debug.Print kk.Name' ...
2018-09-07 12:29:00
211
转载 sw+vba非批量操作=180822
Sub 插入孔() Call sw初始化("") 总数 = SelMgr.GetSelectedObjectCount2(-1) Set 边线1阵列方向 = Nothing For i = 1 To 总数 Set 对象 = SelMgr.GetSelectedObject6(i, -1) nSelTy...
2018-09-07 11:55:00
972
转载 关于studiostyl.es网站scheme文件无法下载的问题
转载至http://blog.sina.com.cn/s/blog_4de61e0d0102wfy8.html原因是该网页引用（Google的服务，懂了吧）的jquery文件无法加载，导致方法失效。在studiostyl.es中下载scheme文件，点击下载按钮没有响应，查看网页源码，发现下载按钮的响应函数是downloadExisting(n)，经过一番定位，找到了这个...
2018-04-19 21:54:00
395
转载 一些solidworks二次开发小程序=设置材质+属性+单位
基本操作：(如果嫌广告太长就去云盘看)转载于:https://www.cnblogs.com/yiguxianyun/p/8481039.html
2018-02-27 21:16:00
963
转载 一些solidworks二次开发小程序
工作中写的一些小程序，也学着开源看看……源程序百度云地址 淘宝地址 转载于:https://www.cnblogs.com/yiguxianyun/p/8023247.html
2017-12-11 15:38:00
1115
转载 登陆失败:未知的用户名或密码错误
按下面的方法“把网络安全：LAN管理器身份验证级别从“没有定义”更改为“发送 LM 和 NTLM - 如果已协商，则使用 NTLMv2 会话安全:”即可。”还是不可！！！http://jingyan.baidu.com/article/f3e34a128cbfaef5eb65352e.html…………原来是原先家庭普通版的win7系统用同样的电脑名称共享过，折腾了良久，重新改...
2017-07-15 21:46:00
1039
转载 VBS中Run和Exec的区别
http://demon.tw/programming/vbs-run-and-exec.html转载于:https://www.cnblogs.com/yiguxianyun/p/7088081.html
2017-06-28 08:36:00
138
转载 vba shell 返回值
sub Sample1() Dim WSH, wExec, sCmd As String, Result As String Set WSH = CreateObject("WScript.Shell") ''(1) ''(2) Set wExec = WSH.Exec("xcopy /?") ''(3)...
2017-06-28 08:10:00
1587
转载 AutoCAD VBA xdata的使用+水泵性能曲线VBA绘制程序
用处：比如，给一个文字设置xdata标识，然后根据需要用VBA修改文字的值，而不是在图形中增加一个mtextSub Ch10_AttachXDataToSelectionSetObjects() ' 创建选择集 Dim sset As Object Set sset = ThisDrawing.SelectionSets.Add("SS1")...
2017-04-10 19:27:00
682
转载 jeecg+activemq之AjaxServlet+tomcat7
现象：eclipse里面连接activemq是正常的，打包到外面的tomcat7运行，连接上activemq后马上就掉线了原因：tomcat7的异步特性没有生效办法：1.让eclipse使用tomcat7插件：2.所有相关的Servlet及Filter加上<async-supported>true</async-supported>...
2017-04-06 13:16:00
144
转载 odoo8.0 win7 64位 安装配置（补遗）
各种参考博客资源——http://www.cnblogs.com/yiguxianyun/p/6256641.html最开始蛋疼问题的是安装各种site-packages！云盘里面有些win764位安装后wheel出来的文件，下载后可以本地安装（http://pan.baidu.com/s/1pL0KhwZ）：pip install --no-index --find...
2017-01-07 10:29:00
106
转载 odoo种种
[精]Odoo 8.0深入浅出开发教程-模块开发基础http://blog.youkuaiyun.com/sunansheng/article/details/50864527搭建odoo开发调试环境http://blog.youkuaiyun.com/shanzhizi/article/details/51279845搭建windows下的odoo开发环境http://www.360doc.co...
2017-01-06 16:00:00
85
转载 MySQL种种
mysql中You can't specify target table for update in FROM clause错误——http://blog.youkuaiyun.com/priestmoon/article/details/8016121 重点在 SELECT a.cabf_id FROM (select tmp.* from 表名 tmp) a ， select tmp.* ...
2016-12-24 12:06:00
110
转载 html种种
DIV+CSS如何让文字垂直居中？——https://zhidao.baidu.com/question/69214815.html转载于:https://www.cnblogs.com/yiguxianyun/p/6212662.html
2016-12-22 20:05:00
82
转载 jQuery种种
jquery UI autocomplete获得焦点自动弹出跟随下拉框——http://blog.youkuaiyun.com/jiusong_mi/article/details/49249853$("#bxh").autocomplete({……}).focus(function(){ $(this).autocomplete("search"); }...
2016-12-22 14:43:00
61
转载 freemarker种种
#include要使用绝对路径的话，在路径最前面加个“/”就行——<#include "/includes/v2/headerMacro.ftl"> https://zhidao.baidu.com/question/467810650.htmlfreemarker 出现Expression JspTaglibs is undefined错误 http://...
2016-12-22 10:48:00
77
转载 jQuery ui autocomplete 与easyUI冲突解决办法（重命名ui的autocomplete 和menu部分）
http://jqueryui.com/download/ UI定制只选autocomplete 会自动把依赖的menu模块也加入进来……然而easyUI也有自己的menu，于是就……折腾了好久摸索的解决方法——UI的.menu替换成.mulu_kk;autocomplete中的menufocus替换成mulu_kkfocus;autocomplete中的menuse...
2016-12-12 19:51:00
300
转载 jquery获取url参数及url加参数的方法
转——http://www.jb51.net/article/73896.htm<script src="js/jquery-1.7.2.min.js" type="text/javascript"></script><script type="text/javascript"> $(function () { //方法二： (...
2016-12-05 09:03:00
149
转载 jquery option
转——jquery动态添加option示例 http://www.jb51.net/article/45031.htm//js动态添加optionvar sel= document.getElementById("Selected1"); sel.options.add(new Option("请选择",""));sel.options.add(new Option(...
2016-12-02 09:39:00
188
转载 Freemarker中空值 null的处理++++定义数组
http://blog.java-zone.org/archives/800.html<#list listBlogPost as blogPost></#list>如果 listBlogPost 为NULL 会报错。加上?exists(是否存在) 或者?default("")如果为null时默认为空，例如：<#if listBl...
2016-11-30 16:59:00
245
转载 JQuery对id中含有特殊字符的转义处理
转载——http://www.jb51.net/article/41192.htm<div id="a[]">kkkkkk</div> <script type="text/javascript"> //方法1 $(document.getElementById('a[]')); //方法2 $('#a\\[\\]'...
2016-11-26 17:47:00
464
转载 jquery 将disabled的元素置为enabled的三种方法
转——http://www.jb51.net/article/19342.htm在jquery中可以通过jqueryObj.attr("disabled","disabled")将页面中某个元素置为不可编辑或触发状态，但是在jquery的API reference中并没说明怎么将页面置为disable的元素重新置为可触发或可编辑的。这里发现可以采用三种的变通方法将置为disabl...
2016-11-25 20:36:00
197
转载 jeecg表单页面控件权限设置（请先看官方教程，如果能看懂就不用看这里了）...
只是把看了官方教程后，觉得不清楚地方补充说明一下：1.2.3.4.用“jeecgDemoController.do?addorupdate”这个路径测试，不出意外现在应该可以了！感谢JEECG技术群④ 的大神们的无私帮助！——————————————————————————————————————————————另外：如果是online方式生成的...
2016-11-24 18:43:00
571
转载 Google调用explorer.exe打开本地文件
给IE浏览器地址栏输个本地文件路径，会自动用explorer.exe打开，这个挺好的，但是IE对jQuery稍微高点的版本不怎么待见，只好自己给Google折腾一个调用explorer的功能………………1.自定义URL Protocol 协议，让浏览器可以启动本地程序2.编写c++控制台程序:解码从浏览器传递过来的url（url===utf-8===Unicode===gb...
2016-11-18 09:32:00
402
转载 C++ URLDecode和URLEncode实现——仅限gb2312，非utf8
转载——http://blog.163.com/zhangjie_0303/blog/static/9908270620148251658993/#include <iostream>#include <stdlib.h>#include <string.h>using namespace std;typedef ...
2016-11-14 19:15:00
301
转载 jeecg小吐槽续——自己折腾修改在线开发功能中“默认值”的使用
……原来设置了“默认值”的字段，新建表单时不会出现在表单上，要保存后才能在列表页面出现，而且第二次编辑时，设置了“默认值”的字段再也不能改成空值！……要修改还是挺麻烦的：1.src/main/resources/online/template/ledefault/html/jformhead.ftl 表单录入页面，如果是“text”字段，如果id为空，则填入自己新增的m...
2016-11-01 20:31:00
794
转载 jeecg小吐槽
1.online开发出来的表单，字段中设置的默认值，新建表单的时候不会出来，要保存后才会在后台补加进去！（为时已晚吧）2.online开发出来的表单，主表中的附表，在online配置界面指定了可以为空，前台表单还是会js限制要求“请输入XXX”3.代码生成出来的表单，干脆不给你填默认值了4.代码生成出来的表单，新建表单基本正常，第二次编辑却一片空白………………然而...
2016-10-29 09:39:00
73
转载 jeecg单步调试
自己没本事写开发平台，用别人的又各种担心，想学着别人弄个单步调试，老是出现这个“source not found”……百度各种方法都搞不定，担心是自己安装错了？这个jeecg本身问题？……其实只要把jeecg的源码路径add进来就可以了，默认“lookup path”没有包含她，所以会not found续……有时候实际的源文件在加了后缀“-sources....
2016-10-26 16:18:00
223
转载 jeecg安装——mysql数据库创建+手动执行初始化脚本
国产的开源项目官方文档写得那么详细，已经是很厚道了，可惜俺这种菜鸟还是会碰到各种“小”问题，做个笔记先！1.新建数据库：CREATE DATABASE jeecg DEFAULT CHARACTER SET utf8 COLLATE utf8_general_ci;2.手动执行初始化脚本：USE `jeecg`;sourceD:\javaweb\jeecg\docs...
2016-10-17 16:10:00
1933
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人