阿杰软件工作室

CAD的一些不常见问题的解决方法

ntchjie@126.com(jiesoft) — Wed,12 Nov 2008 17:08:25 +0800

1.【CTrl+N无效时之解决办法】
众所周知CTRL+N是新建命令
但有时候CTRL+N则出现选择面板

这时只需到OP选项里调下设置

操作：
OP（选项）------系统-------右侧有一个启动（A显示启动对话框B不显示启动对话框）

选择A则新建命令有效，反则无效

2.【Ctrl键无效之解决办法】
有时我们会碰到这样的问题
比如CTRL+C（复制），，CTRL+V（粘贴）CTRL+A（全选）等一系列和CTRL键有关的命令都会失效

这时你只需到OP选项里调一下
操作：OP（选项）-----用户系统配置------WINDOWS标准加速键（打上勾）

WINDOWS 标准加速键打上勾后，和CTRL键有关的命令则有效，反之失灵

3.【填充无效时之解决办法】
有的时候填充时会填充不出来
除了系统变量需要考虑外

还需要去OP选项里检查一下

OP---------显示-----------应用实体填充（打上勾）

4.【加选无效时之解决办法】
AD正确的设置应该是可以连续选择多个物体

但有的时候，连续选择物体会失效，只能选择最后一次所选中的物体

这时可以如下解决

进入OP（选项）---------选择-----------SHIFT键添加到选择集（把勾去掉）

用SHIFT键添加到选择集“去掉勾”后则加选有效
反之加选无效
★命令：PICKADD 值：0/1

5.【CAD命令三键还原】
如果CAD里的系统变量被人无意更改
或一些参数被人有意调整了怎么办

这时不需重装，也不需要一个一个的改

操作：
OP选项-----配置-----重置

即可恢复

但恢复后，有些选项还需要一些调整，例如十字光标的大小等~

5.【鼠标中键不好用怎么办呀】
正常情况下
CAD的滚轮可用来放大和缩小，，，还有就是平移（按住）

但有的时候，按住滚轮时，不是平移，而是出下一个菜单，很烦人

这时只需调下系统变量mbuttonpan即可
初始值： 1

0 支持菜单 (.mnu) 文件定义的动作

1 当按住并拖动按钮或滑轮时，支持平移操

6.【命令行中的模型，布局不见是的解决办法】[/color]
op----选项------显示---------显示布局和模型选项卡（打上勾即可）

[color=purple]7.【CAD技巧】
还在为你做图慢而烦恼吗
还是为你的手指短而够不着回车键而烦脑吗
哦~~~，让我们忘了这一切吧

众所周知，确定键有两个，一个是“回车”另一个则是“空格”

但现在就让我们用右键来代替他们吧
OP选项-----用户系统配置-------绘图区域中使用快捷菜单（打上勾）自定义右键
单击进去------把所有的重复上一个命令打上勾

试下，右键是不是有确定的攻效了

首推：希望大家能养成右键确定这个习惯
其次：空格键次之
烦感：千万不要用回车键确定

8.【图形里的圆不圆了咋办呀】

经常做图的人都会有这样的体会
所画的圆都不圆了，
当然，学过素描的人都知道，圆是有很多折线组合而成
这里就不多说了

一个命令搞定它

命令：RE~即可

9.【图形窗口中显示滚动条】

也许有人还用无滚轮的鼠标，那么这时滚动条也许还有点作用（如果平移不太会用）
op----显示------图形窗口中显示滚动条即可

10.【保存的格式】

OP----打开和保存----另存为2000格式

为什么要存2000格式呢
因为CAD版本只向下兼容
这样用2002 2004 2006都可以打开了
方便操作

一个图片备份工具

ntchjie@126.com(jiesoft) — Wed,12 Nov 2008 13:52:18 +0800

早上有个项目要归档，可惜CAD图参照了很多个目录里的很多个图片，根本理不清，是哪里哪里。于是写了个程序来搞定。

程序的主要功能是读出所有的图片参照，然后备份到一个指定的文件夹中。
程序操作步骤如下：
1、运行主程序IMGBAK.exe
2、用CAD打开欲备份的CAD文件
3、点击“获取目录”，则自动读入当前打开的CAD图形中的所有的图片参照
4、点击“指定路径”，指定备份的文件夹
5、点击“备份”备份到指定的文件夹。
程序没有怎么测试，能达到我的要求就行。呵呵，给大家用用。

该文件只允许会员下载! 登录 | 注册

模仿DICAD写的数据编辑器

ntchjie@126.com(jiesoft) — Tue,04 Nov 2008 09:04:27 +0800

完全是模仿dicadpro编写的数据编辑器。呵呵，感觉还差不多。
当然细节的地方还没有调节好，目前只是一个雏形。哈哈。

vbnet序列化（续）关于集合的存储

ntchjie@126.com(jiesoft) — Tue,21 Oct 2008 14:24:02 +0800

关于集合的存储

集合的存储对于二进制数据文件的存储，至关重要。因为道路的数据文件是虽然千变万化，但却基本是有规律的数组。如果能用简单的方式保存数组，对于简化文件是很至关重要的。

大多数程序处理对象集合而不是单个的对象。对于集合数据，首先创建一个数组（或者是其他类型的集合，比如ArrayList或HashTable），用对象填充，然后一个Serialize方法就可以序列化真个集合，是不是很简单？下面的例子，首先创建一个有两个Person对象的ArrayList，然后序列化本身：

Dim FS As New System.IO.FileStream ("c:\test.txt", IO.FileMode.Create)

Dim BinFormatter As New Binary.BinaryFormatter()

Dim P As New Person()

Dim Persons As New ArrayList

P = New Person()

P.Name = "Person 1"

P.Age = 35

P.Income = 32000

Persons.Add(P)

P = New Person()

P.Name = "Person 2"

P.Age = 50

P.Income = 72000

Persons.Add(P)

BinFormatter.Serialize(FS, Persons)

以存储序列化数据的文件为参数，调用一个BinaryFormatter实例的Deserialize方法，就会返回一个对象，然后把它转化为合适的类型。下面的代码反序列化文件中的所有对象，然后处理所有的Person对象：

FS = New System.IO.FileStream ("c:\test.txt", IO.FileMode.OpenOrCreate)

Dim obj As Object

Dim P As Person(), R As Rectangle()

Do

obj = BinFormatter.Deserialize(FS)

If obj.GetType Is GetType(Person) Then

P = CType(obj, Person)

' Process the P objext

End If

Loop While FS.Position < FS.Length - 1

FS.Close()

下面的例子调用Deserialize方法反序列化真个集合，然后把返回值转换为合适的类型（Person）：

FS = New System.IO.FileStream("c:\test.txt", IO.FileMode.OpenOrCreate)

Dim obj As Object

Dim Persons As New ArrayList

obj = CType(BinFormatter.Deserialize(FS), ArrayList)

FS.Close()

EICAD层查看器（.net版本）

ntchjie@126.com(jiesoft) — Wed,03 Sep 2008 09:56:08 +0800

原来版本的eicad层查看器，是基于vb6基础上开发的，最近在学习vb.net，把这个层查看器移植到.net的大旗下，明显的感觉到速度快了许多，以前有些一直没有解决的bug现在也基本都解决了。
唯一遗憾的是，有些局部的模块还不是完全用.net完成的，少数的模块是用com完成的。

界面还是基本参考了原来程序的界面，基本没有变化，功能上也没有变化。呵呵。。
最大的不同是，代码精简了很多，原来用vb写的时候，vb代码还是不很熟，现在基本比较熟了，代码精练多了。
数了下，vbnet代码共50行，而vb代码要到靠近百行。

BIDroad文件转Hard文件

ntchjie@126.com(jiesoft) — Thu,28 Aug 2008 09:26:16 +0800

应一个朋友的要求，写了这个程序，把bidroad的文件转成Hard的文件
程序功能：
选择bid生成的5个原始数据文件程序计算后能得到hard的6个数据文件
   congo-sgt-95-120_P_DMX.txt  转换成dmg dmx
    congo-sgt-95-120_P_LJ.xls  转换成hdm
    congo-sgt-95-120_P_pm.xls 转换成pm
    congo-sgt-95-120_P_ZDM.txt 转换成zdm
    congo-sgt-95-120_P_路基超高加宽表.xls  转换成cg
为了方便，程序在文件读入的时候，统一采用了excel的形式。
步骤如下：
1、首先将五个文件统一读入到一个excel文件中，分别位于不同的工作表，注意需要按逗号分隔读入；
2、运行程序，程序自动读入当前的工作表列表；
3、选择文件对应的工作表；
4、点击“指定文件夹”，指定转换后文件放置的路径；
5、点击“转化”。

如果桩号比较多，则转化的时候比较耗时间。
提示下：
1、程序仅适用于某些特殊的人群，因此加了点小限制。呵呵，没有帮助的就不要下了。
2、下载的是注册版，请留下注册信息，我将发注册号。

该文件只允许会员下载! 登录 | 注册

vbnet序列化读写文件

ntchjie@126.com(jiesoft) — Tue,26 Aug 2008 14:50:59 +0800

序列化读取文件，是个很有意思的东西，以前一直没有搞懂这个。最近承蒙一高手指点，稍微懂了一点。
序列化的基本方式：将对象送给Formatter，Formatter将其序列化之后会形成一个流。这个流可以是文件流，或者其他的。
在这里，我们将一个随机生成的数组（转化成字符）进行二进制序列化，并保存到文件；然后把它从文件当中取出，进行反序列化重新得到这个数组。
首先是定义数组：
Dim nums(10) As Integer

然后是生成数组内容：
Dim i As Integer
For i = 0 To 10
nums(i) = cstr()Int(Rnd() * 500) + 100
Next

序列化是通过Formatter对象来实现的。我们要新建一个Formatter对象：
Dim sfFormatter As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
BinaryFormatter是进行二进制序列化的。其它的序列化方式你可以在Runtime.Serialization.Formatters中找到。

我们还要有一个流来作为序列化的输出：
Dim fStream As New FileStream(“1.dat”, FileMode.Create)

准备工作完了，现在可以调用Formatter的Serialize方法来进行序列化了：
这里，我们分别保存一个数组，一个字符串形、和一个双精度型变量
sfFormatter.Serialize(fStream, nums)
sfFormatter.Serialize(fStream, "abcdefg")
sfFormatter.Serialize(fStream, 3.1415926)

最后不要忘了关闭流：
fStream.Close()

反序列化的方式大同小异，只不过调用的是Formatter的Deserialize方法。代码是这样的：
Private Sub Deserialize()
Dim fStream As New FileStream(“1.dat”, FileMode.Open)
Dim sfFormatter As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
下面按顺序分别读出来
Dim nums As Object = sfFormatter.Deserialize(fStream)
Dim prj As String = sfFormatter.Deserialize(fStream)
Dim kk As Double = sfFormatter.Deserialize(fStream)
关闭文件流
fStream.Close()
End Sub

序列化就这么简单。这里只是序列化整数数组。如果你要对自定义类的对象进行序列化，你需要在类的定义前面加上：

比如，你要定义一个person的自定义类型，可以按如下定义：
   Public Structure Person
       Dim Name As String
       Dim Age As Integer
       Dim Income As Decimal
   End Structure
这样你再代码里就可以直接实用自定义的person存储了。

呵呵，原来编程这么简单

巨强，.NET下的ARX开发

ntchjie@126.com(jiesoft) — Wed,16 Jul 2008 23:11:29 +0800

晚上没有事情，下定决心用VS2005搞个ARX的动态，感觉十分的强大，而且速度很不赖。
一个字，爽！两个字，很爽！！

平台升级

ntchjie@126.com(jiesoft) — Sat,17 May 2008 08:14:12 +0800

一直没有完成这个程序，呵呵，很懒。。。。。
最近在学习VBNET，把平台升级下，升级到CAD下面，这样看起来爽的很，最关键的一点：比VB做的在绘图方面速度快了不是一点点，快很多。
先发个截图。

vb操作excel的一些代码

ntchjie@126.com(jiesoft) — Fri,09 May 2008 17:20:51 +0800

许久没有更新博客，因为最近比较忙，没有时间来写程序。
前两天老婆给了我一个excel文件，里面有四万多个文本框，导致该文件达数十兆，打开非常的缓慢。
因此我写了个程序，把里面的文本框都删除了。
界面如下：

代码如下：
Private Sub Command1_Click()
Dim myexcel As Object
Dim atext As Object
Dim no  As Long

Set myexcel = GetObject(, "excel.Application")
no = -1
myexcel.ScreenUpdating = False
MsgBox (myexcel.Activesheet.Shapes.Count)
For Each atext In myexcel.Activesheet.Shapes
    no = no + 1
    atext.Select
    Me.Caption = "删除第" & no & "个"
    atext.Delete
Next atext
myexcel.ScreenUpdating = True

End Sub

Private Sub Command2_Click()
End
End Sub

程序的主要技巧：在开始执行前锁定excel，执行完毕后在打开，这样可以保持较快的运行速度。
呵呵，写程序花了五分钟，运行程序花了半天，晕的很。