白色微風1991 发表于 2022-9-30 07:44:55

感謝樓主,無私奉獻

tdl555 发表于 2022-10-17 08:00:34

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

菜鸟初来乍到 发表于 2023-4-12 07:22:26

感谢楼主分享

白色微風1991 发表于 2023-6-14 07:35:21

點贊。學習了

潘成祥2015 发表于 2023-9-6 22:25:55

侧边栏工具怎么做？

潘成祥2015 发表于 2023-9-6 23:18:11

那应该用哪种

gwar 发表于 2023-10-25 08:34:16

确实厉害，给楼主赞一个

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 " ")))
)

muai2010 发表于 2023-12-3 21:28:24

sandyvs 发表于 2023-12-3 15:18
找到了
(cond
      ((boundp (read (strcat "c:" cmds)))


测试了下发现不能用啊，有原地址么

sandyvs 发表于 2023-12-3 21:52:52

muai2010 发表于 2023-12-3 21:28
测试了下发现不能用啊，有原地址么

http://bbs.mjtd.com/thread-112326-1-1.html?_dsign=c5eeba90
页: 1 2 3 [4] 5 6
查看完整版本: 工具栏面板