找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1047|回复: 4

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

[复制链接]
发表于 2007-9-4 18:06:28 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
这样的,我有一副宗地图,一般的大,里面有很多人的名字.
请问用LISP程序能实现搜索人名功能吗?
比如,输入命令后,输入要查询的人名,查到了就用PL线连起,最后一个名字时线不要断,我顺着线就可以看到名字了.
比如,刘德华有两个,用线把第一和第二个连起,线在第二个时,不要断.
比如,张学友,只有一个,那就没有连线,相当于画一根PL线,只画起点,还没有第二点
或者你有什么好方式,请赐教,功能就是搜索名字,并能找到名字所在的位置.谢谢大哥大姐
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 2个

财富等级: 恭喜发财

发表于 2007-9-4 18:53:07 | 显示全部楼层
[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]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-9-4 18:57:02 | 显示全部楼层
我看你也注册很久了吧,都中级会员了。
你想要的功能比较具体,没有现成的。只能加工别人的程序了。
(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))
)
)
给你提拱点材料,可能对你有点启发。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-9-4 23:34:17 | 显示全部楼层
2楼的程序完全符合楼主的要求!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-9-5 10:27:03 | 显示全部楼层
又是宗地?测绘所还是发展商?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-6-20 22:02 , Processed in 0.359616 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表