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

spring8801 · 发表于 2016-7-5 13:00:41

newer 发表于 2016-7-5 11:14
上一个图，标明下圆弧要素移动的前后对比，截图和附件都上来。

这些东西能不能批量，主要还是看你画 ...

这是软件自动生成，根据圆弧判断，就是在圆弧内侧的曲线要素，分别位于圆弧起终点及中点三个位置进行移动，分别移动到曲线外侧CAD图还是以前那个。

newer · 发表于 2016-7-5 13:08:11

你现在选绿线不移动吗？

spring8801 · 发表于 2016-7-5 13:39:58

newer 发表于 2016-7-5 13:08
你现在选绿线不移动吗？

不是，曲线内侧，全部移动到外侧，可以点选圆弧，三个要素可以全部移动到圆弧外侧。

st788796 · 发表于 2016-7-6 06:34:48

既然是软件生成的，首先想到的就是找规律，试试下面的代码，点选中间的横线，运行时需加载 xdapi

(defun c:tt (/ e ss #isa #startpoint #endpoint p e1 e2)
(while (and (setq e (car
(xdrx_entsel "\nPick Line: " '((0 . "line") (8 . "要素桩")))
)
)
(setq e1 (entnext e))
(setq e2 (entnext e1))
(= "AcDbText"
(xdrx_getpropertyvalue e1 "IsA")
(xdrx_getpropertyvalue e2 "IsA")
)
)
(progn
(xdrx_getpropertyvalue e "Startpoint" "endpoint")
(setq p (mapcar '+
#startpoint
(xdrx_vector_perpvector (mapcar '- #endpoint #startpoint))
)
)
(xdrx_entity_mirror (list e e1 e2) (list #startpoint p) t)
)
)
(princ)
)

st788796 · 发表于 2016-7-6 11:32:22

效果如下，

newer · 发表于 2016-7-6 11:35:35

st788796 发表于 2016-7-6 11:32
效果如下，

写下他要的那个弧的。

st788796 · 发表于 2016-7-6 12:24:58

newer 发表于 2016-7-6 11:35
写下他要的那个弧的。

写好了，点选圆弧，三个线同时反转

(defun c:tt (/ e #radius gr gr1 gr2)
(if (setq e (car (xdrx_entsel "\nPick Center Line: "
'((0 . "arc") (8 . "zhix"))
)
)
)
(progn
(setq gr (xdge::constructor e))
(xdge::setpropertyvalue gr
"setAngles"
(- (xdge::getpropertyvalue gr "startAng") 0.001)
(+ (xdge::getpropertyvalue gr "endAng") 0.001)
)
(setq gr1 (xdge::copy gr)
gr2 (xdge::copy gr)
)
(xdge::getpropertyvalue gr "Radius")
(xdge::setpropertyvalue gr1 "setradius" (1- #radius))
(xdge::setpropertyvalue gr2 "setradius" (1+ #radius))
(setq pts (append (car (xdge::getpropertyvalue gr1 "getSamplePoints" 1.0))
(reverse
(car (xdge::getpropertyvalue gr2 "getsamplepoints" 1.0))
)
)
)
(if (setq ss (ssget "F" pts '((0 . "line") (8 . "要素桩"))))
(progn
(mapcar '(lambda (x / e1 e2 p #startpoint #endpoint)
(if (and (setq e1 (entnext x))
(setq e2 (entnext e1))
(= "AcDbText"
(xdrx_getpropertyvalue e1 "IsA")
(xdrx_getpropertyvalue e2 "IsA")
)
)
(progn
(xdrx_getpropertyvalue x "Startpoint" "endpoint")
(setq p (mapcar '+
#startpoint
(xdrx_vector_perpvector (mapcar '- #endpoint #startpoint))
)
)
(xdrx_entity_mirror (list x e1 e2) (list #startpoint p) t)
)
)
)
(xdrx_pickset->ents ss)
)
)
)
(xdge::free)
)
)
(princ)
)

(defun c:tt (/ e #radius gr gr1 gr2) 
  (if (setq e (car (xdrx_entsel        "\nPick Center Line: " 
                                '((0 . "arc") (8 . "zhix")) 
                   ) 
              ) 
      ) 
    (progn 
      (setq gr (xdge::constructor e)) 
      (xdge::setpropertyvalue gr 
                              "setAngles" 
                              (- (xdge::getpropertyvalue gr "startAng") 0.001) 
                              (+ (xdge::getpropertyvalue gr "endAng") 0.001) 
      ) 
      (setq gr1        (xdge::copy gr) 
            gr2        (xdge::copy gr) 
      ) 
      (xdge::getpropertyvalue gr "Radius") 
      (xdge::setpropertyvalue gr1 "setradius" (1- #radius)) 
      (xdge::setpropertyvalue gr2 "setradius" (1+ #radius)) 
      (setq pts        (append        (car (xdge::getpropertyvalue gr1 "getSamplePoints" 1.0)) 
                        (reverse 
                          (car (xdge::getpropertyvalue gr2 "getsamplepoints" 1.0)) 
                        ) 
                ) 
      ) 
      (if (setq ss (ssget "F" pts '((0 . "line") (8 . "要素桩")))) 
        (progn 
          (mapcar '(lambda (x / e1 e2 p #startpoint #endpoint) 
                     (if (and (setq e1 (entnext x)) 
                              (setq e2 (entnext e1)) 
                              (= "AcDbText" 
                                 (xdrx_getpropertyvalue e1 "IsA") 
                                 (xdrx_getpropertyvalue e2 "IsA") 
                              ) 
                         ) 
                       (progn 
                         (xdrx_getpropertyvalue x "Startpoint" "endpoint") 
                         (setq p (mapcar '+ 
                                         #startpoint 
                                         (xdrx_vector_perpvector (mapcar '- #endpoint #startpoint)) 
                                 ) 
                         ) 
                         (xdrx_entity_mirror (list x e1 e2) (list #startpoint p) t) 
                       ) 
                     ) 
                   ) 
                  (xdrx_pickset->ents ss) 
          ) 
        ) 
      ) 
      (xdge::free) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2016-7-6 13:08:39

这个是楼主的意思吧

游客，如果您要查看本帖隐藏内容请回复

spring8801 · 发表于 2016-7-7 13:57:24

st788796 发表于 2016-7-6 13:08
这个是楼主的意思吧
**** 本内容被作者隐藏 ****

高手，非常感谢！

spring8801 · 发表于 2016-7-7 17:10:44

st788796 发表于 2016-7-6 13:08
这个是楼主的意思吧
**** 本内容被作者隐藏 ****

高手，怎么有的要素桩移动不了？如图如附件

st788796 · 发表于 2016-7-7 18:44:58

spring8801 发表于 2016-7-7 17:10
高手，怎么有的要素桩移动不了？如图如附件

用上面的点选程序试试

spring8801 · 发表于 2016-7-8 09:34:05

点选用不了……

st788796 · 发表于 2016-7-8 21:38:54

spring8801 发表于 2016-7-8 09:34
点选用不了……

再试试

游客，如果您要查看本帖隐藏内容请回复

spring8801 · 发表于 2016-7-11 08:47:07

st788796 发表于 2016-7-8 21:38
再试试
**** 本内容被作者隐藏 ****

非常感谢！高手。。。

dyjwyqz5221 · 发表于 2018-6-7 08:59:38

学习学习，这块还真不熟悉，本人有个程序正在做，有些地方与之相同，参考下

账号		自动登录	找回密码
密码			立即注册

[编程申请] 求选中直线时，同时选中与直线平行的上下文字！

点评

点评

点评

点评