组码信息动态查看

yangyangyixia

煮茗 发表于 2025-7-29 19:35
很棒！感谢分享。对比之前的弹窗显示，这个查询会更快一些。

嗯，我也不需要怎么多功能，这个简单点

指尖

厉害啊 赞赞赞666

zhangcan0515

谢谢，分享，不错！

jkop

很给力的动态资讯，可以编码核对。

960322

非常方便，感谢！

qazxswk

我去，这个很牛逼呀。

Sunderzhao

很棒，感谢大佬的分享。

sachindkini

Dear Sir,

Thanks for Sharing .....

magicheno

大佬优秀哈

edata

1. (defun c:dxf (/ en p olderr e1e2 strs )
   
2.   (princ "\n动态组码查看器 - 左键放置，右键退出。")
   
3.   (while (not (or (= (car p) 25) ; 右键退出 SHORTCUTMENU =1
   
4.                   (equal p '(2 13)) ; 回车退出
   
5.                   (equal p '(2 32)) ; 空格
   
6.                   (equal p '(11 0)) ; 右键 SHORTCUTMENU =0
   
7.                   (and (= (car p) 3) ; 左键放置

(defun c:dxf (/ en p olderr e1e2 strs )<br />   (princ "\n动态组码查看器 - 左键放置，右键退出。")<br />   (while (not (or (= (car p) 25) ; 右键退出 SHORTCUTMENU =1<br />                   (equal p '(2 13)) ; 回车退出<br />                   (equal p '(2 32)) ; 空格<br />                   (equal p '(11 0)) ; 右键 SHORTCUTMENU =0<br />                   (and (= (car p) 3) ; 左键放置