社区 › AutoLISP/Visual LISP 编程技术 › 改VLX插件命令

l18c19 发表于 2013-6-11 07:13:44

很给力，值得一试。

清风明月名字 发表于 2013-6-11 10:53:51

谢谢楼主分享，很实用啊！

xiaomm250 发表于 2013-8-8 11:07:12

好强大!!!!!!!!!!!!!!!

陌然-回首 发表于 2014-5-26 18:43:41

楼主你好 ， 我想请问下。你发的这些类似代码的东西要怎么样处理才能变成可用。对于这些编程我是小白。

鱼与熊掌 发表于 2014-5-26 23:03:54

不错 不错收藏了

nadaloveluna 发表于 2014-7-30 15:33:43

嗯，学习到了一个技巧。可以定义左手键了、

太阳的艺术 发表于 2014-8-8 13:15:15

自贡黄明儒 发表于 2012-4-6 09:28 static/image/common/back.gif
这个实用！

不知道能不能用 看看

自贡黄明儒 发表于 2014-9-17 14:09:26

太阳的艺术 发表于 2014-8-8 13:15 static/image/common/back.gif
不知道能不能用 看看

;;假如a.vlxb.vlx两个文件都定义了函数zbbz
;;现在分别定义一个命令
(defun C:z1 (/ FILE)
(cond
    ((and C:zbbz
          (VL-ACAD-UNDEFUN 'C:zbbz)
          (setq file (findfile "a.vlx"))
   )
   ;;(VL-ACAD-DEFUN 'C:zbbz)
   (load file)
   (C:zbbz)
    )
)
)
(defun C:z2 (/ FILE)
(cond
    ((and C:zbbz
          (VL-ACAD-UNDEFUN 'C:zbbz)
          (setq file (findfile "b.vlx"))
   )
   ;;(VL-ACAD-DEFUN 'C:zbbz)
   (load file)
   (C:zbbz)
    )
)
)

nedy001 发表于 2015-5-5 17:12:24

这个问题我也终于解决了，大家一起分享！
(vl-acad-undefun 'C:原文件命令);;取消定义原文件命令
(defun c:新命令 () (if (not c:原文件命令)(load "原文件名称.VLX")) (c:原文件命令))

血司 发表于 2015-6-3 09:08:30

学习了，大神

查看完整版本: 改VLX插件命令