⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 cad世界__autocad vba初级教程 (第九课创建选择集).htm

📁 cad二次开发中介绍vba
💻 HTM
字号:
🔍 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0053)http://old.icad.com.cn/html/2005-6-2/200562145518.asp -->
<HTML><HEAD><TITLE>CAD世界__Autocad VBA初级教程 (第九课:创建选择集)</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>BODY {
	BACKGROUND-IMAGE: url(image/pagebg.gif)
}
.style1 {
	FONT-WEIGHT: bold; COLOR: #ff0066
}
.style2 {
	FONT-WEIGHT: bold; FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Times New Roman, Times, serif, "黑体"
}
.style3 {
	COLOR: #336699
}
.style4 {
	COLOR: #333333
}
.style6 {
	COLOR: #f76c8c
}
.style15 {
	COLOR: #ff0033
}
.style16 {
	FONT-WEIGHT: bold; COLOR: #ff0000
}
</STYLE>

<SCRIPT language=JavaScript type=text/JavaScript>
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</SCRIPT>
<LINK href="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/main_c1.css" rel=stylesheet>
<META content="MSHTML 6.00.2900.2995" name=GENERATOR></HEAD>
<BODY leftMargin=0 rightMargin=0>
<DIV align=center>
<SCRIPT language=JavaScript 
src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/headadA.js"></SCRIPT>

<TABLE height=17 width=800 align=center bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD>
      <SCRIPT language=JavaScript 
      src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/headmenuA.js"></SCRIPT>
    </TD></TR></TBODY></TABLE><!--以上为导航菜单-->
<TABLE width=800 align=center bgColor=#ffffff>
  <TBODY>
  <TR>
    <TD width=6>
      <TABLE width=1 bgColor=#999999>
        <TBODY></TBODY></TABLE></TD><!--左侧通栏开始-->
    <TD vAlign=top width=174>
      <TABLE width=140 align=left><!--搜索-->
        <TBODY>
        <TR>
          <TD width="100%">
            <TABLE height=40 cellSpacing=0 cellPadding=3 width="100%" 
            align=center>
              <FORM action=../../search.asp method=post>
              <TBODY>
              <TR>
                <TD><IMG height=20 
                  src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/mu_search_red.gif" 
                  width=159></TD></TR>
              <TR>
                <TD align=middle colSpan=2><INPUT size=14 name=keyword> <INPUT type=submit value=搜索 name=submit> <INPUT type=hidden 
                  value=all name=datesearch> <INPUT type=hidden value=2 
                  name=AreaSearch> </TD></TR></FORM></TBODY></TABLE></TD></TR><!--精品导读开始-->
        <TR>
          <TD vAlign=top width=157 bgColor=#ffffff><IMG height=20 
            src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/leftmenu2_01_red.gif" 
            width=159> 
            <TABLE width="100%" align=left>
              <TBODY>
              <TR>
                <TD align=left>
                  <SCRIPT language=JavaScript 
                  src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/class2.js"></SCRIPT>
                </TD></TR></TBODY></TABLE></TD></TR><!--热点新闻结束--><!--论坛热门开始-->
        <TR>
          <TD vAlign=top width=157 bgColor=#ffffff><IMG height=20 
            src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/leftmenu2_02_red.gif" 
            width=160> 
            <TABLE width="100%" align=left>
              <TBODY>
              <TR>
                <TD align=left>
                  <SCRIPT language=JavaScript 
                  src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/lttop6.js"></SCRIPT>
                </TD></TR></TBODY></TABLE></TD></TR><!--论坛热门结束--><!--投稿-->
        <TR>
          <TD vAlign=top width=157 bgColor=#ffffff><IMG height=20 
            src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/mu_mail_red.gif" 
            width=160> 
            <TABLE>
              <TBODY>
              <TR>
                <TD vAlign=top align=left>
                  <SCRIPT language=JavaScript 
                  src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/tougaoA.js"></SCRIPT>
                </TD></TR></TBODY></TABLE></TD></TR><!--投稿结束--></TBODY></TABLE></TD><!--左侧通栏结束-->
    <TD width=1 
    background="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/lbg1.gif"></TD><!--中间通栏开始-->
    <TD vAlign=top width=660><!-- <table width="760" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td width="650" height="500" valign="top">-->
      <TABLE width="100%" border=0>
        <TBODY>
        <TR>
          <TD align=left>当前位置：ICAD首页 &gt;&gt; 数字化设计 &gt;&gt; CAD &gt;&gt; 
        正文</TD></TR></TBODY></TABLE>
      <DIV align=center><A 
      href="http://www.icad.com.cn/zhuanti/jingdiananli/index.htm" 
      target=_blank><IMG height=60 
      src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/jingdiananli2.gif" width=468 
      align=absMiddle border=0></A><BR></DIV>
      <TABLE width="100%" border=0>
        <TBODY>
        <TR>
          <TD align=middle bgColor=#eeeeee height=40><FONT 
            style="FONT-SIZE: 16px"><B>Autocad VBA初级教程 
        (第九课:创建选择集)</B></FONT></TD></TR>
        <TR>
          <TD align=right>作者：普天同庆 | 阅读次数：2089 <FONT color=#999999>转自：<FONT 
            color=#cc0000>CAD世界网-论坛</FONT> 
      时间：2005年6月2日14:55</FONT></TD></TR></TBODY></TABLE><BR>
      <TABLE cellPadding=5 width=600 border=0>
        <TBODY>
        <TR>
          <TD class=c align=left><FONT id=zoom style="FONT-SIZE: 14px"><FONT 
            size=3></FONT>
            <P>1.在创建对象的同时可以直接引用.以前的例程中已经做过多次了,现在复习一下,看例程:先随机画300个圆,在画圆时直接引用,然后再把这些圆根本大小修改颜色.</P>
            <P>Sub c300()</P>
            <P>Dim myselect(0 To 300) As AcadEntity '定义选择集数组<BR>Dim pp(0 To 2) 
            As Double '圆心坐标</P>
            <P>For i = 0 To 300 '循环300次<BR>pp(0) = 3000 * Rnd: pp(1) = 3000 * 
            Rnd: pp(2) = 0 '设置圆心坐标<BR>Set myselect(i) = 
            ThisDrawing.ModelSpace.AddCircle(pp, Rnd * 30 + 1) '画不同大小的圆<BR>Next 
            i</P>
            <P>For i = 1 To 300<BR>If myselect(i).Radius &gt; 10 Then 
            '判断圆的直径是否大于10<BR>&nbsp;myselect(i).color = Int(255 * Rnd + 1) 
            '大圆颜色改为随机数<BR>Else<BR>&nbsp;myselect(i).color = 0 '小圆改为白色<BR>End 
            If<BR>Next i</P>
            <P>ZoomExtents '缩放到显示全部对象</P>
            <P>End Sub</P>
            <P><BR>pp(0) = 3000 * Rnd: pp(1) = 3000 * Rnd: pp(2) = 
            0<BR>这一行实际上应该是三条语句,用三行合并为一行,用冒号分开<BR>rnd是随机数函数,它的数值为0-1之间的小数,3000*rnd得到的数值就是在0-3000之间的随机数</P>
            <P>Set myselect(i) = ThisDrawing.ModelSpace.AddCircle(pp, Rnd * 30 + 
            1)<BR>这条语句的作用是以pp点坐标为圆心,画一个圆,半径是1-30之间的随机数,赋值给myselect选择集.</P>
            <P>2.提标用户在屏幕中选取<BR>选择语句这样写:Set sset = 
            ThisDrawing.SelectionSets.Add("ss1"),其中”ss1”是一个选择集名称,这个参数可以随意写一个,注意不要重复就可以了.<BR>下面的例程是让用户选择对象,然后把选中的对象改为绿色,最后把选择集删除</P>
            <P>Sub mysel()</P>
            <P>Dim sset As AcadSelectionSet '定义选择集对象<BR>Dim element As 
            AcadEntity '定义选择集中的元素对象</P>
            <P>Set sset = ThisDrawing.SelectionSets.Add("ss1") 
            '新建一个选择集<BR>sset.SelectOnScreen '提示用户选择</P>
            <P>For Each element In sset '在选择集中进行循环<BR>&nbsp; element.color = 
            acGreen '改为绿色<BR>Next<BR>sset.Delete '删除选择集</P>
            <P>End Sub</P>
            <P>3.选择全部对象<BR>用select方法,参数为acSelectionSetAll 
            ,看例程,这个程序选择全部对象,显示选中的对象,并计算对象数.<BR>Sub allsel()<BR>Dim sel1 As 
            AcadSelectionSet '定义选择集对象<BR>Set sel1 = 
            ThisDrawing.SelectionSets.Add("s") '新建一个选择集<BR>Call 
            sel1.Select(acSelectionSetAll) '全部选中<BR>sel1.Highlight (True) 
            '显示选择的对象<BR>sco= sel1.Count '计算选择集中的对象数<BR>MsgBox "选中对象数:" &amp; 
            CStr(sco) '显示对话框<BR>End Sub</P>
            <P><BR>3.运用select方法<BR>上面的例题已经运用了select方法,下面讲一下select的5种选择方式:<BR>1:择全部对象(acselectionsetall)<BR>2.选择上次创建的对象(acselectionsetlast)<BR>3.选择上次选择的对象(acselectionsetprevious)<BR>4.选择矩形窗口内对象(acselectionsetwindow)<BR>5.选择矩形窗口内以及与边界相交的对象(acselectionsetcrossing)<BR>还是看代码来学习.其中选择语句是:<BR>Call 
            sel1.Select(Mode, p1, 
            p2)<BR>Mode已经定义为5,也就是选择矩形窗口内以及与边界相交的对象,p1和p2是两个点坐标,<BR>Sub 
            selnew()<BR>Dim sel1 As AcadSelectionSet '定义选择集对象<BR>Dim p1(0 To 2) 
            As Double '坐标1<BR>Dim p2(0 To 2) As Double '坐标2<BR>p1(0) = 0: p1(1) 
            = 0: p1(2) = 0 '设置坐标1<BR>p2(0) = 300: p2(1) = 300: p2(2) = 0 
            '设置坐标1<BR>Mode = 5 '把选择模式存入mode变量中<BR>Set sel1 = 
            ThisDrawing.SelectionSets.Add("sel3") '新建一个选择集<BR>Call 
            sel1.Select(Mode, p1, p2) '选择对象<BR>sel1.Highlight (ture) 
            '显示已选中的对象<BR>End Sub<BR></P>
            <P><STRONG>其他课程回顾：</STRONG></P>
            <P><A 
            href="http://www.icad.com.cn/html/2005-4-25/2005425163833.asp"><U><FONT 
            color=#0000ff>Autocad VBA初级教程 (第一课:入门)</FONT></U></A></P>
            <P><A 
            href="http://www.icad.com.cn/html/2005-4-25/2005425163954.asp"><U><FONT 
            color=#0000ff>Autocad VBA初级教程 (第二课 编程基础)</FONT></U></A></P>
            <P><A 
            href="http://www.icad.com.cn/html/2005-4-26/2005426112553.asp"><U><FONT 
            color=#0000ff>Autocad VBA初级教程 (第三课 编程基础二)</FONT></U></A></P>
            <P><A 
            href="http://www.icad.com.cn/html/2005-4-26/2005426112638.asp"><U><FONT 
            color=#0000ff>Autocad VBA初级教程 (第四课 程序的调试和保存)</FONT></U></A></P>
            <P><A 
            href="http://www.icad.com.cn/html/2005-5-8/20055893119.asp"><U><FONT 
            color=#0000ff>Autocad VBA初级教程 (第五课 画函数曲线)</FONT></U></A></P>
            <P><A 
            href="http://www.icad.com.cn/html/2005-5-8/20055893328.asp"><U><FONT 
            color=#0000ff>Autocad VBA初级教程 (第六课 数据类型的转换)</FONT></U></A></P>
            <P><A 
            href="http://www.icad.com.cn/html/2005-5-9/200559102708.asp"><U><FONT 
            color=#0000ff>Autocad VBA初级教程 (第七课 写文字)</FONT></U></A><BR><BR><A 
            href="http://www.icad.com.cn/html/2005-5-30/2005530154133.asp"><FONT 
            color=#0000ff><U>Autocad VBA初级教程 
            (第八课:图层操作)</U></FONT></A><BR></P></FONT><BR>(编辑：zhaozh)</TD></TR>
        <TR>
          <TD align=right>
            <SCRIPT language=JavaScript>
<!-- Begin
if (window.print) {
document.write('【<a href="#" onClick="javascript:window.print()"><font color=cc0000>打印本文</font></a>】 ');
}
// End -->
</SCRIPT>
            【<A 
            href="http://old.icad.com.cn/review/index.asp?article=200562132544" 
            target=_blank><FONT color=#cc0000>发表评论</FONT></A>】【<A 
            href="javascript:window.close()"><FONT 
          color=#cc0000>关闭窗口</FONT></A>】</TD></TR></TBODY></TABLE>
      <TABLE align=left>
        <TBODY>
        <TR>
          <TD align=left>上一篇：<A 
            href="http://old.icad.com.cn/html/2005-6-2/200562132358.asp" 
            target=_blank>[入门] DMS应用系统功能模块简介</A><BR>下一篇：<A 
            href="http://old.icad.com.cn/html/2005-6-2/200562132713.asp" 
            target=_blank>[文章]从传统OA到协同OA的飞跃 </A><BR></TD></TR></TBODY></TABLE></TD><!--中间通栏结束--><!--<td width="2" background="../../image/lbg1.gif"></td>--><!--右侧通栏开始--></TR></TBODY></TABLE></TBODY></TABLE>
<SCRIPT language=JavaScript 
src="CAD世界__Autocad VBA初级教程 (第九课创建选择集).files/endA.js"></SCRIPT>
</DIV></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -