AUTOCAD实战技巧 AUTOCAD, 实战, 技巧

jjcd

AUTOCAD实战技巧
CAD技巧
001.将地形图中非零高程对象转换为零高程对象

　　如果你从测绘院拷贝来的地形图上有一些图元（如直线和圆等）的Z坐标不为零，那么有可能产生交点不易捕捉、使用dist命令量取的两点间距离值与实际不合等等问题，下面我介绍两种解决这个难题的方法。

　　(1)命令法（中文为注释）：在命令行键入change
Command：CHANGE

选择对象
Select objects： all
键入p选择修改特性
Properties/<Change point>： p
键入e修改标高
Change what property (Color/Elev/LAyer/LType/ltScale/Thickness) e
输入新的Z坐标
New elevation <varies>： 0
选择修改特性，回车结束。
Change what property (Color/Elev/LAyer/LType/ltScale/Thickness)
Commnd：

　　(2)移动法：很简单，键入移动命令“move”，将所有实体移至点1,0,1E99，然后再重复“move”命令，将所有实体移至点0,0,-1E99即可。

该方法利用AutoLISP语言编程如下：
;;标高(Z坐标)归零实用程序
(defun C:Z=0 ()
(setvar "cmdecho" 0)
(princ "\n正在处理图形数据,请稍候...")
(command "_.UCS" "")
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "")
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
(setvar "cmdecho" 1)
(princ)
)end (defun C:Z=0 ()

002.消除dwg文件中多余的图层和图块

　　对于绘制CAD图纸后残留的一些多余的图层、文字样式、线型和图块等，可以通过以下方法将它们清除：
　　(1)利用CAD文件菜单下的“输出”命令，填写输出图形文件名称，选择形式为block(*.dwg)，图块名称不填，选择基本点为（0,0），然后选择要输出的图形内容，图形经过如此处理后不会再有多余的信息。
　　(2)利用CAD文件菜单下的“清理”命令，当命令行提示“Verify each name to be purged <Y>(验证每个要清理的名称)”时：，键入“n”不用验证是否清理，可加快清理速度。多重复几次PURGE命令后也不会再有多余的图形信息了。
　　(3)编制一个小巧的AutoLISP程序，可以减少手工操作。

(defun CHTX ()
(setvar "cmdecho" 0);关闭命令回显
(repeat 10
(command "purge" "a" "" "n")
);重复执行purge命令10次
(princ)
);end defun CHTX ()

　　将以上代码复制在新文本文件中，另存为QHTX.lsp，然后在“工具”菜单下加载运行，便能清除图形中的残余信息。

003.字体打印问题

　　有时我们用实心字体绘制的图形，打印时字体却全变成了空心字，这时只要在命令行键入“TEXTFILL”，按系统提示
New value for TEXTFILL <1>:
键入数字1后就能恢复实心字体的打印了。TEXTFILL是CAD中的一个不太常用的系统变量，其参数说明如下：

TEXTFILL
类型：整数型
保存位置：