田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID

评论列表

所有评论
[92] [93] [94] [95] [96] [97] [98] [99] [100] [101]  ... [143]  
tiancao1001 于 2008-09-18 03:29 PM 发表评论:
按此在新窗口打开图片
查看所评论的日志:田草日志
tiancao1001 于 2008-09-18 03:20 PM 发表评论:
这个程序我又改了,因为以前的图图之间出现很多同名块,不方便图与图中的拷贝
'创建匿名块
Sub NiMingBlock1()
    On Error Resume Next
    If Err Then End
    Dim FilterSet As AcadSelectionSet
    Dim Blk As AcadBlock
    Dim E As AcadEntity
    Dim P As Variant
    Dim i As Integer
    Dim Obj() As Object

    Set FilterSet = ThisDrawing.SelectionSets.Add("XXX")
    If Err Then
        ThisDrawing.SelectionSets("XXX").Delete
        Set FilterSet = ThisDrawing.SelectionSets.Add("XXX")
        Err.Clear
    End If
    
    FilterSet.SelectOnScreen
    
    '将选择集中对象传递给Obj对象数组
    ReDim Obj(0 To FilterSet.Count - 1) As Object
    For i = 0 To FilterSet.Count - 1
        Set Obj(i) = FilterSet.item(i)
    Next i
    
    Dim Pmin As Variant, Pmax As Variant
    FilterSet.item(0).GetBoundingBox Pmin, Pmax

    Dim B_Name As String
    B_Name = NiMingKuai2("TC")
    Dim Temp As String
    '以文档创建时间后缀命名,(你可能同一时间创建两个块吗?,这样避免同名块,图和图之间不好复制)
    Temp = CStr(ThisDrawing.GetVariable("DATE"))
    B_Name = B_Name & "." & Temp
    '匿名块的插入点为第一个对象的角点
    Set Blk = ThisDrawing.Blocks.Add(Pmin, B_Name)

    ThisDrawing.CopyObjects Obj, Blk
    
    For Each E In FilterSet
        E.Delete
    Next
    
    ThisDrawing.ModelSpace.InsertBlock Pmin, Blk.Name, 1, 1, 1, 0
    
    '删除选择集
    ThisDrawing.SelectionSets.item("XXX").Delete
End Sub

'创建匿名块
Function NiMingKuai2(S As String) As String
    Dim blockObj As AcadBlock
    Dim N As Long
    NiMingKuai2 = S & "000"
Block:
    For Each blockObj In ThisDrawing.Blocks
        If Left(blockObj.Name, 5) = NiMingKuai2 Then '这里取5,是S的长度+3
            NiMingKuai2 = S & Format(N, "000")
            Prompt NiMingKuai2
            N = N + 1
            GoTo Block
        End If
    Next blockObj
End Function
查看所评论的日志:Auto CAD vba 怎样 创建匿名块
tiancao1001 于 2008-09-13 12:29 AM 发表评论:
http://www.baidu.com/index.php?tn=tiancao1001_pg
查看所评论的日志:田草日志
lihao_112 于 2008-09-11 11:21 AM 发表评论:
好,还有人吗?
我最近急需一份世纪旗云工具箱的帮助文件。
有的话能给一份。
踏遍千山万水,终于明白到帮助文档的重要性。。。
不胜感激
lihao112@sohu.com
查看所评论的日志:软件的帮助文件尤其重要
tiancao1001 于 2008-09-09 08:12 PM 发表评论:
按此在新窗口打开图片
查看所评论的日志:田草日志
tiancao1001 于 2008-09-09 06:33 PM 发表评论:
http://hi.baidu.com/showecn/blog/i ... 0a77a40eaf8f859.html
符合GB11643-1999标准的PHP身份证号码检查程序2008-04-06 19:45<?php
/*/
# CopyRight: zxing
# Document: 检查符合 GB11643-1999 标准的身份证号码的正确性
# File:gb11643_1999.func.php Fri Mar 28 09:42:41 CST 2008 zxing
# Updated:Fri Mar 28 09:42:41 CST 2008
# Note: 调用函数 check_id();
#/*///
$id =array();
$id[] = '370882198601064774';
$id[] = '420502198611281126';
$id[] = '370882198601064770';
$id[] = '370882860106477';
$id[] = '63212519850703214x';
$id[] = '429021198203221006';
$id[] = '429036198203211023';
foreach ($id as $key => $value){
echo check_id($value)?$value.' 是真的!<br/>': $value.' 是假的!<br/>';
}
#/*/
/*/
# 函数功能:计算身份证号码中的检校码
# 函数名称:idcard_verify_number
# 参数表 :string $idcard_base 身份证号码的前十七位
# 返回值 :string 检校码
# 更新时间:Fri Mar 28 09:50:19 CST 2008
/*/
function idcard_verify_number($idcard_base){
if (strlen($idcard_base) != 17){
   return false;
}
    $factor = array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2); //debug 加权因子
    $verify_number_list = array('1', '0', 'X', '9', '8', '7', '6', '5', '4', '3', '2'); //debug 校验码对应值
    $checksum = 0;
    for ($i = 0; $i < strlen($idcard_base); $i++){
        $checksum += substr($idcard_base, $i, 1) * $factor[$i];
    }
    $mod = $checksum % 11;
    $verify_number = $verify_number_list[$mod];
    return $verify_number;
}
/*/
# 函数功能:将15位身份证升级到18位
# 函数名称:idcard_15to18
# 参数表 :string $idcard 十五位身份证号码
# 返回值 :string
# 更新时间:Fri Mar 28 09:49:13 CST 2008
/*/
function idcard_15to18($idcard){
    if (strlen($idcard) != 15){
        return false;
    }else{// 如果身份证顺序码是996 997 998 999,这些是为百岁以上老人的特殊编码
        if (array_search(substr($idcard, 12, 3), array('996', '997', '998', '999')) !== false){
            $idcard = substr($idcard, 0, 6) . '18'. substr($idcard, 6, 9);
        }else{
            $idcard = substr($idcard, 0, 6) . '19'. substr($idcard, 6, 9);
        }
    }
    $idcard = $idcard . idcard_verify_number($idcard);
    return $idcard;
}
/*/
# 函数功能:18位身份证校验码有效性检查
# 函数名称:idcard_checksum18
# 参数表 :string $idcard 十八位身份证号码
# 返回值 :bool
# 更新时间:Fri Mar 28 09:48:36 CST 2008
/*/
function idcard_checksum18($idcard){
    if (strlen($idcard) != 18){ return false; }
    $idcard_base = substr($idcard, 0, 17);
    if (idcard_verify_number($idcard_base) != strtoupper(substr($idcard, 17, 1))){
        return false;
    }else{
        return true;
    }
}
/*/
# 函数功能:身份证号码检查接口函数
# 函数名称:check_id
# 参数表 :string $idcard 身份证号码
# 返回值 :bool 是否正确
# 更新时间:Fri Mar 28 09:47:43 CST 2008
/*/
function check_id($idcard) {
if(strlen($idcard) == 15 || strlen($idcard) == 18){
   if(strlen($idcard) == 15){
    $idcard = idcard_15to18($idcard);
   }
   if(idcard_checksum18($idcard)){
    return true;
   }else{
    return false;
   }
}else{
   return false;
}
}
?> 
查看所评论的日志:解读身份证号码
1233 于 2008-09-09 02:06 PM 发表评论:

http://blog.sina.com.cn/s/blog_53481d300100aizm.html
查看所评论的日志:与其杀毒不如ghost还原
达到 于 2008-09-02 09:50 PM 发表评论:
琴姐生活日记本
http://www.qinjienews.com
琴姐生活日记本
查看所评论的日志:GetAsyncKeyState不只是监控键盘也监控鼠标的虚拟键
[92] [93] [94] [95] [96] [97] [98] [99] [100] [101]  ... [143]  
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©