陈伟 发表于 2021-8-17 15:24:41

工具栏面板

本帖最后由 陈伟 于 2021-8-17 15:34 编辑

修改本论坛的工具面板   带记忆功能，原帖地址http://bbs.mjtd.com/thread-109086-1-1.html















zm880928 发表于 2021-8-21 09:23:36

ASDFASDFASDFASFD

sandyvs 发表于 2023-12-3 15:18:37

本帖最后由 sandyvs 于 2023-12-3 15:20 编辑

sandyvs 发表于 2022-7-29 13:08
求教，执行完，空格还是打开面板，怎么改成上一次命令，不打开面板
找到了
(cond
      ((boundp (read (strcat "c:" cmds)))
       (princ "\n")
      (eval (read (strcat "(c:" cmds ")"))))
      ((boundp (read cmds))
       (princ "\n")
      (eval (read (strcat "(" cmds ")"))))
      (t (princ "\n")(vl-load-com)(vl-cmdf cmds))
)

改为

(cond
        ((boundp (read (strcat "c:" cmds)))
        (Vlax-Invoke-Method *DOC* 'SendCommand (strcat cmds " ")))
        ((boundp (read cmds))
        (Vlax-Invoke-Method *DOC* 'SendCommand (strcat "(" cmds ")" " ")))
        (t
        (Vlax-Invoke-Method *DOC* 'SendCommand (strcat cmds " ")))
)

p-3-ianlcc 发表于 2022-7-12 11:54:54

楼主，您好
谢谢你分享这麽好的面板工具
有问题向您请教一下
把自己的lsp加入，我加入的方式是：
①修改面板工具里对应的名称和快捷键
②把面板.lsp和我的工具lsp合并成vlx
当我将合并完成之vlx加载autocad时，会发生：
①加载时出现面板画面，然后按我自己设置的工具按键後，显示“未知命令或命令或开发中”
②然后我再按一次面板的快捷键zlhc後，出现面板画面，这时候按我自己设置的工具按键後，就可以正常使用
请问我是不是哪里设置错误呢？

lxl217114 发表于 2021-8-17 16:07:58

点赞，小白也可以跟着学DIY了

longer1000 发表于 2021-8-18 09:04:39

点赞，

skyoo 发表于 2021-8-18 10:46:04

厉害

zhangkui9070 发表于 2021-8-19 19:34:57

非常好！厉害！

白色微風1991 发表于 2021-8-20 07:31:00

點贊，非常好！厲害！

xj6019 发表于 2021-8-20 08:24:13

确实厉害，给楼主赞一个

逍遥无声 发表于 2021-8-23 12:13:23

逍遥无声 发表于 2021-8-23 13:33:09

页: [1] 2 3 4 5 6
查看完整版本: 工具栏面板