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

吴琦

小弟初学lisp，实在想不明白怎么判断，求助明经各位大侠，第一次发帖，多支持下新手
条件是这样的
1.未知数目文字在同一直线上且旋转角度相同，文字角度0~360度都有可能
2.有多段直线段平行文字（可以简单的认为这多条直线在同一直线上），文字到线的距离可能正数，可能负数，也可能为零
3.文字无序分布在各条线段上

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

USER2128

2. 
   
3. (defun c:tt ()
   
4.   (setq line-pts '()
   
5. cnt 0)
   
6.   (if (setq lines (ssget '((0 . "line"))))
   
7.     (progn
   
8.       (repeat (sslength lines)
   
9. (setq ent (entget (ssname lines cnt))
   
10.        line-pts (cons (list (cdr (assoc 10 ent))
    
11.        (cdr (assoc 11 ent)))
    
12.         line-pts)
    
13.        cnt (1+ cnt)
    
14.        ))
    
15.       (setq line-pts (reverse line-pts))
    
16.       (setq txtent (mapcar '(lambda(u)
    
17. (progn
    
18.    (setq x (car u)
    
19.   y (cadr u))
    
20.    (setq dist (* (distance x y) 0.5)
    
21.   ang  (angle x y))
    
22.    (setq pt1 (polar x (+ (* pi 1.5) ang) dist)
    
23.   pt2 (polar pt1 ang (* dist 2))
    
24.   pt3 (polar y (+ (* pi 0.5) ang) dist)
    
25.   pt4 (polar pt3 (+ ang pi) (* dist 2))
    
26.   )
    
27.    (setq txtmp (ssget "_WP" (list pt1 pt2 pt3 pt4) '((0 . "TEXT"))))
    
28.    txtmp
    
29.    )) line-pts))
    
30.       (setq txts (mapcar '(lambda(x)
    
31.         (progn
    
32.    (setq cnt 0
    
33.   txtmp '())
    
34.    (repeat (if x (sslength x) 0)
    
35.      (setq txtmp (cons (cdr (assoc 1 (entget (ssname x cnt))))
    
36.          txtmp))
    
37.      (setq cnt (1+ cnt))
    
38.      )
    
39.    txtmp)) txtent))
    
40.       (setq cnt 1)
    
41.       (mapcar '(lambda(x y z)
    
42. (progn
    
43.    (setq h (cdr (assoc 40 (entget (ssname y 0))))
    
44.   h (/ h 1.25)
    
45.   tmp (polar (car x) (angle (cadr x) (car x)) h)
    
46.   )
    
47.    
    
48.    (entmake (list '(0 . "CIRCLE") (cons 10 tmp) (cons 40 h)))
    
49.    (entmake (list '(0 . "TEXT") (cons 1 (itoa cnt))
    
50.     (cons 40 (* h 1.25))
    
51.     (cons 50 0.0) '(71 . 0) '(72 . 1) '(73 . 2)
    
52.     (cons 10 tmp) (cons 11 tmp)))
    
53.    (princ (strcat "\nLine" (itoa cnt) ":\t"))
    
54.    (mapcar '(lambda(u) (princ u) (princ "\t")) z)
    
55.    (setq cnt (1+ cnt))
    
56.    )) line-pts txtent txts)
    
57.       )
    
58.     (princ "\n未选取直线！！！")
    
59.     )
    
60.   txtent
    
61.   )
    

<br /> (defun c:tt ()<br />   (setq line-pts '()<br /> cnt 0)<br />   (if (setq lines (ssget '((0 . "line"))))<br />     (progn<br />       (repeat (sslength lines)<br /> (setq ent (entget (ssname lines cnt))<br />        line-pts (cons (list (cdr (assoc 10 ent))<br />        (cdr (assoc 11 ent)))<br />         line-pts)<br />        cnt (1+ cnt)<br />        ))<br />       (setq line-pts (reverse line-pts))<br />       (setq txtent (mapcar '(lambda(u)<br /> (progn<br />    (setq x (car u)<br />   y (cadr u))<br />    (setq dist (* (distance x y) 0.5)<br />   ang  (angle x y))<br />    (setq pt1 (polar x (+ (* pi 1.5) ang) dist)<br />   pt2 (polar pt1 ang (* dist 2))<br />   pt3 (polar y (+ (* pi 0.5) ang) dist)<br />   pt4 (polar pt3 (+ ang pi) (* dist 2))<br />   )<br />    (setq txtmp (ssget "_WP" (list pt1 pt2 pt3 pt4) '((0 . "TEXT"))))<br />    txtmp<br />    )) line-pts))<br />       (setq txts (mapcar '(lambda(x)<br />         (progn<br />    (setq cnt 0<br />   txtmp '())<br />    (repeat (if x (sslength x) 0)<br />      (setq txtmp (cons (cdr (assoc 1 (entget (ssname x cnt))))<br />          txtmp))<br />      (setq cnt (1+ cnt))<br />      )<br />    txtmp)) txtent))<br />       (setq cnt 1)<br />       (mapcar '(lambda(x y z)<br /> (progn<br />    (setq h (cdr (assoc 40 (entget (ssname y 0))))<br />   h (/ h 1.25)<br />   tmp (polar (car x) (angle (cadr x) (car x)) h)<br />   )<br />    <br />    (entmake (list '(0 . "CIRCLE") (cons 10 tmp) (cons 40 h)))<br />    (entmake (list '(0 . "TEXT") (cons 1 (itoa cnt))<br />     (cons 40 (* h 1.25))<br />     (cons 50 0.0) '(71 . 0) '(72 . 1) '(73 . 2)<br />     (cons 10 tmp) (cons 11 tmp)))<br />    (princ (strcat "\nLine" (itoa cnt) ":\t"))<br />    (mapcar '(lambda(u) (princ u) (princ "\t")) z)<br />    (setq cnt (1+ cnt))<br />    )) line-pts txtent txts)<br />       )<br />     (princ "\n未选取直线！！！")<br />     )<br />   txtent<br />   )<br />

USER2128

判断出来后，接下来要干什么？是移开、文字与对应线连线...

吴琦

USER2128 发表于 2013-1-2 20:22
判断出来后，接下来要干什么？是移开、文字与对应线连线...

谢谢回复，是要对每条线上的数字求最大值

吴琦

没人理我，自己想到方法了

xiabin68

吴琦 发表于 2013-1-2 22:29
没人理我，自己想到方法了

什么办法，，，说来听听你怎么做到的

吴琦

作垂线，分析垂点是否在该直线上

USER2128

吴琦 发表于 2013-1-2 23:26
作垂线，分析垂点是否在该直线上

作垂线是较困难的，建议你分析线段中点到文字距离，分析出最短距离者为对应关系。
如只对文字求最大值，没必要理会直线的

Gu_xl

用 (ssget "_CP" pt_list '((0 . “*text") )) 即可！

pt_list 根据直线的两个端点和文字大小与直线距离相应计算而来！

zyhandw

嗯，按G版的思路比较可行