本帖最后由 yangyangyixia 于 2025-7-29 17:24 编辑
参考资料：
http://bbs.mjtd.com/forum.php?mo ... F%CC%AC%CF%D4%CA%BE
http://bbs.mjtd.com/forum.php?mo ... 9%C2%EB%B2%E9%BF%B4
好像还有猫老师的代码，忘记在哪儿看的了。
启动命令：DXF
左键将组码信息放在cad图中，右键退出
功能：动态显示鼠标位置的图元组码信息
多行文字组码1、3的内容不再显示文字内容，很乱，只显示了“……”。
欢迎反馈并提出宝贵意见！
网友答:
网友答:
如果能有一个可以显示VAI对象的就好了，组码的太多了。网友答: pl线会不显示的。网友答:
我测试的显示
网友答: 大佬优秀，感谢您的分享网友答:
试了一下 pl 多段线可以显示 CAD2022网友答: 感谢大佬分享。网友答: 谢谢分享 好用的很啊网友答: 真棒，回贴点赞。网友答: 很棒！感谢分享。对比之前的弹窗显示，这个查询会更快一些。
参考资料：
http://bbs.mjtd.com/forum.php?mo ... F%CC%AC%CF%D4%CA%BE
http://bbs.mjtd.com/forum.php?mo ... 9%C2%EB%B2%E9%BF%B4
好像还有猫老师的代码，忘记在哪儿看的了。
启动命令：DXF
左键将组码信息放在cad图中，右键退出
功能：动态显示鼠标位置的图元组码信息
多行文字组码1、3的内容不再显示文字内容，很乱，只显示了“……”。
欢迎反馈并提出宝贵意见！
网友答:
- (defun c:dxf (/ en p olderr e1e2 strs )
- (princ "\n动态组码查看器 - 左键放置，右键退出。")
- (while (not (or (= (car p) 25) ; 右键退出 SHORTCUTMENU =1
- (equal p '(2 13)) ; 回车退出
- (equal p '(2 32)) ; 空格
- (equal p '(11 0)) ; 右键 SHORTCUTMENU =0
- (and (= (car p) 3) ; 左键放置
edata 发表于 2025-7-30 14:46
另外显示文本给个建议就是不要一直entmake,构建一个, 更新修改文本内容, 空内容就写个提示文字替代.
如果能有一个可以显示VAI对象的就好了，组码的太多了。网友答: pl线会不显示的。网友答:
flowerson 发表于 2025-7-29 16:43
pl线会不显示的。
我测试的显示
网友答: 大佬优秀，感谢您的分享网友答:
flowerson 发表于 2025-7-29 16:43
pl线会不显示的。
试了一下 pl 多段线可以显示 CAD2022网友答: 感谢大佬分享。网友答: 谢谢分享 好用的很啊网友答: 真棒，回贴点赞。网友答: 很棒！感谢分享。对比之前的弹窗显示，这个查询会更快一些。