吴琦 发表于 2013-1-3 11:05:52

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

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

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

吴琦 发表于 2013-1-3 11:07:24

本帖最后由 吴琦 于 2013-1-3 11:12 编辑

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

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

吴琦 发表于 2013-1-3 17:43:17

本帖最后由 吴琦 于 2013-1-3 17:47 编辑

USER2128 发表于 2013-1-3 16:37 static/image/common/back.gif

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

USER2128 发表于 2013-1-3 18:20:49

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

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

吴琦 发表于 2013-1-3 20:12:31

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


太感谢了。完美
页: 1 [2]
查看完整版本: 求高手帮忙，判断文字在段范围内