（1）定义下拉菜单（插入在原有的下拉菜单之后）     
    ***POPx 
     [自制CAD(&Z)]
     [图幅比例(&A)]^C^C_bscale 
     [--] 
    说明：
    1）设置第x个下拉菜单
    2）第x个下拉菜单的功能项名称，快捷键代码为Z
    3）下拉菜单的分项名称，^C^C执行二次中断操作然后执行后面的命令（功能中所定义的，如bscale）
    4）在下拉菜单中显示分隔符

图2 定义图标工具栏

    （2）定义图标工具栏（插入在原有的图标菜单之后）
    **MYCAD
    [_Toolbar("MYCAD", _Floating, _Show, 0, 1, 0)]
    [_Button("图幅比例", "bscale.bmp", "bscale.bmp")] ^C^C_bscale 
    [--]    
    重新进入CAD，您就可以看到所编制的下拉菜单和图标标工具栏了。如果没有，请在Command状态下输入menu（回车），在弹出的对话框中选中您刚刚保存的acad.mun（或acad.mns），然后按确定按钮。另外，图标工具栏也可手工定制。在绘图环境下的任意图标上按鼠标右键，弹出菜单选择自定义，在自定义对话框中选择工具栏，按新建按钮，在工具栏名称中输入MYCAD，按确定按钮。再选择命令中的用户定义，按住鼠标左键拖动用户定义的按钮到MYCAD的工具栏中后，鼠标左键单击该按钮，在按钮特性中输入用户定义的按钮名称如“图幅比例” ，在与此按钮关联的宏中输入^C^C_bscale，然后选择编辑按钮，可以在按钮编辑器上直接画，也可打开bscale.bmp文件（如：用Photoshop绘画的），选中应用按钮。其余的图标定制方法以此类推。

    三、笔者开发的AutoCAD的功能及使用方法

    1．程序
    （1）定义对称线
    (defun c:dcx (/ ss1 dist p1 p2 p3 p4 p5 len pn pm pn1 pm1 ee ang1 sb) 
    (setvar "orthomode" 1)
    (setq sb (getvar "osmode"))
    (setvar "osmode" 33)
    (setq ss1 (ssget)
    dist (getdist "\n请输入平行线间的距离:")
    p1 (getpoint "\n起始点或特征点:")
    len (getdist p1 "\n终点或特征点或长度:")
    ee (entget (ssname ss1 0))
    p2 (cdr (assoc 10 ee))
    p3 (cdr (assoc 11 ee))
    ang1 (angtos (angle p2 p3) 0 1)
    )
    (command "_UCS" "_Z" ang1 "")
    (setq p4 (trans p1 0 1)
    p5 (trans p2 0 1)
    pn (list (car p4) (+ (cadr p5) (/ dist 2.0)))
    pm (list (car p4) (- (cadr p5) (/ dist 2.0)))
    pn1 (polar pn 0 len)
    pm1 (polar pm 0 len)
    )
    (setvar "osmode" 0)
    (command "line" pn pn1 "" "line" pm pm1 "")
    (command "_UCS" "_W" "")
    (setvar "osmode" sb)
    )
    （2）定义粗糙度
    (defun C:wbin (/ sa) 
    (setq sa (getvar "osmode"))
    (setvar "osmode" 0)
    (setq sc (getvar "DIMSCALE"))
    (setvar "osmode" 512)
    (command "insert" "ccd" pause sc sc pause)
    (setvar "osmode" sa)
    )
    （3）定义序列号
    (defun C:bub1 (/ p1 p2 p3 sc hd hd1 k h sb )  
    (setq sb (getvar "osmode"))
    (setvar "osmode" 0)
    (setq h (getint "\n序列号的个数:")
     p1 (getpoint "\nFirstpoint:")
    )
    (setvar "osmode" 512)
    (setq p2 (getpoint p1 "\nSecondpoint:")
     sc (getvar "DIMSCALE")
     hd (* 7 sc)
     hd1 (* 4 sc)
    )
    (setvar "osmode" 0)
    (command "LAYER" "S" "03" "" "donut" 0 sc p1 "" "line" p1 P2 "")
    (if (> (car p2) (car p1))
    (setq an1 0)
    )
    (if (< (car p2) (car p1))
    (setq an1 pi)
    )
    (setq p3 (polar p2 an1 hd))
    (command "line" p2 P3 "")
    (setq p0 p2
     k 2
    )
    (while (<= k h)
    (setq p2 (list  (car p2) (+ (* 8 sc) (cadr p2)))
     p3 (polar p2 an1 hd)  
    )
    (command "line" p2 P3 "")
    (setq k (1+ k))
    )
    (setq pt (list (/ (+ (car p2) (car p3)) 2) (+ (* 1.2 sc) (cadr p3))))
    (command "line" p0 P2 ""
     "LAYER" "S" "0" ""
     "dtext" "J" "C" pt hd1 0
     )
    (setvar "osmode" sb)
    )
    （4）定义形位公差
    (defun C:gc (/ pp1 pp2 pp3 pp4 s2 k1 k2 sb1 sb2 g1) 
    (setq sb1 (getvar "ORTHOMODE")
    sb2 (getvar "OSMODE") 
    )
    (setvar "ORTHOMODE" 1)
    (setvar "OSMODE" 512)
    (setq pp1 (getpoint "\n请在实体上选一点:"))
    (setvar "OSMODE" 0) 
    (setq pp2 (getpoint pp1 "\n请确定引出线位置:")
    pp3 (getpoint pp2 "\n请确定引出线终点:")
    s2 (getvar "DIMSCALE")
    g1 (angle pp1 pp2)
    k1 (* 1.5 s2)
    k2 (* 4.5 s2)
    pp4 (polar pp1 g1 k2)   
    )
    (command "layer" "S" "03" ""
     "pline" pp1 "W" 0 k1 pp4 "W" 0 0 pp2 pp3 ""
    )
    (setvar "OSMODE" 1) 
    (command  "tolerance" pause 
     "layer" "S" "0" ""
    )
    (setvar "ORTHOMODE" sb1)
    (setvar "OSMODE" sb2)
    )
    1) 插入粗糙度符号（有四种方式）
    Command: wbin（回车）
    Rotation angle <0>：输入角度值或用鼠标量取（回车）
    粗糙度值 <12.5>：输入粗糙度值（如25），默认值为12.5（回车）
    2) 标注零件的序列号
    Command: bub（回车）（有两种方式）
    输入序列号的个数：根据零件的个数输入（回车）
    Firstpoint：用鼠标在零件上选取一点
    Secondpoint：用鼠标在零件外选取一点
    Text：输入数字序列号（回车）
    3）形位公差
    Command: gc（回车）
    请在实体上选一点：用鼠标在需要标注的实体表面上选择一点
    请确定引出线位置：用鼠标确定引线的位置
    请确定引出线终点：用鼠标确定引线的终点位置
    弹出形位公差标注的对话框，输入相应的值即可。