如何将自己定义的命令放到菜单中

johnwang · 发表于 2006-11-17 11:07

最近我用LISP写了一个程序,在其中定义了两个命令.但每次都要通过在命令行输入这两个命令来运行该程序. 能不能把这两个命令放到CAD菜单中直接点击运行? 就像画一条直线,直接点击工具栏中的按钮,而无需在命令行输入line. 请版主及各位朋友帮帮我,谢谢.

Andyhon · 发表于 2006-11-17 11:18

Visit Site : http://www.afralisp.net/

search Menu

johnwang · 发表于 2006-11-17 13:41

Thank you very much, but would you like to give me more instructions? because that Web site includes lot of issues, and I can't find a good solution.

Andyhon · 发表于 2006-11-17 14:09

您使用的版次?

johnwang · 发表于 2006-11-17 14:55

我用的是autocad2005中文版. 谢谢!

Andyhon · 发表于 2006-11-17 17:03

本帖最后由作者于 2006-11-18 17:49:59 编辑

Something like this

//
// AutoCAD 2005 Menu
//
//

.
.
.

//
// Begin AutoCAD ToolBars
//

***TOOLBARS

// User Utils
**TB_MyUtils
ID_MyUtils     [_Toolbar("MyUtils", _Floating, _Hide, 1, 1, 1)]
ID_Ccrad       [_Button("改变圆径", "chgrad.bmp", "ICON_24_CIRRAD")]^C^C^P(if ccrad nil (load "ccrad")) (princ);Ccrad;^P
ID_MyCal       [_Button("线上计算机", "ICON_16_CAL", "ICON_24_CAL")]^C^C^P(if c:calc nil (load "calc")) (princ);calc;^P
ID_Dist_00     [_Button("Dist_00", "Dist_00.bmp", "dist_00")]^C^C^P(if c:dist00 nil (load "dist00")) (princ);dist00;^P
// User Utils

**TB_DIMENSION
ID_TbDimensi [_Toolbar("Dimension", _Floating, _Hide, 100, 130, 1)]
ID_Dimlinear [_Button("Linear Dimension", RCDATA_16_DIMLIN, RCDATA_16_DIMLIN)]^C^C_dimlinear
ID_Dimaligne [_Button("Aligned Dimension", RCDATA_16_DIMALI, RCDATA_16_DIMALI)]^C^C_dimaligned

.
.
.
.

johnwang · 发表于 2006-11-18 09:51

Andyhon,

To be frankly, I really dont understand above. could you give me more details? thanks you very much.

John

Andyhon · 发表于 2006-11-18 11:14

您说定义了两个命令

(defun ???? () ...)

I would like to know ????
as well as the filename

and upload your menu file in use

或可帮您植入

johnwang · 发表于 2006-11-18 11:44

Andyhon,

The filename is "finalnov.lsp"; and in the file, I've defined two commands: one is "jc" , the other one is "pb". could you help me again? thank you very much.

John

Andyhon · 发表于 2006-11-18 13:01

(defun jc () ....)
(defun jb () ....)

or

(defun c:jc () ....)
(defun c:jb () ....)

only defined with c:??? can be launch as command (Line arc ...)

check here:
http://groups.google.com.tw/groups?as_q=autocad&num=10&scoring=r&hl=en&as_epq=customize+toolbars&as_oq=&as_eq=&as_ugroup=&as_usubject=&as_uauthors=&lr=lang_en&as_qdr=m3&as_drrb=b&as_mind=1&as_minm=1&as_miny=2003&as_maxd=18&as_maxm=11&as_maxy=2006&safe=off

账号		自动登录	找回密码
密码			注册

如何将自己定义的命令放到菜单中

回复：（Andyhon）Visit Site :

回复：（Andyhon）您使用的版次?