尘缘一生 发表于 2020-12-6 22:10:09

右键菜单，不能绕开的技术

本帖最后由 尘缘一生 于 2020-12-10 13:18 编辑

原著
http://bbs.mjtd.com/forum.php?mo ... hlight=%D3%D2%BC%FC
请大家记得原作者，不能忘记大侠.

鉴于右键菜单的重要性，长期测试，慢慢修改
发下我用的源码吧
没有明经币了，我想要个，你愿意给吗？没币的话，我就没法下载东西，可不是这个我值得收，我没资格收。
给了别后悔奥？



e2002 发表于 2020-12-7 22:33:52

你应该不会缺币的吧？支持一下{:1_1:}

尘缘一生 发表于 2020-12-10 13:19:14

e2002 发表于 2020-12-7 22:33
你应该不会缺币的吧？支持一下

谢谢，把币去掉。不合适。

海盗曹 发表于 2020-12-11 08:39:45

感谢分享，学习一下

倫到不行 发表于 2020-12-11 12:41:54

感謝 無私要來好好學習

love_cq 发表于 2020-12-12 22:21:32

超级好的资料，多谢楼主分享。

baitang36 发表于 2020-12-13 10:18:31

多谢楼主分享

hf423 发表于 2020-12-13 10:36:03

无函数定义: EN2OBJ

尘缘一生 发表于 2020-12-13 14:17:08

hf423 发表于 2020-12-13 10:36
无函数定义: EN2OBJ


[*];;返回 obj的 vla对象名-------(一级)-----------------------------------
[*](defun en2obj (object)
[*](cond
[*]    ((= (type object) 'vla-object)
[*]      object
[*]    )
[*]    ((= (type object) 'ename)
[*]      (vl-catch-all-apply '(lambda () (setq object (vlax-ename->vla-object object))));;避免天正实体出错退出
[*]    )
[*])
[*]object
[*])

00放飞梦想00 发表于 2022-2-15 20:27:44

如何启动的
页: [1]
查看完整版本: 右键菜单，不能绕开的技术