文字查找指引程序，缺函数，求助！

fire9527

找到一个很实用的程序，非常可惜运行不了！CAD提示：  ; 错误: no function definition: XDRX_YESORNO
非常期待有高手能帮到我，这个程序实在是太需要了，在原帖位置回复没人搭理，只好移步到万能的明经社区了，叩谢！

---

;源程序来源：http://bbs.xdcad.net/thread-671991-1-1.html，作者：[size=13.333333969116211px]st788796
(defun c:XDTB_FindString (/ callback str ss txt key pts el s)
  (defun callback (dynpt /)
    (xdrx_entity_move txt (trans p 1 0) (trans dynpt 1 0))
    (if        el
      (mapcar '(lambda (x)
                 (xdrx_setpropertyvalue x "EndPoint" (trans dynpt 1 0))
               )
              el
      )
    )
    (setq p dynpt)
  )
  (princ "\n前后输入 * 以匹配更多字符....")
  (if
    (and (setq str (getstring "\n输入匹配字符: "))
         (setq ss (ssget (list '(0 . "*text") (cons 1 str))))
         (setq key (xdrx_yesorno "连线" "N"))
    )
     (progn
       (xd::begin)
       (xdrx_layer_make "XD_Line_Mark" 1)
       (setq txt (xdrx_text_make
                   (setq p (trans (cadr (grread t 15)) 1 0))
                   (strcat str "共 " (itoa (sslength ss)) " 个")
                   (getvar "textsize")
                   0.
                 )
       )
       (xdrx_entity_setlayer txt "XD_Line_Mark")
       (if (= key 1)
         (progn
           (setq pts
                  (mapcar '(lambda (x)
                             (xdrx_getpropertyvalue x "Position")
                           )
                          (xdrx_pickset->ents ss)
                  )
           )
           (xdrx_setmark)
           (mapcar '(lambda (x)
                      (xdrx_line_make x p)
                    )
                   pts
           )
           (setq s (xdrx_getss))
           (xdrx_entity_setlayer s "XD_Line_Mark")
           (setq el (xdrx_pickset->ents s))
         )
       )
       (xdrx_document_redraw)                ;ARX太快，要更新下数据库
       (xdrx_pointmonitor "Callback" txt)
       (getpoint (trans p 0 1))
       (xdrx_pointmonitor)
       (xd::end)
     )
  )
  (princ)
)

---

以下是那篇帖子的跟帖，在字符选取上更胜一筹，希望能加入到上面的程序中

---

• (defun c:tt (/ e p1 p2 str nstr)
•   (if (and (setq e (car (xdrx_entsel "\nPick text: " '((0 . "text")))))
•            (setq p1 (getpoint "\nFirst point: "))
•            (setq p2 (getcorner p1 "\nSecond Point: "))
•            (setq str (XD::Text:StringBetween e p1 p2))
•            (setq nstr (dos_getstring "匹配字符编辑" "选择的匹配字符" str))
•       )
•     (progn
•       (princ nstr)
•     )
•   )
•   (princ)
• )
  

danxingpen

改程序是最痛苦的,直接说明你的要求重新写估计响应的人还比较多

fire9527

danxingpen 发表于 2015-6-1 15:10
改程序是最痛苦的,直接说明你的要求重新写估计响应的人还比较多

就想要图片中演示的功能，发的源程序仅供参考吧

风流少年时

所有的子函数都没有吧

fl202

第一个，按照图片演示，重新编个不难，wcmatch或者ssget  和 grread 2个函数。
你这么多积分和明经币自己编写不了吗？

nishuihanjian

这个要下载晓东的编码工具才能用

快乐贝贝

学习一下