AutoCAD的定制与开发（２）教程

【 tulaoshi.com - autocad教程 】

    （1）定义下拉菜单（插入在原有的下拉菜单之后）    
    ***POPx
    (www.tulaoshi.com) [自制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)
    )