[求助]：我刚毕业在实习,大哥大姐来帮忙找汉字的,LISP程序?

温柔女神

这样的,我有一副宗地图,一般的大,里面有很多人的名字.
请问用LISP程序能实现搜索人名功能吗?
比如,输入命令后,输入要查询的人名,查到了就用PL线连起,最后一个名字时线不要断,我顺着线就可以看到名字了.
比如,刘德华有两个,用线把第一和第二个连起,线在第二个时,不要断.
比如,张学友,只有一个,那就没有连线,相当于画一根PL线,只画起点,还没有第二点
或者你有什么好方式,请赐教,功能就是搜索名字,并能找到名字所在的位置.谢谢大哥大姐

zml84

[php]
(defun C:TT (/ I N PT SS STR)
    (if        (= (setq STR (getstring "\n请输入要查找的东东: ")) "")
        ()
        (if (setq SS (ssget "x"
                            (list (cons 0 "*TEXT")
                                  (cons 1 (strcat "*" STR "*"))
                            )
                     )
            )
            (progn
                (setq N (sslength SS))
                (princ (strcat "\n找到 " (itoa N) " 个。"))
                (command "_.pline")
                (setq I 0)
                (repeat        N
                    (setq PT (cdr (assoc 10 (entget (ssname SS I)))))
                    (command "non" PT)
                    (setq I (1+ I))
                )
            )
            (princ "\n没有找到。")
        )
    )
    (princ)
)
[/php]

animal212

我看你也注册很久了吧，都中级会员了。
你想要的功能比较具体，没有现成的。只能加工别人的程序了。
(defun C:ani()
(setq a (getvar "expert") %ID 0)
(setvar "expert" 1)
(SETQ ss1 (SSGET '((0 . "*TEXT"))))
(SETQ %REP (SSLENGTH SS1))
(REPEAT %REP
(SETQ E-NAME1 (SSNAME SS1 %ID)
      ENTI (entget E-NAME1))

(SETQ !LEN (assoc 10 ENTI))
(SETQ !LEN (cdr !LEN))
(command "'_.zoom" "c" !LEN "" "")
(setvar "expert" a)
(setq %ID (+ %ID 1))
)
)
给你提拱点材料，可能对你有点启发。

黄河之水

2楼的程序完全符合楼主的要求！！

enixing

又是宗地？测绘所还是发展商？