TYCAD系统诞生了

10年积累，400多个夜雨寒窗的加工整理，我的TYCAD终于诞生了。

.....帖子的其余部分

尺寸标注系统

尺寸标注是AutoCAD设计过程中一个费时费力的工作。我用LISP和VB开发的这个尺寸标注系统，耗时半年，终于完成了。该系统主要分三个部分：DA、DB、DC。
DA：快速批量标注，可用于大的零件，生成标注目标（各种孔）的坐标尺寸和加工方法说明；
DB：用于比较小的零件，可标注出外形尺寸、生成简单侧视图、生成标注目标的坐标尺寸和加工方法；
DC：智能辅助标注，完成引出标注、圆角（倒角）标注、坐标引出标注等。

DA的演示：


DB的演示：


DC的演示：


【更详细的说明和更清晰的演示可以从这里下载】
帖子的其余部分

用USB加密锁加密lisp程序

近日我用LISP编写的一个批量标注的软件终于完成了，目前正在做最后的测试，并考虑加密的问题。
经过再三比较并与朋友商量，我决定采用USB加密锁来对软件进行加密。加密锁也买来了，接下来的问题是：
这种锁只能对EXE或DLL类型的可执行文件加密。我的思路是：
（1）将程序中的一部分功能用VB程序来实现；
（2）VB程序编译成DLL格式；
（3）在LISP程序中调用该DLL文件。


下面这篇文章，就是为了达到上面的目的而从网上找来参考的。
文章标题：LISP调用DLL文件生成随机数

;;;这是用LISP调用DLL文件生成随机数的程序示例。

;|
在VB6中创建一个ActiveX DLL工程，在其中将类模块修改为RND，将工程名修改为RNDAPP。
在其中添加下面的代码：

Public Function GetRND() As Double
Dim i As Double
i = RND
GetRND = i
End Function

将其编译成DLL文件（“RNDAPP.dll”）。
在WINDOWS下注册这个DLL文件。
先将这个文件拷入C盘根目录下（注：也可放入相应文件夹下但文件夹名称中不能有空格）。
再在运行中加入运行如下命令：Regsvr32 c:\RNDAPP.dll
;;|;

;;;然后编LISP程序。

(vl-load-com)
(defun c:testrnd( / rndobj rndnum)
(setq rndobj (vlax-get-or-create-object "RNDAPP.RND"))
(setq rndnum (vlax-invoke-method rndobj "GetRND"))
(princ rndnum )
(princ)
)
;;;这里的rndnum就是想要的随机数。

;|;;
这里是测试结果：
命令: testrnd
0.592458
命令:
命令: testrnd
0.4687

DCL对话框开关控件(toggle)的赋值技巧

灵活利用LISP的EVAL函数，在对对话框的开关控件(toggle)赋值时可以大大简化程序设计。尤其是如果结合用LISP程序生成DCL文件技术，我们就可以生成选项不定的开关控件并对其进行控制(这一点，留待以后在叙述)。如下图所示的多选开关对话框，在程序中利用(SETQ str "abcdefghxyz")语句，并结合(SET_TILE (EVAL letter) "1")语句，完成了初始赋值。只要改变字符串str（当然也可以用表），就可以得到不同的效果。


对应的DCL文件如下，如果该DCL文件用lisp程序生成，则label、key甚至label的数量都可以根据需要动态改变。

letter : dialog {

label= "Letter";

fixed_height = true;

: boxed_column {

letter = " ";

: row {

fixed_width = true;

: toggle { label= "A"; key= "letter_a"; width = 5; }

: toggle { label= "B"; key= "letter_b"; width = 5; }

: toggle { label= "C"; key= "letter_c"; width = 5; }

: toggle { label= "D"; key= "letter_d"; width = 5; }

: toggle { label= "E"; key= "letter_e"; width = 5; }

: toggle { label= "F"; key= "letter_f"; width = 5; }

: toggle { label= "G"; key= "letter_g"; width = 5; }

: toggle { label= "H"; key= "letter_h"; width = 5; }

: toggle { label= "I"; key= "letter_i"; width = 5; }

: toggle { label= "J"; key= "letter_j"; width = 5; }

: toggle { label= "K"; key= "letter_k"; width = 5; }

: toggle { label= "L"; key= "letter_l"; width = 5; }

: toggle { label= "M"; key= "letter_m"; width = 5; }

: toggle { label= "N"; key= "letter_n"; width = 5; }

}

: row {

fixed_width = true;

: toggle { label= "O"; key= "letter_o"; width = 5; }

: toggle { label= "P"; key= "letter_p"; width = 5; }

: toggle { label= "Q"; key= "letter_q"; width = 5; }

: toggle { label= "R"; key= "letter_r"; width = 5; }

: toggle { label= "S"; key= "letter_s"; width = 5; }

: toggle { label= "T"; key= "letter_t"; width = 5; }

: toggle { label= "U"; key= "letter_u"; width = 5; }

: toggle { label= "V"; key= "letter_v"; width = 5; }

: toggle { label= "W"; key= "letter_w"; width = 5; }

: toggle { label= "X"; key= "letter_x"; width = 5; }

: toggle { label= "Y"; key= "letter_y"; width = 5; }

: toggle { label= "Z"; key= "letter_z"; width = 5; }

}

}

ok_cancel;

}



;Lisp程序：

(DEFUN c:test (/ str char label)

(SETQ str "abcdefghxyz") ;

(SETQ DCL_ID (LOAD_DIALOG "test"))

(NEW_DIALOG "letter" dcl_id)

(WHILE (/= str "")

(SETQ char (STRCASE (SUBSTR str 1 1) T)

str (SUBSTR str 2)

letter (STRCAT "letter_" char)

)

(SET_TILE (EVAL letter) "1")

)

(ACTION_TILE "access" "(done_dialog 1)")

(START_DIALOG)

)

Home Edition上安装IIS的痛苦经历

为了建一个简单的网站，我想在自己的电脑上安装IIS，对网站模板进行简单调试。没想到这一弄就是三四个晚上，最后还没有成功。把经历写下来，或许能让同样想安装IIS的朋友有个借鉴。把我找到的一些东西也放在这里，让有志安装IIS的朋友少化一点力气。
我的操作系统是Windows XP Home Edition 2002，按照网上的提示，要安装IIS，需要Windows 2000专业版的两个文件：IIS.DL_和IIS.IN_。我手头上没有Windows 2000专业版安装盘，那就从网上找吧。用用了整整两个晚上，打开了不知多少网页，绝大多数的回答都只是：Windows 2000专业版安装盘上就有——气死我了，如果有安装盘，还用费这个力气找吗？纯粹是为了得到百度的那两分应答分。偶然找到一两个有下载地址的，明明说是2000版，可下载下来一试，根本不能用。最后，总算从一个个人网站上下载下来的这两个文件，能通过了。
接下来是安装。本以为有了IIS.DL_和IIS.IN_，安装应该不难，谁知安装过程中还需要提供进程文件。我没有安装盘，老办法，从网上下载。找这些文件倒没有找IIS.DL_和IIS.IN_那么麻烦，可要的文件也太多了，有的文件要查5、6个网站才能找得到，又不能打包下载，就这样又用去了一个晚上，下载安装了30多个进程文件，最后，卡在了IISRESET.EXE上。
我用GOOGLE和百度找来找去，怎么也找不到这个IISRESET.EXE。只找到一家网站，要注册后才能下载。算了，我不想为了下载一个文件再去注册一个用户，再说注册了也未必下载得下来。这个文件找到了，后面谁知还需要再下载多少文件？干脆，我不用IIS了，换别的吧。不是还有网络盒子NetBox吗？小旋风ASP服务器好像也还值得一试。条条大路通北京不是吗？

这里是我下载的IIS.DL_和IIS.IN_以及其他一些进程文件，有需要的朋友拿去。

Windows XP家庭版安装IIS的方法，各家的说法大同小异，这里写的是还算比较全面。

DCL编辑器

这几天为了把一个程序的对话框做的好看一点，搞得我苦不堪言。今天为了查找一点资料，偶然在明经上发现了一个飞诗寻雪编写的DCL编辑器，虽然还没来得及使用，但看介绍似乎相当不错。 姑且放在这里，等忙过这一阵好好研究研究。<DCL编辑器>

清屏的一个小技巧

这几天在设计一个应用了DCL对话框的程序,碰到了一个让人非常恼火的问题：对话框操作完成以后，点击OK按钮，这时屏幕上的对话框本应立即关闭，可事实上却总是滞留很长一段时间，一直要到后续处理进行了一段时间之后才能完全清屏，如下图。

检查程序设计应该没有什么问题，试了很多方法也不能彻底解决，如用REDRAW命令不起作用，用REGER命令会影响程序执行的流畅性，我甚至试了用ZOOM-S-1X，也不行。
后来冷静下来分析，我发现在后续程序执行过程中，只要在对话框区域内有新的实体生成,就会局部清屏——我灵机一动，用下面两行程序试了一下，果然成功：
(VL-CMDF "RECTANG" (GETVAR "VSMAX")(GETVAR "VSMIN"))
(VL-CMDF "UNDO" 1)

求一个选择集中X、Y的最大最小值

• 程序名称：TYMAXMIN<下载>
• 程序功能：求一个选择集中X、Y的最大最小值
• 格式：(TYMAXMIN ss)
  入口参数ss是一个选择集
• 返回：(x-min x-max y-min y-max)
  
• 说明： 本程序是我在编写另外一个程序时用到的子程序，花费了我两三个晚上的时间。
  程序对选择集中的直线、圆弧、圆、单行文本、多义线和块进行处理，求出X、Y的最大和最小值。选择集中的块可以放大、缩小或旋转，但不得嵌套。

关于用户坐标系的几个命令

1. 改变坐标原点
2. 旋转坐标系
3. 还原到原始坐标系
4. 快速切换到用户坐标系

<下载地址>

改变坐标原点

命令名： TYUO

说明：通过点选两条相交的直线，将其交点设为坐标原点；或者点选圆，将圆心设为坐标原点。

演示：

旋转坐标系

• 命令名：TYUX
• 使用说明：通过点选直线，即可将所选直线设定为新的X坐标轴。
• 演示

还原到原始坐标系
命令：U0

快速切换到用户坐标系

命令名：U1

• 使用说明：快速切换到用1命名的用户坐标系(见旋转坐标系的演示)

生成云线

程序名称：TYYunXian(下载)

命令：TYYX

说明：AutoCAD早期版本没有生成云线的命令，所以我就自己编写了一个。后来AutoCAD虽然有了这个功能，但一方面出于敝帚自珍的心理，另方面AutoCAD自带的云线功能也确实稍有不便，所以就一直用了下来。

使用方法：只要连续给出节点位置就可以了，最后用空格键封闭云线并结束命令。

演示

多义线焊接：TYPLJ

程序名称：TYPolyLineJoin (下载)

命令：TYPLJ

使用说明：选择欲连接成多义线的一组对象中的一条直线或圆弧，回车，搞定。

操作演示

在GIF动画的上添加静态文本

为了制作程序演示动画，从斑马网找到了友立GIF Animator的详细的使用教程：http://ulead.banma.com/index.shtml，可惜没讲我要的那种效果。我是想在演示中加文字说明，所以要在一些不同的帧上添加相同的文字，就象自由天空在《 怎样用Ulead GIF在动态图上写字》中讲的。不过我需要在几十、上百帧上加文字，自由天空的做法似乎太麻烦了，实用性不强。继续找。

现在是12点过了，整整一个晚上，总算解决了上面的问题（是从百度上找到的方法）：

• 另外添加一个空白帧
• 在空白帧输入要添加到文字
• 选中加了字的这帧，选取菜单栏->编辑->复制，进行复制
• 然后选中欲添加文字的所有帧，选取菜单栏->编辑->粘帖，进行粘帖
• 最后删除刚才建立纯文字的那帧，OK。

加上了访客留言板

昨天就找了一个晚上：想给自己的博客加上一个留言板。不明白Blogspot本身怎么会不带留言板呢？今天又用了一个晚上，按照小婆的Cbox 訪客留言之安裝與使用的说明，总算把留言板添上去了。虽然位置还有点偏，但总算能用了。

装饰我的家

这两天忙着查资料，想把我的家──桐阳模具CAD装饰得稍微漂亮、好用一点。虽然多少有些改观，可还是不能尽如人意。没办法，刚刚才开始使用博客这个东西，一切都要从头学起，就象燕子衔泥，一点点来吧。

AutoCAD命令行读书器TYReader

程序名称：TYReader(下载)

命令：TYR

使用说明：这是我自己感到比较满意的一个小工具。可以在命令行看书、学外语，用空格键和鼠标左键换行，在阅览的同时，可以用鼠标的中键和右键操控屏幕(放大、缩小或拖动)，用Q键更换文件，W键更改文件行号，随便点击其他任意键即可退出。

演示

试用网盘

这些天学着写博客，有很多东西都要从头开始。关于网盘的使用，我就试了好多种，有些已经记不得了，下面是我试用过的几种：

1. 网易网盘：只有登录网盘才能使用，不能共享；不支持外链，；
2. FileFlyer：只有通过email发送链接给对方，不能用于博客；
3. BRSBOX：我现在正在使用，上传、共享、管理都比较方便，缺点是下载稍嫌麻烦；
4. 纳米盘：正在试用，上传似乎挺不错，不知下载如何？
   纳米盘测试

纳米盘也和BRSBOX差不多，下载有点麻烦，界面还不如BRSBOX

再试一下BOX 测试

不亏是被大家称道的网盘，虽然还不能说完全满意，但BOX也基本可以满足要求了。好，暂时就先用BOX了。

在AutoCAD命令行写日记

程序名称：TYDIAry.FAS(下载)

命令：TYDIA

功能：可以在AutoCAD命令行中写日记

使用方法：加载程序，在命令行中键入TYDIA并回车后，会出现提示符DIA->，这时就可以方便的写日记了。一行写完，敲回车键开始下一行，连敲两次回车则退回到AutoCAD命令状态。
如果在TYDIAry.FAS放置目录中有日记文件MYDIA.TXT、MYDIA.LOG或MYDIA.WRI，则所写内容自动加入到该日记文件中，否则退出时会弹出一对话框要求选择日记文件。

日记文件的浏览和修改：可在WINDOWS状态下用文本文件编辑器浏览和修改，也可在AutoCAD环境下用工具软件
TYBRowser浏览或用TYEditer修改。

演示

关于网站地图

今天读了一篇关于网站地图的文章，很有收获。其中提到的几个搜索引擎的sitemap提交网址如下：

向百度提交网站:http://www.baidu.com/search/url_submit.html
google提交地址：http://www.google.com/intl/zh-CN/add_url.html
如何向雅虎提交网站：http://search.help.cn.yahoo.com/h4_4.html
msn提交网站：http://search.msn.com/docs/submit.aspx
向搜狐/搜狗判提交站点：http://db.sohu.com/regurl/regform.asp
TOM搜索提交地址：http://search.tom.com/tools/weblog/log.php
中搜提交地址：http://ads.zhongsou.com/register/page.jsp
向Alexa提交网址：http://www.alexa.com/site/help/webmasters
向Alexa提交更新：http://thumbnails.alexa.com/update_thumbnail
有道http://tellbot.yodao.com/report
主要搜索引擎提交页面：http://market.top1host.com/submit.html
(20/10/2008做了更新）

AutoCAD环境下的文本更改工具--TYEditer

1. 程序名称：TYEditer.FAS(下载)


2. 命令：TYE


3. 功能：不必退出AutoCAD环境即可修改文本文件(如日记)。我本想采用AutoCAD的多文本编辑器DDEDIT来编辑文本文件，但经过测试发现，含有某些特殊字符的文件经DDEDIT编辑后，有时会出现错误。暂时先用NOTEPAD来编辑了。


4. 使用方法：加载程序，在命令行中键入命令TYE并回车后，会弹出一文件选择窗口，选中欲编辑的文件后，再弹出NOTEPAD窗口用于文件编辑。


5. 演示

AutoCAD环境下的文本工具--TYBRowser

1. 程序名称：TYBRowser.FAS(下载)
2. 命令：TYBR
3. 功能：在AutoCAD环境下阅览文本文件(如日记)
4. 使用方法：加载程序，在命令行中键入命令TYBR并回车后，会弹出一文件选择窗口，选中欲浏览的文件后，再弹出一窗口用于文件阅览
5. 演示