求一个 纬地道路横断面 文字避让处理 的程序

spp_wall

不知道能否实现  如下图     一般道路都是20米 一个断面   而一条道路都是10几公里  如果手动修改  很浪费时间  

希望高手能写一个 文字避让的程序  来解放 道路设计者的手{:soso_e113:}


附上图片和 dwg文件

newer

上面那图是软件做出来的？ 这种东西应该在标注的时候处理是最好的。

Free-Lancer

原生图修改也可以做，就是针对性强而已
比如只选两侧字及线，不包括其它，这些软件生成实体是固定顺序的，只要按规则成组选，就能知道移动第几个实体了，不要期望写通用程序

spp_wall

newer 发表于 2013-10-25 13:10
上面那图是软件做出来的？ 这种东西应该在标注的时候处理是最好的。

是软件自己生成的  现在都是自己手工挪   很费时间！！！

spp_wall

Free-Lancer 发表于 2013-10-25 14:13
原生图修改也可以做，就是针对性强而已
比如只选两侧字及线，不包括其它，这些软件生成实体是固定顺序的， ...

我现在就是手工搞的  
比如选这全选2% 3%偏移  然后手工偏移标高  1:1.5再全选偏移 而且 1:1.5这个坡度的位置还不一样  最后还是要进行手工处理 然后复查

这些纯手工的 路短点还好  路长了  还是比较麻烦的  
软件的细节没做好！

zuicai

不光是纬地道路横断面，纬地涵洞、纬地挡墙生成的图纸都有这问题，目前只能手工自己移动。纬地软件的标注是一个个组，彼此重叠，软件细节相当糟糕。

st788796

spp_wall 发表于 2013-10-25 14:54
我现在就是手工搞的  
比如选这全选2% 3%偏移  然后手工偏移标高  1:1.5再全选偏移 而且 1:1.5这个坡度 ...

生成几个原生断面图传上来, 不要做任何改动

q3_2006

2. ;;不具通用性，纯粹好玩。。
   
3. ;;E派版。。其实也没用什么自定义函数，我懒得写全用现成的。。。
   
4. (defun c:tt( / bgtxt1 bgtxt2 bptxt1 bptxt2 hp1 hp2 lst p0 p1 p2 p3 ptlst s1 ss th)
   
5. (vl-cmdf "_.undo" "be")
   
6. (setq ss (ssget '((0 . "*POLYLINE") (8 . "sjx")))
   
7.   lst (xyp-ss2list ss)
   
8. )
   
9. (print "\n在图面点取任一标注文本以获取文字高度：")
   
10. (setq th (xyp-DXF 40 (car(entsel))))
    
11. (vl-cmdf "zoom" "a")
    
12. ;(setq th (getreal "\n标注文字高："))
    
13. (foreach s1 lst
    
14. (setq ptlst (xyp-Get-Vertexs s1 1))
    
15. (setq p0 (nth 0 ptlst) p1 (nth 1 ptlst) p2 (nth 1 (reverse ptlst)) p3 (nth 0 (reverse ptlst)))
    
16. (setq hp1 (ssget "f" (list p1 (polar p1 (/ pi 2) (* th 5))) '((0 . "*POLYLINE,text") (8 . "shuju"))))
    
17. (setq hp2 (ssget "f" (list p2 (polar p2 (/ pi 2) (* th 5))) '((0 . "*POLYLINE,text") (8 . "shuju"))))
    
18. (setq bptxt1 (ssget "f" (list p1 (polar p1 pi (* th 5))) '((0 . "text") (8 . "shuju"))))
    
19. (setq bptxt2 (ssget "f" (list p2 (polar p2 0 (* th 5))) '((0 . "text") (8 . "shuju"))))
    
20. (setq bgtxt1 (ssget "f" (list p1 (polar p1 (* pi 0.3) (* th 5))) '((0 . "text") (8 . "标高"))))
    
21. (setq bgtxt2 (ssget "f" (list p2 (polar p2 (* pi 0.7) (* th 5))) '((0 . "text") (8 . "标高"))))
    
22. (vl-cmdf "move" hp1 "" p1 (polar p1 (/ pi 2) (* th 2)))
    
23. (vl-cmdf "move" hp2 "" p2 (polar p2 (/ pi 2) (* th 2)))
    
24. (vl-cmdf "move" bptxt1 "" p1 (polar p1 (angle p1 p0) (/ (distance p1 p0) 4)))
    
25. (vl-cmdf "move" bptxt2 "" p2 (polar p2 (angle p2 p3) (/ (distance p2 p3) 4)))
    
26. (vl-cmdf "mirror" bgtxt1 "" p1 (polar p1 (* pi 0.5) (* th 3)) "y")
    
27. (vl-cmdf "mirror" bgtxt2 "" p2 (polar p2 (* pi 0.5) (* th 3)) "y")
    
28.   )
    
29.   (vl-cmdf "_.undo" "e")
    
30. )

;;不具通用性，纯粹好玩。。<br /> ;;E派版。。其实也没用什么自定义函数，我懒得写全用现成的。。。<br /> (defun c:tt( / bgtxt1 bgtxt2 bptxt1 bptxt2 hp1 hp2 lst p0 p1 p2 p3 ptlst s1 ss th)<br /> (vl-cmdf "_.undo" "be")<br /> (setq ss (ssget '((0 . "*POLYLINE") (8 . "sjx")))<br />   lst (xyp-ss2list ss)<br /> )<br /> (print "\n在图面点取任一标注文本以获取文字高度：")<br /> (setq th (xyp-DXF 40 (car(entsel))))<br /> (vl-cmdf "zoom" "a")<br /> ;(setq th (getreal "\n标注文字高："))<br /> (foreach s1 lst<br /> (setq ptlst (xyp-Get-Vertexs s1 1))<br /> (setq p0 (nth 0 ptlst) p1 (nth 1 ptlst) p2 (nth 1 (reverse ptlst)) p3 (nth 0 (reverse ptlst)))<br /> (setq hp1 (ssget "f" (list p1 (polar p1 (/ pi 2) (* th 5))) '((0 . "*POLYLINE,text") (8 . "shuju"))))<br /> (setq hp2 (ssget "f" (list p2 (polar p2 (/ pi 2) (* th 5))) '((0 . "*POLYLINE,text") (8 . "shuju"))))<br /> (setq bptxt1 (ssget "f" (list p1 (polar p1 pi (* th 5))) '((0 . "text") (8 . "shuju"))))<br /> (setq bptxt2 (ssget "f" (list p2 (polar p2 0 (* th 5))) '((0 . "text") (8 . "shuju"))))<br /> (setq bgtxt1 (ssget "f" (list p1 (polar p1 (* pi 0.3) (* th 5))) '((0 . "text") (8 . "标高"))))<br /> (setq bgtxt2 (ssget "f" (list p2 (polar p2 (* pi 0.7) (* th 5))) '((0 . "text") (8 . "标高"))))<br /> (vl-cmdf "move" hp1 "" p1 (polar p1 (/ pi 2) (* th 2)))<br /> (vl-cmdf "move" hp2 "" p2 (polar p2 (/ pi 2) (* th 2)))<br /> (vl-cmdf "move" bptxt1 "" p1 (polar p1 (angle p1 p0) (/ (distance p1 p0) 4)))<br /> (vl-cmdf "move" bptxt2 "" p2 (polar p2 (angle p2 p3) (/ (distance p2 p3) 4)))<br /> (vl-cmdf "mirror" bgtxt1 "" p1 (polar p1 (* pi 0.5) (* th 3)) "y")<br /> (vl-cmdf "mirror" bgtxt2 "" p2 (polar p2 (* pi 0.5) (* th 3)) "y")<br />   )<br />   (vl-cmdf "_.undo" "e")<br /> )

因为是我常做的事。。方法很笨，但基本能解决问题！

spp_wall

q3_2006 发表于 2013-10-25 21:13
因为是我常做的事。。方法很笨，但基本能解决问题！

好像左侧的标高有点问题！！！！！！  右侧的 实现了！！！！谢谢

有空帮忙看看！！

q3_2006

spp_wall 发表于 2013-10-25 22:42
好像左侧的标高有点问题！！！！！！  右侧的 实现了！！！！谢谢

有空帮忙看看！！

1楼已经改了。。。

spp_wall

q3_2006 发表于 2013-10-26 07:16
1楼已经改了。。。

好像  只适合我发的那张图！！

我在其他图上用  达不到说的效果   看看能再帮忙改改么！  

发一张  比较全的图  你帮忙看看！！！ 谢谢！！

st788796

spp_wall 发表于 2013-10-26 11:40
好像  只适合我发的那张图！！

我在其他图上用  达不到说的效果   看看能再帮忙改改么！  

给你写个验证程序，选择每个断面，看看那些文字是不是固定顺序，直到了这个，程序就是很简单了
每个断面固定是 34 个实体，按生成顺序排序，需要移动的实体在每组的固定位置

1. (defun c:tt (/ ss el i)
   
2.   (if (setq ss (ssget))
   
3.     (progn
   
4.       (setq el (vl-sort (xdrx_pickset->ents ss)
   
5.    '(lambda (e1 e2)
   
6.       (< (xdrx_getpropertyvalue e1 "ObjectID")
   
7.          (xdrx_getpropertyvalue e1 "ObjectID")
   
8.       )
   
9.     )
   
10.         )
    
11.       )
    
12.       (setq i 1)
    
13.       (mapcar
    
14. '(lambda (x)
    
15.     (setq box (xdrx_entity_box x)
    
16.    cen (xdrx_line_midp (car box) (nth 2 box))
    
17.    txt (xdrx_text_make cen (itoa i) 0.4 0.)
    
18.    i (1+ i)
    
19.     )
    
20.     (xdrx_group_make "*" (XD::Entity->PickSet (list txt x)))
    
21.   )
    
22. el
    
23.       )
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )

(defun c:tt (/ ss el i)<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq el (vl-sort (xdrx_pickset->ents ss)<br />    '(lambda (e1 e2)<br />       (< (xdrx_getpropertyvalue e1 "ObjectID")<br />          (xdrx_getpropertyvalue e1 "ObjectID")<br />       )<br />     )<br />         )<br />       )<br />       (setq i 1)<br />       (mapcar<br /> '(lambda (x)<br />     (setq box (xdrx_entity_box x)<br />    cen (xdrx_line_midp (car box) (nth 2 box))<br />    txt (xdrx_text_make cen (itoa i) 0.4 0.)<br />    i (1+ i)<br />     )<br />     (xdrx_group_make "*" (XD::Entity->PickSet (list txt x)))<br />   )<br /> el<br />       )<br />     )<br />   )<br />   (princ)<br /> )

q3_2006

spp_wall 发表于 2013-10-26 11:40
好像  只适合我发的那张图！！

我在其他图上用  达不到说的效果   看看能再帮忙改改么！  

处理得很好呀。。没问题

st788796

q3_2006 发表于 2013-10-26 12:25
处理得很好呀。。没问题

试试这个，根据自己的图分析后调整，断面有 32 32 34 三种情况，用上面的分析程序，以后自己可以修改

1. (defun c:tt (/ XD::List:DivedBy ss mat0 vmat lmat rmat)
   
2.   (defun XD::List:DivedBy (lst / ll nl)
   
3.     (while lst
   
4.       (if (/= (strcase (car (xdrx_getpropertyvalue (car lst) "Layer")))
   
5.        "DMX"
   
6.    )
   
7. (setq ll (cons (car lst) ll))
   
8. (setq nl (cons (reverse (cons (car lst) ll)) nl)
   
9.        ll nil
   
10. )
    
11.       )
    
12.       (setq lst (cdr lst))
    
13.     )
    
14.     (reverse nl)
    
15.   )
    
16.   (if (setq ss
    
17.       (ssget
    
18.         '((0 . "Text,*polyline,line")
    
19.    (8 . "shuju,zhix,dmx,lc,sjx,标高")
    
20.   )
    
21.       )
    
22.       )
    
23.     (progn
    
24.       (setq mat0 (xdrx_matrix_identity 3)
    
25.      vmat (xdrx_matrix_settranslation mat0 '(0. 1.5 0.))
    
26.      lmat (xdrx_matrix_settranslation mat0 '(-6.0 0. 0.))
    
27.      rmat (xdrx_matrix_settranslation mat0 '(6. 0. 0.))
    
28.       )
    
29.       (mapcar
    
30. '(lambda (x)
    
31.     (mapcar '(lambda (a)
    
32.         (xdrx_entity_transform a vmat)
    
33.       )
    
34.      (list (nth 1 x) (nth 2 x) (nth 7 x) (nth 8 x))
    
35.     )
    
36.     (cond
    
37.       ((= (length x) 34)
    
38.        (xdrx_entity_transform (nth 15 x) lmat)
    
39.        (xdrx_entity_transform (nth 21 x) rmat)
    
40.       )
    
41.       ((= (length x) 33)
    
42.        (xdrx_entity_transform (nth 14 x) lmat)
    
43.        (xdrx_entity_transform (nth 20 x) rmat)
    
44.       )
    
45.       ((= (length x) 32)
    
46.        (xdrx_entity_transform (nth 13 x) lmat)
    
47.        (xdrx_entity_transform (nth 19 x) rmat)
    
48.       )
    
49.       (t)
    
50.     )
    
51.   )
    
52. (XD::List:DivedBy
    
53.    (vl-sort
    
54.      (xdrx_pickset->ents ss)
    
55.      '(lambda (e1 e2)
    
56.         (> (xdrx_getpropertyvalue e1 "ObjectID")
    
57.     (xdrx_getpropertyvalue e2 "ObjectID")
    
58.         )
    
59.       )
    
60.    )
    
61. )
    
62.       )
    
63.     )
    
64.   )
    
65.   (princ)
    
66. )

(defun c:tt (/ XD::List:DivedBy ss mat0 vmat lmat rmat)<br />   (defun XD::List:DivedBy (lst / ll nl)<br />     (while lst<br />       (if (/= (strcase (car (xdrx_getpropertyvalue (car lst) "Layer")))<br />        "DMX"<br />    )<br /> (setq ll (cons (car lst) ll))<br /> (setq nl (cons (reverse (cons (car lst) ll)) nl)<br />        ll nil<br /> )<br />       )<br />       (setq lst (cdr lst))<br />     )<br />     (reverse nl)<br />   )<br />   (if (setq ss<br />       (ssget<br />         '((0 . "Text,*polyline,line")<br />    (8 . "shuju,zhix,dmx,lc,sjx,标高")<br />   )<br />       )<br />       )<br />     (progn<br />       (setq mat0 (xdrx_matrix_identity 3)<br />      vmat (xdrx_matrix_settranslation mat0 '(0. 1.5 0.))<br />      lmat (xdrx_matrix_settranslation mat0 '(-6.0 0. 0.))<br />      rmat (xdrx_matrix_settranslation mat0 '(6. 0. 0.))<br />       )<br />       (mapcar<br /> '(lambda (x)<br />     (mapcar '(lambda (a)<br />         (xdrx_entity_transform a vmat)<br />       )<br />      (list (nth 1 x) (nth 2 x) (nth 7 x) (nth 8 x))<br />     )<br />     (cond<br />       ((= (length x) 34)<br />        (xdrx_entity_transform (nth 15 x) lmat)<br />        (xdrx_entity_transform (nth 21 x) rmat)<br />       )<br />       ((= (length x) 33)<br />        (xdrx_entity_transform (nth 14 x) lmat)<br />        (xdrx_entity_transform (nth 20 x) rmat)<br />       ) <br />       ((= (length x) 32)<br />        (xdrx_entity_transform (nth 13 x) lmat)<br />        (xdrx_entity_transform (nth 19 x) rmat)<br />       )<br />       (t)<br />     )<br />   )<br /> (XD::List:DivedBy<br />    (vl-sort<br />      (xdrx_pickset->ents ss)<br />      '(lambda (e1 e2)<br />         (> (xdrx_getpropertyvalue e1 "ObjectID")<br />     (xdrx_getpropertyvalue e2 "ObjectID")<br />         )<br />       )<br />    )<br /> )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

q3_2006

st788796 发表于 2013-10-26 13:36
试试这个，根据自己的图分析后调整，断面有 32 32 34 三种情况，用上面的分析程序，以后自己可以修改

明白版主的意思了，我自己的图没这个问题，都是用来处理别人的图。。。有的软件不是很完美，用的人又完全不用脑子。。烂图多了去了！