田草日志 -

[本日志由 tiancao1001 于 2015-03-13 01:04 PM 编辑]

分享到： QQ空间新浪微博腾讯微博微信更多

[2] [3] [4] [5] [6] [7] [8] [9] [10] [11] ... [14]

tiancao1001 于 2009-05-14 09:08 AM 发表评论：

在CAD中，使用truetype字体，并且字体宽度为1，导出wmf后，再导入dwg，文字不会被炸开。

tiancao1001 于 2009-05-06 07:46 PM 发表评论：

两年三个月1000万

tiancao1001 于 2009-03-20 05:04 PM 发表评论：

天正建筑autocad对象名称就是在前面加上"TDb",
比如 TDbText TDbMText TDbWall等。
其属性也很简单，基本上同autocad。
比如文字对象
TDbText.text
TDbText.Layer

tiancao1001 于 2009-03-18 08:51 PM 发表评论：

江苏省民用建筑热环境与节能设计标准 D32/478-2001 只能适用与居住建筑，这在其1.0.3条有规定，且要求居住建筑达到节能50%的水平。

tiancao1001 于 2009-03-08 00:48 AM 发表评论：

门式钢架天沟一般不做排水坡度

tiancao1001 于 2009-03-03 03:32 PM 发表评论：

利用ShellExecute可以直接打开文件：
Private Const SW_SHOWNA = 8
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "c:\temp.jpg", "", "", SW_SHOWNA
End Sub

vb中使用shell，执行系统变量

tiancao1001 于 2009-03-03 03:31 PM 发表评论：

2009年的第一个工程确是一块广告牌

tiancao1001 于 2009-02-20 10:11 AM 发表评论：

'删除图纸中的所有点对象
Sub DelAllPoint()
    Dim E As AcadEntity
    Dim B As AcadBlock
    For Each B In ThisDrawing.Blocks
        For Each E In B
            If TypeOf E Is AcadPoint Then
                E.Delete
            End If
        Next
    Next
    ThisDrawing.Regen
End Sub

tiancao1001 于 2009-02-16 12:21 AM 发表评论：

手机号码段数据库分享

http://hi.baidu.com/123avc123/blog

tiancao1001 于 2009-02-07 11:01 AM 发表评论：

@echo off
echo %cd%
echo %~dp0
pause

BAT 显示当前文件夹路径

tiancao1001 于 2009-02-06 02:58 PM 发表评论：

MDI窗体没有ShowInTaskbar 属性，ShowInTaskbar属性还不能在代码中设置

tiancao1001 于 2009-02-06 02:44 PM 发表评论：

RegisterServiceProcess 注册系统服务在NT系统下已经不能使用

tiancao1001 于 2009-02-06 02:40 PM 发表评论：

Private Const SW_HIDE = 0
Private Const GW_OWNER = 4
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub MDIForm_Load()
    Dim rc As Long
    Dim OwnerhWnd As Long
    '从任务管理器列表中移除
    OwnerhWnd = GetWindow(Me.hwnd, GW_OWNER)
    rc = ShowWindow(OwnerhWnd, SW_HIDE)
End Sub

上面的代码已经被App.TaskVisible = False取代。

tiancao1001 于 2009-01-25 03:53 PM 发表评论：

emule会过滤搜索关键词，
我们只有清空config文件夹下面得wordfilter.txt，就可以了。

tiancao1001 于 2009-01-23 10:22 AM 发表评论：

winXP SP2 IIS 出现 “服务没有及时响应启动或控制请求” 错误解决方
是删除系统自动更新 KB939373。OK

tiancao1001 于 2009-01-12 03:32 PM 发表评论：

看这几年的CCTV半小时新闻联播的总结：
前10分钟，领导们都很忙；
中间10分钟，全国人民都很幸福；
后10分钟，国外生活在水深火热中

tiancao1001 于 2009-01-09 03:02 PM 发表评论：

asp获取网页源码(HTML代码)
http://tiancao.net/qita/

tiancao1001 于 2009-01-06 01:03 PM 发表评论：

VB默默导入reg注册表文件

Private Sub Command1_Click()
    Dim RegStr As String
    RegStr = "regedit /s " & App.Path & "\reg.reg"
    Shell RegStr, vbHide
End Sub