【函数分享】根据G版思路写的右键菜单函数。附实例代码。

wowan1314

根据G版思路写的“对话框”，或者叫“右键菜单函数”更准确些。
原帖地址：
这样的对话框用LISP能搞出不？
http://bbs.xdcad.net/thread-667749-1-1.html
(出处: 晓东CAD家园-论坛)
;;==========================右键菜单函数V1.0--先关闭捕捉===========BY WOWAN1314
;;                      思路来源----G版        程序制作：----WOWAN1314  
;;主要参考资料: CAOYIN刷子函数及"流浪水手"的拖拽实例。其他不一一点名了。基本是拼凑出来的。
;; 感谢G版，caoyin  流浪水手...一发程序发现大部分都是别人写的。有的都不记的作者了。哎。怪不得好多人都不敢发
;;免责声明：本着开源精神，本代码可随意复制。仅供参考、交流。实际工作不得使用，否则后果自负。
;;=========================================================================;;;;功能：在指定点产生类似右键菜单的表格框供选择。并返回选择值。
;;调用格式：(YY:YJCAIDAN PT LEN LEN1 WZLST TUXIAN)
;;参数：        PT表格产生点，len格子大小。tuxian为要作底的文字内容. WZLST为要写的文字表.LEN1横向长度,
;;                  共计5个参数TUXIAN可为NIL，其他必须有值.
;;附加说明：表格横向固定2格，竖向多少格由文字表决定. 竖向长度固定，横向长度自定. 文字样式随当前
;;返回值：   表(0 "DN15").表内第一项为数字：表示选择了WZLST的第几项（其中0表示第一个文字），   ;;                                         表内第二项为对应的文字内容.
;;=========================================================================;;

2. ;;;======================{  示例代码：修改替换管径文字 }====================;;
   
3. ;;;
   
4. (DEFUN C:T11 (/ EN WZTXT WZLST LEN OLDWZ LEN1 SNAP WZ *error* error_end)
   
5. ;;-------------------------------出错函数
   
6.    (defun *error* (x) (error_end)(command "_.undo" "1"))
   
7.    (defun error_end ()
   
8.       (AND snap (setvar "osmode" snap));打开捕捉
   
9.       (command "_.undo" "e");结束编组
   
10.       ;回到当初
    
11.       (REDRAW);刷新当前
    
12.    )
    
13. ;;主函数
    
14. (command "_.undo" "Be")
    
15.   (WHILE (SETQ EN (entsel "\n选择要修改管径的文字："))
    
16.     (IF  (AND (SETQ WZTXT (DXF_READ 1 (CAR EN)))
    
17.        (wcmatch WZTXT "*DN##*")
    
18.   )        ;管径
    
19.       (PROGN
    
20.   (SETQ WZLST (LIST "DN15"    "DN20"    "DN32"  "DN40"
    
21.         "DN50"    "DN65"    "DN75"  "DN80"
    
22.         "DN100"   "DN300"   "DN150"  "DN200"
    
23.         "你好"
    
24.        )
    
25.   )
    
26.   (SETQ len   (p2u222 88)
    
27.         OLDWZ WZTXT
    
28.         LEN1  (* 0.26 4 LEN)
    
29.         ;;计算横向长度
    
30.   )
    
31.   (setq snap (getvar "osmode"))
    
32.   (setvar "osmode" 0)    ;关闭
    
33.   (IF (SETQ WZ (CADR (YY:YJCAIDAN (CADR EN) LEN LEN1 WZLST OLDWZ)));;调用菜单函数
    
34.     (YY_SubUpd (CAR EN) 1 WZ) ;;此处放回调函数
    
35.   )        ; IF
    
36. 
    
37.       )
    
38.     )          ;END IF
    
39.   )
    
40. (error_end)
    
41.   (PRINC)
    
42. )          ;END DEFUN
    
43. 
    
44. ;;;===========================================得到当前屏幕的大小比例
    
45. (defun p2u222 (pix)
    
46.   (* pix (/ (getvar "viewsize") (cadr (getvar "screensize"))))
    
47. )

;;;======================{  示例代码：修改替换管径文字 }====================;; <br /> ;;;<br /> (DEFUN C:T11 (/ EN WZTXT WZLST LEN OLDWZ LEN1 SNAP WZ *error* error_end)<br /> ;;-------------------------------出错函数<br />    (defun *error* (x) (error_end)(command "_.undo" "1"))<br />    (defun error_end ()<br />       (AND snap (setvar "osmode" snap));打开捕捉<br />       (command "_.undo" "e");结束编组<br />       ;回到当初<br />       (REDRAW);刷新当前<br />    )<br /> ;;主函数<br /> (command "_.undo" "Be")<br />   (WHILE (SETQ EN (entsel "\n选择要修改管径的文字："))<br />     (IF  (AND (SETQ WZTXT (DXF_READ 1 (CAR EN)))<br />        (wcmatch WZTXT "*DN##*")<br />   )        ;管径<br />       (PROGN<br />   (SETQ WZLST (LIST "DN15"    "DN20"    "DN32"  "DN40"<br />         "DN50"    "DN65"    "DN75"  "DN80"<br />         "DN100"   "DN300"   "DN150"  "DN200"<br />         "你好"<br />        )<br />   )<br />   (SETQ len   (p2u222 88)<br />         OLDWZ WZTXT<br />         LEN1  (* 0.26 4 LEN)<br />         ;;计算横向长度<br />   )<br />   (setq snap (getvar "osmode"))<br />   (setvar "osmode" 0)    ;关闭<br />   (IF (SETQ WZ (CADR (YY:YJCAIDAN (CADR EN) LEN LEN1 WZLST OLDWZ)));;调用菜单函数<br />     (YY_SubUpd (CAR EN) 1 WZ) ;;此处放回调函数<br />   )        ; IF<br /> <br />       )<br />     )          ;END IF<br />   )<br /> (error_end)<br />   (PRINC)<br /> )          ;END DEFUN<br /> <br /> ;;;===========================================得到当前屏幕的大小比例<br /> (defun p2u222 (pix)<br />   (* pix (/ (getvar "viewsize") (cadr (getvar "screensize"))))<br /> )

ScmTools

支持！再接再励

13579

支持楼主。

Lispboy

楼主，看我第一个购买你附件的份上，你给讲讲这个程序呗，用的是画的临时的线和文字吗，用后删除？

Lispboy

我看了你的代码，里面好像没出错处理的函数，如果过程中按ESC什么了，那些临时的线或者字是不是要留在屏幕上？

wowan1314

Lispboy 发表于 2013-5-19 16:53
我看了你的代码，里面好像没出错处理的函数，如果过程中按ESC什么了，那些临时的线或者字是不是要留在屏幕 ...

主要是提供 这个函数。。:L

其他出错处理 各自主程序中写。。 示例代码仅演示如何调用这个函数。

示例代码也是随便写的。实际工作我也不用这个示例代码，所以没有完善。

Lispboy

wowan1314 发表于 2013-5-19 16:56
主要是提供 这个函数。。

其他出错处理 各自主程序中写。。 示例代码仅演示如何调用这个函数。

坐等，送茶。{:soso_e160:}

phoevana

这个可以有，支持

yx5277

这个不错，大力支持:)

GTJ116600

楼主，我用了，怎么一闪瞬间就没有了，什么也做不了，不知是怎么回事。

pengfei2010

举、四肢支持  太厉害了，再修炼一年后 估计能看懂了呵呵

A82613035

acwipeout.arx，2013裡頭沒有，要如處理

sachindkini

dear sir, wow nice

sicky111

兄弟的精帖也好多，学习一下思路。

q3_2006

CAD2013不能用呀！