求高手帮忙，判断文字在段范围内

吴琦

Gu_xl 发表于 2013-1-3 09:38
用 (ssget "_CP" pt_list '((0 . “*text") )) 即可！

pt_list 根据直线的两个端点和文字大小与直线距 ...

多谢gu版，圈交真是个好方法。

吴琦

Gu_xl 发表于 2013-1-3 09:38
用 (ssget "_CP" pt_list '((0 . “*text") )) 即可！

pt_list 根据直线的两个端点和文字大小与直线距 ...

不过我有了新的疑问，我怎么把这些文字分配到这些直线呢
因为lisp的变量好像不能带自变量的，比如L(i)这种表示方法行不通，
怎么把这线直线进行编号，然后把文字列出来，像下面这样
Line1-----text1.....text3
Line2-----text4  text5 text6 text6 text7
Line3-----text8
...........
Linen----..........-textm

吴琦

USER2128 发表于 2013-1-3 16:37

太感谢USER2128了，太给力了。基本是我要的东西了
能把各段文字做成一个选择集就更好了
测试了一下，好像只有0-90度可行
水平和垂直也不行~~

USER2128

吴琦 发表于 2013-1-3 17:43
太感谢USER2128了，太给力了。基本是我要的东西了
能把各段文字做成一个选择集就更好了
测试了一 ...

程序已更新，已克服上述弊端。
程序返回按编号顺序的选择集表。
如再作进一步处理可用：
(defun c:ttt ()
(load "选直线找文字.lsp")
(setq temp (c:tt))
.
.
.
)

吴琦

USER2128 发表于 2013-1-3 18:20
程序已更新，已克服上述弊端。
程序返回按编号顺序的选择集表。
如再作进一步处理可用：

太感谢了。完美