vlax-add-cmd

wjm3 · 发表于 2004-4-19 00:24:00

您好!

请问:    (defun ze() (command "._zoom" "e"))

(vlax-add-cmd "ze" 'ze "ze" 1)

   为什么在使用其它命令的过程中使用'ze会出错,

   而(defun ok() (prompt "\nOK!"))

   (vlax-add-cmd "ok" 'ok "ok" 1)

   在使用其它命令的过程中使用'ok不会出错?

我该用什么方法才能达到在使用其它命令的过程中使用'ze不会出错?

alin · 发表于 2004-4-19 07:09:00

In help file:

Adds commands to the AutoCAD built-in command set

(vlax-add-cmd global-name func-sym [local-name cmd-flags])

With vlax-add-cmd you can define a function as an AutoCAD command, without using the c: prefix in the function name. You can also define a transparent AutoLISP command, which is not possible with a c: function.

Warning! You cannot use the c ommand function call in a transparently defined vlax-add-cmd function. Doing so can cause AutoCAD to close unexpectedly.

You can define ZE in this way:

(defun ze() (vla-ZoomExtents (vlax-get-acad-object)))

wjm3 · 发表于 2004-4-20 01:33:00

谢谢!

请问怎样才能将'ms设为类似'ze的功能?

(defun ms() (command "._pan" (cadr (grread 1 1 3)) (getvar "viewctr")))

急需!

alin · 发表于 2004-4-20 07:01:00

(defun ms() (vla-ZoomCenter (vlax-get-acad-object)
(vlax-3d-point (cadr (grread 1 1 3))) (getvar "VIEWSIZE")))

wjm3 · 发表于 2004-4-20 20:37:00

谢谢alin,您真的很厉害!

我编了一个在删pline线上节点的程序,接下来想编一个在pline线上加节点的程序,但一直不知该如何下手,您能否帮帮忙或指点一下思路?

再次谢谢!

alin · 发表于 2004-4-22 06:15:00

Pedit --> Edit Vertex --> Insert --> (pick point)

wjm3 · 发表于 2004-4-22 19:50:00

谢谢!

我先试试.

wjm3 · 发表于 2004-4-22 21:26:00

alin,您好!

我把4楼所说的ms功能加入命令集后(允许透明调用),想设定"F12"为快捷键,在运行其它CAD命令的过程中按"F12"也有效,该怎么做?

wjm3 · 发表于 2004-4-23 01:38:00

alin:8楼的问题我已解决.请问按您6楼的提示,我怎样才能得到需加点处的最近节点序号?

或是有其它方法?若用vla-addvertex该怎么编?

龙龙仔 · 发表于 2004-4-23 07:50:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=17654&replyID=6397&skin=1

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