CAD提升技巧收集

1.CAD空格键常用小技巧
选中图型基点
一下空格-----移动
二下空格-----旋转
三下空格-----缩放
四下空格-----镜相

2.比如我有20个闭合的独立区域，要算它们的总面积。我用area命令累加。但是

这样很不方便，要点n多次，多的话还容易弄错。有什么比较简便的方法（比如一

次选取所有的区域进行累加）？

面积求和
;;; AREAM.LSP
;;; Function: Calculates the total area of selected objects

(defun c:aream (/ olderr oldcmdecho errexit undox restore ss1 nr en

tot_area)
(defun errexit (s)
(restore)
)

(defun undox ()
(command "._undo" "_E")
(setvar "cmdecho" oldcmdecho)
(setq *error* olderr)
(princ)
)

(setq olderr *error*
restore undox
*error* errexit
)
(setq oldcmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "._UNDO" "_BE")
(if (setq ss1 (ssget ’((-4 . "<OR")
(0 . "POLYLINE")
(0 . "LWPOLYLINE")
(0 . "CIRCLE")
(0 . "ELLIPSE")
(0 . "SPLINE")
(0 . "REGION")
(-4 . "OR>")
)
)
)
(progn
(setq nr 0)
(setq tot_area 0.0)
(setq en (ssname ss1 nr))
(while en
(command "._area" "_O" en)
(setq tot_area (+ tot_area (getvar "area")))
(setq nr (1+ nr))
(setq en (ssname ss1 nr))
)
(princ "\nTotal Area = ")
(princ tot_area)
)
)
(restore)
)


把上面的英文部分用记事本存成aream.lsp,并把此文件放到cad的support目录下,

用cad命令appload加载他,cad中打入aream,和cad的命令一样用
如果算出来的面积是1.54745e+010就是15474500000,既小数点向后移10位


3.WORD、EXCEL图形或表格复制到CAD的步骤1、选择需要复制的图形或表格，用“

复制”工具进行复制；
2、切换到CAD程序，然后选择“编辑”—“选择性粘贴”；
3、选择粘贴为“AutoCAD图元”，这样做的目的是粘贴后可以在CAD里编辑；
4、选择粘贴插入点
5、粘贴后的线条或文字可以在CAD直接编辑

4.CAD图形或表格复制到WORD、EXCEL的步骤
1、更改CAD系统变量WMFBKGND值为OFF，使CAD背景为透明，如果想让复制的图形

是黑白的，可以在图层管理器里面把图层颜色改为白色（7号）；
2、选择需要复制的图形，用“复制”工具进行复制；
3、切换到WORD或EXCEL，激活需要粘贴的区域，然后选择“编辑”—“粘贴”；
4,利用“图片裁剪”把图形空白区域剪掉，然后用拖对角的方法把图形缩放到合

适的大小
CAD到Office补充几点：说是CAD到Office，是因为CAD图粘贴到Word、Excel、

PowerPoint、Publisher都可以用这个方法。1、线条宽度——建议采用多段线设

定线条宽度，因为线宽粘贴后宽度只有宽窄两种，不美观；2、比例问题——如果

有可能，尽量采用1:1绘制，这里的1:1是打印比例，也就是需要打印为10mm的，

就绘制成10个图形单位，这样既可以控制出图比例，又可以控制线条宽度；3、背

景颜色——2002可以在布局空间（一般布局空间的背景是白色）复制，2004、

2005、2006直接复制就行了，无需修改背景颜色。


5.请问如何沿着一条曲线，拆线，斜线来陈列物体？
1.把要陈列的物体成块命好名字，(Command: block )
2，用等分工具(Command: divide)等分曲线，下面提示会告诉你是输入要等分的

线段数还是插入块（Enter the number of segments or [Block]: b），输入b点

回车
3，( Enter name of block to insert:)输入你刚才命名的块的名字，
4，（Align block with object? [Yes/No] <Y>: ）直接点回车，默认对齐！
5，（Enter the number of segments: 6）输入要陈列物体的个数，点回车！

另外，如果沿斜线陈列有直接的命令，用上面的方法加裁命令就行了！
cm.lsp沿指定方向多重复制对象，可以指定对象间距或数量。


(defun C:CM ()
(setq A nil)
(setq OM (getvar "OSMODE"))
(setvar "OSMODE" 33)
(setq PNT1 (getpoint "\n拾取第一点： "))
(setq PNT2 (getpoint "\n拾取第二点： " PNT1))(terpri)
(initget 1 "M E N")
(prompt "\n选择如下之一： ")
(setq CTYPE
(getkword "\n(M)最大间距 (E)精确间距 (N)数量： "))
(if (= CTYPE "M")
(setq SP (getdist "\n最大对象间距： ")))
(if (= CTYPE "E")
(setq SP (getdist "\n精确对象间距： ")))
(if (= CTYPE "N")
(setq SP (getreal "\n对象数量： ")))
(setq DIST (distance PNT1 PNT2))
(setq ANG (angle PNT1 PNT2))
(setq TEMP1 (/ DIST SP))
(setq TEMP2 (fix (/ DIST SP)))
(setq INC1 SP)
(setq INC2 (/ DIST (+ 1 (fix (/ DIST SP)))))
(setq INC3 (/ DIST (- SP 1)))
(if (= TEMP1 TEMP2) (setq INC INC1) (setq INC INC2))
(if (= CTYPE "E") (setq INC INC1) (setq INC INC))
(if (= CTYPE "N") (setq INC INC3) (setq INC INC))
(setq TMS (FIX (+ 0.00001 (/ DIST INC))))
(setvar "OSMODE" 0)
(setq A (ssget))
(setq INCR 0)
(repeat TMS
(setq INCR (+ INCR INC))
(setq NEWPT (polar PNT1 ANG INCR))
(command "copy" A "" PNT1 NEWPT)
)
(setvar "OSMODE" OM)
(setq A nil)
);end cm.lsp
把上面的英文部分用记事本存成cm.lsp,并把此文件放到cad的support目录下,用

cad命令appload加载他,cad中打入cm,和cad的命令一样用


6，怎样把物体整体压扁或者整体拉长？,scale uniformly
1，把要压扁的物体成块，
2，用插入命令insert,在跳出的对话框里进行设置，在scale下面设置X与Y的比例

，默认值都是1
注意：在成块的时候不能选择“uniform scale"!


7
1.【CTrl+N无效时之解决办法】
CTRL+N新建命令
但有时候CTRL+N则出现选择面板

这时只需到OP选项里调下设置

操作：
OP（选项）------系统-------右侧有一个启动（A显示启动对话框B不显示启动对

话框）

选择A则新建命令有效，反则无效

2.【Ctrl键无效之解决办法】
比如CTRL+C（复制），，CTRL+V（粘贴）CTRL+A（全选）等一系列和CTRL键有关

的命令都会失效

这时你只需到OP选项里调一下
操作：OP（选项）-----用户系统配置------WINDOWS标准加速键（打上勾）

WINDOWS 标准加速键打上勾后，和CTRL键有关的命令则有效，反之失灵