ATUOCAD中实体的选择方式

　　大家知道，在ATUOCAD中，对作图对象的编辑随时会牵涉到选取对象。具体如何最快捷、方便地利用AUTOCAD所提供的选择工具快速地选中物体是快速编辑图形的关键。读者可在ATUOCAD的命令行，键入“Select”后回车，我们将看到各种选择实体的方法选项。本文拟详细介绍ATUOCAD中选择实体（Select Objects）的方法，包括一些平常我们很少知道的选项。

　　一、直接点取方式（默认）
　　通过鼠标或其他输入设备直接点取实体，后实体呈高亮度显示，表示该实体已被选中，我们就可以对其进行编辑。大家可以在AUTOCAD 的“Tools”菜单中调用“Options…”弹出“Options”对话框，选择“Selection”选项卡来设置选择框的大小（读者可以自己根据情况尝试修改，以达到满意的效果）。如果我们在“选择实体：”的提示下输入AU（AUto），效果就等同于“直接点取方式”。
　　二、窗口方式
　　当命令行出现“Select Objects：”提示时，如果将点取框移到图中空白地方并按住　　鼠标左键，ATUOCAD会提示：另一角，此时如果将点取框移到另一位置后按鼠标左健，ATUOCAD会自动以这两个点取点作为矩形的对顶点，确定一默认的矩形窗口。如果窗口是从左向右定义的，框内的实体全被选中，而位于窗口外部以及与窗口相交的实体均未被选中；若矩形框窗口是从右向左定义的，那么不仅位于窗口内部的对象被选中，而且与窗口边界相交的对象也被选中。事实上，从左向右定义的框是实线框，从右向左定义的框是虚线框（大家不妨注意观察一下）。对于窗口方式，也可以在“Select Objects：”的提示下直接输入W(Windows)，则进入窗口选择方式，不过，在此情况下，无论定义窗口是从左向右还是从右向左，均为实线框。如果我们在“Select Objects：”提示下输入BOX，然后再选择实体，则会出现与默认的窗口选择方式完全一样。

　　AutoCAD是由美国Autodesk公司于二十世纪八十年代初为微机上应用CAD技术而开发的绘图程序软件包，经过不断的完美，现已经成为国际上广为流行的绘图工具。

　　AutoCAD可以绘制任意二维和三维图形，并且同传统的手工绘图相比，用AutoCAD绘图速度更快、精度更高、而且便于个性，它已经在航空航天、造船、建筑、机械、电子、化工、美工、轻纺等很多领域得到了广泛应用，并取得了丰硕的成果和巨大的经济效益。
　　AutoCAD具有良好的用户界面，通过交互菜单或命令行方式便可以进行各种操作。它的多文档设计环境，让非计算机专业人员也能很快地学会使用。在不断实践的过程中更好地掌握它的各种应用和开发技巧，从而不断提高工作效率。
　　AutoCAD具有广泛的适应性，它可以在各种操作系统支持的微型计算机和工作站上运行，并支持分辨率由320×200到2048×1024的各种图形显示设备40多种，以及数字仪和鼠标器30多种，绘图仪和打印机数十种，这就为AutoCAD的普及创造了条件。 

　　AutoCAD的发展过程可分为初级阶段、发展阶段、高级发展阶段、完善阶段和进一步完善阶段五个阶段。

　　在初级阶段里AutoCAD更新了五个版本。
　　1982年11月，首次推出了AutoCAD 1.0版本；
　　1983年4月，推出了AutoCAD 1.2版本；
　　1983年8月，推出了AutoCAD 1.3版本；
　　1983年10月，推出了AutoCAD 1.4版本；
　　1984年10月，推出了AutoCAD 2.0版本。
　　在发展阶段里，AutoCAD更新了以下版本。
　　1985年5月，推出了AutoCAD 2.17版本和2.18版本；
　　1986年6月，推出了AutoCAD 2.5版本。
　　1987年9月后，陆续推出了AutoCAD 9.0版本和9.03版本。
　　在高级发展阶段里，AutoCAD经历了三个版本，使AutoCAD的高级协助设计功能逐步完善。它们是1988年8月推出的AutoCAD 10.0版本、1990年推出的11.0版本和1992年推出的12.0版本。
　　在完善阶段中，AutoCAD经历了三个版本，逐步由DOS平台转向Windows平台。
　　1996年6月，AutoCAD R13版本问世；
　　1998年1月，推出了划时代的AutoCAD R14版本；
　　1999年1月，AutoCAD公司推出了AutoCAD 2000版本。
　　在进一步完善阶段中，AutoCAD经历了两个版本，功能逐渐加强。
　　2001年9月Autodesk公司向用户发布了AutoCAD 2002版本。
　　2003年5月，Autodesk公司在北京正式宣布推出其AutoCAD软件的划时代版本——AutoCAD 2004简体中文版。
　　在AutoCAD 2004的基础上，Autodesk公司还同时发布了针对建筑业、基础设施和机械制造业的10个行业应用解决方案。AutoCAD 2004与它的前一版本AutoCAD 2002相比，在速度、数据共享和软件管理方面有显著的改进和提高。
　　AutoCAD 2004的速度比AutoCAD 2002提高24%，网络性能提升了28%，DWG文件大小平均减小44%，可将服务器磁盘空间要求减少40%——60%。
　　在数据共享方面，AutoCAD 2004采用改进的DWF文件格式——DWF 6，支持在出版和查看中安全地进行共享；并通过参考变更的自动通知、在线内容获取、CAD标准检查、数字签字检查等技术提供了方便、快捷、安全的数据共享环境。
　　此外，AutoCAD 2004与业界标准工具SMS、Windows Advertising等兼容，并提供免费的图档查看工具Express Tools，在许可证管理、安装实施等方面都可以节省大量的时间和成本。
　　AutoCAD 2004拥有轻松的设计环境，它将把用户的注意力从键盘、鼠标和其它输入设备转移到设计上来。在完成任务的自动化方面，AutoCAD 2004还向用户提供实时的信息和数据访问，帮助用户进行设计

(vl-load-com)
(defun c:tt (/ doc ms blks blkdef)
  (setq ms   (vlax-get-property
        (setq doc (vlax-get-property
      (vlax-get-acad-object)
      'activedocument
    )
        )
        'modelspace
      )
 blks (vlax-get-property doc 'blocks)
  )
  (setq blkdef (vla-add blks (vlax-3d-point '(0. 0. 0.)) "*U"))

(vl-doc-export 'exam)
(defun exam ()
   (vla-put-color (vlax-ename->vla-object (entlast)) acRed)
   (princ)
) 
(vlax-add-cmd "exam" 'exam "exam" acrx_cmd_transparent)
(princ) 

Easy, let's take a simple AutoLISP dialog example and tweek the coding a little bit so that our program "writes" the DCL file for us. Copy and paste the following and save it as "TEST_DCL3.LSP". 

;AUTOLISP CODING STARTS HERE
                        (prompt "\nType TEST_DCL3 to run.....")
                        (defun C:TEST_DCL3 ( / dcl_id fn fname)
                        (vl-load-com)
                        (create_dialog)
                        (setq dcl_id (load_dialog fname))
                        (if (not (new_dialog "temp" dcl_id))
                        (exit )
                        );if
                        (set_tile "name" "Enter Name Here")
                        (mode_tile "name" 2)
                        (action_tile "name" "(setq name $value)")
                        (action_tile "age" "(setq age $value)")
                        (action_tile "accept" "(val1)")
                        (start_dialog)
                        (unload_dialog dcl_id)
                        (alert (strcat "Your name is " name
                        "\nand you are " age " years of age."))
                        (vl-file-delete fname)
                        (princ)
                        );defun
                        -----------------------
                        (defun val1 ()
                        (if (= (get_tile "name") "Enter Name Here")
                        (progn
                        (set_tile "error" "You must enter a name!")
                        (mode_tile "name" 2)
                        );progn
                        (val2)
                        );if
                        );defun
                        -------------------
                        (defun val2 ()
                        (if (< (atoi (get_tile "age")) 1)
                        (progn
                        (set_tile "error" "Invalid Age - Please Try Again!!")
                        (mode_tile "age" 2)
                        );progn
                        (done_dialog)
                        );if
                        );defun
                        -------------------
                        (defun create_dialog ()
                        (setq fname (vl-filename-mktemp "dcl.dcl"))
                        (setq fn (open fname "w"))
                        (write-line "temp : dialog { label = \"Test Dialog No 3\";
                        : edit_box { label = \"Enter Your Name :\"; mnemonic = \"N\";
                        key = \"name\"; alignment = centered; edit_limit = 30;
                        edit_width = 30; } : edit_box { label = \"Enter Your Age :\";
                        mnemonic = \"A\"; key =\"age\"; alignment = centered;
                        edit_limit = 3; edit_width = 3; value = \"22\";
                        } : button { key = \"accept\"; label = \"OK\";
                        is_default = true; fixed_width = true; alignment = centered;
                        } : errtile { width = 34; } }" fn)
                        (close fn)
                        );defun
                        (princ)
                        ;AUTOLISP CODING ENDS HERE
                        

Notice that there is no DCL file this time. Now load and run it.

See, what did I tell you? We've just loaded and ran a DCL file even though we haven't got one!!!
You could now compile this into a FAS file if you wished. (Hey, a FAS file with DCL - cool!)

On the next page, we'll have a closer look at this truly amazing phenomenon and have a closer look at the coding. At the same time, we'll get really clever and design ourselves a "Variable-auto-self-sizing-Dialog-Box-without-a-DCL-file".