[讨论]：如何做带提示和过滤表的entsel ?

aeo · 发表于 2003-12-22 01:06:14

最初由陌生人发布
[B]什么时候用关键字,举个例子?
[CODE]
;v1.1 2003.12.20.改写:加入带亮显提示功能;
;实例:(xentsel "\n选择直线或圆..." '((0 . "*LINE,CIRCLE")))
;:使用(grread T 4 2),放弃使用entsel;
(defun xentsel (msg fi... [/B]

早就讨论过了,ea的好,grread,要zoom怎么办?

陌生人 · 发表于 2003-12-22 01:39:34

可以支持多个关键字的."o"只是例子,可以如: "O K B C "
entsel之后加亮显没有什么意义,因为选已经选了,在亮不亮已经没什么用.而且要在程序外面加一个恢复的语句,如果是马上加,那亮就是一瞬间的事情,根本看不出来.grread的好处就是可以在选之前预览(亮显),直观一些.
不过grread不能zoom却是个大问题,权衡之后,觉得还是entsel更有优势,但是如何让entsel在选择之前亮显呢?有谁解决了么?

这么久没人回答啊?
自己搞定了.虽然不是很完善,先到这里吧
谁说没有枪头就刺不死人?-------------------<<唐伯虎点秋香>>
谁说用了 grread 就不能zoom了?-------------- ....?

陌生人 · 发表于 2003-12-22 20:58:50

老是没人跟贴,胡乱发个东西,自己顶一下

LUCAS · 发表于 2003-12-25 10:35:36

;;By LUCAS(龙龙仔)
;;可设定3个图标按键 & 带亮显提示功能 & 过滤表 & 关键词
;;Usage:(Entsel_lai A B C "\n选择直线或圆" '((0 . "*LINE,CIRCLE,INSERT")) "Two One")
;;Usage:(Entsel_lai 3297 2791 2704 "\n选择直线或圆" '((0 . "*LINE,CIRCLE,INSERT")) "Two One")
;;A='ZOOM参数 B='PAN参数 C='ZOOM;P;参数
;;利用下列程序找出图标按键参数
;;(while t
;; (setq MODE (grread t 4 2))
;; (print MODE)
;;)
;;MODE=(2 3297)
;;参数=(CADR MODE)
;;亦可直接输入'ZOOM 或 'PAN 或其它能用的透明指令
;;SORRY!目前"关键词"功能只能以第一个字母为准

;;陌生人:你每次都只有展示,我只好也放(ENTSEL_LAI.FAS简体测试版)

陌生人 · 发表于 2003-12-25 13:49:26

ABC选项测试没有成功,也许是以下原因:
A (2 97)
B(2 98)
C(2 99)
a(2 65)
b(2 66)
c(2 67)
我这里字符对应如上,和你的好像不同.你修改下

LUCAS · 发表于 2003-12-25 14:07:16

图标按键指的是這個

陌生人 · 发表于 2003-12-25 21:39:44

抱歉,试的时候,直接按A,或者点图标都没反映,输入'zoom,倒是可以,不过好像只能一次,就回到提示
建议在程序中加如何操作的提示信息

陌生人 · 发表于 2003-12-25 23:45:28

试试我的:)

;| 带提示和过滤表的xentsel v2.1------------------------------陌生人 2003.12
vA1.0 2003.12完成.
函数: (xentsel 提示信息过滤表关键字串)
返回值: nil 或者 (实体名 . 点位)点对表.
功能: 1.带亮显提示和过滤表的entsel;
2.循环直到选中有效实体或选择退出为止;
3.返回的点对表中的点位为实体上的点;
4.缺省 key 有:a(zoom a),w (zoom pt1 pt2) P(zoom p) ,均为一次命令.关键字不得与之冲突.
5.分隔符推荐用空格 ,也可以是 , ; . - /等.
6.空格进入透明命令(zoom,pan图标或输入'z 'p 等,可多次), 回车/鼠标右键=退出.
实例: (xentsel "\n选择直线或圆/O-调整参数/D-xxx/U-xxx:" '((0 . "*LINE,CIRCLE")) "O,P;D.U")
|;

复制代码

LUCAS · 发表于 2003-12-29 10:10:28

;;空格進入透明命令(可輸入'ZOOM或'PAN圖標或輸入'Z 'P等透明命令,可多次)
;;在"透明狀態"也可輸入"關鍵字"(但只在剛進入"透明狀態"時有效)
;;回車/鼠標右鍵=退出.
((= (cadr MODE) 32)
(initget STR)
(setq KEY (entsel "\n<退出透明狀態>:"))
)

;;好了破解已出來沒甚麼好再寫了

陌生人 · 发表于 2003-12-29 13:36:36

厉害！佩服佩服，你怎么做到的？
平生第一次有人拿我的程序去破解，不胜荣幸之至，更何况又是论坛响当当的人物，欣慰中有一丝惭愧，因为vlsp 学艺不精，难免贻笑大方了，不好意思得很。
惭愧，惭愧。。。

ll_j · 发表于 2003-12-29 17:51:02

我也来一段，可以使用关键字，使用过滤表，空选循环，回车退出，与透明命令无冲突。返回：entsel类型表或关键字或nil（回车退出）。

((defun xentsel(msg keyword filter_list / $s0)
;keyword是一个关键字串，无关键字，输入“""”。如果回车表示退出，可以将字串以两个半角空格结束。
;filter_list是特征关联表，目前只支持并联关系，无特征关联表输入“nil”。
(initget keyword)
(setq $s0 (entsel msg))
(cond
((= $s0 "") nil) ;回车结束，返回nil
((= $s0 nil) (xentsel msg keyword filter_list)) ;空选重复
((and (= (type $s0) 'STR) ;返回关键字
(member (read $s0) (read (strcat "(" keyword ")")))
)
$s0
)
((= (type $s0) 'LIST) ;返回实体与点表，与entsel相同
(if filter_list ;存在特征关联表
(if (not
(member ;判断特征关联表全为“真”
'nil
(mapcar
'(lambda ($x)
(if (= (type (cdr $x)) 'STR)
(wcmatch (cdr (assoc (car $x) (entget (car $s0)))) (cdr $x)) ;字串关联表项
(equal (cdr (assoc (car $x) (entget (car $s0)))) (cdr $x)) ;其它关联表项
)
)
filter_list
)
)
)
$s0 ;真，返回实体与点表
(xentsel msg keyword filter_list) ;假，循环拾取
)
$s0
)
)
(t (xentsel msg keyword filter_list)) ;其它拾取及输入情况，循环拾取
)
)

((defun xentsel(msg keyword filter_list / $s0) 
       ;keyword是一个关键字串，无关键字，输入“""”。如果回车表示退出，可以将字串以两个半角空格结束。 
       ;filter_list是特征关联表，目前只支持并联关系，无特征关联表输入“nil”。 
  (initget keyword) 
  (setq $s0 (entsel msg)) 
  (cond 
    ((= $s0 "") nil)                            ;回车结束，返回nil 
    ((= $s0 nil) (xentsel msg keyword filter_list))    ;空选重复 
    ((and (= (type $s0) 'STR)                   ;返回关键字 
          (member (read $s0) (read (strcat "(" keyword ")"))) 
     ) 
      $s0 
    ) 
    ((= (type $s0) 'LIST)                       ;返回实体与点表，与entsel相同 
     (if filter_list                                                 ;存在特征关联表 
       (if (not 
             (member                                                 ;判断特征关联表全为“真” 
               'nil 
               (mapcar 
                 '(lambda ($x) 
                    (if        (= (type (cdr $x)) 'STR) 
                      (wcmatch (cdr (assoc (car $x) (entget (car $s0)))) (cdr $x))  ;字串关联表项 
                      (equal (cdr (assoc (car $x) (entget (car $s0)))) (cdr $x))    ;其它关联表项 
                    ) 
                  ) 
                 filter_list 
               ) 
             ) 
           ) 
         $s0                                    ;真，返回实体与点表 
         (xentsel msg keyword filter_list)      ;假，循环拾取 
       ) 
       $s0 
     ) 
    ) 
    (t (xentsel msg keyword filter_list))       ;其它拾取及输入情况，循环拾取 
  ) 
)

目前的程序段不支持复杂过滤表，感觉不如直接在程序中直接使用判别。
附件是我使用的一个实例。

陌生人 · 发表于 2003-12-29 20:48:54

强！兄弟的逻辑思维一定很好，用这么多的嵌套

LUCAS · 发表于 2003-12-30 17:00:23

最初由 ll_j 发布
[B]我也来一段，可以使用关键字，使用过滤表，空选循环，回车退出，与透明命令无冲突。返回：entsel类型表或关键字或nil（回车退出）。
[code]
((defun xentsel(msg keyword filter_list / $s0)
;keyword是一... [/B]

ll_j兄:
你這程序未免太煩瑣,應可再簡化!

aeo · 发表于 2003-12-30 23:33:44

本人也一直是eachy 的方法.

grread,当然也行，各人喜欢:)，能达到目的就行.

至于关键字，要把关键字的功能写进去，不可能每次都重写吧

(defun entself (Msg Filter '(("An" ...)( "Bn" ...) ...) )
...
这样如何?

陌生人 · 发表于 2003-12-31 00:13:05

对于关键字我觉得能用get***函数当然用get***函数，毕竟方便。
grread是个特例，因为只能返回一个键值，要写出模仿get***的关键字也不是不可以，（如“eXit”）只是要加一段字符判定语句。不过一个关键字已经够用了。
我用grread不因为什么，就因为可以选取前亮显，而在grread之后再用（entsel）－－这个在明经的主题帖子里面都还没人想出来：）。就是为了在entsel的时候可以用他的“透明”功能。
而只是用entsel或者先用entsel后用grread（好像没这个必要），就无法选取前亮显，但是在回应关键字和直接使用透明命令的时候方便一些。

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