[求助]：权属人姓名程序，出点问题，请高手帮忙

温柔女神

您好~
我在晓东cad论坛上看到您发的一个帖子，就是关于权属人姓名的lisp程序，觉得非常好用~不过对于mtext打出来的字符却搜索不出来，请问能够如何解决呢？
我在晓东上注册不了，所以只好跑来这里留言了……
可以加我qq指教一下么？81377084
真的急需您的帮助！

这是一个朋友的求助，请大家帮忙，谢谢

(defun c:chazhao() ;根据权属人姓名查找地块位置且居中显示
(setq syscmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq qsr (getstring "\n请输入权属人姓名："))
(setq ssp nil cord nil)
(setq ssp (ssget "x" (list (cons 0 "text") (cons 1 qsr))))
(if (/= ssp nil)
(progn
(setq i 0)
(while (< i (sslength ssp))
(setq cord (cdr (assoc 10 (entget (ssname ssp i) ))))
(command "zoom" "c" cord 20)
;(redraw (ssname ssp i) 3)
(if (> (sslength ssp) 1)
(setq aia (getstring "\n 继续...请按ENTER：")))
(setq i (+ i 1))
);while

))
(if (= ssp nil)
(progn
(princ "\n 权属人: ")
(princ qsr)
(princ " 没有找到!请确认后重新输入...")
))
(setvar "cmdecho" syscmd)
(princ)
)

animal212

(setq ssp (ssget "x" (list (cons 0 "text") (cons 1 qsr))))
改成
(setq ssp (ssget "x" (list (cons 0 "*text") (cons 1 qsr))))试试

黄河之水

我试了，二楼的方法不行

zooloo

(setq ssp (ssget "X" (list (cons 0 "*TEXT") (cons 1 qsr))))试一试
注意大写.

carrot1983

"黄河之水"是厦门人啊
我也在厦门.,..
楼主要的是完全匹配,还是部份匹配啊???
一楼的程序真的不行..

[PHP]
;;;carrot1983
;;tt根据权属人姓名查找地块位置且居中显示
(defun c:tt (/ DATA E I PAUSE SS STR V1 V10)
  (if (and (setq str (getstring "\n>>>请输入权属人姓名:"))
           (if (/= str "")
             T
           )
           (setq ss (ssget "x" '((0 . "*text"))))
           (setq i 0)
      )
    (repeat (sslength ss)
      (setq e         (ssname ss i)
            i         (1+ i)
            data (entget e)
            v1         (cdr (assoc 1 data))
            v10         (cdr (assoc 10 data))
      )
      (if (= (strcase str) v1)
        (progn
          (command "zoom" "c" v10 20)
          (redraw e 3)
          (princ
            (strcat "\n>>>权属人: {" str "} 按<Enter>继续显示...")
          )
          (command PAUSE)
        )
      )
    )
    (princ "\n>>>没有找到!请确认后重新输入...")
  )
  (princ)
)
[/PHP]

为什么,我实现不了暂停的效果????
          (princ
            (strcat "\n>>>权属人: {" str "} 按<Enter>继续显示...")
          )
          (command PAUSE)

aeo

find

carrot1983

斑竹 ,好懒啊...呵呵
find确实可以实现...
那就不用来lisp版块提问了....

zml84

一个问题，到处发，不大好。
http://zml84.blog.sohu.com/64529687.html