[求助]如何创建自动加载工具条？

78529

请问各位大虾和斑竹，如何用lisp创建一个工具条，并且在CAD运行时自动加载？请高手指教！！谢谢！！！

NetBee

一般采用MNU菜单文件了。

78529

请问各位大虾和斑竹，如何用lisp创建一个工具条，并且在CAD运行时自动加载？请高手指教！！谢谢！！！

78529

没有回应

78529

没有人帮忙，太遗憾了！！！

wltools

前面不是有人回答了吗？

具体做法可以参考Express的菜单文件和对应的mnl文件。

如果需要的是按钮，在2000～2004版里自己加按钮，菜单文件就会被自动修改（更高版本我没用过，不代表一定不行）

添加按钮对应的图形文件的处理好像以前有人给过办法。

ygrzz

//
//      AutoCAD 菜单文件 - C:\Program Files\AutoCAD 2002\user\user.mns
//

***MENUGROUP=user

***POP12
**PULL_DOWN
               [@绘制]
               [选择最近的选择集]$M=$(if,$(getvar,cmdactive),,_select;)_p
               [--]
               [显示次序  置后]^C^C^P(ai_draworder "_b") ^P
               [--]
               [UCS_原点_ZV ]^C^C_UCS O
               [--]
               [水平构造线  ]^C^C_xline h
               [垂直构造线  ]^C^C_xline v
               [--]
***TOOLBARS
**绘制
ID______0      [_Toolbar("绘制", _Right, _Show, 0, 0, 1)]
ID_Regen_1     [_Button("重生成", "ICON8467.bmp", "ICON_16_BLANK")]^C^C_regen
ID_UserButton_38 [_Button("CEN层水平中心线", "ICON5436.bmp", "ICON_16_BLANK")]^C^C_xline h;
ID_UserButton_39 [_Button("CEN层垂直中心线", "ICON2391.bmp", "ICON_16_BLANK")]^C^C_xline v;
ID_UserButton_40 [_Button("过点偏移线", "ICON4604.bmp", "ICON_16_BLANK")]^C^C_OFFSET T
ID_Line        [_Button("直线", "ICON_16_LINE", "ICON_16_LINE")]^C^C_LINE
               [--]

***ACCELERATORS
[SHIFT+"Z"]^C^C


创建如上user.mns格式自定义彩单
再创建同名的.mnl格式--user.mnl
内容：
(menucmd "P10=+user.POP12")
(command "_.toolbar" "user.绘制" "_show")

menuload 局部加载user菜单

[SHIFT+"Z"]便可以中断命令，等同ESC

abshidai

各位师兄,小弟写了个小程序,想把"改层""移动"两个命令合并操作//

输入力命令ay,选择物体,就能改层,再能移动.

可小弟写在下面的,只能改层,不能把移动命令连接操作.

////////

////////

////////

(defun c:ay ()

(princ "change_p_la ")

(setq en (ssget))

(command "change" en "" "p" "la" "2" "")

)

嘿嘿//小弟只能写到这里,不知道那位师兄能帮小弟解决这个问题

本人邮箱: liming@hk-digitall.com

谢谢//////

ZZXXQQ

3. (defun c:ay ()
4. (princ "change_p_la ")
5. (setq en (ssget))
6. (command "change" en "" "p" "la" "2" "")
7. (command "_.move" en "" pause pause)
8. (princ)
9. )

(defun c:ay () (princ "change_p_la ") (setq en (ssget)) (command "change" en "" "p" "la" "2" "") (command "_.move" en "" pause pause) (princ) )

78529

谢谢大虾，我会努力研究、学习！