哪位有：文字齐线中点 工具，谢谢

sixth

哪位有：文字齐线中点 工具，谢谢

我想把文字中点移到附近红色直线的中点，能不能实现这个功能呢，要能批量选择，批量移动，谢谢

鱼与熊掌

我就随便玩玩

xyp1964

sixth

院长，就是想实现这个功能，能不能发个程序啊，谢谢了

xyp1964

fjutcivil

xyp1964 发表于 2013-10-1 20:25

大神 有源码吗？最近想学下遍历选择的

用户5419086408

求源码！！！谢谢

鱼与熊掌

2. (setq ss(ssget '((0 . "LINE,TEXT")))
   
3.         ss_lst(cx-sort ss "xy" 0.1)
   
4.   line_ss(cx-SsIsType ss_lst "line")
   
5.         txt_ss(cx-SsIsType ss_lst "text")
   
6. )
   
7. (mapcar '(lambda(x1 x2)
   
8.                 (cx-move x2 (cx-get-9pt x2 8) (cx-get-9pt x1 5)nil)
   
9.         )
   
10.         line_ss txt_ss
    
11. )

(setq ss(ssget '((0 . "LINE,TEXT")))<br />         ss_lst(cx-sort ss "xy" 0.1)<br />   line_ss(cx-SsIsType ss_lst "line")<br />         txt_ss(cx-SsIsType ss_lst "text")<br /> )<br /> (mapcar '(lambda(x1 x2)<br />                 (cx-move x2 (cx-get-9pt x2 8) (cx-get-9pt x1 5)nil)<br />         )<br />         line_ss txt_ss<br /> )

仅供参考. 群 64665600

唐伯虎9527

不错，支持一下。

yuxin6618

不错，支持一下