2008年12月14日星期日
AutoCAD命令行读书器TYReader
2008年12月13日星期六
在AutoCAD命令行写日记
如果在TYDIAry.FAS放置目录中有日记文件MYDIA.TXT、MYDIA.LOG或MYDIA.WRI,则所写内容自动加入到该日记文件中,否则退出时会弹出一对话框要求选择日记文件。
TYBRowser浏览或用TYEditer修改。
2008年12月12日星期五
AutoCAD环境下的文本更改工具--TYEditer
- 程序名称:TYEditer.FAS(下载)
- 命令:TYE
- 功能:不必退出AutoCAD环境即可修改文本文件(如日记)。我本想采用AutoCAD的多文本编辑器DDEDIT来编辑文本文件,但经过测试发现,含有某些特殊字符的文件经DDEDIT编辑后,有时会出现错误。暂时先用NOTEPAD来编辑了。
- 使用方法:加载程序,在命令行中键入命令TYE并回车后,会弹出一文件选择窗口,选中欲编辑的文件后,再弹出NOTEPAD窗口用于文件编辑。
- 演示
AutoCAD环境下的文本工具--TYBRowser
- 程序名称:TYBRowser.FAS(下载)
- 命令:TYBR
- 功能:在AutoCAD环境下阅览文本文件(如日记)
- 使用方法:加载程序,在命令行中键入命令TYBR并回车后,会弹出一文件选择窗口,选中欲浏览的文件后,再弹出一窗口用于文件阅览
- 演示
2008年12月7日星期日
发现了一个PDF注释工具
一直想找一个好用的PDF文件注解工具,可一直没能如愿:不是收费的,就是功能不够理想。今天意外发现了这个PDF XChange Viewer,下载后试了一下,似乎还不错。
電腦玩物: 新版 PDF XChange Viewer 註解工具功能詳解
标签: 工具软件, Blogspot技巧, PDF文件注释
2008年12月6日星期六
图层控制命令
按照我的习惯,在进行模具设计时,不同的对象是采用不同的图层(我知道有些设计师是不太喜欢分图层的),这样就使得图层的切换非常、非常的频繁。AUTOCAD2007之前,图层的切换是通过一个图层管理器,其效果么,我感到使用起来很不方便。于是在图层控制方面我花费了许多心思,编制了大量程序,现在基本做到了得心应手。例如,用命令"5",可打开下部装配图的所有图层,包括下模板、下模垫板、下模座和下模镶块,同时关闭其他所有图层;而命令"51",仅仅打开下模板这一层,其余各图层关闭,诸如此类。今天,我先整理了图层控制命令中比较通用的三个,即:通过选择实体来打开图层(TYON)、关闭图层(TYOFF),以及打开所有图层(TYA)。
1. TYON
1.1 程序名称:TYlayON
1.2 命令名: TYON
1.3 下载地址 <TYLAYON.FAS>
文件下载后最好放在目录C:\TYLISP下(推荐),或放在其他任何AUTOCAD支持路径下,加载后即可执行。
1.4 程序功能:
(a) 在命令行键入命令TYON,回车,点选实体,则仅打开所点选的实体所在的图层,其他图层全部关闭;
(b)在命令行键入命令TYON,回车之后,如果不接着点选实体而是再敲一次回车键,那么接下来可以框选实体或连续点选多个实体,则可以保留打开所选实体所在的图层,而其他图层关闭。
1.5 演示
2. TYOFF
2.1 程序名称:TYlayOFF
2.2 命令名: TYOFF
2.3 下载地址 <TYLAYOFF.FAS>
文件下载后最好放在目录C:\TYLISP下(推荐),或放在其他任何AUTOCAD支持路径下,加载后即可执行。
2.4 程序功能:
(a) 在命令行键入命令TYOFF,回车,点选实体,则点选实体所在的图层关闭;
(b)在命令行键入命令TYOFF,回车之后,如果不接着点选实体而是再敲一次回车键,那么接下来可以框选实体或连续点选多个实体,则所选实体所在的图层将会关闭。
3. TYA
3.1 程序名称:TYlayAll
3.2 命令名: TYA
3.3 下载地址 <TYLAYALL.FAS>
文件下载后最好放在目录C:\TYLISP下(推荐),或放在其他任何AUTOCAD支持路径下,加载后即可执行。
3.4 程序功能:这是本人最常使用的一个命令,其功能是打开所有图层。
Lisp程序加密工具----程序转换

下面是转换前TYJIAMI.LSP的片断:
;;加密程序;
;;1--去掉程序中的注释--OK
;;2--将程序中的变量名转换成无意义字串--OK
;;3--加入注册码
;;4--转换成PFS文件
;;5--加入相关文件,如DCL文件,生成XL文件
;;;
(DEFUN c:tyjm (/)
;;置换表中指定位置的元素
(DEFUN sub_replace (a n l / i l1)
(SETQ l1 '()
i 0
)
(WHILE (<>
下面是转换后NEW-TYJIAMI.LSP里对应的片段:
( DEFUN c:tyjm ( / )
( DEFUN sub_replace ( TY1 TY2 TY3 / i TY4 )
( SETQ TY4 ' ( )
i 0
)
( WHILE ( <>
两者的区别显而易见。
订阅:
博文 (Atom)