结构分析、CAD Autolisp技术、软件使用技巧

关于合并C区和D区，及重装系统后笔记本无法切换到投影仪

2009-03-21T20:30:00.001+08:00

前些日子觉得笔记本硬盘空间（IDE 100G）不足，想去改个大硬盘，发现市面上都是SATA接口硬盘了，IDE的只有160G，差别不大，只能不买了。再想起最近想给台式机换个内存，但也买不到适合865主板的2G内存了。思考一下现在的硬件策略问题，才知道为什么硬件生产商经常更换接口类型，这样是逼着用户得整机升级了。

所以，只能折腾一下原来的硬盘了，原C盘只分了10G，现在经常磁盘空间低。所以考虑与原D盘合并。开始希望是用PM等无损合并，查了不少资料，却说比较困难。不信，实际操作之后，才发现主分区及逻辑分区不提供合并的选项（我只用了NORTON partition magic和深山红叶里面的Paragon Partition Manager，其他的没有试过）。所以，只能采取了此种方法。把D盘的资料全部拷贝出来，删除分区，而后，再调整C区大小，格式化C区，再重装系统了。所以，无损C D区的做法最后没有实现，不过总算把C区变大了，原来E F区的内容还在。在这个删除分区的过程中，NORTON partition magic多次出现错误，还好，没错误一次总算完成一次操作，就是在格式化的时候无法执行，得用Paragon Partition Manager进行，重启后才认出C盘。

重装系统后，一切还行，就是休眠和待机有点奇怪。但最大的问题出现在FN+F10切换投影仪的功能键失灵了。按道理这个组合键和系统无关的。想到送修一阵寒意，维修的水很深呢。开始想用autohotkey来修改按键，却找不出FN的键值，寻找软件未遂。后来还好，查到此暂时代替的解决方法。显示-设置-高级-图形属性-intel GMA driver-设备进行选择，也算是一个暂时代替方案吧。

给DIANA软件添加图标工具栏

2009-02-24T22:08:00.003+08:00

DIANA是个功能强大的非线性有限元分析软件，但是不得不说其前后处理确实还有很大的不足，虽然现在和MIDAS公司有了一定的合作，但是，大概还没有全盘改进吧。
1年前，在认真学习DIANA软件的时候，鉴于以上原因，给其加了一个丑陋的工具栏。不过也算改进了一下。
这时候，得用到一个软件，叫Barnacle的。Barnacle软件是donationcoder的Skrommel的作品（Skrommel做了不少有趣的autohotkey软件），基于Autohotkey编写的，可以给大部分的软件添加图标工具栏（比如内置的例子就是给windows自带的计算器加上自带的图标工具栏）。

用法大致如下，把Barnacle放到某个目录里面，在其Toolbars仿照calc.ini建立一个如最后的DIANA.INI文件，解读一下。
其中class=QWidget （这个是通过AUTOHOTKEY软件查到其DIANA的class的）
然后，逐一看图标的内容
[1]
tip=Von Mises
image=Diana\von.png
leftaction=Send,RESULTS CALCULATE VONMISES{enter}
rightaction=
middleaction=
代表了第一个图标的tips（提示），Image=Diana\von.png（图标的图片，我是在和Barnacle.exe相同的目录下建立Diana文件夹来存放图标的），leftaction=Send,RESULTS CALCULATE VONMISES{enter} （代表了左键点击图标时，发送的键盘命令，假如熟悉DIANA代码的话，就知道这个是代表了显示VON MISES应力图的），其他的内容可同理理解。

之后，运行BARNACLE，其会逐一调用TOOLBAR目录下有INI的各个文件，假如在BARNACLE运行后运行DIANA，则会调入此工具栏。

效果大概如下

付：Diana.ini的内容（png就不献丑了，可以上网再找些漂亮点的图标吧:)
[Settings]
class=QWidget
color=FFFFFF

[1]
tip=Von Mises
image=Diana\von.png
leftaction=Send,RESULTS CALCULATE VONMISES{enter}
rightaction=
middleaction=

[2]
tip=Deform
image=Diana\vd.png
leftaction=Send,VIEW OPTIONS DEFORM USING TDTX...G RESTDT 120{enter}
rightaction=
middleaction=

[3]
tip=Deform off
image=Diana\vd0.png
leftaction=Send,VIEW OPTIONS DEFORM USING TDTX...G RESTDT 0{enter}
rightaction=
middleaction=

[4]
tip=Displacement X
image=Diana\dx.png
leftaction=Send,RESULTS NODAL TDTX...G TDTX{enter}
rightaction=
middleaction=

[5]
tip=Displacement Y
image=Diana\dy.png
leftaction=Send,RESULTS NODAL TDTX...G TDTY{enter}
rightaction=
middleaction=

[6]
tip=Displacement Z
image=Diana\dz.png
leftaction=Send,RESULTS NODAL TDTX...G TDTZ{enter}
rightaction=
middleaction=

[7]
tip=Displacement All
image=Diana\d.png
leftaction=Send,RESULTS NODAL TDTX...G RESTDT{enter}
rightaction=
middleaction=

[8]
tip=Get crack
image=Diana\getcra.png
leftaction=Send,RESULTS GAUSSIAN EL.STCR1 STCRCK{enter}
rightaction=
middleaction=

[9]
tip=Present cra
image=Diana\cra.png
leftaction=Send,PRESENT SYMBOL{enter}
rightaction=
middleaction=

[10]
tip=+
image=Diana\+.png
leftaction=Send,PRESENT OPTIONS SYMBOL PLUS RANGE ALL{enter}
rightaction=
middleaction=

[11]
tip=triangle
image=Diana\sjx.png
leftaction=Send,PRESENT OPTIONS SYMBOL TRIANGLE RANGE ALL{enter}
rightaction=
middleaction=

[12]
tip=GET SX
image=Diana\getsx.png
leftaction=Send,RESULTS ELEMENT EL.SXX.G SXX{enter}
rightaction=
middleaction=

[13]
tip=GET SY
image=Diana\getsy.png
leftaction=Send,RESULTS ELEMENT EL.SXX.G SYY{enter}
rightaction=
middleaction=

[14]
tip=GET SZ
image=Diana\getsz.png
leftaction=Send,RESULTS ELEMENT EL.SXX.G SZZ{enter}
rightaction=
middleaction=

[15]
tip=GET rein SX
image=Diana\Reisx.png
leftaction=Send,RESULTS ELEMENT RE.SXX.G SXX{enter}
rightaction=
middleaction=

[16]
tip=All result
image=Diana\Resall.png
leftaction=Send,RESULTS LOADCASE ALL{enter}
rightaction=
middleaction=

[17]
tip=Cut
image=Diana\cut.png
leftaction=Send,VIEW CUTAWAY CURSOR /CURSOR BOTTOM {enter}
rightaction=
middleaction=

[18]
tip=Section
image=Diana\sec.png
leftaction=Send,VIEW XSECTION CURSOR{enter}
rightaction=
middleaction=

[19]
tip=Vx
image=Diana\vx.png
leftaction=Send,EYE ANGLE 0 0 1{enter}
rightaction=
middleaction=

[20]
tip=Vy
image=Diana\vy.png
leftaction=Send,EYE ANGLE 0 90 0{enter}
rightaction=
middleaction=

[21]
tip=Vz
image=Diana\vz.png
leftaction=Send,EYE ANGLE 90 0 0{enter}
rightaction=
middleaction=

[22]
tip=label off
image=Diana\loff.png
leftaction=Send,LABEL MESH OFF{enter}
rightaction=
middleaction=

[23]
tip=Contour
image=Diana\contour.png
leftaction=Send,PRESENT CONTOUR LEVELS{enter}
rightaction=
middleaction=

[24]
tip=Contour line
image=Diana\conline.png
leftaction=Send,PRESENT OPTIONS CONTOUR LINES{enter}
rightaction=
middleaction=

Geogebra的新功能

2009-02-24T21:26:00.004+08:00

Geogebra的3.2版本还没有发布，不过一直在网上发布新版本，也可以直接网络运行，现在慢慢的喜欢上了这种基于JAVA的动态几何软件，在http://www.geogebra.org/cms/index.php?option=com_content&task=blogcategory&id=71&Itemid=55
要是选择了webstart，那么就可以在线打开这个有趣的软件了。（download的是3.0版本的，pre-release的是3.1.200.0的
此版本比3.0多了一些功能，比如spreadsheet等，还有一些改进，如圆锥曲线的绘制，grid，复数计算，多项式求导等内容。

其实C.A.R也是一个很好的软件，http://mathsrv.ku-eichstaett.de/MGF/homes/grothmann/java/zirkel/doc_en/

在这里，Humberto José Bortolossi教授提供了Clark Kimberling的3000多个三角形中心的C.A.R文件，可以看出，其计算速度还是很快的。其实，我觉得一些简单的2d结构分析软件，倒是可以借鉴一下这种参数化驱动的建模方式的。

ACAD安装过程中断后无法再安装的解决方法

2009-02-24T21:18:00.004+08:00

为了调试ARX，找到了VISUAL STUDIO 2005+OBJECTARX 2007，只能安装一个AUTOCAD2007
在安装的中途，存放安装文件的移动硬盘的U盘连接线脱落，再安装时，提示无法再安装。
经google，找到如下文章：
http://support.microsoft.com/kb/290301

以下为引用的文字
Microsoft 已更新了 Windows Installer 清理实用工具。利用 Windows Installer 清理实用工具，可以删除程序的 Windows Installer 配置信息。如果您遇到安装（安装程序）问题，可能需要删除程序的 Windows Installer 配置信息。例如，第一次安装程序时没有包括其中的某个组件，如果添加（或删除）此组件时遇到安装问题，您也许不得不删除该程序的 Windows Installer 配置信息。 Windows Installer 清理实用工具不执行下列功能：

删除 Windows Installer
删除由 Windows Installer 安装的任何程序（例如 Microsoft Office 2003）的文件

Windows Installer 清理实用工具可执行下列功能：

提供一个对话框，您可以从中选择一个或多个由 Windows Installer 安装的程序

为此，请在“Windows Installer 清理”对话框中的“已安装的产品”列表中选择所需程序。选择后，实用工具只删除与这些程序有关的 Windows Installer 配置信息。
删除构成所选程序的 Windows Installer 配置信息的文件和注册表设置

如果使用此实用工具删除程序的 Windows Installer 配置信息，并且计划重新安装程序，则应将该程序重新安装到最初安装它的同一文件夹中。这可以避免硬盘或磁盘上的文件重复。

下载运行后如图：
我是选中了一个dwf ..的安装项删除的（找不到2007的相关项）
不过还好运气不错，再安装时就顺利完成了。

不过还是其他AUTOCAD 2010的到来吧，到时大概.net就支持自定义实体了吧。

Autodesk公司的结构分析软件+Autodesk收购了ALGOR

2009-01-16T23:17:00.005+08:00

当Autodesk公司推出REVIT Structure的时候，我还有些不以为然，更多的把它看成是类似结构施工图的软件（Revit应该是做建筑软件出身的），但是当其收购了Robobat公司之后，推出的Autodesk Robot Structural Analysis Professional却让我感觉到了一个结构分析的新强者已经出现了（毕竟Robobat公司的ROBOT Millennium也早就是世界级的结构分析软件），很可能会改变结构分析的思路。毕竟，一个实力雄厚的公司可调用的资源会更多。

http://usa.autodesk.com/adsk/servlet/index?siteID=123112&id=11818169

http://www.tenlinks.com/NEWS/pr/AUTODESK/121508_adsk_robot.htm

在国内的结构分析软件还多以文本文件作为存储方式的时候，国外早就是数据库结构。感觉到国内外的软件差异还真不是一般的大。但当然，国内软件的不少操作更加符合国内工程师需求就是。下面是其截图。功能包括了流行的pushover，nonlinear, footfall等。有待来测试一下，现在还只是beta版。

哦，是了，刚刚看到，Autodesk收购了Algor公司了（3千4百万美金）。这个n年前拿来做毕业论文的有限元软件啊，应该是一个好归宿吧，其实Algor 19等版本已经做的很好了，希望在Autodesk公司可以得到进一步的发展，和Ansys来斗上一斗。

http://www.tenlinks.com/NEWS/pr/AUTODESK/121708_algor.htm

Web2.0 的连续梁计算程序

2008-11-07T22:06:00.004+08:00

Web2.0 是不是就是应用程序网络化，不是特别懂啊

http://www.graitec.com/En/ePCCalc.asp

连续梁计算的网络应用程序，似乎只能用于IE，不过要装个插件。图标很漂亮，不过程序就丑了些。

其实，连续梁计算程序不能算技术含量太高的，以前无聊的时候用excel也编过一个，没有用VBA宏的，只用了矩阵求逆，现在还常自用。如下。个人很喜欢的程序是DR.BEAM，用起来很舒服，不过网络应用程序毕竟是新产物，还是值得记录一下的。

【TC技巧】如何将多个文件分别移入到以文件名命名的文件夹中

2008-11-03T21:28:00.002+08:00

【TC技巧】如何将多个文件分别移入到以文件名命名的文件夹中
http://chenqj.blogspot.com
近日遇到了一个问题，有一堆pdf，是文献的，内置图片文件，文件个头很大，大概每个30M/6页，于是希望将其变小，顺序依次是，用PDF to IMAGE软件提取每个pdf的图片，然后进行图片处理，再用老马的freepic2pdf转为新的pdf。在这过程中，最好是一个pdf在一个文件夹中，这样子，pdf提取的图形文件才不会太混乱。那么如何把一堆pdf文件分别移到多个文件夹中呢。开始想找软件，后来发现用Total Commander（TC）两步就可以完成了，于是乎如下做：
（1）将多个Pdf分别压缩到多个压缩文件中（按alt+F5，选中对每个文件分别创建压缩包，可选移动到压缩文件中）
（2）将多个压缩包解压（按alt+F9,选中将每个压缩文件解压到同名的文件夹中）
关键就是括号内TC提供的功能了。
：），大功告成

全国第二届大学生结构设计竞赛

2008-10-27T17:03:00.005+08:00

最近，和其他老师一起，带了三位学生去了大连理工大学参加“全国第二届大学生结构设计竞赛”，最后，在全国48支参赛队中，取得了一等奖。感觉还是很不错的，这几个学生动手能力和理论分析能力都很不错。
全国大学生结构设计竞赛已正式被列入了国家教育部批准的9个大学生竞赛资助项目之一，规模和参赛队实力都很强，国内的土木强校基本都参加了。
我们的结构是368g，但是时间的紧迫使得结构优化没有做的很好，一些冗余构件也没有下决心删除，结构重量还是有不小的改进空间。这次比赛中，只有3个进入300g的结构，而且都只有最轻的结构因为意外有些失手，另外两个都过了10kg，让人大开眼界。
照片

大连理工大学正门

结构竞赛大拱门

比赛外景

彩旗飘飘

我们的队伍在比赛中

我们的结构

我觉得做工最好的武汉大学的结构

下面是大连风光，大连真是一个漂亮的城市

关于EXCEL里面的汉字转拼音首字母的函数

2008-09-02T23:01:00.003+08:00

关于EXCEL里面的汉字转拼音首字母的函数

近日由于制作通讯录需要，在EXCEL中需要对人名转换为拼音首字母，以前是用了一款“实用汉字转拼音”的免费软件的，后来在excelhome和officefans中看到了好些关于这个的文章，因而本次制作采用了如下的第2种方法。也搜索了一下，故记录之，有些网站地址也没有记全，只能对不起原作者了。

1. 采用定义名称和LOOKUP的方法

定义一个名称叫“拼音”的，做法：插入->名称->定义，输入名称“拼音”，添加，在引用位置中键入
“={"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";" 夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";" 仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}”
注，不包括外面的引号（下同）。

那么，比如在A3中有"陈"，则在B3中输入"=VLOOKUP(A3,拼音,2)"，则会得到"C"。

不过此法有时候也会出错，比如"黄"，"宏"，就会得到J，"奕"会得到"Z"，看来还不够完善。

2. 自定义函数。
''''''''''''''''''''''
'VBscript代码提供者：小白
'联系方法：
'E-mail:xiaobai@17560.net
'
'VBA代码转换者：惟惟
'联系方法：Email:wuweiyin@yeah.net
'个人博客：http://weiwei.blog.163.com
'如有不正确的地方，请提出来或是帮忙完善
'谢谢
''''''''''''''''''''''''''''''
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then
getpychar = "A"
ElseIf (tmp >= 45253 And tmp <= 45760) Then
getpychar = "B"
ElseIf (tmp >= 45761 And tmp <= 46317) Then
getpychar = "C"
ElseIf (tmp >= 46318 And tmp <= 46825) Then
getpychar = "D"
ElseIf (tmp >= 46826 And tmp <= 47009) Then
getpychar = "E"
ElseIf (tmp >= 47010 And tmp <= 47296) Then
getpychar = "F"
ElseIf (tmp >= 47297 And tmp <= 47613) Then
getpychar = "G"
ElseIf (tmp >= 47614 And tmp <= 48118) Then
getpychar = "H"
ElseIf (tmp >= 48119 And tmp <= 49061) Then
getpychar = "J"
ElseIf (tmp >= 49062 And tmp <= 49323) Then
getpychar = "K"
ElseIf (tmp >= 49324 And tmp <= 49895) Then
getpychar = "L"
ElseIf (tmp >= 49896 And tmp <= 50370) Then
getpychar = "M"
ElseIf (tmp >= 50371 And tmp <= 50613) Then
getpychar = "N"
ElseIf (tmp >= 50614 And tmp <= 50621) Then
getpychar = "O"
ElseIf (tmp >= 50622 And tmp <= 50905) Then
getpychar = "P"
ElseIf (tmp >= 50906 And tmp <= 51386) Then
getpychar = "Q"
ElseIf (tmp >= 51387 And tmp <= 51445) Then
getpychar = "R"
ElseIf (tmp >= 51446 And tmp <= 52217) Then
getpychar = "S"
ElseIf (tmp >= 52218 And tmp <= 52697) Then
getpychar = "T"
ElseIf (tmp >= 52698 And tmp <= 52979) Then
getpychar = "W"
ElseIf (tmp >= 52980 And tmp <= 53640) Then
getpychar = "X"
ElseIf (tmp >= 53689 And tmp <= 54480) Then
getpychar = "Y"
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = "Z"
Else '如果不是中文，则不处理
getpychar = char
End If
End Function

Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next i
End Function

那么，在VBA编辑器里面->插入->模块->贴入上述代码，那么。
那么，比如在A3中有"实验室"，则在B3中输入"=getpy(A3)"，则会得到"SYS"。
不过此法有时候也会出错，比如"雯"，"雪"，"学"等，就无法得到拼音，看来也还不够完善。

3.利用微软拼音（这个是整词转换的）
本文较长，我也没有仔细用过，不能评价
http://www.excelpx.com/home/show.aspx?id=199&cid=15
或
http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=229924&replyID=&skin=0
功能比较强大的

4.也有直接建立汉字和拼音的对应库表，直接查询的。：）

2008-08-31T20:24:00.002+08:00

部份www.freewaregenius.com的软件学习记录

挺喜欢www.freewaregenius.com介绍的软件，小而有趣。
下面是几个自己有些喜欢的软件。
1） Slowmousion: slow down the mouse via hotkey for a higher degree of control
文章介绍地址
http://www.freewaregenius.com/2008/08/27/slowmousion-slow-down-the-mouse-via-hotkey-for-a-higher-degree-of-control/
简介：用于采用键盘热键加快或者减慢鼠标移动速度，用于演示文档时候或者
图片：http://www.mystercrowley.com/image/sm_shot//sm03en.jpg

2）CRP: automatically re-launch apps and control a program’s allowed number of running instances
文章介绍地址
http://www.freewaregenius.com/2008/07/14/crp-automatically-re-launch-apps-and-control-a-programs-allowed-number-of-running-instances/
简介：可以检测设定的软件一直运行（一旦关闭会再次启动），可以设定某个程序能同时打开的个数。
图片：http://www.troupware.com/images/products/crp_ss.jpg

3）Phlox: use “f2″ in XP to rename files without overwriting file extensions
文章介绍地址
http://www.freewaregenius.com/2008/08/15/phlox-use-f2-in-xp-to-rename-files-without-overwriting-file-extensions/
简介：资源管理器用F2重命名，此软件的用途是按F2的时候，选中文件但不选中后缀，方便改名。其实这个功能在TC中则是内置的。
图片：http://www.mystercrowley.com/image/scrshot/phlox.png

4）“Types”: easily configure the default apps, icons, and context menu entries for file types
文章介绍地址
http://www.freewaregenius.com/2008/06/21/types-easily-configure-the-default-apps-icons-and-context-menu-entries-for-file-types/
简介：这个软件用于编辑不同软件类型的上下文菜单，图标，关联等等。比windows自身带的功能要强些。当然，你要是懂开源软件。不过需要.net frame 2.0。
图片：http://types.sourceforge.net/pix/vista.png

几何画板和geogebra

2008-08-26T16:10:00.005+08:00

业余的时候，会玩下几何，当然，实际工作如有限元分析中，几何知识也对我的建模提供了有力的技术支持。

支持轨迹、动画、迭代的几何画板是一个很好的软件，通过自定义工具，可以实现很高级的功能。
比如它可以做出如下的分形树的动画，当然还有更复杂的。
似乎blogger无法看到动画，那么，图形效果也如此处。

今天，dianlinchen老师介绍了一个geogebra软件，个人使用后感觉很好。
试用了一下，非常容易上手，很好用。
有几个优点
（0）免费，难得！
（1）程序思路非常清晰，网站wiki说程序是是由美国佛罗里达州亚特兰大学的数学教授 Markus Hohenwarter 所设计的。而看编写人员介绍中，这程序是一个硕士研究生的毕业论文课题，现在在其博士研究期间也还在不断更新。几乎不用看帮助就可以完成大部分的简单操作。很容易上手。
（2）直接基于JAVA程序编写，因而其动态网页输出结果非常好。
（3）物体属性较多，从颜色到线型到样式都很多。
（4）内置了圆锥曲线（同时会给出方程）、极线（反演）、切线（可以是圆、圆锥曲线、函数）、函数的求导
（5）有输入框，可以直接输入各种命令和函数等。
（6）从 GeoGebra 3.0 开始可以自订工具了,你可以于绘图的时候指定输入及输出物件,在工具列上建立你自己的绘图工具.在该网站的wiki中，可以看到不少美丽的图案和不少人贡献的工具，如Bezier曲线等
（7）网站的wiki，代表了一种开放式的思想，也可以有更多的人参与其中

觉得几何画板中有的而GeoGebra中个人还没有找到对应的工具的比如动画，似乎几何画板更容易些，迭代，还没有找到。

当然，试用半天肯定不能深入，以后有空再仔细探讨一下。

关于autocad中wmfout的精度问题

2008-08-21T22:07:00.004+08:00

前段时间，fools兄提过一个问题，在某些dwg图用wmfout的时候，会出现部分图的精度为2496DPI，而部分图为288DPI的情况。就算用betterwmf的时候也是如此。
前几天，终于在qq上与fools兄联系上。开始以为是某个系统变量所控制的，于是用acadinfo得到所有系统变量的数值，对输出高分辨率和低分辨率的图形的变量逐一对比，找不出任何的问题。

中间搜索得到了LISP高手MP在99年也提过类似的问题
http://groups.google.com/group/autodesk.autocad.customization/browse_thread/thread/c8cd6492373a7ac4/b3abe53cc8219f28?lnk=gst&q=wmfout+resolution#b3abe53cc8219f28

第二天早上继续，决定采用二分法来判别，逐步分离图层和物体，最终得到的结果是一个块。
有此块（block）的存在时，输出的wmf必是低分辨率（288DPI），此时各种物体歪曲失真。
经过分析，此块内有无名块(unname block)，最终我无法打碎这个块，于是我认为问题出在此无名块身上。但是后来联系上eachy和fools后，他们一直认为这块内有wipeout（遮盖物体）。于是最终解决了问题。

答案就是：当dwg图形内有wipeout实体时，无论是否选中wipeout实体运行wmfout（或者betterwmf）输出wmf的时候，会出现低DPI情况。

什么是低DPI，就是当你用WMFIN再次导入该WMF的时候，图形产生了较大的失真

如图

点滴记录

2008-08-13T20:26:00.005+08:00

1. 奥运会开幕了，开幕式还是很不错的，运动员的眼泪很让我感动，杜丽、朱启南、李小鹏……，无论成功或者失败，其实他们都站在了自己领域的世界之巅，让人钦佩。

2. 制作漫画图片的web网站
http://www.befunky.com/cartoonizer/index.php
效果真的很不错，比如

3.看电脑商情报的心得
软件：Orca：用于编辑MSI文件，可以人为修改起信息，使得安装与众不同，比如，让一些判别系统才能安装的软件可以突破这个限制。
此软件来源于微软的SDK，可以从Microsoft platform SDK for Windows Server 2003 R2中提取，可以在这里下载：http://www.greendown.cn/soft/4046.html

网站: 在线抓网站成为图片的网站：http://www.superscreenshot.com/
:)有时候这个挺有用的，比如拿来当代理用？最近自己的googlepages上不去了，倒是给抓屏抓下来看看了。

软件: Adobe pdf 9 ，支持插入flash了。

其实最近用SAP2000和MSTCAD作几个大型体育场的复核，倒是学了不少东西，编了许多程序，比如在cad中蒙皮以导入sap2000中使用，或者智能移动，lisp内嵌dcl等等，cad输出dxf的图层调序，dxf到sap2000的自动化导入等等，都是收获。几个学生也都很聪明，上手特别快。有目标的话效率比较高。

Placebar-修改文件打开窗口左边栏的默认文件夹

2008-07-30T23:14:00.004+08:00

在打开或者保存窗口，我们经常看到的是Histroy，Desktop等五个图标，而我经常希望它是我一个经常用到的目录，比如下载目录，但是一直不知道如何修改，或者说不知道怎么去搜索我的需求，所以我一直使用的是FileBoX Extender或者是Flash Folder，这几天终于在LifeHacker上看到这篇文章：PlacesBar Tweaker Edits Open and Save Locations

它的作用就是做这种修改，下图1 是程序的抓图，图2是修改后的抓图

当然，写此文时，还是习惯性的google一下，看看是否已有介绍，于是看到此文
http://www.raymond.cc/blog/archives/2008/02/29/how-to-change-windows-default-save-as-or-open-location/zh/
在此文中，我看到了powertoy或者gpedit.msc都可能可以修改，于是又觉得自己很是孤陋寡闻了。：）

在http://lifehacker.com/397358/placesbar-editor-customizes-windows-explorer又看到了一个和本软件很像的软件PlacesBar Editor:http://melloware.com/products/placesbarv1/

关于Autocad加载Arx程序时出现“AcRxDynamicLinker FAILED TO LOAD”的处理方法

2008-07-23T22:44:00.005+08:00

今晚，在安装Terrian for Autocad的时候，安装完毕之后出现“AcRxDynamicLinker FAILED TO LOAD” 无法加载Terrian2004.arx。由于早上在台式机上是可以安装的，因此个人觉得很是不解“

于是，开始google，在这里帖子里面
http://discussion.autodesk.com/thread.jspa?threadID=383305
Owen Wengerd-------President, ManuSoft ==> http://www.manusoft.com
给出了一个解决方法
去下载Dependency Walker（下载地址：http://www.dependencywalker.com/）来查看这个arx程序究竟关联了哪些dll，于是，经过不断的查错，首先发现少了一个efsadu.dll的dll文件，于是到这里（http://www.dll-files.com/dllindex/dll-files.shtml?efsadu）下载了此文件，后来还是不是，发现Dependency Walker提示sycgeo70.dll有问题，记起曾经安装过一个其他版本的Terrain，虽然后来卸载了，但可能这个存在windows目录下的dll没有被删除，于是，手工删除此文件，再重新安装一次之后，搞定。看来这个过程还是得记录下来，以免下次又遇到这种情况。当然，出现这个原因和安装卸载软件时候出现问题有关系。

Autohotkey版本的小巧计算器

2008-04-29T10:08:00.003+08:00

前段时间在小众软件这里看文章，看到
Calq - 轻巧漂亮的计算器
一文，恰好我也经常有这种小计算器的需求，而windows自带的软件不算特别顺手，于是曾经寻找过这类软件，后来找到了Autohotkey版本的程序。

一个是：Minimalist calculator，这个实现的功能和calq类似
地址是：
http://www.autohotkey.com/forum/viewtopic.php?t=9578
用alt+win+z调用

另一个的功能非常强大，我现在常用的
是Popup calculator / expression evaluator，这个可以有强大的科学计算功能，甚至矢量计算和绘图
地址是：
http://www.autohotkey.com/forum/topic26435.html
可以把自定义改成是win+c

注意，这个软件中，用"_"代表了上一个计算结果，底下的图中，有部分符号由于字体原因显示不好，同时给出了2进制、16进制、10进制等多种结果

不过，后来在小众这篇文章的讨论中，某位朋友告知了搜狗输入法最新版是可以当计算器用的，也是相当方便的。
比如vsqrt(4)+5^2-cos(33)

软件测试牛人

2008-04-25T11:08:00.004+08:00

使用软件之前，若能进行一系列的同类型软件测试，将能更好的把握住各软件的特点，做到磨刀不误砍柴工的效果。
很早的时候就听MBIRA说过有测试过几万个软件的牛人。今天在看TUCOWS的MUST HAVE APPLICATION中，看到了Dr. File Finder。
下面是他的介绍：

About Dr. File Finder

Michael E. Callahan, known around the world by the trademarked name Dr. File Finder, is regarded as the world's leading expert on shareware. Dr. File Finder works with software programs and developers full-time, and in the average year he evaluates 10,000 programs. Since 1982 he has evaluated over 240,000 software and hardware products. Mr. Callahan began evaluating software online in 1982 and no one has been at it longer. He currently works doing online PR and marketing for software companies, and is the Manager of Editorial Content on Tucows.

1982年开始软件评测，年均评测数约10000个，软件和硬件产品评测总量已经超过240000个。真是了不起啊。

快速启动栏的代替工具--True Launch Bar

2008-04-22T20:40:00.005+08:00

快速启动栏的代替工具--True Launch Bar

差不多到半年了，戒网的效率还是很高的，至少完成了好些难以完成的任务。

半年中，也试过了不少新的软件，Word的水平又有新的提高了，学会了部分新的专业软件，也有一部分由于时间关系无法再批量计算，以后再添加了。

先记录一个新软件 - True Launch Bar

来源：在同事的机器上看到他安装了一个 Deepin的xp系统，居然quick launch bar（快速启动栏）有子菜单。于是google一番，发现有推荐 free launch bar可以实现这个效果，再从free launch bar的主页找到了 true launch bar。安装了之后，觉得它就是我寻找了许久的软件。

界面如下:

我喜欢它的原因比较简单
1）可以定义子菜单
2）有不少插件可以添加在quick launch bar中，比如上图中添加的就是音量控制图标，还有一些任务切换，启动项，时钟等插件。
3）可选auto popup，就是鼠标移近后会自动跳出菜单或其他，我觉得这种自动弹出的功能很好，不过只有少数的软件会提供，比如之前提过的USB Safely Remove，要是其他软件都有这个选项控制就好了。
4）可建立多个bar，也可选多个不同目录。

本来想用Autohotkey编写一个自动读取Totalcmd的菜单栏的应用程序脚本，不过水平比较烂，一直未能实现。

Fav Menu3.0也有不错的应用效果。

戒网半年

2007-12-10T21:51:00.000+08:00

好好学习，一定做到，除发邮件

关于在Autocad中输入上下标文字和输入公式

2007-12-03T08:06:00.000+08:00

在acad12中输入公式是痛苦的，只能自己做了一套带上下标的shx字体。

acad14~2004中，用插入Mathtype Ole的方法来插入公式，总是有一个黑色的外框无法消除。在2004的Mtext中，假若输入的是symbol字体的话，会发现是无法使用斜体的。

输入上下标，在Mtext中，可以采用带^的符号与a/b这个图标相结合来完成，也可以采用在symbol菜单中调用\u+2082的方法来完成，后一种方法可以输入一些比较古怪的字符，但似乎还未能掌握其精髓。

在Autocad 2007中，输入公式总算得到不错的解决，Insert OLE object之后，可以选择修改属性的方法，让边框采用非常接近白色的truecolor来近似消除黑框的影响。大致如下图。

2007中也可以比较方便地使用symbol斜体了。看来有时候还是有必要升级的。其实2007是个很不错的版本，至少其三维功能强大了不少。

Mike Swanson的高清晰墙纸系列

2007-11-28T07:53:00.000+08:00

很漂亮
http://blogs.msdn.com/mswanson/articles/wallpaper.aspx

用OPENDCL创建自定义工具条

2007-11-27T07:46:00.000+08:00

对于CAD自身的DCL，总是无法做的很合心意。
OPENDCL有其特殊之处所在，因而利用其DOCK控件，制作了一些工具栏，自我使用方便一些。主要特点是为了按需加载，就是所有的程序，分为几个级别，第一种是常用的，随系统启动，用lisp或者autohook定义为左手键。第二种是这类DOCK工具，按需要进行加载。第三种是机器里成千上万个lisp程序，按类别分后，用lisplink的ctrl+a来调用。基本足矣。

USB设备删除软件- USB SAFELY REMOVE

2007-11-27T07:31:00.000+08:00

总是对WIN自带的USB删除程序不大满意，近日找到一个代替的软件，USB SAFELY REMOVE，且使用一段时间，看看其是否合意。

记录几个最近去过的网站

2007-11-09T18:15:00.000+08:00

1. www.readfree.net
这个可是软件高手老马也推崇和发帖的地方，网易的玉玲珑兄也赞不绝口之处，前段时间无法注册，11.06刚开放注册。

2. http://forum.cnool.net/thesis.jsp?thesisid=494
东方热线数学论坛。
在当年数学竞赛之时，单墫老师就是我们的偶像，吴建平老师等人都说单墫老师做IMO题目如同喝白开水般容易。如今，单老师的知己叶中豪先生也经常到此发表引人深思的数学文章，令人大开眼界。

3. http://www.ebookee.com/
一个国外查电子书的地方，链接许多是在rapidshare或者deposite等地方。

4. http://drop.io/
xbeta推荐的国外存储地址，除了速度慢之外，也没有什么缺点了。

5. http://dfc77.spaces.live.com/blog/
冲令狐_结构工程师的太极人生，是okok的冲令狐么：）
是清华大学的同行，我要向他好好学习。

[python] Numpy、scipy、Matplotlib的学习

2007-11-08T11:40:00.000+08:00

今天，重新捡起几个月前用scipy编写的非线性分析程序(主要用他进行非线性方程求解），发现numpy升级了。下载一下，记录一下。

http://www.scipy.org/

现在的numpy是2007.11.7（昨天）更新的1.04版本，而scipy是0.600版本了。python的编程给人以轻松愉快的感觉，安装上numpy和scipy的python更是具有强大的数值计算功能。

国内介绍scipy的并不多，下面是一篇

支持Python系列:Matlab的Python实现Scipy和Matplotlib简介

节选一些
" SciPy 是一个基于 Python 的项目，它旨在再现 MATLAB 的所有功能，优化其性能并简化与其它软件的集成，同时仍保持完全免费以及至少和 MATLAB 一样易于使用。" (http://www-128.ibm.com/developerworks/cn/linux/l-oslab/index.html) Scipy每年都有SciPy Conference,目前的版本还是04年的0.3.2，需要Python2.3 wxPython2.4 Numeric23等支持。Scipy的结构是scipy_core和scipy_lib两个部分，不过自己编译比较麻烦，要C和Fortran编译器。如果你需要比较完整的Matlab功能支持，可以选择它。建议安装Enhanced Python (http://www.enthought.com/python/) ，一次安装，该有的都有了。…………

而要实现多一些绘图功能，则可以选用MATplotlib。
同样是上面的blog网址，给出了下面的介绍
“Matplotlib 是一个由 John Hunter 等开发的，用以绘制二维图形的 Python 模块。它利用了 Python 下的数值计算模块 Numeric 及 Numarray，克隆了许多 Matlab 中的函数，用以帮助用户轻松地获得高质量的二维图形。Matplotlib 可以绘制多种形式的图形包括普通的线图，直方图，饼图，散点图以及误差线图等；可以比较方便的定制图形的各种属性比如图线的类型，颜色，粗细，字体的大小等；它能够很好地支持一部分 TeX 排版命令，可以比较美观地显示图形中的数学公式。Matplotlib 掌握起来也很容易，由于 Matplotlib 使用的大部分函数都与 Matlab 中对应的函数同名，且各种参数的含义，使用方法也一致，这就使得熟悉 Matlab 的用户使用起来感到得心应手。对那些不熟悉的 Matlab 的用户而言，这些函数的意义往往也是一目了然的，因此只要花很少的时间就可以掌握。”

此处更有韦建明，蔡晓睿 (wei@uni-duisburg.de)给出的实例
http://www-128.ibm.com/developerworks/cn/linux/l-matplotlib/?ca=dwcn-newsletter-linux

还可以支持部分的latex，很不错。
转载贴图

[autolisp] 增加Autolisp相关网站链接

2007-11-06T08:45:00.000+08:00

1. http://www.cadesigner.com/Downloads.htm

2. http://paracadd.com/lisp.htm
http://paracadd.com/lisp/lisp_lst.htm
有一个叫http://paracadd.com/lisp/lsplst.lsp的程序挺好的，自动生成html页面
http://paracadd.com/lisp/

3.一个韩国的网站，收集了大量不错的lisp程序，可以发现，其不少程序是来自于theswamp。
http://www.acadvba.com/zero/zboard.php?id=codelisp

4. MP- Michael Puckett -一个国际知名autolisp高手的主页，有好些精彩的函数。他的主页做的非常精致，层次结构很好。
http://tiddlyspot.com/cadlabs/

备份blogspot的文章

2007-11-05T20:44:00.000+08:00

blogspot当然是非常好的博客网站，但是其不断的被封让人颇为沮丧。每年开放的时间比不开放还短。虽然可以通过一定的方法进来，但总是无趣。

前几天把blogspot备份到了http://qjchen.yo2.cn。
做法和网上的介绍类似。

首先，到blogbackupOnline
https://www.blogbackuponline.com/techrigy/signup.aspx
注册一个账号，然后添加个人的blogspot，则其会把整个博客的文章导出为一个xml文件，这个文件很全，包括了文章和评论。
有了这个xml文件，就可以在某些其他网站中导入了，比如wordpress.com
就支持的最好，具体可见 http://qjchen.wordpress.com 。可惜这个站点也马上被封了。于是寻找国内可以导入xml文件的网站，发现yo2网站口碑不错，于是，在yo2里面导入了这个xml文件，可是评论导入不了。地址在: http://qjchen.yo2.cn。发现现在各个博客网站拼命的可以搬入各种其他网站的，但是在搬出方面还是很有点问题的。yo2还是很不错的，具有大量的插件，特别是代码高亮方面已经自己集成了，就比blogspot方便，唯一比较麻烦的是标签没有导入到，不如wordpress.com。

不过还是会以blogspot为主，毕竟，google的声誉还是不错的。

[autolisp] 将圆内的文字移动到圆中心处

2007-11-04T16:43:00.000+08:00

[autolisp] 将圆内的文字移动到圆中心处

;;; -----------------------------------------------------------------;
;;; Purpose: move the text inside circle to the center of the circle ;
;;; write by qjchen ;
;;; http://qjchen.yo2.cn ;
;;; http://chenqj.blogspot.com ;
;;; -----------------------------------------------------------------;
(defun c:test (/ std-sslist movetocenter)
(command "_undo" "_be")
(setting)

(defun std-sslist (ss / n lst)
(if (eq 'pickset (type ss))
(repeat (setq n (fix (sslength ss))) ; fixed
(setq lst (cons (ssname ss (setq n (1- n))) lst))
)
)
)
(defun movetocenter (/ a x txtobj center_circle outline b bobject objss
res midpoint
)
(setq a (ssget '((0 . "circle"))))
(setq a (std-sslist a))
(foreach x a
(setq txtobj nil)
(setq pub x)
(setq center_circle (assoc 10 (entget x)))
(setq outline (objectpoint (entget x)))
(setq b (ssget "_cp" outline '((0 . "TEXT"))))
(setq bobject (ssname b 0))
(setq objss (vlax-ename->vla-object bobject))
(setq res (xyval1 objss))
(setq midpoint (midp (list (nth 0 res) (nth 1 res)) (list
(nth 2 res)
(nth 3 res)
)
)
)
(command "move" bobject "" midpoint (cdr center_circle))
)
)
(movetocenter)
(resetting)
(command "_undo" "_e")
)

;;; the subrountine is write by qjchen to get selection by circle
;;; and lwpolyline
(defun objectpoint (obj / name ori i r w_pl_lst wlist)
(setq name (cdr (assoc 0 obj)))
(cond
((= name "CIRCLE")
(setq ori (cdr (assoc 10 obj)))
(setq r (cdr (assoc 40 obj)))
(setq i 0)
(repeat 30
(setq wlist (append
wlist
(list (polar ori (* 2 pi (/ i 30.0)) r))
)
)
(setq i (1+ i))
)
)
((= name "LWPOLYLINE")
(defun w_pl_lst (ent / pt_list)
(foreach x ent
(if (= (car x) 10)
(setq pt_list (append
(list (cdr x))
pt_list
)
)
)
)
pt_list
)
(setq wlist (w_pl_lst obj))
)
)
wlist
)
;;; _ end of xyval
;;; ---The following codes are copy from Tony Hotchkiss at cadalyst
;;; Get the boundingbox of one object
(defun xyval1 (obj / minpt maxpt topy bottmy leftx rightx)
(vla-GetBoundingBox obj 'minpt 'maxpt)
(setq pt1 (vlax-safearray->list minpt)
pt2 (vlax-safearray->list maxpt)
topy (cadr pt2)
bottmy (cadr pt1)
leftx (car pt1)
rightx (car pt2)
) ; _ end of setq
(list leftx bottmy rightx topy)
)
;;; The error function
(defun err (s)
(if (= s "Function cancelled")
(princ "\nALIGNIT - cancelled: ")
(progn
(princ "\nALIGNIT - Error: ")
(princ s)
(terpri)
) ; _ end of progn
) ; _ end of if
(resetting)
(princ "SYSTEM VARIABLES have been reset\n")
(princ)
)
;;; err
;;; setting and resetting the system variables
(defun setv (systvar newval / x)
(setq x (read (strcat systvar "1")))
(set x (getvar systvar))
(setvar systvar newval)
)
;;; setv
(defun setting ()
(setq oerr *error*)
(setq *error* err)
(setv "BLIPMODE" 0)
(setv "CMDECHO" 0)
(setv "OSMODE" 0)
)
;;; setting
(defun rsetv (systvar)
(setq x (read (strcat systvar "1")))
(setvar systvar (eval x))
)
;;; rsetv
(defun resetting ()
(rsetv "BLIPMODE")
(rsetv "CMDECHO")
(rsetv "OSMODE")
(setq *error* oerr)
)
;;; -------------------------------------------------------
(defun midp (p1 p2)
(mapcar
'(lambda (x)
(/ x 2.)
)
(mapcar
'+
p1
p2
)
)
)
;;; The following code taken from Mr.Tony Hotchkiss at Cadalyst
(defun err (s)
(if (= s "Function cancelled")
(princ "\nregion clean - cancelled: ")
(progn
(princ "\nregion clean - Error: ")
(princ s)
(terpri)
) ; _ end of progn
) ; _ end of if
(resetting)
(princ "SYSTEM VARIABLES have been reset\n")
(princ)
)
;;; err
;;; setting and resetting the system variables
(defun setv (systvar newval / x)
(setq x (read (strcat systvar "1")))
(set x (getvar systvar))
(setvar systvar newval)
)
;;; setv
(defun setting ()
(setq oerr *error*)
(setq *error* err)
(setv "BLIPMODE" 0)
(setv "CMDECHO" 0)
(setv "OSMODE" 0)
)
;;; setting
(defun rsetv (systvar)
(setq x (read (strcat systvar "1")))
(setvar systvar (eval x))
)
;;; rsetv
(defun resetting ()
(rsetv "BLIPMODE")
(rsetv "CMDECHO")
(rsetv "OSMODE")
(setq *error* oerr)
)

开车菜鸟的几个深刻记忆

2007-10-31T11:53:00.000+08:00

我对开车一直没有很大的兴趣，买了半年多的车，还不到5000公里，水平也还是超低。

记录几个事件，提醒一下自己。

1）买车前借哥的车出去，结果准备走的时候，倒车太早打方向盘转位，结果把旁边的车刮花了，对方车主又不在，等了足足半天，对方车主来把我臭骂一顿，说没有见过这么差的技术。

2）搭怀孕的老婆、岳父岳母上街。平时由于只搭一人，上车时间固定，因此还没等人上齐关门就开车，结果轮胎把最后上的老婆的鞋压住了，还开始向前走，幸亏幸亏，接下来没有油门当刹车。被老婆臭骂一顿。

3）有两次倒车完没有即时换空挡或前档，接下来加油狂向后冲，差点出事。

4）经常忘记放手刹。同下面的文盲事件2

5）某天早上发现开不了车了，结果7点多把买车的老兄电话揪起来，把他郁闷死，同下面的文盲事件3

不过嘛，吃一堑长一智，每个事件都让我深刻记住，希望以后不会再出现了。

下面是PCAUTO论坛的一篇文章，转载学习一下：）

http://bbs.pcauto.com.cn/topic.jsp?tid=671752

文盲事件①文盲指数:★★★★★

陈女士买了一辆POLO，第二天打火时钥匙却扭不动了。难道刚买的新车出问题了？她立马到路边店找了个修理工来检查，修理工检查后告诉她，只有把方向锁锯了。费了好一翻功夫，方向锁被锯下来了，车也点燃火了。陈女士立刻将车开到4S店，要求换辆新车。4S店的维修员有些哭笑不得。因为现在的汽车基本上都配置有方向锁，当你扭不动钥匙的时候，左右转动一下方向盘，就可以启动汽车了。

文盲事件②文盲指数:★★★★☆

王女士开车去接孩子放学，一路上感觉车子没力，一直在震动，油门踩到底速度都提不起来。一好心车主追上她后，告诉她车后面在冒黑烟，王女士听后吓了一大跳，还以为汽车要爆炸了，赶忙停车打电话叫老公过来看看。结果，仔细检查发现，开了10多公里路，她居然没将汽车的手刹松开。

文盲事件③文盲指数:★★★★☆

今年夏天，老李买了一辆307，有一次洗完车后坐在车里感觉屁股下面很热，把空调开到最低温度仍然不起作用。老李很纳闷，平时洗车后，车内都非常清凉，这次怎么觉得屁股上像有团火在烧呢？原来他在洗车的时候，洗车工人不小心把坐椅下面的电加热开关打开了。

文盲事件④文盲指数:★★★☆☆

李先生刚刚买了一辆豪车，迫不及待想试试爱车的动力，体验一回速度与激情。他以平均200公里/小时的速度在高速路上飞奔，还打电话向朋友炫耀，结果他的爱车磨合期没跑完，发动机就出问题了。原来新买的汽车都需要开磨合期，而磨合期内速度一般都不能超过80公里/小时。

文盲事件⑤文盲指数:★★★★

在一次旅途中，李小姐的爱车雨刮器里没水了，于是她打开引擎盖，将一瓶矿泉水直接加进了一个专门的水箱里，关上引擎盖，点燃火后正准备起步，她发现仪表盘上的刹车指示灯突然亮了，检查了半天也没找到原因，原来她将水误加到了刹车液里。

Opensees的学习

2007-10-31T11:49:00.000+08:00

前段时间，把OPENSEES的钢材和混凝土的本构模型都做了一遍静力和滞回的测试，对其了解深入了一些。

同时，建立了一个中节点模型来对试验结果进行验证，里面主要涉及到这些：1.节点单元（需要输入滑移信息，有默认的bar-slip模型，也有别人添加的bar-slip01模型，这个模型它的算例里面比较麻烦的就是公制和英制，学了半天才大概有些清楚，似乎它的算例和说明文档对不起来，看来这种私人开发的模型还有许多技术文档没有完善的） 2. 直接采用混凝土和钢材的各种本构模型，此时，其实也可以算出很好的滞回曲线，不过在节点区有比较大滑移的情况下，应该还是不太适合。3.pinch4本构，这个其实和上述2结合之后，也可以做出不错的效果。

下面是一些结果图。

不错的软件，conceptdraw和有道网络词典

2007-10-22T17:34:00.000+08:00

绘制流程图的软件有许多
smartdraw以具有大量的图库而让人称道，visio是ms正统。
conceptdraw具有新时代软件的美观性，易于上手且图画精美。如下图

有道词典，确实的词汇量比较大，不少的专业名词都可以得到解答。

一些不错的建筑结构专业词典工具

2007-10-20T11:29:00.000+08:00

建筑结构的各类词组，在金山词霸中总是找不到。

因此，我经常上采用如下的几个方法。

1.雅信翻译软件。
在此软件的建筑词库中，有大量的专业名词，整句翻译也不错，但若作为简单的翻译软件，则稍显复杂。

2.早期的“网络词海”
现在网站已经不存在了，是清华大学的一个页面，大概是98，99年的。

3.现在的“有道海量词典”
http://dict.yodao.com/
这个非常好，刚才查了好些名词，都有。鉴于家里已经装了宽带包月，此时用此网络词典就不成问题了。

4.华建词典
很早就有的一个词典软件，不过词汇量似乎不是很大。

5.规范
建筑结构规范中有一本专业名词，当时我做过一个excel表，现在经常用之查询。

6. 21世纪词典
这个待补上

当老爸了

2007-10-14T21:03:00.000+08:00

2007年10月10日晨5：54
小儿诞生，5斤8两
看着小生命睁开眼睛好奇的看着周围的世界，我很激动。
为了他，我必须做的更好。

Autohotkey在TC中的应用—包括TrayIcon的Alt-Tab问题

2007-08-11T11:26:00.000+08:00

Autohotkey在TC中的应用—包括TrayIcon的Alt-Tab问题

偶逛TC的wiki，才发现有脚本这一块，把喜欢的Autohotkey所有文章翻了一遍，找出几个自己喜欢的整理一下，可能是我孤陋寡闻，见笑了：）。也学习AHK是如何来控制TC的，以便以后DIY。

Autohotkey的应用请google一下，很简单的。

（http://chenqj.blogspot.com， qjchen）

1）让TC在trayicon的情况下ALT-TAB时不用再按enter，这个问题在TC论坛上也颇久了，G兄似乎也没有想去解决之。所以有如下ahk。
#Persistent
#SingleInstance force
#NoTrayIcon
SetTimer subTimer, 500
subTimer:
If WinActive( "ahk_class switchwin2" )
{
SendInput, {Enter}
}
Return

2）鼠标中键打开新的Tab（不一定很必要）
cm_OpenDirInNewTab := 3003
#IfWinActive ahk_class TTOTAL_CMD
$MButton::
MouseGetPos, , , , sControl
if (sControl != "TMyListBox1" and sControl != "TMyListBox2")
{
Send {MButton}
Return
}
Click
PostMessage 1075, %cm_OpenDirInNewTab%, 0
Return

3)通过热键调整splitter（就是用键盘调用窗口分隔条，可能是我愚笨，没有在TC的command中找到这个键盘快捷键）
http://www.ghisler.ch/wiki/index.php/AutoHotkey:_Popup_the_splitter_menu
; Win-G (Total Commander: splitter menu)
~#g::
if not WinActive( "ahk_class TTOTAL_CMD" )
Return

WinGet sf_aControls, ControlList
Loop Parse, sf_aControls, `n
{
StringLeft sf_sTemp, A_LoopField, 6
if (sf_sTemp = "TPanel")
{
ControlGetPos Cx,Cy,Cw,Ch, %A_LoopField%
if (Cw < 16)
{
ControlClick %A_LoopField%, A,,RIGHT
Break
}
}
}
Return

4）TC Fav Menu
http://www.ghisler.ch/wiki/index.php/AutoHotkey:_TC_Fav_Menu
文件较大
这个可以把TC的收藏夹也作为可以为资源管理器所用，也可以作为Open和save时候所用

5）在TC的标题栏里面显示文件路径（这个是用来开心的吧:P，自己加点什么有趣的信息上去TITLE）
#Persistent
SetTimer subTimer, 250
subTimer:
if WinActive( "ahk_class TTOTAL_CMD" )
{
ControlGetText sPath, TMyPanel2
StringMid sPath, sPath, 1, StrLen(sPath) -1
WinGetTitle sWindowTitle
if ( sWindowTitle != sPath )
WinSetTitle %sPath%
}
Return

6）在进度条上显示进度的已用时间，剩余时间，总时间，和开始结束时间
http://www.ghisler.ch/wiki/index.php/AutoHotkey:_Show_elapsed_/_remaining_/_total_/_start_/_finish_times_in_title_bar_of_progress_dialogs
代码颇长。
在进度条激活的情况下，按shift键就可以了。

7）给工具栏图标Toolbar Icon增加弹出菜单，可以多项启动参数。
http://www.ghisler.ch/wiki/index.php/AutoHotkey:_Popup_menu_for_button_bar_or_F4

8）最大化窗口的情况下，双击窗口的最左边或者最右边将去到相应的根目录
RegRead, DoubleClickSpeed, HKEY_CURRENT_USER, Control Panel\Mouse, DoubleClickSpeed
If DoubleClickSpeed =
DoubleClickSpeed = 500

~LButton::
IfWinActive, ahk_class TTOTAL_CMD
{
If A_TimeSinceThisHotkey >= %DoubleClickSpeed%
ClickCount = 0
MouseGetPos, xcoordinate
If xcoordinate = 4
{
ClickCount++
PostMessage 1075, 4001, , , ahk_class TTOTAL_CMD
}
If (xcoordinate = A_ScreenWidth+3)
{
ClickCount++
PostMessage 1075, 4002, , , ahk_class TTOTAL_CMD
}
If ClickCount = 2
{
PostMessage 1075, 2002, , , ahk_class TTOTAL_CMD
ClickCount = 0
}
}
Return

有空把其他几个脚本的也翻一遍，看看有没有什么好的。

关于制作多张图片的拼接图

2007-08-03T13:59:00.001+08:00

关于制作多张图片的拼接图
问题提出：有100多张图片，想制作比较满意的索引图（大致可以看清，但不能太清晰以防被直接盗用）。
photoshop肯定是可以做到，有些麻烦，方法可能很多，我用了三种。
1）picasa的工具--创建--图片拼接
缺点：可选项太少，大小无法控制。

2）直接用图片浏览软件看，滚屏抓图
这个是我当时采用的方法，用Totalcmd看缩略图，可以控制图片预览大小，背景，行列数。其他软件均可做到。而后滚屏抓图。
3）Picture Merge Genius。
所谓术业有专攻，它的功能就是拼图，而且只是横竖拼图。容易用，也可以方便调整几个图片的相对位置，效果如下。

Joseflin的100多道几何作图题目

2007-08-01T20:40:00.000+08:00

在Mjtd的几何算法板块，Joseflin版主热心贡献的大量题目，无疑是该版的支柱，相信每一个对画图有浓厚兴趣的朋友都希望能全部尝试一遍，我完成了一小部分，还有不少没有完成，而且经常忘记题目是在挑战几之中。

贸贸然的将Joseflin版主的1~100号题目做成小图索引，并配上链接，在经过版主的允许之后，发在了Mjtd版，也在这里备份一下。

Artrage2.5 是个很好玩的绘图软件

2007-08-01T09:00:00.000+08:00

似乎2.5多了一些特性。
Artrage除了细腻的笔触之外，它的stencil（镂空模板），tracing（底图模仿），ref（参考画）等都有着和实际绘画接近的概念。
唯美的界面也让人心怡。
小侄子经常用它乱涂乱画。

如何批量修改Acad中标注的字体高度

2007-08-01T08:58:00.000+08:00

如何批量修改Acad中标注的字体高度

方法1：
用qselect命令选取所需要的标注
在properties（属性）窗口统一修改高度

方法2
打dim命令，键入ov，要求输入系统变量名称，键入dimtxt，给出新高度，选取标注。

方法2其实是更加古老的方法的，至少R14是可以用的。

看来Acad本身的命令还是很丰富的，至少像用circle的3p tan tan tan方法来画阿波罗尼斯圆的我就没有掌握的很好。

唯美壁纸

2007-07-26T10:53:00.000+08:00

http://www.cnbeta.com/articles/33913.htm

这里发了几个zol的壁纸，果然很漂亮

在明经通道mjtd的几何版做的题目

2007-07-12T10:23:00.000+08:00

几何作图一直是我的喜爱，大概在初中的时候就学的很有意思了，现在茶余饭后常去mjtd的几何作图区逛逛，做做题目，放松一下。
半年多来，做了如下一些题目，也记录一下

个人对明经通道的几个完成情况
（1）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=52643&replyID=42316&skin=1
Joseflin兄的挑战39
方法：旋转法构建三角形内比例长度的线段
（2）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=52163&replyID=42437&skin=1
tqr兄的画梯形
方法：外切圆的四边形对边和相等
（3）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=56222&replyID=42500&skin=1
tqr兄的圆周上的圆
方法：弧角和圆心角规律
（4）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=52733&replyID=42414&skin=1
http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=52733&replyID=42553&skin=1
Joseflin兄的挑战44，ahlzl的经典题目
方法：比例三角形的方法
（5）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=55212&replyID=42574&skin=1
highflybird兄的题目，三角形内一点的三个角相等
方法：三角形的某角补角等于其两内角和
（6）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=55175&replyID=42675&skin=1
ahlzl的题目，世界名题
方法：看书
（7）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=56380&replyID=43034&skin=1
Joseflin的挑战103，两圆和切圆
方法：Maple计算
（8）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=52550&replyID=43176&skin=1
Joseflin的挑战34，矩形和多个外切圆
方法：挺弱的，计算法
（9）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=55608&replyID=43177&skin=1
highflybird兄的一元二次方程求解
方法：射影定理
（10）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=57082&replyID=43185&skin=1
原创：圆内弦长相等
（11）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=57103&replyID=43268&skin=1
题目：1，已知垂足点，求三角形
2，已知中线，角平分线，高线，画三角形
方法：来源自许莼舫的几何画图
（12）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=57116&replyID=43329&skin=1
题目：1，平分四边形
2，平分三角形
方法：乱想
（13）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=55022&replyID=43559&skin=1
Joseflin兄的挑战86，梯形内画三切弧
方法：Maple硬算，觉得缺条件
（14）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=57307&replyID=44155&skin=1
http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=57307&replyID=44505&skin=1
题目：1. 对三角形内找点分面积
2. 三角形内边找等边▲
方法：看书和乱想
（15）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=58054&replyID=47932&skin=1
Joseflin的挑战105，三角形计算
方法：射影定理
（16）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=58086&replyID=48030&skin=1
题目：1.光线反射问题
2.圆内三角形周长最短问题
（17）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=58134&replyID=48376&skin=1
highflybird的三角形分割问题
方法：有一定的证明原理
（18）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=59511&replyID=54711&skin=1
tqr的画正方形问题
方法：旋转和scale
（19）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=60105&replyID=57257&skin=1
tqr的画梯形
方法：第二次采用插值法，第一次在三角形内等边三角形处用到
（20）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=59990&replyID=57277&skin=1
Joseflin的挑战111，矩形内的切圆
方法：插值法，到两点的距离成比例的轨迹是圆
（21）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=55151&replyID=57324&skin=1
Joseflin的挑战91，方形内半圆，求点与顶点，切点的距离成比例
方法：插值法，了解到插值法的妙处和缺点
（22）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=60220&replyID=57808&skin=1
Joseflin的挑战114，两圆内多切圆
方法：缩放和一些几何性质
（23）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=53253&replyID=57822&skin=1
Joseflin的挑战63，三角形内直线+两切圆
方法：Python编程
（24）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=60256&replyID=57949&skin=1
题目：盒子内放棋子的问题
方法：《中学生数理化》
（25）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=52142&replyID=57966&skin=1
Joseflin的挑战25，梯形内切圆
方法：Maple，不得已
（26）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=60597&replyID=59539&skin=1
http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=60597&replyID=59656&skin=1
Joseflin的挑战122，椭圆
方法：狂算丢人法
（27）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=60644&replyID=59729&skin=1
题目：定周长题及三圆相切题
方法：看书，椭圆求法
（28）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=60975&replyID=61417&skin=1
tqr的画椭圆题
方法：缩放法，缩放的过程中不影响长度比值，个人很自豪的一道解法
（29）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=61103&replyID=62005&skin=1
Joseflin的挑战132，内切圆题
方法：椭圆求法
（30）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=61098&replyID=62104&skin=1
Joseflin的挑战131，方形内切圆题
方法：构建法
（31）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=61136&replyID=62113&skin=1
题目：角平分线题
方法：来源《数学竞赛题》
（32）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=61148&replyID=62168&skin=1
题目：圆内线段相等题
方法：来自《几何变换》
（33）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=61204&replyID=62600&skin=1
Joseflin的挑战133，三角形题
方法：垂直平分线题
（34）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=61232&replyID=62727&skin=1
Joseflin的挑战137，求证题
方法：变画图为求证
（35）http://www.mjtd.com/BBS/dispbbs.asp?BoardID=37&ID=61493&replyID=64158&skin=1
Joseflin的挑战142，长度相等题
方法：几何变换的平移

opendcl的博客和论坛和highflybird兄的应用

2007-07-12T08:26:00.000+08:00

在jtbworld里面看到的

http://www.opendcl.com/
http://www.opendcl.com/forum/

它的论坛和theswamp用的是同个架构软件，个人挺喜欢。

highflybird兄最近写了一个很高级的物体跟随反应器

发起时间：2007年07月08日17点53分">[原创]：十年磨一剑--openDCL和反应器
http://www.xdcad.net/forum/showthread.php?s=&threadid=637122

写的很好，佩服佩服

好久无法登录了，数码照片DVD

2007-06-26T21:30:00.000+08:00

最近用照片做dvd
发现比较好的软件是数码故事和MemeryonTV。
前者有比较细腻的自定义功能，后者简单实用，不过计算2G的时间都得2个小时左右。

Autocad图中字体边缘粗糙（字体毛边）的处理方法

2007-06-10T20:31:00.000+08:00

Autocad图中字体边缘粗糙的处理方法

在Autocad中，经常会遇到Truetype字体毛边的情况。由于经常要拷贝到Word里面去，毛边会使得打出来的图不够清晰。

大概有如下原因。

1）绘制Text时，比如采用宋体或者Time New Roman等字体时，假如设置的Width宽度不为1时，常会出现这种情况，此时可修改此字体的Width即可。Mtext和Dimension没有Width可以选，此时，只能用style命令直接修改这种字体的Width因子。

2）曾经多时困扰的是这个问题，Mtext的字体Width因子已经为1，而字体仍然毛边。今天总算知道，大概是Acad本身的Bug，因为此时开一新图，把那些毛边的一个Dimension或者Mtext拷贝到新图里面去，可以发现，其实其Width因子其实不为1。此时，回到旧图，把原来的Width=1先改为Width为2，出到图中，发现均已变胖，再回去，把Width修改为1，此时，毛边终于消失。

权当学习记录。

批量lsp2html(命令test，默认目录c:\a)

2007-06-04T19:55:00.000+08:00

原帖在此，七楼
http://www.xdcad.net/forum/showthread.php?postid=3232315#post3232315


(defun c:test (/ direc directree x y direcfile)
 (setq direc (getstring "\nc:\\a:"))
 (if (= direc "") (setq direc "c:\\a"))
 (setq directree (@Folders direc))
 (foreach x directree
   (setq direcfile (qj-directory-only-files x))
   (foreach y direcfile
 
     (if (= (vl-filename-extension y) ".lsp")
   (lsp->html y)
     )
   )
 )
)


;*******************************************************************************************
;* Here is a simple lisp routine to convert a lisp file to html in Visual Lisp format      *
;*******************************************************************************************
(defun html-format (str)
 (vl-string-subst "&lt;" "<" (vl-string-subst "&amp;" "&" str))
)
(defun lsp->html (file /  rf wf t1 str char i f argument)
 ;(setq file (getfiled "Select Lisp File" (getvar "dwgprefix") "lsp" 0)
 (setq    rf (open file "r")
   wf (open (strcat (vl-filename-directory file) "/"
            (vl-filename-base file) ".html"
        ) "w"
      )
 );s
 (write-line (strcat "<title>" (vl-filename-base file) "</title>") wf)
 (write-line "<pre><font face=Fixedsys color=black size=1>" wf)
 (while (setq t1 (read-line rf))
   (setq str ""
     i 1
   )
   (while (<= i (strlen t1))
     (setq word "")
     (while (not (member (setq char (substr t1 i 1))
             '("" " "
              ";" "("
              ")" "\""
             )
         )
        )
   (setq word (strcat word char)
         i (1+ i)
   )
     );w
     (if (= word "")
   (setq word char
         i (+ i (strlen char))
   )
     )
     (if (= word ";")
   (setq str (strcat str "<font color=purple><span style=\"background-color: #C0C0C0\">"
             (html-format (substr t1 (1- i))) "</span></font>"
         )
         i (1+ (strlen t1))
   );s
   (cond
     ((member word '("(" ")"))
       (setq str (strcat str "<font color=red>")
         i (1- i)
       )
       (while (member (setq char (substr t1 i 1))
              '("(" ")")
          )
         (setq str (strcat str char)
           i (1+ i)
         )
       );w
       (setq str (strcat str "</font>")
         f (= (substr t1 (1- i) 1) "(")
       )
     )
     ((= word "\"")
       (setq str (strcat str "<font color=#FF00FF>" word))
       (while (and
            (/= (setq char (substr t1 i 1))
            ""
            )
            (or
              (/= char "\"")
              (and
            (> i 1)
            (= (substr t1 (1- i) 1) "\\")
            (or
              (= i 2)
              (/= (substr t1 (- i 2) 1) "\\")
            )
              )
            )
          )
         (setq str (strcat str (html-format char))
           i (1+ i)
         )
       );w
       (setq str (strcat str char "</font>")
         i (1+ i)
       )
     )
     ((= word "'")
       (setq str (strcat str "<font color=#800000>'</font>"))
     )
     ((= word "/")
       (setq str (strcat str "<font color=blue>/</font>")
         argument nil
         f nil
       )
     )
     ((= word ".")
       (setq str (strcat str word))
     )
     ((numberp (read word))
       (setq str (strcat str "<font color=green>" word "</font>")
         f nil
       )
     )
     (f (if argument
          (setq str (strcat str (html-format word))
            argument nil
            f nil
          )
          (setq str (strcat str "<font color=blue>"
                (html-format word) "</font>"
            )
            argument (= (strcase word) "DEFUN")
            f nil
          )
        )
     );f
     (T
       (setq str (strcat str (html-format word)))
     )
   );c
     );i
   );w
   (write-line str wf)
 );f
 (write-line "</font></pre>" wf)
 (close rf)
 (close wf)
 (princ)
)
;d
(prompt "\nType \"test\" at the command prompt to run routine.")
(princ)
;;; ========================================================================
;;; Some of the following code are writen by CHEN QING JUN                 ;
;;; Civil engineering Department, South China University of Technology     ;
;;; Purpose: To get a file list of the currrent path                       ;
;;; The platform: Acad2000 and after                                       ;
;;; 2006.07.12                                                             ;
;;; Http://autolisper.googlepages.com                                      ;
;;; Http://qjchen.googlepages.com                                          ;
;;; ========================================================================
(defun qj-directory-only-files (path / lst res)
 (setq lst (vl-directory-files path))
 (setq lst (mapcar
         '(lambda (x)
        (strcat path "\\" x)
          )
         lst
       )
 )
 (foreach x lst
   (if (not (vl-file-directory-p x))
     (setq res (append
         res
         (list x)
       )
     )
   )
 )
 res
)
;;; ========================================================================
;; given the parent folder as a Path.                                      ;
;; Note that using a path of "" or "." or "\\" will exclude                ;
;; the drive letter.  McNeel's DOSLIB has a DOS_FULLPATH function          ;
;; that can return such folders with drive designations.                   ;
;; (c) John F. Uhden, Cadlantic                                            ;
;;; ========================================================================
(defun @Folders (Path / Folders @Dirs)
 (defun @Dirs (Path / Dir Dirs)
   (and
     (= (type Path) 'STR)
     (or
   (/= (type DOS_FULLPATH) 'EXRXSUBR)
   (setq Path (DOS_FULLPATH Path))
     )
     (if (wcmatch Path ",*/,*\\")
   (setq Dir Path)
   (setq Dir (strcat Path "\\"))
     )
     (setq Dirs (vl-directory-files Dir "*.*" -1))
     (setq Folders (cons Path Folders))
     (setq Dirs (vl-remove-if '(lambda (x)
                 (vl-position x '("." ".."))
               ) Dirs
        )
     )
     (mapcar
   '@Dirs
   (mapcar
     '(lambda (x)
        (strcat Dir x)
      )
     Dirs
   )
     )
   )
 )
 (@Dirs Path)
 (reverse Folders)
)

一些办公小秘籍-（快捷键盘操作Autohotkey和快捷鼠标操作True X mouse）

2007-05-25T21:35:00.000+08:00

一些办公小秘籍-（快捷键盘操作和快捷鼠标操作True X mouse）

qjchen@gmail.com

有用且有趣的鼠标拷贝粘贴软件

有时候总会做大量的拷贝粘贴工作，按ctrl+x和ctrl+v都会按到半死。虽然我也是键盘操作爱好者，我会如此来做。

首先，我安装了Autohotkey，那么我的操作就可以这样来。
打开一个文本，键入如下内容，存盘为abc.ahk
F1::^c
F2::^v

那么，以后的F1和F2就代表为拷贝粘贴了。

比如在word里面，经常会按照第一行存盘，可是我用的是Textpad，没有这个功能，怎么办，于是，我在abc.ahk中加入这么一句：
;按照选定的文本进行另存为；按键win+s
#s::send,^c!fa^v
那么，以后在存盘之前，我先选择一段文本，那么按Win+s，就会出现按选择文本命名的窗口了。

--------------------------------------------------------------------------
题外话（讲些有限元软件Diana的后处理操作）
在diana的后处理里面，经常需要键入不少内容，有时候常会忘记，得查询，于是我定了不少的快捷键在autohotkey里面，以后有空要根据我的需要来修正了。
::/c::PRESENT CONTOUR LEVELS{enter} ;得到等值线图
::/d::RESULTS NODAL TDTX...G RESTDT{enter} ;得到位移
::/dx::RESULTS NODAL TDTX...G TDTX{enter} ;得到位移
::/dy::RESULTS NODAL TDTX...G TDTY{enter} ;得到位移
::/dz::RESULTS NODAL TDTX...G TDTZ{enter} ;得到位移
::/vx::EYE ANGLE 0 0 1{enter} ;得到位移
::/cut::VIEW CUTAWAY CURSOR /CURSOR BOTTOM {enter}
::/unhide::view mesh{enter}
::/close::file close{enter}
::/von::RESULTS CALCULATE VONMISES{enter}
::/cra::PRESENT SYMBOL{enter}
::/g::PRESENT GRAPH RESULTS{enter}
::/+::PRESENT OPTIONS SYMBOL PLUS RANGE ALL{enter}
::/vd::VIEW OPTIONS DEFORM USING TDTX...G RESTDT 120{enter}
::/ur::UTILITY READ BATCH model.fgc{enter}
这些的应用是这样的，比如在Diana的命令行键入/c，就会等效键入其后的PRESENT CONTOUR LEVELS这句话了，非常好用。
----------------------------------------------------------------------------

虽然咱混过新软版，崇尚键盘操作，常做高深莫测状，但是下面的这个True X mouse软件还是让我眼前一亮，多好的软件啊。

在Win里面，要拷贝粘贴常得如此，选择，右键，复制，新位置，右键，粘贴。
其实我们为什么要选文本，大部分时候是为了拷贝（我是如此的）（当然格式，删除等等也常有）。为什么win不直接设置为选择后进入粘贴板呢，我猜大部分是怕每次这样拷入粘贴板太占内存么？比如有图片的时候，大量的拷贝可能不好。但是我还是衷心希望能够在鼠标选择文本的同时就拷贝了，省的去按ctrl+c

True X mouse 就是如此一个几十k的免费软件。
下载地址：
http://fy.chalmers.se/~appro/nt/TXMouse/TXMouse.exe

安装之后，在tray区。
作用：每次选择文本的时候，比平时多一个X的小标志，此时表示其在工作，选完松开则内容进入粘贴板。

使用：按鼠标中键实现粘贴。

测试：在记事本，excel，word里面使用，都能工作，word里面的选择会有些奇怪，需锻炼一下。

感受：可能在某些特殊按键的软件里面，会冲突，比如你用firefox时中键打开新标签的功能会被屏蔽。非常好的一个软件，推荐使用。

Doslib 75 for AutoCAD 2008 chm中文帮助文档

2007-05-18T21:50:00.000+08:00

之前翻译了一遍这个chm文件的第一层菜单，后来茶余饭后将整个文档翻译了一遍，大致学习了一下，一直没有仔细检查翻译内容，也有几个函数的含义弄不清楚，翻译的确实比较烂。大家将就看看吧，看的意思模糊的麻烦参考英文chm或者直接测试一下。本chm纯属个人学习拙作。看看就算。

下载地址，

http://qjchen.googlepages.com/DOSLib17.chm

范图

非线性结构分析软件Diana的文件体系及命令行分析学习备忘

2007-05-18T20:46:00.000+08:00

Diana是一个不错的有限元分析软件，不过其前后处理功能并非特别强大。
在学习其中的一些体会。

1）快捷键的设置有点类似以前的Algor Dos版，假如记忆深刻的话，操作速度比较快，不过现在对于批处理命令，我总是写在一个如abc.fgc之类的文件里面，用u->r->b->此文件来调用，否则太长的命令也让人难以记忆
2）有类似ansys的log体系，以记录操作流程，通过整理这个流程，可以重复使用，重现建模过程。不过其缺点在于对变量和参数的设置并不好。比如我定义半径作为变量的时候，建模就无法进行，曾经给其公司发去咨询信，暂时未获回复。
3）混凝土本构模型比较多，但也不是包罗万象。比如普通版本里面Makawa模型就没有，W-W五参数也没有见到，或许是我尚未熟悉？对于约束混凝土的模型只提供了Collins的。虽然有usrmat，但是总归比较麻烦。
4）对于三维体的划分不算太好，其前处理采用的内核并不好，听说与Midas合作，希望可以做出比较喜人的界面，否则总是难以推广。Ansys自身界面虽丑，但是在坚持不变的情况下，仍有workbench来吸引新人。Abaqus显然界面要更好些，不过有些功能也隐藏的太深入了。

暂时不说，为了能更快的进行操作，总结一下学习经验。
1）文件体系
只有明白了这个，才能够在后期的时候，有意识的去保留或者删除某些文件。
前处理阶段
①最基本的文件，.dat文件，这个是前处理得到的结果，内含几何，材料，荷载，边界等内容，相信所有的有限元软件计算前都要生成一个。
②.com文件，这个就是其帮助里面常谈的filo文件了，是控制分析和输出的，比如包括步长，收敛准则等。
有了这两个文件，就可以分析了。
图形界面的是dianaw，比较直观，常用。为了学习以后的批量处理，不谈这个。
那么最简单的方法，去到command box，进入这个dat和com所在目录
键入如diana a.dat a.com的命令，就会开始分析和得到结果。
③fgc文件，这个可以是其他后缀名，主要是建模的命令流。
④his文件，是记录操作的文件，类似ansys的log
⑤g70文件，是模型的二进制文件。
在计算完之后，会得到几个文件。
①.out文件，是记录分析时候的一些信息
②.tb文件，节点和单元的数据输出文件。搞了许多page出来，让人颇不爽。
③m70和v70文件，假如想图形看后处理的话，就会生成这两个文件了。
④fvc文件，后处理时候命令流的默认后缀名。
⑤.ff文件，默认叫diana.ff，这个就是模型计算结果的保存文件了，二进制的。数据大的要命，有点类似ansys的db文件。假如结果真的很重要的话，得保存，否则的话，就不保留了，可以保留tb文件就算了，否则硬盘空间就会越来越小，非线性的时候这个文件可不是一般的大。

2）命令行操作程序
①先看看文件的大致内容，比如.com，filos文件，调用程序内部filos模块的一个控制。比如线性分析的，大致如下，看帮助可以得到其不同含义，在dianaw这个界面里可以可视化控制，不过不如直接写来的方便。
;;;-----------------------
*FILOS
INITIA
*INPUT
*LINSTA
BEGIN OUTPUT TABULA
DISPLA
STRESS LOCAL
END OUTPUT
*END
;;;------------------------
在做diana frame line.com之后得到的.out文件大致如下，不修改的话会得到相应文件名+后缀的结果。
.out记录了计算过程中的各种提示
1
/DIANA/AP/IN40 15:52:59 0.13-CPU 0.10-IO 92.-FA BEGIN
/DIANA/AP/LS41 15:52:59 0.15-CPU 0.13-IO 115.-FA BEGIN
ELEM. STIFFNESS STORED.
RHS-VECTORS INITIALIZED: ML= 1 ND= 33 SF.RHSIDE
EXTER. LOAD INITIALIZED: ML= 1 ND= 33 SF.EXTLOD
CONST.DISP. INITIALIZED: ML= 1 ND= 33 SF.DISCON
STRESS LOAD INITIALIZED: ML= 1 ND= 33 SF.SIGLOD
NODAL LOADS TO RHS-VECT: NV= 1 NL= 1 SF.RHSIDE
NODAL LOADS TO EXT.LOAD: NV= 1 NL= 1 SF.EXTLOD
ELEMENTLOAD TO RHS-VECT: NV= 1 SF.RHSIDE
ELEMENTLOAD TO EXT.LOAD: NV= 1 SF.EXTLOD
INC. INITIAL STRAIN/STRESS LOAD ADDED TO RHS-VECT: NV= 1 SF.RHSIDE
诸如此类

而.tb的文件里面有大概这些内容
frame Page 1
Analysis type LINSTA
Load case nr. 1
Result DISPLA TOTAL TRANSL
Axes GLOBAL

Nodnr DtX DtY DtZ
1 0.000E+00 0.000E+00 0.000E+00
2 -1.172E-02 -2.500E-05 0.000E+00
3 -1.953E-02 -5.000E-05 0.000E+00
4 -1.953E-02 -7.500E-05 0.000E+00

假如想在命令行直接得到可视化的后处理呢，可以在这个.com里面加上一段话，主要是FEMVIE这个词。
*FILOS
INITIA
*INPUT
*LINSTA
BEGIN OUTPUT TABULA
DISPLA
STRESS LOCAL
END OUTPUT
BEGIN OUTPUT FEMVIE
DISPLA
STRESS
STRAIN
END OUTPUT
*END
于是结果中会多出一个叫m70和v70的东西来。其实这段话不写一点问题都没有，因为在图形界面的diana中进行调用后处理的话仍然会产生m70和v70文件，不过会多一些提示而已，文件的大小也不一样。
②如何比较快的进行操作。
每次都操作dianaw其实是很无聊的一件事，因此命令行是必要的。但是command box之后还要不断的修改目录，那么可以这么来做。

1.bat (启动diana的运行环境）
set path=f:\progra~1\Diana 9
dialogin.bat
2.bat（直接默认运行）
Diana frame line.com
3.bat（把ff放在其他地方运行-硬盘空间不够，需要把.ff文件设置在其他盘）
set FF=g:\joseph.ff
diana frame line.com
4.bat（把结果改名-在不需要得到后处理图形文件的情况下得到不同的分析结果）
diana result frame.dat line.com

然后在TC里面，按CTRL+G调出dos面板，然后依次运行一下1，2
就可以得到结果了，个人感觉比dianaw要快一些。

非常好的Excel免费工具包-Extool (全部功能介绍）

2007-05-09T19:32:00.000+08:00

非常好的Excel免费工具包-Extool

下载地址：http://www.excel-extools.com/download.php?file=extools2.0.zip

安装，解压到一个目录，在excel的工具->加载宏->浏览，选xla文件，就会新增一个菜单项的。

安装后界面：

基本功能介绍：其实这就是一个加了菜单功能之后的宏包，不过内容可是加密的的。

部分基本功能介绍：

Favorite file：添加常用的excel文件到列表，便于打开
Favorite text：添加常用的输入文字，方便录入

Range：选区（这些功能我都很喜欢，每个函数都很好！，本都想编的，不过得花许多时间，有些还不会编）
Delete empty cells in column：删除选区内所有列中的空格项，后续项向上移动
Delete empty rows in selections：选择一个区域，将其内的所有空行删除（注意，是整行删除）
Transpose：转置，其实这个excel本来就有，它的做法是：在执行菜单命令之前，要先有选区，然后点击需要转置到的左上角位置；
Reverse Order（Flip cells）：逆向，选择一行或者一列选区，会得到逆序结果；
Check for duplicate：检查重复数据，结果可以是删除或者高亮；
Multi selection copy：多个选区的拷贝。excel中，多个选区的选择是按ctrl来完成的，但是非常奇怪的是无法粘贴，怪异，这个宏可以完成。
Save selection as files：选择一个区域，存为excel,csv,txt文件。虽说excel本身也可做到，但是对有大量此需要的朋友确非常实用。我就是在donation software的网站上看到朋友提问和回答这个问题才发现这个软件的。
Save selection as html：选择区域，写出html的表格代码，好功能，也能写出格式，且代码是比较精简的。相比excel本身的输出html的大量冗余代码要好的多。
Save selection as picture：选择区域，输出图像（png,gif,jpeg），好。

看了半天才只是1/10的菜单，哇，看来得几次才介绍的完了，都是我很梦想得到的功能（虽然我一般用tecplot,origin或者sigmaplot来绘制图表，但是数据整理方面还是excel做的最方便，包括选择，删除，计算等），看来开发者确实是个对excel不足之处很有认识的高手啊，想到和许多没有想到的功能它都有。

其他的功能介绍待添加，包括工作表对比，删除所有空表，sheet排序，多sheets打印，自动尾数字变上下标，公式的绝对引用和相对引用转换等等好功能。

继续，
Worksheet目录：
View：视图控制，包括下列项的显示与否，网格线，行列的标题（就是A，B，C，1，2，3等），水平垂直滚动条，sheet标签，打印页显示，显示为公式，状态栏，工具栏等。
Compare WorkSheets：依次列出两个sheet中所有内容不同的格子的值的不同和公式的不同，很好
Create WorkSheet Map：给出一个表格中每个格子的内容情况，标明某个格子是文本，数字，公式，错误或者逻辑
Sort Sheets：将标签排序
Delete Empty Sheet：删除空sheet
Hide Blank Row / Column At end of Sheet：选右下角，隐藏掉A1到此右下角外的所有行列部分，（注意，和Hide不同，是真的隐藏，可以吓人一跳的哦）
UnHide ---：这两个是反隐藏——显示所有的sheets或者某个sheet
Remove HyperLinks in Worksheet——去掉所有页面内的超链接，好功能。MS自作主张加上的超链接，许多时候个人并不喜欢，要去掉还不是一般的麻烦，这个功能我很喜欢。
Reset Last Cell——似乎是回到左上角？

Workbook（这些功能我倒比较少用）
Save and Backup：文件存盘的同时做备份
close all saved workbook：关闭掉所有保存了的文件
close and delete current workbook：关闭并删除本文件（可能在临时文件时有用）
close all workbooks without saving：关闭所有文件，不做保存（对于只是读取许多文件的时候有用）

Application：
List All Font：列出所有字体
Clear the Recently files list：清除最近的使用文件列表

Select：选择，也是一个很好的工具箱，有点类似AutoCAD里面的quickselect
Conditional Select cells（rows） by Value：按数值过滤器选择单元格或者行，包括：介乎多少之间，大于，小于，等于，正则表达式等等。方便选取数值
Conditional Select cells by Format：按格式过滤器选择单元格，包括，正体斜体，颜色，字体大小。可以选择一个单元格作为参照。
Select Cells With Max（Min） Value：选择最大（最小）的数值所在的格，相同时选出第一个。Excel本身的Max只给出最大值而没有位置。
Select Cells With error：选中出错的单元格
Select last cell：选中最右列和最下行的相交单元格
Select used area：选中图表中最左上角和最右下角形成的区域
Select to right（bottom）：将选区扩展到有内容的最右边或者最下边，似乎有些bug。
Select all sheets：选中所有的sheet
Select all empty sheets：选中所有的空Sheet

Text：不错的文本处理
包含
Case：改变大小写
Insert：在所有字符串前面，后面，或者从左偏移地加入一个新的字符串
Trim：去掉左，或右，或全部等空格，或者前后各剪切掉一定长度的字符
Remove：去掉指定字符
Combine：横向进行字符串的合并，可以加空格

Formula and Numbers：
copy cells formula as is (extra copy)：精确拷贝公式内容。有时候，我们想拷贝单元格内的公式，但是一移位粘贴，excel非常聪明地就帮我们按照相对坐标对公式进行修改，现在有这个功能就有更多的选择了。
Convert Formula to Constant Value：将公式内容改成数值，这个不错，以前经常得拷贝，选择性粘贴-数值几步
Convert Between Absolute and Relative Reference：在绝对引用和相对引用中转换，很好，虽然$很让人喜欢，不过大量输入的时候可挺让人烦躁的。
Perform Math Calculation on Selection：对选择内容进行批量加减乘除，也挺好。
Unit Converter：将选择内容在两种单位制间转换，要是能帮忙加上一些强度、容重之间的转换就好了
round number：真正的四舍五入
convert percent to number：百分制变数字
covert number to ordinal：把数字变成1st,2nd之类
Convert Number to text ：把数字变成英文的one two ten hundred
Convert Between Arabic and Roman：在阿拉伯数字和罗马数字间转换
Insert random number to selection：在选区内插入随机数

Format：
Set x2：set subscript/superscript ：将最后的一位文字或者数字变成下标或者上标（好功能）
Word Wrap On/off：自动换行开关
Center Verticall：直接垂直居中

Print
Print multiple sheets：打印多个sheets
Set filepath as header /footer：把文件的路径打印在上方或者下方

Date：（似乎作用不大）
Number of days between two days：计算两天之间的天数
add days to date：把某天加上天数得到新一天

不错的影片-《神奇遥控器》

2007-05-07T19:50:00.000+08:00

5.1黄金周的最后一天，看了一部《神奇遥控器》，看着看着突然很是感动，真是一部好片。人生其实重视的是一个过程，而不是一个结果。上班族的我们，偶尔总会被这些深入心灵的影片所触动，一次次的告诫自己劳逸结合，多和家人相处，平凡的事情最伟大，不要等失去之后再去珍惜，但我们真的做到了吗？

看看这部片，会被感动的。

软件综述集锦

2007-05-06T20:09:00.000+08:00

网上很难得的一类文章，就是对某类软件非常熟悉的高手，对软件的综述。是不是我们应该叫他们——软件达人？：）

此处先记录几个，慢慢来添加，也请各位多告诉我一些

免费的图形、图像、影音相关软件—Metalslugx简评版

http://blender.bokee.com/536697.html

地址是在xbeta兄的文章中看到的，牡蛎兄几乎把这类软件横扫一空，让人看了赞叹不已。

点评“最好的300款免费软件”

http://blog.sina.com.cn/u/46dac66f010007b3

Xbeta兄的这篇文章传遍了大江南北，点评之处可见其用软件之多和精，很佩服。

常用CAE分析软件网址及短评

http://www.okok.org/cgi-bin/ut/topic_show.cgi?id=6167&amp;amp;amp;amp;amp;amp;amp;h=1&bpg=1&age=-1

sjtu79是我很敬佩的okok的高手，这篇短评是以部分，后面的讨论更是精彩。不知道结构工程行业能用上多少的这类软件。

最爱非主流-----矢量软件一览

http://www.5d.cn/Tutorial/image/base/200309/1205.html

qin8500的作品，虽然软件不多，但其实难得的是原创和自己的观点，对吧

经典的古董级软件一览

http://www.pconline.com.cn/pcedu/teach/empolder/common/0405/370368.html

对我而言，虽然90年代初开始学电脑课，但一直到了97年才有自己的机器，对这些古董软件还是存在着崇高的敬意的，毕竟DOS命令曾经无数次打断我学习计算机的兴趣：）

文本编辑器评测

http://www.donationcoder.com/Reviews/Archive/TextEditor/index.html

这篇文章Xbeta兄翻译过。原文给出的评测虽然各花入各眼，但是毕竟做了一个庞大的横向评测，这种优秀的文章在国内确实不多（想想就想通了，现在的各类电脑报大做文章的评测硬件，其实无非就是做广告而已，软件评测有什么利益呢？就算有的少数软件、网站评测也是几乎都从皮毛上入手，许多的软件介绍照抄帮助，毫无帮助，没有自己的任何观点，挺无意义的），其实，就如同做科研一般，做一个课题之前，最好能够通读同类文章，先做一个综述，心中有数，究竟研究都去到了什么样的程度。所以个人觉得要是大型软件网站能做出一些有价值的评测就好了，毕竟这个需要的精力不少。

记得还有一篇CFD软件综述、一篇PDA软件综述和Mbira兄写过的洋洋洒洒的文章，没有找到，且待补上。

一些Autohotkey程序的简介

2007-04-28T19:29:00.000+08:00

一些Autohotkey程序的简介

Autohotkey无疑是个很好的软件，至少它降低了一些编程的门槛，通过内置的函数让用户可以用比较简单的语言来控制鼠标和键盘，当然还有与之配套的各种函数及系统函数。

它的入门是很容易的，而且在大部分时间内，我们也经常只是用它来进行批处理或者简化按键，但是对于高手而言，它还有着更多的用途。

如何学好它，个人觉得它的帮助和它的论坛一定是最好的地方。在它的论坛上，有许许多多的高手共享出各种代码。如果我们真的有心去学好它的话，花一段时间浏览一次论坛标题，或者找几个好帖子好好研究是必要的。或者可以针对自己喜欢的几个意向，搜索一下论坛。比如我个人希望能有如下一些做法，比如利用它增加对Autocad的控制，如何更好的控制批处理程序的排队等。

下载了一大堆论坛的代码，茶余饭后慢慢研究。下面先翻译一点别人的程序简介，先放在记忆中，说不定哪天就有用了。毕竟每个代码都是作者的心得体会，许多我们不知道怎么用的语法也得通过实践来学习。翻译不对之处请指教。

NiftyWindows -- by Enovatic-Solutions:
这个脚本让用户可以进行更加方便的窗口操作，比如拖放，缩放，最大化等，它的特点是用右键拖放。

Screen Magnifier -- by Holomind:
屏幕放大器，可以定义刷新间隔，缩放级别；防锯齿.

LiveWindows: Watch Dialog-boxes in Thumbnail -- by Holomind:
动态查看下载、文件拷贝和其他一些带进度条的脚本，它会用一个很小的“总在最前”的窗口来显示这些进度。
Mouse Gestures -- by deguix:
鼠标手势：此脚本检测你在鼠标右键按下后的鼠标移动情况。如果它觉得你画了一个内定的手势时，会启动一个程序或者执行一个你定义的操作。
（我有点想看懂来试试怎么在autocad中加速操作）。

Context Sensitive Help in Any Editor -- by Rajat: 这个脚本定义热键“ctrl+2”的操作为——显示所选择 AutoHotkey 命令的帮助。如无指定，自动查找句首单词。

Easy Window Dragging (requires XP/2k/NT): 正常情况下，只有点击标题栏才可以拖动窗口，此脚本使得一切皆有可能：），可以是程序内的任何位置，使用时，先按下CapsLock键或者鼠标中键，然后就可以拖动了.

Easy Window Dragging -- KDE style (requires XP/2k/NT) -- by Jonny: 脚本使得移动窗口或者重新定义窗口的大小变得容易
1) 按ALT 键，左击窗口内任何位置，可以拖放到新位置。 2) 按ALT 键，右击窗口内任何位置，可以重新定义窗口的大小 3) 按ALT 键，别放开。左击最小化窗口，右击最大化，中击关闭。

Easy Access to Favorite Folders -- by Savage:
在某些可以指定目录的情况下，中击鼠标，会显示一个你最喜欢目录的菜单以便选择。比如1）打开文件或者关闭文件的情况；2）资源管理器窗口；3）命令行格式下。还有一些其他场合。

IntelliSense -- by Rajat (requires XP/2k/NT): 此脚本在你编辑Autohotkey脚本的时候进行监控，当它发现你打了一个Autohotkey命令的时候，会自动提示所需参数，不需要时，按ESC退出。还可以通过按ctrl+f1得到键入命令的帮助。

Using a Joystick as a Mouse: 把手柄变成三键鼠标。

Joystick Test Script: 检测手柄的按键数目和其他属性。它还可以知道手柄是否需要校准了。

On-Screen Keyboard (requires XP/2k/NT) -- by Jon: 屏幕上的键盘，可以实时看到所按下的键，作者说只是为了学习盲打：）.

Minimize Window to Tray Menu: 把窗口隐藏到托盘（tray）。可以通过菜单反隐藏。如果程序退出，所有窗口变成无隐藏。

Changing MsgBox's Button Names: 一个测试脚本。可以改动各种默认对话框按键的内容，但是不影响其实际操作。（莫非是愚人节的作品，screenshot的主页也有一个这样的ahk，可以把一些按键临时删除的，比如计算器上的各个数字键，看来也是娱人用的）

Using Keyboard Numpad as a Mouse -- by deguix: 小键盘当鼠标用，可以支持到5键鼠标，可以自定义速度等等.

Seek -- by Phi: 在start 菜单中，从几百个安装程序选到所需程序实在是个恶梦，本脚本让你指定一个字母，而后它会自动过滤出符合条件的结果，方便选择。

ToolTip Mouse Menu (requires XP/2k/NT) -- by Rajat: 按中键一段时间后，会跳出一个菜单。会根据程序的不同，比如Notepad或者 Word有不同提示。（感觉这也是一个很好的功能，可以自定义一些东西）

Volume On-Screen-Display (OSD) -- by Rajat: 热键定义音量，会在屏幕上用彩色条表示音量大小.

Window Shading (roll up a window to its title bar) -- by Rajat: 窗口搜索：把一个窗口卷到其标题栏而后又卷回来，程序退出时，所有窗口自动恢复.

1 Hour Software -- by skrommel: 一大堆脚本的收集，有简单的说明和有些屏幕抓图.

Titan's Scripts: Titan的脚本收集，比如以下内容:

1) XML Reader/Writer: 一个友好的xml文件的读取和写入界面，可以方便的提取和写入数值.

3) Functions: 一个函数包，每个是一个Autohotkey命令，带有输出变量.

4) Weather: 在一个gui或者托盘中显示当前天气.

Toralf's Scripts: Toralf'的代码收集，有许多有用的，比如:

1) AHK Window Info: 得到一些Windows的信息.

2) Electronic Program Guide: 浏览你所在区域的电视节目表 (支持几个国家).

3) Auto-Syntax-Tidy: 改变脚本中的缩进情况和大小写情况，让之更有可读性.（个人感觉是个好代码，是不是对其他语言也有用呢？）

Scripts & Functions Forum:
这个是个大宝库，有1000个可供使用的Autohotkey脚本代码. 由许多AutoHotkey的用户一起提供。（有需要记得搜索啊，你的问题许多时候已经有人问过了）.

2007年布达佩斯扫雷世锦赛结束

2007-04-27T20:07:00.000+08:00

2007年布达佩斯扫雷世锦赛结束

前三名分别是Manuel Heider (第一，6号种子，世界排名第10), Roman Gammel (第二，4号种子，世界排名第8) Lukasz Malinowski (第三，27号种子，世界无排名)
1号种子Damien Moore三甲不入，有点意外。不过扫雷还是有一定偶然性的。不知道国内的张砷镓兄后来去成了没有。

http://www.minesweeper.info/articles/PreviewBudapestIII.html
是赛前Damien Moore (1号种子,世界排名第4) 的一篇有趣预测。

Dion Tiu又创造世界记录了，这个不到20岁的小伙子真是有志不在年高啊：）——37.775秒.

一本很好的EXCEL VBA的编程书

2007-04-27T15:08:00.000+08:00

一本很好的EXCEL VBA的编程书

在学校图书馆借的，几年前的了。之前我一直觉得学习软件或者语言看帮助就够了，但是最近觉得还缺少了一些比较基础的东西，必须进行学习。

看来以后我的观点可以如下：一般对于软件或者语言，经常是有必要的时候，会很快的冲几步，找到自己需要的功能或者语句，迅速完成目标，然后静思，并通过对软件或者语言的特性介绍进行翻阅，思考他们也没有比现有软件多出的创意，能否组合出意料不到结果。假如需要继续提高的话，就必须通读帮助（因为这个是作者公开给大家的部分），假如有好书的话，可以精读，读的时候，不必强求按顺序，可以按喜好随便将书中感兴趣的部分看完。这样子，不会觉得看科技书是一种负担。

废话半天，忘记说这本书的名字了——Excel 2003高级VBA编程宝典
China-pub这里有详细的介绍，照抄几段：

【原书名】 Excel 2003 Power Programming with VBA
【原出版社】 John Wiley & Sons
【作　　者】（美）John Walkenbach [同作者作品] [作译者介绍]
【译　　者】盖江南[同译者作品] 王勇等
【丛书名】宝典丛书
【出版社】电子工业出版社

JohncWalkenbach是享有Nr.0Spreadsheet美誉的国际知名作者,是电子表格软件方面的领导权威,是美国Wiley出版公司出版的Excel系列丛书的总策划和总编辑,并且他还是JWalkcandcAssociatesclnc.0公司的负责人,1这是一家总部在美国圣地亚哥的咨询公司,专门致力于电子表格应用程序的开发.

John编写了30多部电子表格软件方面的书籍,有很多书籍在亚马逊网站赢得了5星级的评价,其中的《Excelc2003公式与函数应用宝典》.《中文版Excelc2003宝典》和《Excel应用技巧宝典》已由电子工业出版社引进翻译出版并畅销至今.他还为各大报刊杂志撰写了300多篇文章,其中不乏大量的知名计算机专业杂志.他还负责维护一个网站“ThecSpreadsheetcPage”(网址是www.1j-walk.1com／ss),并且是PowercUtilitycPak的开发者,这是一个MicrosoftcExcel加载宏,该加载宏受到广大使用者的一致好评.John毕业于密苏里大学,并从蒙大拿大学获得了一个硕士学位和一个博士学位.

除了计算机和电子表格软件的专长之外,John还是一位十分热爱生活的人士,他对吉他.音乐.小说.数码摄影以及侍弄花草都饶有兴趣.

看了此书，许多未解问题都得到解答，更难得的是，在配套光盘里除了有所有例题代码之外，还有一本英文PDF全书！84M！，不知道是我孤陋寡闻还是外国书会有这样的无私，不容易啊。推荐作为睡觉前读物：）

emule上也能搜到好几个版本的此书，好像excel 07的也有。
总之，外国人写书还是很好的，除了理论，更多实践。现在国内许多书，作者似乎怕读者学完就比他厉害，或者为了显示自己水平的高超，要不就是关键部分不讲，要不就是故弄玄虚，总之让人看了总是卡在几个地方。

刚才搜索的时候看到此贴：http://www.cnfan.org/bbs/archive/index.php?t-2123.html

文中推荐此站，乃某书作者网页，似乎挺好，且待慢慢看来。
http://www.cnblogs.com/maweifeng/category/14409.html

用键盘断开U盘的几个方法

2007-04-25T20:49:00.000+08:00

用键盘断开U盘的几个方法

不少电脑爱好者都喜欢采用键盘来控制电脑。但是要断开U盘的时候，一般情况下需要用鼠标去点击系统右下角的图标点击“安全删除硬件”图标来安全删除硬件。有没有什么方法可以用键盘来断开U盘连接呢？经过研究及搜索，得到如下的几个解决方法。
第一个方法：命令调出法
用WIN+R调出运行窗口，输入如下中括号内的文字，不包括中括号["C:\WINDOWS\system32\rundll32.exe" shell32.dll,Control_RunDLL hotplug.dll]，注意，C:\WINDOWS需要按照你的操作系统改成相应的名称。那么就会跳出常见的安全删除硬件的窗口，按Alt+s，假如只有一个U盘的话，再按一次回车就可以了。这段文字在再次调用WIN+R时一般就会存在列表中了。操作起来其实很快。
对于喜欢键盘操作的朋友，hoekey是一个绝好的软件。下载安装后，在Hoekey的安装目录中找到hoekey.ini文件，在最后加上如下中括号内的文字，不包括中括号: [F9=Run|"C:\WINDOWS\system32\rundll32.exe" shell32.dll,Control_RunDLL hotplug.dll; F9: close u disk]，以后按F9就可以出现安全删除硬件的窗口了。假如利用可定义键盘、鼠标动作的脚本软件应可更快。

第二个方法：利用Total Commander的Usb disks插件
Total commander是一个著名的文件管理程序，此处不赘述。
此时，下载一个TC的Wfx插件——Usb disks，此插件应该是水木younggift的作品，具体下载地址可见后文。
进入TC中的Configuration（配置）－Option（选项）－Plugins（插件）－Wfx，在Wfx旁边的configure里面添加这个usb disks即可。重启tc让之生效。假如采用鼠标时，在TC里面点击网络邻居的磁盘图标，可以看到有一个叫Usb disks的目录，进入可以看到相应的usb设备。比如我电脑中就有Microsoft USB Wheel Mouse Optical——Usb鼠标，还有Usb Mass Storage的——就是U盘。此时，对Usb Mass Storage按del键，就断开了U盘的连接了，试试看，还可以断开鼠标的。
那么，如何才能用键盘进入这个Usb Disk的目录呢？可以借助TC中的start（开始菜单）菜单，start（开始）-change start menu（改变开始菜单）-add items（添加项目），给个名字比如叫exit U，在窗口下方的command命令行中键入cd \\\USB Disks，再在Shortcut key中定义一个如ctrl+alt+F3的快捷方式，那么以后就可以按Ctrl+Alt+F3键进入这个Usb Disk的界面，按Del键退出U盘了。

第三个方法：借助Unplug.exe软件
这个软件叫unplug.exe, 是专门退出U盘的，解压到一个目录中，如D:\program files\unplug，接着，打开记事本键入如下内容
@echo off
cd D:\program files\unplug
unplug J:
unplug K:
注意，第二行中，地址改为相应的unplug地址，第三第四行中，是对应机器的U盘盘符，可以是多个。存这个文本文件为一个批处理文件，如removej.bat。
接下来就可以按win+R来运行这个批处理文件了，也可以类似上文一般，用hoekey，定义一个[F10=Run|"d:\program files\unplug\removej.bat"]，不包括中括号。以后，按一个F10键就可以一次性关闭几个U盘了。
不记得是不是在DRL，有位大哥说要配合UNLOCK一起用会更好，有空试试。

可能你会觉得，不就是退出U盘嘛，用得着大惊小怪搞得这么复杂么，但事情嘛，多个解决方法总不是坏处，是吧。
以上软件的下载地址。
Totalcmd: http://ghisler.fileburst.com/655a/tcmd655a.exe
TC的Usb Disks插件: http://www.newsmth.net/bbscon.php?bid=837&id=27274
Hoekey: http://www.bcheck.net/apps/HoeKey113Inst.exe
Unplug.exe: http://hp.vector.co.jp/authors/VA009794/UPLG0098.zip

一个IDARC分析剪力墙滞回特性的代码

2007-04-21T11:40:00.001+08:00

一个IDARC分析剪力墙滞回特性的代码

近日为了完成一个非线性作业，在dinochen给的参考文件的基础上，结合帮助文件case5，写下如下一段分析剪力墙的代码，简单记录如下，算是对非线性分析软件IDARC的一个匆忙学习。

可以得到一些诸如滞回曲线和损伤指数的图，不过毕竟计算机分析软件的结果还是有待试验研究结果的证明，许多参数的选取只能是事后的调整。

也做过几个对dat格式逐行说明的文件，感觉这种学习法比较快。

在此也多谢okok的concrete兄对idarc manual的翻译文本给我的帮助。


Structure,
control data,
12,1,1,1,0,1,0,0,1
element types,
0,0,12,0,0,0,0,0,0,0
element data,
0,0,12,0,0,0,0,0,0
unit system,
2,
floor elevations,
5000,8000,11000,14000,17000,20000,23000,26000,29000,32000,35000,38000,
identical frames,
1,
column line,
1,
nodal weights,
1,1,834,0,0,0,0,
2,1,834,0,0,0,0,
3,1,834,0,0,0,0,
4,1,834,0,0,0,0,
5,1,834,0,0,0,0,
6,1,834,0,0,0,0,
7,1,834,0,0,0,0,
8,1,834,0,0,0,0,
9,1,834,0,0,0,0,
10,1,834,0,0,0,0,
11,1,834,0,0,0,0,
12,1,834,0,0,0,0,
code for specification of user properties,
0,
concrete properties,
1,0.02610,30.00000,0.20000,0.00201,1.00000,15
steel properties,
1,0.335000,0.40000,200.00000,3.33333,3.00000
hystertic modeling rules,
2,
1,1,100,0.2000,0.2000,0.55,0
2,1,100,0.2000,0.2000,0.55000,0
wall curve style,
0,
wall dimention,
1,1,1,1,2,10000,5000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
2,1,1,1,2,9166,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
3,1,1,1,2,8332,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
4,1,1,1,2,7498,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
5,1,1,1,2,6664,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
6,1,1,1,2,5830,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
7,1,1,1,2,4996,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
8,1,1,1,2,4162,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
9,1,1,1,2,3328,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
10,1,1,1,2,2494,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
11,1,1,1,2,1660,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
12,1,1,1,2,826,3000,3
1,1,200,200,1.00,1.00
2,1,5000,150,1.00,1.00
3,1,200,200,1.00,1.00
WALL connectivity,
1,1,1,1,0,1,
2,2,1,1,1,2,
3,3,1,1,2,3,
4,4,1,1,3,4,
5,5,1,1,4,5,
6,6,1,1,5,6,
7,7,1,1,6,7,
8,8,1,1,7,8,
9,9,1,1,8,9,
10,10,1,1,9,10,
11,11,1,1,10,11,
12,12,1,1,11,12,
ANALYSIS TYPE
4
STATIC ANALYSIS OPTION
0,0,0,0
QUASI-STATIC CYCLIC ANALYSIS
1
1   
12
304    
0    35.25773196    0    -35.25773196    0    52.23367698
0    -52.23367698    0    65.29209622    130.5841924    166.6254296
130.5841924    65.29209622    0    -65.29209622    -130.5841924    -164.9278351
-130.5841924    -65.29209622    0    65.29209622    130.5841924    164.0137457
130.5841924    65.29209622    0    -65.29209622    -130.5841924    -152.7835052
-130.5841924    -65.29209622    0    65.29209622    130.5841924    154.4810997
130.5841924    65.29209622    0    -65.29209622    -130.5841924    -147.5601375
-130.5841924    -65.29209622    0    104.467354    208.9347079    261.1683849
287.2852234    261.1683849    208.9347079    104.467354    0    -104.467354
-208.9347079    -261.1683849    -274.2268041    -261.1683849    -208.9347079    -104.467354
0    104.467354    208.9347079    261.1683849    295.1202749    261.1683849
208.9347079    104.467354    0    -104.467354    -208.9347079    -261.1683849
-279.4501718    -261.1683849    -208.9347079    -104.467354    0    104.467354
208.9347079    261.1683849    288.5910653    261.1683849    208.9347079    104.467354
0    -104.467354    -208.9347079    -261.1683849    -278.1443299    -261.1683849
-208.9347079    -104.467354    0    130.5841924    261.1683849    391.7525773
446.5979381    391.7525773    261.1683849    130.5841924    0    -130.5841924
-261.1683849    -391.7525773    -428.3161512    -391.7525773    -261.1683849    -130.5841924
0    130.5841924    261.1683849    391.7525773    447.9037801    391.7525773
261.1683849    130.5841924    0    -130.5841924    -261.1683849    -391.7525773
-434.8453608    -391.7525773    -261.1683849    -130.5841924    0    130.5841924
261.1683849    391.7525773    455.7388316    391.7525773    261.1683849    130.5841924
0    -130.5841924    -261.1683849    -391.7525773    -434.8453608    -391.7525773
-261.1683849    -130.5841924    0    195.8762887    391.7525773    548.4536082
587.628866    548.4536082    391.7525773    195.8762887    0    -195.8762887
-391.7525773    -548.4536082    -574.5704467    -548.4536082    -391.7525773    -195.8762887
0    195.8762887    391.7525773    548.4536082    587.628866    548.4536082
391.7525773    195.8762887    0    -195.8762887    -391.7525773    -548.4536082
-577.1821306    -548.4536082    -391.7525773    -195.8762887    0    195.8762887
391.7525773    548.4536082    583.7113402    548.4536082    391.7525773    195.8762887
0    -195.8762887    -391.7525773    -548.4536082    -577.1821306    -548.4536082
-391.7525773    -195.8762887    0    195.8762887    391.7525773    587.628866
718.2130584    760    718.2130584    587.628866    391.7525773    195.8762887
0    -195.8762887    -391.7525773    -587.628866    -626.8041237    -656.838488
-626.8041237    -587.628866    -391.7525773    -195.8762887    0    195.8762887
391.7525773    587.628866    718.2130584    756.0824742    718.2130584    587.628866
391.7525773    195.8762887    0    -195.8762887    -391.7525773    -587.628866
-626.8041237    -658.1443299    -626.8041237    -587.628866    -391.7525773    -195.8762887
0    195.8762887    391.7525773    587.628866    718.2130584    757.3883162
718.2130584    587.628866    391.7525773    195.8762887    0    -195.8762887
-391.7525773    -587.628866    -626.8041237    -652.9209622    -626.8041237    -587.628866
-391.7525773    -195.8762887    0    244.8453608    489.6907216    734.5360825
897.766323    945.1030928    897.766323    783.5051546    734.5360825    489.6907216
244.8453608    0    -244.8453608    -489.6907216    -734.5360825    -897.766323
-945.1030928    -897.766323    -783.5051546    -734.5360825    -489.6907216    -244.8453608
0    244.8453608    489.6907216    734.5360825    897.766323    945.1030928
897.766323    783.5051546    734.5360825    489.6907216    244.8453608    0
-244.8453608    -489.6907216    -734.5360825    -897.766323    -945.1030928    -897.766323
-783.5051546    -734.5360825    -489.6907216    -244.8453608    0    244.8453608
489.6907216    734.5360825    897.766323    945.1030928    897.766323    783.5051546
734.5360825    489.6907216    244.8453608    0       
0.02   
SNAPSHOT OUTPUT CONTROL
0
0,0,0,0,0
STORY OUTPUT CONTROL
3,1,1,2,12
LEVEL1.OUT
LEVEL2.OUT                              
LEVEL12.OUT  
ELEMENT HYSTERESIS OUTPUT INFORMATION
0,0,3,0,0,0
Wall OUTPUT
1 2 12

Total commander 出到7.0RC3了，应该就快正式版了，不知道ghisler兄在正式版中还会给我们带来什么惊喜呢，期待中。

紫光输入法出了6.0了，配置方面变得很花哨，调整的项目更多了，但是对于一些界面上的字体间距，词间距等没能让用户配置，让我颇为遗憾。

前两天请了一个高人同学给我做的3ds max模型进行简单渲染，有了Vray，效果也变得很逼真了。据说Final Render还要更好一些。个人有个感觉，国内的3d制作水平应该比国外要差一大截，但是同学说应该国内也有很高级的人才，只不过不露山水，希望如此。国外有许多大制作的电影，国内从来没有看到，不知道是资金问题，技术问题，还是态度或者创新问题。

Ansys Workbench学习体会

2007-04-21T11:38:00.000+08:00

Ansys Workbench学习体会

Ansys Workbench确实是一个不错的软件，下面简单记录一下使用中一些学习感受。

1）操作模式简单化，与大部分有限元软件一样，采取的是清晰明了的树状结构，不知道Ansys这样沿着两条线走的原因是什么，一个沿着界面晦涩难懂的APDL类DOS界面前行，一个沿着简洁明快的清新界面前行。一直以来的认为都是，ansys具有强大的功能，功力高深者可以按键如飞的写入命令行，但是隔段时间之后常会觉得又把命令遗忘的差不多。因此，个人觉得一个好的有限元操作界面，必须拥有良好的操作界面，而更多的复杂功能可以隐藏于菜单之中。其实abaqus就做的挺好的，特别是现在采用python作为二次开发语言，以其强大的“类”，使得整个层次更加清晰。感觉树状结构在有限元分析软件中，似乎比较早出现在cosmos中，而后Algor在经历了dos版，Win32版之后也很快引入了这种结构，abaqus似乎到了6.5才有，midas一开始就有，而sap2000尚未引入，由于用的软件不多，应该颇有遗漏。

2）对截面可以施加弯矩和轴力，这点让人觉得非常新鲜，毕竟在许多有限元分析软件里面，加弯矩还是很让人头疼的事。

3）支持的格式不少，应该比ansys母版的要多些。

4）切片的方法让人觉得不是很直观，在一些比较复杂的空间结构中，不是特别好用。

5）Probe功能做的不错。

6）一个用abaqus划分网格未果的有限元solidwork建立的模型，居然在workbench中可以划分，挺是奇怪，且待Dr.Wu高手来慢慢用Hypermesh划分看看。

7）Dr.Ma在韩国看mm做学问，还不时用Workbench做参数分析，有空要和他交流看看了。

8）下面是昨天操作的一些简单记录，就当是备忘吧。随手所记，也就不整理了。

做法：首先，可以先用designmoduler或者其他cad软件制作出需要的截面，之后在simulation的目录下，在model的地方，找到geometry->import from file的地方，导入几何体。在gemetry-solid的地方，可以找到需要的材料属性。在mesh的地方，可以控制网格的大小。然后，应该要建立一个enviorment，这个可以输入各种荷载等等。然后比如可以建立一个fix support之类的约束，选择某一个面进行施加荷载。在solution的目录下，可以添加一些应力或者应变的结果，这样子之后就可以输出了，假如没有，可以添加一个，然后evaluate result ，不需重算，就可以得到结果了。在树列的地方，点insert，可以插入各种需要的结果。

一个小巧不错的科学图表绘制软件——Dplot

2007-04-15T19:39:00.000+08:00

Blogspot的被封时间越来越久了，不行的话就考虑换到新浪吧。

科学图表绘制工具对于理工科很重要。

主要的图表绘制工具有Origin，Tecplot和Sigmaplot，每个都不错。
但是后两者及前者的早期版本对中文都支持的不好。
还有Excel和Golden Grapher，比较少用。

当然还有Matlab，Maple等大块头和Linux下的Gnuplot和R和Metaplot及Python下的Matlibplot。总而言之，科

而DPlot这个小个子（不足5M）的软件，对于中文有完美的支持，其输出的格式也是明码的Ascii文本，方便操作。内置的几个Example图甚至让我感觉他们和土木学科有密切的联系。

图形1：地震谱

图形2：动力学

19. Jimmy Bergmark的一些Vlisp函数功能简介

2007-04-03T15:26:00.000+08:00

19. Jimmy Bergmark的一些Vlisp函数功能简介

AutoLisp和Vlisp的资料现在越来越多了，不像10年前一样只有可怜巴巴的几本书，互联网也不发达的时候了。慢慢的上网会发现很多自己的想法早就有高手解决了，这里面有国外的Bill Krammer, Tony Tanzillo, Evgeniy，Menzi，John Uhden等等，也有国内的xdsoft，eachy，aeo，狂刀，Lucas等等高手。Lisp是一个很有趣的语言，有时候同一个函数有着7，8种不同的写法，有时候却几乎一模一样。高手们的程序一般而言都很有特色。有时候看到了一个好程序，就很喜欢google一下，去看看他们还有一些什么作品，感受一下他们的风格。

Jimmy Bergmark创建的www.jtbworld.com网站很早的时候就存在互联网了，他现在的博客地址是http://jtbworld.blogspot.com/，在网上也很有名，经常会发布一些Autocad和Lisp相关的新闻，技巧和代码。下面翻译的是他主页上的一些公开的源代码的简单解释。有简单有复杂，：）可以看出高手也是一步步走过来的呀。不好意思，还没有一个个测试，假如其功能翻译有误，请告知。也希望能对其中几个进行抓图演示。

acaddoc.lsp

------

accdist.lsp

积累求总距离

AecExportToAutoCAD.lsp

ADT 2004相关程序

AECObjectsExplodeOptions.lsp

ADT 2004相关程序

选择物体求总面积

选择物体的面积

不少关于块的程序

用Lisp创建Viewport 视窗

用ActiveX法在模型空间建块

backgroundchanger.lsp

改变背景颜色

BlockToXref.lsp

把块变成Xref

BOMLenghts.lsp

线求总长

CAO_Link_Templates.lsp

用CAO的方法在autocad 2002中创建和删除链接

ChangeNoPlottableLayers.LSP

把不能打印的层移到defpoints层

dimlinechange.lsp

选dim标注中的线改动到其他图层，可以是其他线形

DisplayColorProperties.lsp

多个显示颜色特性的子程序

DisplayProperties.lsp

一些关于显示特性的子程序

获取打印设备

获取视窗的显示比例

移动hatch的起始点位置

hatch边界线重建

改变一个或多个hatch的基准点

改变命令行的高度

两个用ActiveX方法插入块

改变Autocad的标题栏，注意，需要下载一个vb的dvb文件

把图层的名称和状态存到某文件中

图形的图层和线宽列表

删除所有冻结和关闭图层上的所有物体

按照给定的状态对图层进行列表（是否冻结，关闭，可打印）

layer-toggle-freeze.lsp

切换图层的freezen冻结状态，并只对这些图层regen

LayoutsToDwgs.lsp

把某个布局layout存为dwg，对存r14及以下版本有用

选择物体的周长

几个关于线形的程序

两点的中点，三分点和四分点，三点的中点

一些关于页面设置（page setup）的子程序

PersonalMtextSymbols.lsp

在Mtext的右键菜单中添加一些个人的Mtext符号

pljoinfuzz.lsp

通过误差连接直线、弧和多义线

PlotDevicesFunctions.lsp

一些关于打印设置的子程序

plotdialog.lsp

打印

profiles.lsp

一些关于配置Profile的子程序

ProjectPaths.lsp

保存图形文件的配置路径，以便在其他机子上使用

Purge-Point.lsp

一个purge 点的程序，Autocad与POINT 5交流时用

purger.lsp

purge相关程序，避免出现命令行讨厌的提示

remicons.lsp

通过配置注册表，移除icons Buzzsaw, RedSpark, Point A and FTP 等不大必要的选项的显示

SOpen.lsp

把一个文件打开，激活，并设为只读

supportPaths.lsp

把支持路径保存到一个文件中，或从一个文件中加载

TextFunctions.lsp

把所有物体中的Text或Mtext改变为指定文字style

把所有Text旋转到指定路径

得到视窗中心

输出或导入View视图

保存、导入或者恢复Viewport中的图层

vp-outline.LSP

在模型空间中创建一个包含选择视窗的外轮廓线

vpsel.lsp

选择Viewport视窗中所有可见物体

zoome.lsp

所有Viewport视窗最大化

blogspot老是会down的

2007-03-28T19:22:00.000+08:00

看来以后还会经常性的不能访问，有空得备份一下了。
最近写论文和非线性的作业，对混凝土结构的滞回模型突然有了比较大的兴趣，于是思考怎么用python来实现，下载了numpy和scipy，还有matplotlib和pygist，觉得挺好的。就是比较喜欢这种矩阵的操作方法，不过后两个作图软件不时会出点小毛病就是。
还有一个号称大全的enthought python --http://code.enthought.com/

软件方面没有看其他什么了，不过配合excel和一个叫“实用汉字转拼音”的软件，做了一个很实用的listpro通讯录，确实觉得很好用。不知道在excel中能否直接提取汉字的拼音，是否有这种函数，听说要装了微软输入法才能初步考虑，于是就没有测试了。

查了一下，发现在blogspot不能访问的时候，似乎大家都没有闲着在找对付方法一样
踏雪无痕:http://www.txwh.info/
pkblog: http://www.pkblogs.com/
gg派: http://groups.google.com/group/ggpi/web/hostwiki

在firefox里面自定义颜色字体和在ie里面利用css来自定义页面有时候挺好的，就是不知道如何在firefox里面强制使用css样式。

非常好用的资料管理程序Listpro

2007-03-18T21:19:00.001+08:00

非常好用的资料管理程序Listpro

老是为pda中没有太好的通讯录软件而劳神，竟然忘记了Listpro。其实它的pc端软件照样功能强大。各位不妨一试。
hi-pda中有不少关于它的介绍，我就不再啰嗦的了。

Autocad相关程序（外挂程序）小览

2007-03-18T21:07:00.001+08:00

Autocad相关程序（外挂程序）小览

Autocad也用了10来年了，外挂系列的测试版也用了不少，这帖子反正会不定时添加，就作为一种记录吧。不过最近比较忙，只能慢慢来了。主要先介绍国外程序，国内程序其实也有许多优秀作品的。先把常用的，觉得不可或缺的先加上一些星号吧。不过其实常用的外挂很少。也就2，3个。画图的时候基本是用R14，加上几千个lisp做成的chm文件，配合lisplink，随用随调，也不比谁慢，是吧？：）

（华南理工大学建筑学院陈庆军）

转载请注明

3dBurst for AutoCAD
一个arx程序，三维操作

ABviewer ★★★★★
一直以来，cad的览图软件都是我喜欢和追求。此软件个人感觉最好。

Acme CAD Converter
cad版本转换

Active DWG DXF Converter

AlignAndSpace for AutoCAD

Amethyst CADconvert

Amethyst CADwizz

Any DWG产品
Any DWG to DWF Converter

Any DWG To Image Converter Pro

AnybodyCAD for AutoCAD

AnyDWG DWF to DWG Converter

AutoCAD DWG and DXF To PDF Converter

Autodesk True Convert ★★★★★
Autodesk公司自己出的版本转换软件，应该是如假包换吧，转换2007版本的True Convert有30多M，巨大。不过其览图软件true view竟然达100多M，更吓人。

AutoDWG产品
AutoDWG convert

AutoDWG DWG to Flash Converter

AutoDWG Active DWG DXF Converter

AutoDWG Attribute Extractor

AutoDWG DWG to Flash Converter

AutoDWG DWG to Image Converter

AutoDWG DWG2DWF Converter

AutoDWG DWG2PDF Converter

AutoDWG DWGSee

AutoDWG DWGSee Pro

AutoDWG PDF2DWG Converter

AutoHook
Autohook ★★★★★
一个AutoCAD的按键加速程序.
--------------------------------------------------------------------------------
介绍
网址: http://www.command-digital.com
等级：★★★★★.
用法：1）打开软件，进行设置，在key中填入需要的热键，在Macro中填入相应的命令.
评论：非常好的AutoCAD热键加速程序。从14版开始用。
技巧：注意备份ini文件，注意，它可以可以放在U盘中的绿色软件。
你觉得自己绘图速度还不够快？想再进一步？可以试试Autohook。
使用范例：（注意，以下书名号不需要输入的）
1. 不喜欢按完命令还要按空格。比如你希望按'键，就实现特性匹配的命令，那么如此定义。在key中按《'》，然后在Macro中输入《_matchprop 》，注意最后有一个空格键。则以后只需按'键，不需要按空格，不需要按回车，不需要按鼠标右键，就可以实现属性匹配了，非常好用。
2. 不喜欢F8的正交切换，希望换到其他按键，比如TAB，那么这样来定义。在key中按《TAB》，然后在Macro中输入《'^O 》就可以了。
3. 希望一按某个按键比如F4，就实现某种捕捉设置。比如end, cen, int, per, nea五种。那么在key中按《F3》，然后在Macro中输入《'osmode 673 》
其他种种，有待您去开发了，该程序也自带了不少了。
以上这些古怪的语言和数字，是因为我是天才，想出来的么？：），不不不，请去参考Autocad自定义菜单－菜单宏的语法和一些系统变量的知识。您经常在网上查找Autocad技巧么？只要您能把Autocad的帮助看上一遍，嘿嘿，保证是超级高手了，我看了10年都还有许多没看完呢。
范图

AutoNest for AutoCAD
AutoXlsTable For AutoCAD
Batch Script Processor for AutoCAD

BetterWMF ★★★★★
一个将AutoCAD的图输出为WMF矢量图的软件.
--------------------------------------------------------------------------------
介绍
网址: http://www.furix.com
等级：★★★★★
用法：1）打开软件，设置完毕后，每次在AutoCAD中选择复制的时候，会自动将其转为可插入到Word文件中的WMF图形.
用法：2）设置ARX加载.
评论：不可缺少的AutoCAD程序。大概在99年就开始用了，当时应该是在autocad中国网站的网页上看到的。其时版本为2.0左右。
技巧：软件提供了Lisp函数，可以通过(bcopyclip (ssget "X"))之类的语句加载
你对AutoCAD的图形插入到Word文件中感到头痛么，那你有必要用它试试。
它的主要特点，同时也对比一下我们平时拷贝的不便之处：
1.自动去掉ACAD的背景颜色。我们知道，ACAD的背景颜色是自己定义的，很多朋友喜欢用黑色作为底色，那么拷贝图形到WORD的时候，往往需要修改背景颜色为白色，如此切换甚是麻烦。
2.自动修剪图形边缘。采用普通拷贝粘贴有一个结果就是，拷贝后的图形周边有很大一部分的空白边缘，需要在WORD里面将之修剪去掉，这个工作也很繁琐。
3.自动修改颜色。假如我们写科技文章的话，一般都需要将图形全部采用黑色线型，这时候在拷贝之前我们就需要将图形改为黑色线型，虽然不难，也挺费工，更别说什么时候碰到标注是其他颜色的情况了。
4．它将拷贝的图形自动转变为WMF图片，我们知道WMF（Windows Metafile）是一种很好的矢量图形格式，缩放时不会影响图形质量，文件大小也很小。
5．这个应该说是这个软件的重头戏了，它可以设置线宽。假如大家用过激光打印机的时候，肯定有这样的感觉，将没有设置线宽的ACAD图形拷贝到WORD里面，打印的时候线条特别的细，因此不得不在ACAD里面采用多义线来绘制图形，很麻烦。我们也曾经梦想，ACAD能根据图形的颜色来设置打印线宽。BETTERWMF可以根据颜色来设置拷贝图形的线宽，拷贝出来的图形就像我们打印一样具有粗细之分。
范图

Cad Closure
CAD EASY EASYSITE AUTOCAD
CAD Viewer
CadoDraw and TcdPolygons for DnCB Suite

Cadpipe产品
Cadpipe 3D Design v7 0 for AutoCAD
Cadpipe Building Services for AutoCAD
Cadpipe Commercial PIPE for AutoCAD
Cadpipe HVAC for AutoCAD
Cadpipe ISO for AutoCAD
Cadpipe Ortho for AutoCAD
Cadpipe PID for AutoCAD

CADRaster PRO For AutoCAD
Carken DeskART
Cinderella
Dwg2Dwf

DWGTOOL产品
DWGTool DWG to IMAGE Converter
DWGTool DWG to PDF Converter
DWGTool DWG to SVG Converter
DWGTool DWG to SVG Converter MX
DWGTool DWG to WMF Converter

Excellink

Floating Point产品
Floating Point Solutions AutoProject
Floating Point Solutions MeshWorks
Floating Point Solutions Point Cloud
Floating Point Solutions Points to Surface
Floating Point Solutions STL Import
FXArray
IGES Import for AutoCAD
MassPlus LT
MassPlus Standard
Mech
MechSoft
PIX Import for AutoCAD
PLT Import for AutoCAD
SmartPurger
Spline Convert
Squiggle

SYCODE产品
SYCODE Mesh to Solid
SYCODE TerrainCAD
SYCODE 3DM Import for AutoCAD
SYCODE Mesh Booleans for AutoCAD
SYCODE Mesh To Solid for AutoCAD
SYCODE Mesh To Solid
SYCODE TerrainCAD
SYCODE Terrain for AutoCAD
Terrain for AutoCAD
Terrain For Autocad
TerrianCAD
The Geometers Sketchpad
VeryPDF AutoCAD DWG and DXF To PDF Converter
ViewCompanion Pro
ViewCompanion Pro
ZoomON Hp2Design Pro

对输入法的思考

2007-03-18T21:05:00.002+08:00

对输入法的思考
最近把输入法换成搜狗的了。唉，其实用紫光也有5，6年了。只是随便试了一下，居然就变节了。郁闷。以前对搜狗的态度颇是抵抗，觉得炒作成分颇多，说不定还是流氓软件。不过既然用了，就谈谈一些看法吧。
它的特点就是把大家的优点都学了（是否该叫模仿或者抄袭？），紫光该有的他都有。还加上一些小功能，界面不错（起码个人现在用雅黑字体比在紫光的要好些），似乎准确率是高些（这点颇重要），切换间好像还没有出现什么问题（紫光会不时搞的我的caplock出点问题）。
仔细想想，市场就是这么奇怪，一个很好的软件（比如紫光），有一些小问题，一直没有解决很好。而另一个软件，可以把其优点全部模拟后，加些功能，就把紫光的老用户挖走了一个。市场挺残酷的。不过微软和google也经常做这样的事。看来这个世界确实变化快。

所以，又重新思考了，输入法还应该有什么变化？
1）专业词库，而且必须是开源的，编辑容易。（google了一下，好像拼音加加已经有了）。
2）英文单词的中文输入。比如键入hnt（混凝土），可以出concrete，键入本构关系，出现constitutive relation这个单词候选。这个必须有一个中英文词典做后备翻译。而且必须是专业性强的。因为普通的英文单词多义太多。我不觉得这点是翻译软件才要做的事。

工地中的见闻

2007-03-18T21:05:00.001+08:00

工地中的见闻
周五，工地，吊装试验试件，20几吨的铸钢节点。定位很困难，好歹完成了。
通宵，细雨，机器的轰鸣。远处的探照灯彻夜不灭。
凌晨3点，夜宵。
工人们就着啤酒聊天。凝听。
他们都走遍了大江南北，从内蒙到广州，从北京机场到南京本部。
问他们的感觉，他们觉得很自豪，宏伟的北京新机场的某部分桁架拼接就是我完成的。他们乐观而自豪的精神感染着我。
走在离地几十米的高空，感觉如何？好的老板会满堂脚手架，差的老板就让你表演杂技。有走网架圆管，突然圆管转动差点跌下。工地常会出安全事故，但人命值钱否？他们说出事故的常是胆子太大的，大的都忘记了危险。有个40几岁的大哥，说，年轻时一点都不怕，娶了老婆生了孩子之后就有一点了。
看着他们乐观的精神，埋头苦干的态度，我很感动，在此，祝各位工人兄弟幸福快乐，平安第一。

10年经典软件

2007-03-18T21:03:00.000+08:00

10年经典软件

什么软件是经典？能一直用10年？不升级版本一直到现在？
对我而言，仔细看了和思考了。 AutoCAD R14和 Microsoft Office97算是两个。
他们功能强大（至今尚未用完某些功能），帮助详尽，基本不落伍（宏，lisp编程等至今仍可做出许多不可思议的效果来）

[Totalcmd]根据文本文件的内容依次对文件进行批量重命名

2007-03-15T08:08:00.000+08:00

[Totalcmd]根据文本文件的内容依次对文件进行批量重命名

上次写过一篇关于根据某文件的第几行对各文件进行批量重命名的文章。
http://chenqj.blogspot.com/search/label/totalcmd

主要的方法是根据TC的一个script wdx插件编写脚本来完成的。

由于最近碰到一个类似的问题，有某期刊某一年的一批caj期刊文件，名字顺序是对的，但是只是简单的1，2，3之类的名字。而具体的文章名字通过查询期刊网已经按照顺序放在一个文本文件里面。

比如c:\123.txt中有新的名字顺序
1.数学的应用
2.物理的范畴

那么研究，写了一个这样的代码
（注：下面的代码是针对一个文件名前面有001,002等三个数字开头的txt文件进行操作的，其脚本给出的结果是根据这前面的三位数字代表的数值去查找相对应的c:\123.txt中的行的内容，来显示在wdx的content行中。）
（注1：怎么给待操作的文件预先加上3位数字？，可以通过先重命名一次来得到）
（注2：怎么根据content进行批量重命名：见重命名中的plugin部分）

vbs代码：


'Script for Script Content Plugin
'qjchen

Dim fso, ts, s, re, fd ,f
Set fso = CreateObject("Scripting.FileSystemObject")
sExt = lcase(fso.GetExtensionName(filename))
Const ForReading = 1

Select Case sExt
case "bar"
content="bar file"' Just For testing
'---------------------------------
case "txt"
Set fd = fso.GetFile(filename)
name = fd.Name
num=left(name,3)
num=cint(num)
f1="c:\123.txt"
Set f = fso.GetFile(f1)
Set ts = fso.OpenTextFile(f1, ForReading)
for i= 1 to num
s = ts.readline
next
ts.Close
content= s
Case Else
'content = sExt + " file type"
End Select

可以把这段代码存为该插件目录下的1.vbs

打开script.ini，修改其中的extension段为：

[Extension]
Script=1.vbs

结果如图

由于脚本编写水平属于现学现用型，有点乱，见笑了，应可精简不少。

禁止AutoCAD中键双击最大化的Autohotkey代码

2007-03-13T20:59:00.000+08:00

禁止AutoCAD中键双击最大化的Autohotkey代码

今天在xd论坛看到这样的帖子:如何禁止AutoCAD中键双击最大化

autodesk的论坛上有高手编过用反应器的方法来实现禁用中键双击，不过似乎有点难用。

这里介绍一种禁止AutoCAD中键双击最大化的Autohotkey代码

这段Autohotkey代码的用法：安装autohotkey，（请自己google）
安装完之后，打开记事本，键入如下代码


MButton::Send, 'pan{enter}

然后，保存为比如a.ahk
双击这个程序，那么以后在autocad里面双击就不会是最大化窗口了，简单吧？：）

但要注意一点，这个autohotkey不像autohook，它的代码对于所有应用程序都有用的，在其他程序中单击中键的功能会被修改，请慎重使用。

所以呢，还差一步如何判别应用程序的类型来实现仅某些程序限用。

本来想写禁止双击的，发现双击不会写，查了好久autohotkey论坛都没有结果。

代码虽然简单，但是它其实表明autohotkey也可以作为一种autocad的外挂，写的好的话有意想不到的效果。比如说读入文本绘制轴线，可能写起来比Lisp还简单。

比如Autohotkey还有一个有趣的功能，按左ctrl+鼠标滚轮实现alt+tab可以这样写,这个是其帮助文献中的经典应用啊。

LCTRL & WheelDown::AltTab
LCTRL & WheelUp::ShiftAltTab

相信Autohotkey可以像autohook一样来提高绘图速度，因为它对键盘的定义虽然还不如autohook，但是其鼠标的控制可是autohook所不具备的啊。

编写autohotkey的更好工具是textpad，可见这里http://chenqj.blogspot.com/2007/03/autohotkeytextpad.html

记录几个网站

2007-03-13T08:56:00.000+08:00

最近写文章和在计算有限元，就没法写什么心得了。
在把一个200多M的solidwork的空间节点模型在进行网格划分的时候，总是死机。动用的软件涉及catia, abaqus, algor, ansys，inventor, 3ds max，在各种软件之间进行格式转换。
得到了如下几种结论
1）这个solidwork的建模建的不大好，有几个比较怪异的地方，老是导致划分失败
2）各个软件之间互通还挺成问题，有时候很难导入另外一个程序生成的通用格式
3）sat算是一种比较通用的格式，但是其版本繁多，非常容易就不兼容，挺伤脑筋的
4）最后可能还是得用abaqus慢慢的partition解决。

记录几个网站：
xbeta兄介绍的
http://www.donationcoder.com/
网站很好，最近正在准备把它的论坛翻一遍
找到了几个网站
http://www.libellules.ch/dotclear/index.php
http://pon.fr/
这是两个法语的小网站

一个写css的小软件，挺好用的
http://www.athlab.com/

两个中文blog
http://blog.roodo.com/emisjerry/
有一些不错autohotkey教程

http://www.wappblog.com/
看了这个网站，才知道web2.0是如此的多姿多彩

google reader越来越好用了
TextPad也出5.0了，不过感觉变化还不大就是。不过在我的鼓吹下，有不少师弟在写有限元文本的时候也慢慢用上它了，我也给他发去了好些语法文件。
这篇评论
http://www.donationcoder.com/Reviews/Archive/TextEditor/index.html
写的挺好的，还是比较专业的，虽然作者有些偏好，比如对于界面和某些功能。

一道sudoku题，不知道怎么用Lisp编程求解

2007-03-11T17:42:00.000+08:00

今天在作abaqus的参数分析,对constrain中的couple总是理解的不够充分,还要再研究.
昨晚上吃完饭,没事看《羊城晚报》，看到一道sudoku（数毒），就是让每行每列每个小九宫格中

都有一个1～9的不重复数字。以前对这个不屑一顾的，觉得哪够幻方之类复杂。没有竟然做了好久

：）。看来思维还需锻炼看问题不能片面。

作firefox portable的作者也作了portable sudoku，界面挺简洁的。

图片如下：

问题1，当然是完成
问题2，若是编程完成，思路如何，是否有点类似8皇后问题。（当然google是有的，不过最好就

先不去搜，自我再思考一下）,Lisp的表结构在这方面有没有什么优势。

撰写autohotkey代码的好工具－TEXTPAD

2007-03-08T16:21:00.000+08:00

撰写autohotkey代码的好工具－TEXTPAD。

近日对Autohotkey颇有兴趣，有空会学一学。Xbeta兄推荐的是用vim编辑，vim的功能确实很强大，学起来也有点难度，在没有学通之前就先用用熟的软件来使用。

也不记得什么时候用上TextPad的了。大概是学Abaqus和Truegrid的时候，那个时候挺希望文件特征字高亮的，就像平时经常编Lisp用的Lisplink就很好，于是就google找到了它。

TextPad这个软件，最大的特点就是支持的语法高亮的文件类型特别多。
在它网站上有几百种之多。著名的有限元软件Ansys和Abaqus的语法高亮都有，于是就用它了。最近还刚给他们寄去了Diana和Truegrid两个自制的syn文件。

Autohotkey安装之后，在extra目录下有10来个文本编辑器的ahk代码（包括vim，ultraedit等著名编辑器），用于在该文本编辑器内进行设置。（其实这10来个ahk文件值得好好学习,只有对该编辑器有比较深入了解的时候才可以写的这么好）。

针对TextPad的ahk编的非常好。还在TextPad的工具菜单里面添加了Run Script的选项，以后编完ahk之后，按Ctrl＋1就可以运行该ahk了，比较方便。

其实TextPad的功能不算很强，但是随着自己给它做了许多贴心的修改之后，就越发舍不得它了，一般我的文件编辑要求不高，实在一时没有办法的时候，会用Python编程来处理一下。顺带说说TextPad的其他几个特点：比如选高亮代码，按edit+other copy+ html page，可将高亮代码输出为html格式(这点vim也做的很好）；clip library，可以在选定的文字前后加上一堆定义好的文字（写html有用），宏（做的不好，无法人工编辑）；很好的按键重定义功能（有时候处理试验数据的时候拷贝粘贴作多了，会手指抽筋的，用它重定义拷贝粘贴键倒是不错）。对数字开头的句子，可以按顺序重排列等功能。

总而言之，它不是一个功能很强大的文字编辑软件，但是各人各取所需，是吧，我就喜欢它的高亮显示，可以做的很漂亮。

注意，有空得去注册表里面找到Textpad，把其备份下来，不然你的颜色配置方案重装系统后就没有了。

AutoCAD 2008的一些新特性及与以往Lisp之小联系

2007-03-06T10:27:00.000+08:00

AutoCAD 2008的一些新特性及与以往Lisp之小联系

qjchen

1）加了一种Annotaion的概念，可以在缩放详图的时候自动调整尺寸，这点对详图设计应该比较有用。所以必须学习一下annotation scale。而annotative object包含了好些实体，比如dimension，text等。2008把它当成第一个新特性，肯定认为是很重要的吧。
Lisp相关：以前有一个叫Detail的程序。

2）Dimension的一些增强，包括公差的对齐等等，还有给标注加截断线，加了一种叫Inspection Dimension的。给线性标注添加一种叫Jog line来表示尺寸和实际不符的情况（还没有想明白具体的作用）。
Lisp相关：以前有一个弧线长度标注的程序，不过在最近版本的cad中已经自己支持了。

3）自动调整标注之间的间距，使之不重叠，这点倒是比较神奇，莫非有点人工智能的能力了（效果其实还不错，要先选基准线）。multileader会自动增加编号，可以自己定义格式，不过还不够智能的样子。不过它的对齐调整倒是比较有趣。
Lisp相关：探索者有一个多线标注的程序，但是作用不是很类似。

4）可以动态和Excel交换数据，内容包括sheet，range和cell，这个对各种表格软件的打击还是不小的。表格风格也得到了增强。表格中可以象excel一样拖曳来递增数据。可以把一个表格通过简单的点击变成两个（这个功能挺有趣的，以前还没有见过）。可以对图形对象进行数据导出，比如块，属性等。可以导出到excel。这个功能应该也挺不错。比如导出polyline围住的面积等。
Lisp相关：有不少关于Excel和Acad之间互通的程序，包括mmmm的程序和truetable，还有国外一些。

5）layer的属性得到了一些增强，在不同的viewport中有不同的设置。

6）一种将选择图层不关闭，但锁住变灰可捕捉的reduce visual complexity的做法。这个Layeriso的命令非常好用，是这个版本的一个亮点了。地位可以和最近几个版本中出现的join和scaletext等小命令相媲美。
Lisp相关：记得xdcad几个版主曾经讨论过这个功能，是不是给了autodesk灵感啊。

7）可以对附加的xref的图层进行更好的控制。Xclip有了新的选项。
Lisp相关：Aeo版主写过自动剪切判断内外的程序。

8）Visual fidelity 的功能用于对新的annotation性质进行控制。Mtext可以写多列文字了。多行块属性。

9）可以导入和导出Microstation的DGN文件。

10）aeo版主提过的substr问题仍然没有改进。

所以个人感觉，2008的变化没有2007来的多。更多的细节，应该是小号版本的升级吧。

在TC内解双重压缩文件的简单Autohotkey代码

2007-03-06T08:43:00.000+08:00

在TC内解双重压缩文件的简单Autohotkey代码

常下软件的朋友经常会遇到zip内有rar文件的情况，此时，需要先解zip再解rar
记得好久之前就出有这样的专门的软件了。

在TC中其实也不麻烦，选zip，按alt+，解压一次，对rar按下右键，也解压就可以了。
用TC script也可以做到一次完成。其实个人觉得TC以后的版本倒不妨加入一个脚本支持，可以有更大的DIY空间。

此处只是提供一种思路。代码也不完善。
请将下面一段代码存为abc.ahk，运行之（需安装有autohotkey），以后在TC中按alt+F2，可以在某些情况下解压双层压缩文件


^F2::
send +{right}
send winrar e *.z?? *.r??{enter}
send md install{enter}
WinWaitActive,,,2
send winrar x *.r?? install\{enter}
return

代码的限制性：
（1）必须安装有winrar
（2）请在TC中先定位到需要解压zip的目录，最好此时还没有什么rar文件
（3）请切换到英文输入法
（4）这个大概对于总和20M左右的压缩文件适合，更多了的情况下需要把第五句修改一下，加大2秒到更长时间（请熟悉autohotkey的朋友告诉一下如何写等待解压完zip再解压rar的方法，谢谢）

所以在没有找到第5句话的写法前，这篇文章的作用还很小。

名词——Autohotkey（www.autohotkey.com），可参考xbeta和yonken的文章。
http://www.blogcn.com/user48/yonken/index.html
它的作用就是完成一些批量的工作。本人只学了一点皮毛。比如拿它来作批量将doc文件导为txt文件，批量按文本文件第三行来修改文件名，批量将tecplot的lay文件导出为wmf文件，用它来定义autocad的加速按键。可能它比hoekey还要稍微强一点，和autoit差不多。

如何使用：用一个文本文件编写一段代码，保存为.ahk文件，然后运行这个ahk文件即可。常见用法，可以在同一个ahk文件内定义许多快捷键及其相对应的批操作。

一些lisp和emacs的博客或站点

2007-03-05T16:19:00.000+08:00

一个网络课程
http://wlkc.lnnu.edu.cn/rgzn/content/index.htm
一个博客，关于emacs的
http://ann77.stu.cdut.edu.cn/
一篇关于emacs的文章
http://www.newsmth.net/pc/pccon.php?id=6147&nid=152423&order=&tid=13200
一篇关于lisp，python和ruby（一个日本人弄的语言，水木清华有专版）的对比
http://blog.csdn.net/jq0123/archive/2006/08/31/1147758.aspx

近日在好好写论文，就不勤力更新了。
tecplot不支持中文的问题是挺讨厌的，好在假如中文不多的话，倒是可以用coreldraw或者illustrator或者autocad或者acrobat来编辑一下。sigmaplot的图也是非常漂亮，但同样也存在着中文字体间距不等的问题。

添加目录到autocad的支持路径

2007-03-03T08:44:00.000+08:00

学习一下vlisp中的add supporting path

刚好xd论坛有这个问题，秋枫版主也做了回答，为了好好学习，也在网上找了一下其他资料，好像大概都是两种写法，setenv和vla-put-supportpath，其实记得有一个专门讨论preference里面操作的，现在不明确的是否所有的vba都能被lisp支持。

Lisp是一个很奇怪的语言，好像不同人会写出各式各样的代码，但是有时候高手的代码又会几乎一模一样。好奇怪。

学习作笔记～

秋枫兄代码:



 ;;; 解析字符串为表（函数来自明经通道转载）
 ;;; ---------------------------------------------------------------------------------
   (defun strParse (Str Delimiter / SearchStr StringLen return n char)
     (setq SearchStr Str)
     (setq StringLen (strlen SearchStr))
     (setq return '())
     (while (> StringLen 0)
       (setq n 1)
       (setq char (substr SearchStr 1 1))
       (while (and (/= char Delimiter) (/= char ""))
     (setq n (1+ n))
     (setq char (substr SearchStr n 1))
       ) ;_ end of while
       (setq return (cons (substr SearchStr 1 (1- n)) return))
       (setq SearchStr (substr SearchStr (1+ n) StringLen))
       (setq StringLen (strlen SearchStr))
     ) ;_ end of while
     (reverse return)
   ) ;_ end of defun

 ;;; 反解析表为字符串（函数来自明经通道转载）
 ;;; ---------------------------------------------------------------------------------
   (defun StrUnParse (Lst Delimiter / return)
     (setq return "")
     (foreach str Lst
       (setq return (strcat return Delimiter str))
     ) ;_ end of foreach
     (substr return 2)
   ) ;_ end of defun

 ;;; 添加支持文件搜索路径
 ;;; ---------------------------------------------------------------------------------
 ;;; note:  第二个参数如果为真, 插最前，否则插最后
 ;;;       
   (defun AddSupportPath (PathToAdd isFirst / supportlist)
     (if    (not
       (vl-string-search
         (strcase (strcat pathToAdd ";"))
         (strcase (strcat (getenv "ACAD") ";"))
       )
     )                ; 保证不重复添加
       (progn
     (setq supportlist (strparse (getenv "ACAD") ";"))
     (setq supportlist
            (vl-remove-if-not
          'vl-file-directory-p
          supportlist
            )
     )                ; 移除不存在的文件夹
     (if isFirst
       (setq supportlist (cons PathToAdd supportlist))
       (setq supportlist (append supportlist (list PathToAdd)))
     )
     (setenv "ACAD" (strUnParse supportlist ";"))
       )
     )
   )


 [AcadX.com]的代码，可能年代也挺久的，和秋枫版主的类似
 代码:


 (defun addSP (dir pos / tmp c lst)
   (setq tmp ""
     c -1
   )
   (if (not (member (strcase dir) (setq lst (mapcar
                          'strcase
                          (parse (getenv "ACAD") ";")
                        )
                  )
        )
       )
     (progn
       (if (not pos)
     (setq tmp (strcat (getenv "ACAD") ";" dir))
     (mapcar
       '(lambda (x)
          (setq tmp (if (= (setq c (1+ c))
                   pos
                )
              (strcat tmp ";" dir ";" x)
              (strcat tmp ";" x)
                )
          )
        )
       lst
     )
       )
       (setenv "ACAD" tmp)
     )
   )
   (princ)
 )

 (defun parse (str delim / lst pos)
   (setq pos (vl-string-search delim str))
   (while pos
     (setq lst (cons (substr str 1 pos) lst)
       str (substr str (+ pos 2))
       pos (vl-string-search delim str)
     )
   )
   (if (> (strlen str) 0)
     (setq lst (cons str lst))
   )
   (reverse lst)
 )
 ;  Arguments : A folder path and the position at which to insert it. (0 based.)
 ;  Here's an example to add a support folder :
 (addSP "c:\\afralisp" 3)

John Laidler ，也用setenv函数，没有选择位置项
代码:


 ;;; John Laidler 
 ;;; http://groups.google.com/group/auto...72d257e2d2174/4

 b0851cbad83d142?lnk=gst&q=add+support+path&rnum=4#4b0851cbad83d142    
 (defun CS:AddSupportPath (dir / tmp Cpath)
   (vl-load-com)
   (setq Cpath (getenv "ACAD")
     tmp (strcat ";" dir ";")
   )
   (if (not (vl-string-search dir cpath))
     (setenv "ACAD" (strcat Cpath ";" dir))
   )
   (princ)
 )

 (CS:ADDSUPPORTPATH  "c:\\b")

下面三个是theswamp找到的函数
MP，只用一句话，是vla函数
代码:


 ;;;[MP]
 (defun _AddSupportPath ( path / files )
     (vla-put-supportpath
         (setq files
             (vla-get-files
                 (vla-get-preferences
                     (vlax-get-acad-object)
                 )
             )
         )
         (strcat
             (vla-get-supportpath files) ";"
             path
         )   
     )
 )

 (_addsupportpath "c:\\3")

Jeff_M和kerry Brown都是为了一个问题写的，希望一次加多个子目录
代码:


 (defun c:ldp (/ FilePrefs addEnviron EnvironBase acadEnviron)
   (setq FilePrefs (vla-get-files (vla-get-preferences
                               (vlax-get-acad-object)
                  )
           )
   )
   (setq acadEnviron (vla-get-supportpath FilePrefs))
   (setq EnvironBase "M:\\_Cad Support\\AutoCAD 2004\\2004dannyCAD\\MENU\\")
   (setq addEnviron '("Area" "Blocks"
      "Dimensions" "Layers"
      "Linetypes" "Plotting"
      "Settings" "Shortcuts"
      "Text"
     );;;add any others you want to this list

   )
   (if (not (vl-string-search (strcat EnvironBase (car addEnviron))
                  acadEnviron
        );;;make sure we haven't already done this
       )
     (progn
       (mapcar
     '(lambda (x)
        (setq acadEnviron (strcat acadEnviron ";" EnvironBase x))
      )
     addEnviron
       )
       (vla-put-supportpath FilePrefs acadEnviron)
       (princ "\n....Support Paths updated!")
     );progn
     (princ "\n....Support Paths were previously updated...nothing done.")
   );if
   (princ)
 )

Kerry Brown
代码:


 (VL-LOAD-COM)
 (prompt "\n <> Load Dependant Support Paths to profile [V0.01]")
 (defun c:LDP (/ fileprefs addenviron environbase acadenviron)
   (setq fileprefs (vla-get-files (vla-get-preferences
                               (vlax-get-acad-object)
                  )
           )
   )
   (setq acadenviron (vla-get-supportpath fileprefs))
   (setq environbase "M:\\_Cad Support\\AutoCAD 2004\\2004dannyCAD\\MENU\\")
   (setq addenviron '("Area" "Blocks"
      "Dimensions" "Layers"
      "Linetypes" "Plotting"
      "Settings" "Shortcuts"
      "Text"
     )
   )
   (mapcar
     '(lambda (x)
        (setq acadenviron (strcat acadenviron ";" environbase x))
      )
     addenviron
   )
   (vla-put-supportpath fileprefs acadenviron)
   (PRINC)
 )

Fools兄的俄罗斯方块游戏（Vlisp）

2007-03-01T09:52:00.000+08:00

fools兄在这个帖子中
http://www.xdcad.net/forum/showthread.php?s=&threadid=622714
给出了一个用Vlisp编写的俄罗斯方块的游戏，真厉害。

现在已知的用Vlisp编写的游戏有: 魔方，飞机，军舰棋等，只有真正喜爱VLisp的朋友才会真正去编写这些程序。

同时也感慨，作为一个编程语言界第二老的语言，Lisp为什么就不能大众化一些呢? Fortran这个老阿伯都能出V Fortran，而Lisp好像一直以来就束之高阁，只有在AutoCAD这个外来的平台上面发挥它一些小众的作用，实在有些费解，而Adesk看样子好像都要差不多抛弃Lisp了，n年不更新函数，现在连函数都开始不支持新类型了。前段时间看到的pythoncad，虽然不见得python就比lisp厉害或者高级，但是人家毕竟大众化了。

fools兄还在
http://www.xdcad.net/forum/forumdisplay.php?s=&forumid=50
和
http://www.xdcad.net/forum/forumdisplay.php?s=&forumid=25
等版给出了好些函数，且赶快做个书签，以便好好学习。

发起时间：2007年02月28日11点28分">[LISP函数]：通过Vlisp下载网络资源的4个函数
http://www.xdcad.net/forum/showthread.php?s=&threadid=623407

Tecplot的lay文件的TextPad语法高亮文件（部分）

2007-02-27T11:52:00.000+08:00

最近仔细的学习了TextPad，发现了不少以前没有发现的新功能，特别是看来Autohotkey给TextPad加语法文件的全过程之后，颇有收获。不过这里只是附加一个二维xy线及散点图的tecplot语法高亮文件，权当是一个备份吧。


; SYNTAX FILE FOR Tecplot 
; qjchen http://chenqj.blogspot.com

C=1

[SYNTAX]
NAMESPACE1 = 6
IGNORECASE = NO
INITKEYWORDCHARS = A-ZA-Z_
KEYWORDCHARS = A-ZA-Z0-9@*-'`
BRACKETCHARS = {}[]
PREPROCSTART = 
SYNTAXSTART = 
SYNTAXEND =
COMMENTSTART =
COMMENTEND =
SINGLECOMMENT = $
SINGLECOMMENTCOL =
SINGLECOMMENTALT =#
SINGLECOMMENTCOLALT =
SINGLECOMMENTESC = \
STRINGSSPANLINES = YES
STRINGSTART = "
STRINGEND = "
STRINGESC = \
CHARSTART = '
CHAREND = '
CHARESC = \

[KEYWORDS 1]
ANCHORPOS
ASSIGN
BACKGROUNDCOLOR
BARCHARTS
BOTTOMHARDCLIPOFFSET
BOX
COLOR
CONTOURCOLORMAP
DATALABELS
DEPXTOYRATIO
DISTANCESKIP
EQUATION
ERRORBARS
FILLCOLOR
FILLMODE
FONT
GEOMSHAPE
GRSPACING
HEADERCOLOR
HEIGHT
INCLUDEGEOM
INCLUDETEXT
INDICES
INITIALPLOTTYPE
IRANGE
ISTRANSPARENT
LEFTHARDCLIPOFFSET
LEGEND
LETTER
LINES
LINETHICKNESS
MAX
NAME
OFFSET
ORIENTPORTRAIT
PAPERGRIDSPACING
PAPERSIZE
PAPERSIZEINFO
RANGEMAX
REGIONINWORKAREA
RESETSTYLE
RIGHTHARDCLIPOFFSET
RULERSPACING
SHOW
SHOWBORDER
SHOWGRID
SHOWPAPER
SHOWRULER
SHOWSYMBOLS
SIZE
SYMBOLS
SYMBOLSHAPE
TEXT
TEXTSHAPE
TICKLABEL
TITLE
TITLEMODE
TOPHARDCLIPOFFSET
VARLOADMODE
VARNAMELIST
WIDTH
X
X1
X2
XAXISVAR
XDETAIL1
XYPOS
XYPOS
Y
Y1
Y2
YAXISVAR
YDETAIL1
ZONE
RANGEMIN
XDETAIL
YDETAIL
LINEPATTERN


[KEYWORDS 2]
RED
BLUE
GREEN
YELLOW
BLACK
WHITE
BYNAME
XYLINE
ONEINCH
HALFINCH
SMRAINBOW
HELV
HELVBOLD
GREEK
USESPECIFICCOLOR
CIRCLE
CUSTOM2
USETEXT
DEL
DASHED
DASHDOT


[KEYWORDS 3]
YES
NO

一段批量将doc文件存为同名txt的autohotkey代码

2007-02-27T11:43:00.000+08:00

最近在好好学习地写论文，做了一些批量根据数据生成tecplot图形lay文件和利用autohotkey编写地批量tecplot图形的wmf导出代码，由于不通用，就不放在这里了。doslib7.5的chm文件已经全部翻译完毕，但还在校对中。计划写一个autocad外挂程序小览，这个茶余饭后会完成。

下面简单的介绍一个批量将doc文件存为同名txt的autohotkey代码，可以改造成其他类似用途。


FileList =  ; Initialize to be blank.
Loop, g:\3\*.*
 FileList = %FileList%%A_LoopFileName%`n
Sort, FileList, R   ; The R option sorts in reverse order. See Sort for other options.
Loop, parse, FileList, `n
{
 if A_LoopField =  ; Ignore the blank item at the end of the list.
  continue
 Run g:\3\%A_LoopField%
 WinWaitActive,,,0.5
 Send, !fa{tab}{down}{down}{down}{enter}!s!fc
}

Ansys 11里面一些自己感兴趣的新功能

2007-02-23T19:45:00.000+08:00

Ansys 11里面一些自己感兴趣的新功能
(qjchen)
1）Nonlinear Stabilization
对局部失稳的问题进行了改进，可以在静态分析中模拟局部失稳和失稳后行为，对某些弧长法无能为力的snap-through问题和整体失稳问题有了一定的改进。……。
个人感觉：这点不知道对前段时间的整体网壳非线性分析有没有改进的作用，且待后测试。

2）3-D Smeared Reinforcing
一个三维的3－D smeared 钢筋单元。REINF265单元，可以作为钢筋或者纤维等的三维模拟。在一个基单元中可以定义250层钢筋，也可以用EREINF来自动生成钢筋。这个单元具有塑性，应力刚化，蠕变，大变形，大应变等特性。
个人感觉：虽然ansys的钢筋功能不是很强大，但是应付一般的问题还是不错的，现在有三维加强总算是对土木行业有些作用吧。

3）New User-Defined Elements
有一个新的API（application program interface ）可以让用户更加简单的构建新单元。其中很重要一点，用户不再需要撰写材料子程序，可以调用标准材料库的程序。

个人感觉：应该还是很好的，ABAQUS和DIANA都支持用户自定义类型，而ansys的自定义门槛可能更高，需要降低一些了。个人觉得一个软件的定制性更强，甚至有某些开源方面的插件接口会好的多，拥有更多的用户。

4）New Joint Element Options
多种新的节点单元，这个主要是对两个单元对应节点的耦合进行更多方面的定义。其中有一种weld的焊接单元。MPC184 Weld Joint Element。
感觉：多些选择总是好的。

5）Component Mode Synthesis (CMS)
字模态合成？，功能有所增强，不知道对师兄的那个连体结构模态分析有没有帮助呢。

6）Drucker-Prager plasticity
多了一种Cap模型。其中的一种Gurson’s plasticity model 塑性模型适用于延性金属的破坏。其基于微力学延性损伤模型。

7） J-Integral Calculation
断裂力学中的J积分，记得以前的马博士是用了编写apdl的方法来完成的，现在可能得让他来判别一下怎么回事了。

8）Initial State
据说初状态的定义大大的增强了，可以从多方面进行定义。

9）Apdl的增强
array相关的几个函数都得到了增强，比如 *DIM *VOPER, *MOPER, *VGET ,*VFUN, *MFUN, *VITRP, *TOPER,
而*GET和*VGET也都得到了增强，个人感觉比较有用。

[原创] Totalcmd根据文本文件的第n行批量重命名

2007-02-22T09:15:00.000+08:00

[原创] Totalcmd根据文本文件的第n行批量重命名
(华南理工大学建筑学院 qjchen）

问题1:
有一批txt文件，希望根据其文本文件的第一行或者第n行内容重命名文件【这个问题有时在某些下

载的电子书会遇到）。
问题2:
或者有一批html文件，希望根据其标题（title）进行批量重命名。（这个问题在没有安装插件

firefox存网页的时候会遇到）

在昨天之前，我还没有什么方法，只能编下程序。
在http://chenqj.blogspot.com/2007/02/4-qjchen-txtca1234-httpqjchen.html

我用Lisp，python，cmd脚本和 Autohotkey等几种小众语言编了完成。

但是一直觉得TC重命名水平很高，于是找WDX插件，找到如下这个——Script Content plugin

——Lev Freidin (c) 2005

下载地址:
http://www.totalcmd.net/plugring/script_wdx.html

这个WDX插件的功能非常强大，它可以读取js和vbs脚本的结果来作为一个TC的内容插件。这点给用户的自定义性非常强。

它自带了几个脚本，其中的ext.vbs给我们如下功能
'Show size for eps, ai, ps, prn files （查看eps, ai, ps, prn文件的尺寸）
'Show title for htm, html files （查看htm和html文件的标题——title）

WDX插件的很大一个用处就是重命名。可以查看title内容就可以按照它修改。

但是它离我的目标还差一点，没有显示文本内容，怎么办。本人编程水平还比较低，只能依样画葫芦写出如下一段代码。

'---------------------------------
case "txt"
Set f = fso.GetFile(filename)
Set ts = fso.OpenTextFile(filename, ForReading)
s = ts.readline
s = ts.readline
s = ts.readline
ts.Close
content= s

把这段代码拷贝到ext.vbs的Select Case sExt这句话的下一行，保存文件，即可。（注意，本文是读取文本txt文件的第三行，所以这么写。假如是第n行，当然可以把ts.readline写上n遍，但是最好还是写个for循环吧）

作者说了，假如你想多几个内容，可以把这个程序拷贝多几个目录，分别指定vbs，这个可以打开script.ini，看看[Script]的Section这个段，比如把Section＝AddZeros就变成了其自带的另外一种内容显示模式（文件名中数字填充0的模式，方便排序）

接下来的wdx自定义列及重命名工作，各位肯定很熟手，就不一一列举了。

主要是在Ctrl＋M之后，选Plugins就可以了。

我在这里放了一个swf文件，主要是为了顺便学习Wink的应用

http://qjchen.googlepages.com/mytcrename1.htm
各位见笑了：）

利用4种小众语言进行批量多层子目录内文件重命名的方法

2007-02-20T22:27:00.000+08:00

利用4种小众语言进行批量多层子目录内文件重命名的方法
（华南理工大学建筑学院 qjchen）
问题的提出:
有一批txt文件（处于c:\a目录及在此内的多层子目录下），名字是1，2，3，4等比较乱的名字，现在希望用每个文本的第三行文字作为文件的新名字。
（这个要求当然可以是其他比较奇特的，修改一下即可）
为了方便测试，放了一个文件在这里，
http://qjchen.googlepages.com/test.ZIP
请解压到c:\a目录下即可。

现在希望用几种小众语言共同试一下，作为自我学习，也希望各位高手指正、精简及告诉多几种语言的写法。

问题的中心：目录的递归查找文件，文件读取，重命名

1a）纯粹的Lisp语言
既然是Lisp版，当然得先用Lisp语言，此处用的是Vlisp，其中借助了John F. Uhden, Cadlantic的程序。由于VLisp本身只提供了少量的目录函数，因此代码比较长。里面涉及了递归定义。

优点：lisp函数就如一个玩具一样，它用很少的语言定义出一栋高楼大厦，给人有很满足的感觉，当有足够多的Lisp函数构建出函数库，照样有强大的功能。当然，AutoLisp语言的强项在于图形方面，用它来作这些也有点难为它。

缺点：vlisp的速度相对其他语言似乎有些慢。

用法：在autocad2000以上加载之后，运行ren即可。


;;; ========================================================================
;;; Some of the following code are writen by CHEN QING JUN                 ;
;;; Civil engineering Department, South China University of Technology     ;
;;; Purpose: To get a file list of the currrent path                       ;
;;; The platform: Acad2000 and after                                       ;
;;; 2007.02.19                                                             ;
;;; Http://chenqj.blogspot.com                                             ;
;;; Http://autolisper.googlepages.com                                      ;
;;; ========================================================================
(defun c:ren (/ direc directree x y direcfile)
(setq direc (getstring "\nc:/a:"))
(if (= direc "")
 (setq direc "c:/a")
)
(setq directree (@Folders direc))
(foreach x directree
 (setq direcfile (qj-directory-only-files x))
 (foreach y direcfile
   (if (= (vl-filename-extension y) ".txt")
(rename y)
   )
 )
)
)
(defun rename (y / path fh newname)
(setq path (vl-filename-directory y)
ext (vl-filename-extension y)
)
(setq fh (open y "r"))
(read-line fh)
(read-line fh)
(setq newname (strcat path "/" (read-line fh) ext))
(close fh)
(vl-file-rename y newname)
)
(defun qj-directory-only-files (path / lst res)
(setq lst (vl-directory-files path))
(setq lst (mapcar
     '(lambda (x)
 (strcat path "/" x)
      )
     lst
   )
)
(foreach x lst
 (if (not (vl-file-directory-p x))
   (setq res (append
  res
  (list x)
)
   )
 )
)
res
)
;;; ========================================================================
;; given the parent folder as a Path.                                      ;
;; Note that using a path of "" or "." or "\\" will exclude                ;
;; the drive letter.  McNeel's DOSLIB has a DOS_FULLPATH function          ;
;; that can return such folders with drive designations.                   ;
;; (c) John F. Uhden, Cadlantic                                            ;
;;; ========================================================================
(defun @Folders (Path / Folders @Dirs)
(defun @Dirs (Path / Dir Dirs)
 (and
   (= (type Path) 'STR)
   (or
(/= (type DOS_FULLPATH) 'EXRXSUBR)
(setq Path (DOS_FULLPATH Path))
   )
   (if (wcmatch Path ",*/,*\\")
(setq Dir Path)
(setq Dir (strcat Path "/"))
   )
   (setq Dirs (vl-directory-files Dir "*.*" -1))
   (setq Folders (cons Path Folders))
   (setq Dirs (vl-remove-if '(lambda (x)
    (vl-position x '("." ".."))
  ) Dirs
 )
   )
   (mapcar
'@Dirs
(mapcar
 '(lambda (x)
    (strcat Dir x)
  )
 Dirs
)
   )
 )
)
(@Dirs Path)
(reverse Folders)
)

1b）利用doslib程序库
DOSLib, 是一个免费的AutoLISP/Visual Lisp 程序库。它为Autocad提供了各种可供调用的windows操作函数 . 它是用Objectarx编写的AutoCAD应用程序。 DOSLib 通过各种函数扩展了AutoLISP和Visual LISP的编程功能。部分翻译可以见这里：
http://chenqj.blogspot.com/2007/01/doslib-75_27.html

优点：比Lisp的代码要短不少。

缺点：需外挂ARX函数库，对不同版本的arx需要不一样。

用法：对相应的cad版本，加载相应的doslib


;;; ========================================================================
;;; Some of the following code are writen by CHEN QING JUN                 ;
;;; Civil engineering Department, South China University of Technology     ;
;;; Purpose: To rename a batch of txt files into new name according to the ;
;;;          third line of the text  (Use DOSLIB)                          ;
;;; The platform: Acad2000 and after                                       ;
;;; 2007.02.19                                                             ;
;;; Http://chenqj.blogspot.com                                             ;
;;; Http://autolisper.googlepages.com                                      ;
;;; ========================================================================
(defun c:ren (/ direc directree x y direcfile fh newname)
(setq direc (getstring "\nc:/a:"))
(if (= direc "")
 (setq direc "c:/a")
)
(setq directree (dos_dirtree direc))
(foreach x directree
 (dos_chdir x)
 (setq direcfile (dos_dir))
 (foreach y direcfile
   (if (= (vl-filename-extension y) ".txt")
    (progn
    (setq fh (open y "r"))
(read-line fh)
(read-line fh)
(setq newname (strcat (read-line fh) ".txt"))
(close fh)
(dos_rename y newname)
)
   )
 )
)
)

2）Python语言
python语言是一种比较新的脚本语言，虽然比较小众，但是也得到越来越多人的应用，个人只学了很少的一部分，感觉其层次清楚，函数库也比较大，语言相对比较灵活，和lisp有点类似，比如list,def,lambda等等都很熟悉。
我用的python版本是activepython:
http://www.activestate.com/，
下面的函数walk函数递归调用子程序中的各层文件是参考了
http://www.chinaunix.net/jh/55/574467.html的函数的。

优点：函数库比较多，语言也算比较清晰
缺点：得安装python解释器。

用法：将代码存为.py文件，在activepython里面打开这个文件，按ctrl+R运行即可
注意：python的类似progn之类的操作，是用Tab缩进来描述的，每个缩进代表了一个层次，假如下述代码无法工作的话，请把相应的空格改成Tab，两层的为两个Tab


import os
filedir = "c:\\a"
filenamelist=[]
def visit(arg, dirname, names, flist = filenamelist):
 flist += [dirname + "\\" + file for file in names]
os.path.walk(filedir, visit, 0)
for y in filenamelist:
 if os.path.isfile(y):
   f=open(y,'r')
   f.seek(0)
   allline=f.readlines()
   thirdline=allline[2]
   lst=os.path.split(y)
   os.chdir(lst[0])
   f.close()
   os.rename(lst[1] , thirdline.replace("\n", " ")+'.txt')

3）cmd脚本语言
（这个是修改精品和drl的hitme大侠的，for的用法比较奇怪也非常强大）
cmd脚本其实就是批处理语言，在win2000之后得到很大的增强，有许多不可思议的操作都用短短几行就得到了解决，范例可见https://www.dream4ever.org/showthread.php?t=75887
第八楼的帖子，相应还有su99和hitme等高手之作

优点：完全只靠系统本身的批处理语言就解决了问题。
缺点：代码的可读性一般，for的用法非常复制，但也非常强大，好好的学习应该可以解决很复杂的问题（听说黑客整天干这种事，咱可没那种能力和野心：）

用法：将代码存为1.bat文件，放到c:\a目录下，双击运行或者cmd命令行下键入1.bat即可


@echo off
setlocal  ENABLEDELAYEDEXPANSION
for /f "delims=" %%a in ('dir /s/b *.txt') do (
 for /f "skip=1 tokens=1,2 delims=:" %%i in ('findstr /n "." "%%a"') do (
  set n=%%j
  if "%%i"=="3" (
  ren "%%~da%%~pa%%~nxa" "!n:~0,10!.txt" 2>nul)
 )
)
endlocal

4）用Autohotkey语言
Autohotkey是一个系统键盘及鼠标模拟程序，具有强大的自定义功能，完全可以将之作为一个Autocad热键处理程序来运行（与Autohook各有所长），外国网站是在这里
http://www.autohotkey.com/wiki/index.php?title=Script_Listing#File_Reading_.26_Parsing
国内也有好些此中高手
http://www.blogcn.com/user48/yonken/index.html
要先安装一个叫autohotkey的软件，下载地址：http://www.autohotkey.com/
它的作用是这样的，
比如把下面这三句代码，存为一个叫abc.ahk (abc可以任意取），
F1::^c
F2::^v
Tab::^l
然后，双击这个abc.ahk，那么它将会认为F1是复制，F2是粘贴，在Autocad中，它会认为Tab键就是和F8键一样的正交键。（你可以用它实现很强大的功能吧：0，不过它和autohook还是不一样的，autohook对于定义单键，比如一个按键的，比如a非常有用，而autohotkey还不行）

本来我想编一个ahk文件来实现用autocad的lisp编辑器批量的autolisp程序的代码格式化的，差一点还没有成功，就先编一个这个来测试一下其目录递归功能，发现也很强大。

优点：语言简洁，更有其他强大的功能
缺点：调试不大方便

用法，将这段代码存为1.ahk文件，双击之则完成


FileList =  ; Initialize to be blank.
Loop, c:\a\*.*,0,1
FileList = %FileList%%A_LoopFileFullPath%`n
Loop, parse, FileList, `n
{
FileReadLine, line, %A_LoopField%, 3
B= %A_LoopField%
SplitPath, B, name, path
NewName = %path%\%line%.txt
FileMove, %A_LoopField%, %NewName%
}

其实高手只要精通一种语言就可以为所欲为了，本人只是得处理非常多的文本文件，因此乱七八糟的学了一点皮毛，特别是语言不熟悉时程序也经常拖沓不已，各位见笑了。

总体的感觉，Lisp最顺手，编的最快。Doslib也很熟眼。Python之前编过一些，改改就成功，但是原来的listdir不能用了之后得google，cmd学的好苦，但感觉到有一片新天地，而autohotkey是为了后面的一些批量导出tecplot图形而学习的。除了lisp，好像速度都比较快。

假如有各种其他的代码，也请不吝指教，谢谢。

新年到了，拜年拜年

2007-02-17T22:50:00.000+08:00

新年到了，拜年拜年。
祝天下人开心愉快，万事如意。

春晚是欢庆的，春晚是美妙的，不过喜庆之余也挑点骨头吧。

看春晚
几个感想：
1）人多
2）小品较烂，李金斗大兵的广告相声，之前的春晚早就讲过。潘长江的小品看头知尾。黄宏的笑话还抄周星驰10来年前的桥段，过会再看看赵本山的。
3）对于歧视南方普通话的做法越发郁闷。为什么广电局强制限制港台腔，却不禁其他方言。蔡明的话我就没有听懂，还有许多的，不合理，真的不合理。
4）要是到了以后没有春晚看的时候，不知道会不会怀念现在有的看有的开心还有的批评的开心日子呢。所以呢，看过开心就是。

愿天下人新年好运

关于winmount的试用

2007-02-15T09:11:00.000+08:00

前段时间在smth上看到它的预告，似乎是trw的作者写的，那可挺厉害的啊。
昨天在cnbeta看到它的发布，就去下了一个回来试用。

应该还是很好用，界面还比较简单，如图所示。操作很简单。

特点：可以将rar, zip, bin, iso, mdf, mds虚拟为一个新盘（其中，rar和zip模拟成为U盘类，光盘镜像模拟为光盘）
那么思考1：和daemon有什么区别－－个人感觉——安装之后不用重启，mount光盘镜像的时候会出现安装新硬件的界面。
2：和totalcmd有什么区别，它照样可以看好些压缩文件和iso文件－－个人感觉——它是采用一个虚拟空间的概念，所有操作在重启或者unmount之后都没有改变。比如你mount一个压缩文件，出现一个新盘符，比如Z：，给其添加文件，修改里面文件，所有操作unmount之后都会丢失。操作比较安全。另外，由于是新盘符，所以，比如看压缩文件的各种图形，查看各种类型的文件，都比totalcmd来的方便。

体会：应该有很好的用处的，有待仔细思考。现在虚拟类程序越来越多了，虚拟系统，影子系统，虚拟光驱软驱U盘，ramdisk，虚拟桌面等等等等，值得思考。

[转载]AutoLISP Highlighter

2007-02-13T11:23:00.000+08:00

今天在ivox这里
http://ivox-tech.blogspot.com/2006/10/autolisp-highlighter.html

看到专门用于加亮代码的javacode，且下载回来好好学习。

IVOX的网站：http://ivox-tech.blogspot.com/

dp.SyntaxHighlighter源代码的主页：http://www.dreamprojections.com/SyntaxHighlighter/Usage.aspx



 """
 def f(a, b):
     print a,b

 f(5,6)

 def stri(str):
         print str[2:3]

 stri("567890")

 def sear(strr, str1):
     len1=len(str1)
     lenr=len(strr)-1
     for i in range(1,  lenr):
         if  strr[i:i+len1]==str1:
             print "haha"


 sear("abcde", "d")

这个的做法是要把这一段代码在template的edit html中加入（个人修改过的），位置是body之前。然后呢在以后写代码的时候，只要把代码放在textarea标签之间，就可以比较好的显示代码了，真不错。

快速启动应用程序的软件－－launchy

2007-02-12T07:53:00.000+08:00

有时候MineSweeper Clone比较难下载，于是我在这里up两个，97版本和2006版本，06版本的需要.net frame，有时候装不上。

今天看CHIP(新电脑),发现最近这个300个免费软件很热,大家都在讨论.
CHIP这个杂志还不错,反正现在电脑杂志广告都很多,很难找到一本最好的杂志来看就是.没有最好,只有较好.
里面介绍的这个launchy 1.0挺好的. 据说它是学苹果的Quick Sliver。它的主要作用是快速启动应用程序.这种软件倒是有不少,但是以前一直不是特别在意就.比如typeandrun,功能很强大,不过用了之后没有上瘾. hoekey好像要记住的按键太多了. rocketdock倒是经常在PC上用,不过也得占用一定的屏幕. 今天的这个launchy倒是很合我意.

它的用法很简单,安装完之后,用alt+空格调用(可以修改),自动启动,也可以设置为U盘使用.
它的搜索应用程序范围小一些,主要是自己定义的几个目录的lnk链接文件(刚才花了几分钟,把自己喜欢的应用程序都做成一堆lnk,放到一个工作目录里面). 如此一来,需要调用的时候,按alt+空格, 然后键入几个程序的英文开始字母,就可以挺快的启动程序了.

个人观点:这种启动程序法不是最快的(不如hoekey),但是是比较容易的.适合喜欢用键盘人士使用,但不适合完美主义者.
个人观点1:软件界面非常漂亮,这点CHIP也说了,甚至说它的主页更加漂亮,很有特色.
www.launchy.net

下面是它自带的11种界面,可见都非常漂亮.
1. default

2. aero soft

3.aqua

4.black glass

5.blue metal

6.clean

7.gantchy blue

8.gantchy deep

9.quick siliver

10.quick siliver2

11.ilau11toptab