两个VLX插件命令冲突,如何解决?

ifeelhard

求助:两个VLX插件命令冲突,如何解决?

819534890

需要时再加载，后加载的会覆盖前面加载的。
例如：第一个vlx叫a1.vlx,命令为c1
第一个vl叫a2.vlx,命令为c1.
那么你可以这样用：
(defun c:d1()
(load "a1.vlx")
(c:c1))
(defun c:d2()
(load "a2.vlx")
(c:c1))
那么d1命令就是a1文件，d2命令就是a2文件。

琴剑江山_10184

找作者解决

mj0000

(defun C:T1 ()
  (if (null C:TT)
    (progn (load "a1.vlx")
           (setq TT C:CSS)
           (defun C:TT () (TT))
           (vl-acad-undefun 'C:C1) ;取消对LISP函数符号的定义
    )
  )
  (C:TT)
  (princ)
)

ifeelhard

mj0000 发表于 2014-9-16 13:55
(defun C:T1 ()
  (if (null C:TT)
    (progn (load "a1.vlx")

能具体说明下TT CSS C1的意义么,十分感谢

mj0000

TT 做为变量使用
C:CSS 是写错了，应该为vlx文件的命令名C:C1
(defun C:TT () (TT))是对C:C1进行重命名

ifeelhard

mj0000 发表于 2014-9-21 12:36
TT 做为变量使用
C:CSS 是写错了，应该为vlx文件的命令名C:C1
(defun C:TT () (TT))是对C:C1进行重命名

已经解决,十分感谢