工具栏面板

白色微風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

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

工具栏面板

点评

点评

点评

点评