求选中直线时，同时选中与直线平行的上下文字！

spring8801

求选中直线时，同时选中与直线平行的上下文字进行行动，将选中对象从终点移到直线起点，也就是移动到曲线外侧，上下文字中心都在直线的垂直平分线上，或根据圆弧来判断，点选圆弧要素桩全部移到到曲线外侧！

Lispboy

有移动的，有不移动的，你怎么判断？ 手工选要移动的吗？ 你那些文字线用什么做的，一体的，还是分开的？ 这些都没说明， 最好你传个DWG上来。
另外，你是需要关键地方的提示？ 还是整体需要别人帮你写个插件？ 如果后者，发到编程申请论坛。

Lispboy

按你标题的说法，你选中线后，能得到两顶点，然后你根据上下文字的位置，构造一个矩形，然后用(ssget "wp" pts '((0 . "text")(8 . "图层"))) or (ssget "cp" pts '((0 . "text")(8 . "图层"))) 选中文字。

spring8801

Lispboy 发表于 2016-7-3 14:49
按你标题的说法，你选中线后，能得到两顶点，然后你根据上下文字的位置，构造一个矩形，然后用(ssget "wp"  ...

构选矩形不行啊，这样会把其它重叠的文字选中的

spring8801

Lispboy 发表于 2016-7-3 14:38
有移动的，有不移动的，你怎么判断？ 手工选要移动的吗？ 你那些文字线用什么做的，一体的，还是分开的？  ...

在圆弧内侧的要素桩重叠严重，都需要进行移动，文字与直线是分开的，CAD图纸已上传！

newer

spring8801 发表于 2016-7-4 13:23
构选矩形不行啊，这样会把其它重叠的文字选中的

如果能选到其他的，说明你矩形构造的不对。 你构造一个文字对齐方向的，能包住文字的矩形。

spring8801

newer 发表于 2016-7-4 13:29
如果能选到其他的，说明你矩形构造的不对。 你构造一个文字对齐方向的，能包住文字的矩形。

其它文字会包含中构造的矩形内，重叠部分严重。。。

newer

spring8801 发表于 2016-7-4 13:28
在圆弧内侧的要素桩重叠严重，都需要进行移动，文字与直线是分开的，CAD图纸已上传！

从你这个图看，你的线和字都是分散的，你要想自动选择出你想要的，

1、先根据选的线，构造一个矩形框（长边随线平行）
2、WP选择，能把其他的文字过滤掉。因为其他文字不能包含在这个框里面，或者：
      CP选择所有相交于框的文字，你在循环判断哪个文字的角度和直线在一个容差内，构造出选择集。

newer

spring8801 发表于 2016-7-4 13:34
其它文字会包含中构造的矩形内，重叠部分严重。。。

不知道你用什么标注的， 最好的标注的时候把相关的线和文字放到一个组或者一个块里面就方便以后的编辑了。

spring8801

newer 发表于 2016-7-4 13:44
不知道你用什么标注的， 最好的标注的时候把相关的线和文字放到一个组或者一个块里面就方便以后的编辑了 ...

矩形框选选择的范围太广了，如选想移动绿化的线和字，构建矩形框，则把矩形框内的所有文字都选中了，直线上下文字中心都在直线的垂直平分线上，且与直线的距离相同，可以根据这两个特点进行编程，听说用反应器。。。但不会。。。

newer

spring8801 发表于 2016-7-4 14:07
矩形框选选择的范围太广了，如选想移动绿化的线和字，构建矩形框，则把矩形框内的所有文字都选中了，直线 ...

选择后的文字，不会再去判断去掉不符合条件的吗？

简单写了下代码，演示看图片，运行在晓东工具箱下。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e (xdrx_entsel "\n选择要移动的桩号标注线(靠近桩)<退出>:" '
   
4.                              ((0 . "LINE"))
   
5.                 )
   
6.         )
   
7.         (setq pt (cadr e)
   
8.               e (car e)
   
9.         )
   
10.         (setq pts (xdrx_getpropertyvalue e "startpoint" "endpoint")
    
11.               near (car (apply
    
12.                           'xdrx_getnearpt
    
13.                           (cons pt pts)
    
14.                         )
    
15.                    ) ;;确保near为直线靠近桩的端点
    
16.               other (car (vl-remove near pts)) ;;other为远离桩的直线端点
    
17.               pts1 (xdrx_points_offset 5 pts)
    
18.               pts2 (xdrx_points_offset -5 pts);;根据你的图构建一个10宽的矩形框
    
19.               box (append
    
20.                     pts1
    
21.                     (reverse pts2)
    
22.                   )
    
23.               ss (ssget "wp" box '((0 . "text"))) ;;WP选择窗口内的
    
24.         )
    
25.       )
    
26.     (progn
    
27.       (setq ang (angle near other)  ;;     直线的角度
    
28.             el (xdrx_pickset->ents ss)
    
29.       )
    
30.       (mapcar
    
31.         '(lambda (x)
    
32.            (xdrx_getpropertyvalue x "rotation")
    
33.            (if (not (equal #rotation ang 1e-3)) ;;角度和直线接近相同的实体表
    
34.               (setq el (vl-remove x el))
    
35.            )
    
36.          )
    
37.          el
    
38.       )
    
39.       (if el
    
40.          (progn
    
41.            (setq el (cons e el)) ;;线加进文字表中
    
42.            (xdrx_entity_move el other near) ;;移动从远端点为基点到 near
    
43.          )
    
44.       )
    
45.     )
    
46.   )
    
47.   (princ)
    
48. )
    

(defun c:tt ()<br />   (if (and<br />         (setq e (xdrx_entsel "\n选择要移动的桩号标注线(靠近桩)<退出>:" '<br />                              ((0 . "LINE"))<br />                 )<br />         )<br />         (setq pt (cadr e)<br />               e (car e)<br />         )<br />         (setq pts (xdrx_getpropertyvalue e "startpoint" "endpoint")<br />               near (car (apply<br />                           'xdrx_getnearpt<br />                           (cons pt pts)<br />                         )<br />                    ) ;;确保near为直线靠近桩的端点<br />               other (car (vl-remove near pts)) ;;other为远离桩的直线端点<br />               pts1 (xdrx_points_offset 5 pts)<br />               pts2 (xdrx_points_offset -5 pts);;根据你的图构建一个10宽的矩形框<br />               box (append<br />                     pts1<br />                     (reverse pts2)<br />                   )<br />               ss (ssget "wp" box '((0 . "text"))) ;;WP选择窗口内的<br />         )<br />       )<br />     (progn<br />       (setq ang (angle near other)  ;;     直线的角度<br />             el (xdrx_pickset->ents ss)<br />       )<br />       (mapcar<br />         '(lambda (x)<br />            (xdrx_getpropertyvalue x "rotation")<br />            (if (not (equal #rotation ang 1e-3)) ;;角度和直线接近相同的实体表<br />               (setq el (vl-remove x el))<br />            )<br />          )<br />          el<br />       )<br />       (if el<br />          (progn<br />            (setq el (cons e el)) ;;线加进文字表中<br />            (xdrx_entity_move el other near) ;;移动从远端点为基点到 near<br />          )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

newer

spring8801 发表于 2016-7-4 14:07
矩形框选选择的范围太广了，如选想移动绿化的线和字，构建矩形框，则把矩形框内的所有文字都选中了，直线 ...

是选择了多个文字，但是只有文字角度和你选的线角度相同的才是你要的，其他你可以根据这个条件过滤掉。

csharp

如果是程序生成的，这样的图一般实体生成是按一定顺序生成，后处理可以利用这个顺序，不需要复杂算法

spring8801

newer 发表于 2016-7-4 15:02
选择后的文字，不会再去判断去掉不符合条件的吗？

简单写了下代码，演示看图片，运行在晓东工具箱下。 ...

高手啊，非常感谢！可以根据圆弧判断不？选中的圆弧曲线要素都移动到曲线外侧，还增加个批量的功能就好了！

newer

spring8801 发表于 2016-7-5 11:00
高手啊，非常感谢！可以根据圆弧判断不？选中的圆弧曲线要素都移动到曲线外侧，还增加个批量的功能就好了 ...

上一个图，标明下圆弧要素移动的前后对比，截图和附件都上来。

这些东西能不能批量，主要还是看你画这些东西时候的准备，什么都是线啊分开的，都会变复杂。

你这些标注是自己手画的？ 为什么不把他们建成组？或者用属性块去标注这些要素？