[日积月累]：cad使用

tomtom

1.初始图及常用热键的定义：
    AUTO.CAD的初始图ACAD.DWG中的基本设置是很少的，为了适应各类图纸的绘制，我们就必须对CAD的初始图进行必要的定义，以充分发挥CAD的优良性能。然而，在实际工作中，由于每个用户的喜好不同，对初始图的定义也各不相同，使得对初始图的定义五花八门、杂乱无章，这样就造成了使用不同初始图的用户之间相互调用图纸时常常出现错误，甚至影响程序的正常使用，因此，我们必须重视对初始图的定义，制定统一的标准，充分发挥CAD的性能。
    本软件初始图形中设置了本程序使用时常用的线型、字型、基本变量等元素，建议用户使用时不要改动本软件的初始图及初始定义，如确需新的基本元素可重新定义。
    对热键的定义即没有按英文字头定义，也没有按汉语拼音定义，这主要是考虑了一般上机人员是右手使用鼠标器，左手使用键盘，因此热键定义均在键盘的左边，并将使用频率较高的命令定义在最为合适的位置。
我定义的热键如下：
A：改线宽度        S：改层        Q：TRIM       
W：EXTEND        D：ERASE         E：EDIT(用于文件编辑)       
Z：LINE         ZZ：MIRROR          X：STRETCH         
C：COPY          CC：按比例拷贝         M：MOVE       
MM：按比例移动          R：改单一字符        F：改全部字符        
V：替换字符        O：按比例偏移拷贝        T：写水平文字高3mm       
G：写垂直文字高3mm        TT：写水平文字高4mm        GG：写垂直文字高4mm       
、：osnap int等        、、：osnap off               
    cad绘图中建议使用层来划分线形，不同的线形布置于不同的层中，首先对不同的层定义不同的线形，这样就大的好处就是用改动层来改变线形，非常方便，下面提供一个改层的小lsp命令，你可以试一试。
(DEFUN C:CHLAY ()
(princ "\nselect object:")
(setq s (ssget))
(setq str (getstring "\ninput layer change to:"))
(setq h1 (cons 8 str))
(setq n (sslength s))
(setq k 0 )
(while (< k n)
      (setq name (ssname s k))
      (setq a (entget name))
      (setq h (assoc '8 a))
      (if (= str "") (setq h1 h))
      (setq a (subst h1 h a))
      (entmod a)
      (setq k (+ k 1))
)
)
可以把次命令定义在键盘某个键，非常好用。

2.基本绘图单位及绘图比例因子：
    i.基本绘图单位：
    本软件确定的基本绘图单位是“一个绘图单位=1毫米”，既绘图机出图按时按1:1绘图，这样规定主要有以下优点：
    a.按相同比例绘制的图纸可在同一张图中按1:1相互调用，这就避免了由于基本绘图单位的不同的两张图纸相互调用时还需进行放缩操作，而放缩操作的后果使得图中的线型、字体等实体均按比例放缩，使图面杂乱不规整。
     b.按相同比例绘制的图纸，只要字体高度设定后，出图后的字体高度也相同，如绘图时设字体高度为4mm，出图后字体高度也是4mm，这样就使用户可以很容易的控制字体的高度。
     c.用户可直观的看出所绘制图纸的大小比例。
    ii.绘图比例因子：绘图比例因子既绘图使所用的绘图比例，本软件要求所有的用户必须按比例绘图，这样要求用户的目的是为了提高绘图精确性，使用户很方便的进行平面结构的碰撞检查，例如在绘制平面布置图中，如果用户能按比例绘图，那么当构件发生碰撞时用户可以很直观的发现，此外按比例绘图不但可以大大减少标注（如尺寸标注、标高标注、座标标注等）工作量，而且还可以完成绘图当中的大部分手工计算的工作量。这是因为本软件中有很多程序是通过屏幕上的输入点来计算实体的长度、角度、距离。软件的大部分程序都是建立在绘图比例因子基础上的。

梦断江南

2. 
   
3. ;改变实体到目标实体所在图层上
   
4. (defun c:lag (/ ss ent n i e nla g la nt)
   
5.   (setq ent (entsel "\ntar entity for layer:"));;;选目标层实体
   
6.   (print "select abjects to be chang layer");;;选要改层的实体,批量
   
7.   (setq ss (ssget));;;选要改层的实体
   
8.   (setq n (sslength ss))
   
9.   (setq i 0)
   
10.   (setq e (entget (car ent)))
    
11.   (setq nla (assoc 8 e))
    
12.   (repeat n
    
13.     (setq g (entget (ssname ss i)))
    
14.     (setq la (assoc 8 g))
    
15.     (setq nt (subst nla la g))
    
16.     (entmod nt)
    
17.     (setq i (1+ i))
    
18.   )
    
19. )
    

<br /> ;改变实体到目标实体所在图层上<br /> (defun c:lag (/ ss ent n i e nla g la nt)<br />   (setq ent (entsel "\ntar entity for layer:"));;;选目标层实体<br />   (print "select abjects to be chang layer");;;选要改层的实体,批量<br />   (setq ss (ssget));;;选要改层的实体<br />   (setq n (sslength ss))<br />   (setq i 0)<br />   (setq e (entget (car ent)))<br />   (setq nla (assoc 8 e))<br />   (repeat n<br />     (setq g (entget (ssname ss i)))<br />     (setq la (assoc 8 g))<br />     (setq nt (subst nla la g))<br />     (entmod nt)<br />     (setq i (1+ i))<br />   )<br /> )<br />

加到菜单中（要根据实际路径修改）：
[lag]^C^C^P(if null lag)(LOAD "D:/LXX/-MYLSP/lag") ^Plag