找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 935|回复: 8

[编程申请] 各位大师,怎么样批量把文字与线分离在线在上方,文字不与其他图形重叠,谢谢。

[复制链接]

已领礼包: 272个

财富等级: 日进斗金

发表于 2018-9-13 22:43:08 | 显示全部楼层 |阅读模式
悬赏20D豆未解决
本帖最后由 相信自己666 于 2018-9-13 22:54 编辑

各位大师,怎么样批量把文字与线分离在线在上方,文字不与其他图形重叠,谢谢。

各位大师傅,怎么样批量把文字与线分离在线在上方,文字不与其他图形重叠,谢谢。

各位大师傅,怎么样批量把文字与线分离在线在上方,文字不与其他图形重叠,谢谢。

样例.rar

137.3 KB, 下载次数: 2, 下载积分: D豆 -1 , 活跃度 1

各位大师傅,怎么样批量把文字与线分离在线在上方,文字不与其他图形重叠,谢谢。

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-9-14 02:12:55 | 显示全部楼层
本帖最后由 newer 于 2018-9-14 02:14 编辑

看你图,有的调整到上方,有的调整到下方,还有的调整到左边,没规律不行啊

点评

您好老师,这个程序是XDsoft 老师编写的,我用的时候选择字后就是没有变化,麻烦老师给看看是什么原因,谢谢老师。  详情 回复 发表于 2018-9-16 07:58
您好老师,我找到了一个,但是我在用的时候选定文字之后就是没有反应的,好像不能用的,麻烦老师给看下怎么回事,十分感谢。 (defun c:xdtb_txtalignatln (/ #angle #getfirstderiv #midpoint box e elst h  详情 回复 发表于 2018-9-15 09:33
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 272个

财富等级: 日进斗金

 楼主| 发表于 2018-9-14 06:46:23 来自手机 | 显示全部楼层
newer 发表于 2018-9-14 02:12
看你图,有的调整到上方,有的调整到下方,还有的调整到左边,没规律不行啊

老师那按全部都调到线的上方好了,并且可以调整字与线的间距,请老师赐教,谢谢老师。
来自: 微社区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 1227个

财富等级: 财源广进

发表于 2018-9-14 06:52:31 | 显示全部楼层
移动的目的是什么?_
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 272个

财富等级: 日进斗金

 楼主| 发表于 2018-9-14 07:49:18 来自手机 | 显示全部楼层
longer88 发表于 2018-9-14 06:52
移动的目的是什么?_

您好老师,目的就是文字不能与其他图形重叠,这样打印出来可以看的清楚些,不然就是看不清楚,因为实在是太多了,一个一个去移动的话实在太慢了,就请教各位老师有没有什么好的方法批量移动,谢谢老师。
来自: 微社区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 272个

财富等级: 日进斗金

 楼主| 发表于 2018-9-15 09:33:19 | 显示全部楼层
newer 发表于 2018-9-14 02:12
看你图,有的调整到上方,有的调整到下方,还有的调整到左边,没规律不行啊

您好老师,我找到了一个,但是我在用的时候选定文字之后就是没有反应的,好像不能用的,麻烦老师给看下怎么回事,十分感谢。




(defun c:xdtb_txtalignatln (/ #angle #getfirstderiv #midpoint box e elst height mat mid mid1 ml p1
                            p2  position rot ss ss1 text-vec tf tol v x y
                           )
  (if (and (setq tol (getdist "\n输入字线间距<退出>:"))
           (xdrx_initssget "\n选取要调整的文字<退出>:")
           (setq ss (xdrx_ssget '((0 . "*text"))))
      )
    (progn
      (xdrx_begin)
      (setq tf (xd::doc:safezoom ss))
      (mapcar
        '(lambda (e)
           (setq box      (xdrx_text_box e)
                 text-vec (cadr (xdrx_entity_getecs e))
                 rot      (xdrx_getpropertyvalue e "rotation")
                 box      (XD::Geom:Box->9PT box)
                 position (nth 1 box)
                 p1       (nth 0 box)
                 p2       (nth 2 box)
                 height   (xdrx_getpropertyvalue e "Height")
                 ss1      (xdrx_pickset_GetAtPoint position height 2 '((0 . "LINE")))
           )
           (if ss1
             (progn (setq elst nil)
                    (mapcar '(lambda (x)
                               (xdrx_getpropertyvalue
                                 x "angle" "MidPoint" "startpoint" "endpoint" "getfirstderiv"
                                 #midpoint
                                )
                               (if (or (xdrx_vector_iscodirectional
                                         text-vec
                                         #getfirstderiv
                                         (/ pi 5.0)
                                       )
                                       (xdrx_vector_iscodirectional
                                         text-vec
                                         (xdrx_vector_negate #getfirstderiv)
                                         (/ pi 5.0)
                                       )
                                   )
                                 (progn
                                   (setq elst (cons (list (xd::geom:angleformat (- #angle rot)) x) elst))
                                 )
                               )
                             )
                            (xdrx_pickset->ents ss1)
                    )
                    (if elst
                      (progn (setq elst (vl-sort elst '(lambda (x y) (< (car x) (car y))))
                                   ml   (nth 1 (car elst))
                             )
                             (setq mid  (xdrx_getpropertyvalue mL "MidPoint")
                                   v    (xdrx_getpropertyvalue ml "getfirstderiv" mid)
                                   v    (if (xdrx_vector_iscodirectional text-vec v)
                                          v
                                          (xdrx_vector_negate v)
                                        )
                                   mid1 (mapcar '+
                                                mid
                                                (xdrx_vector_product (xdrx_vector_perpvector v) tol)
                                        )
                                   mat  (xdrx_matrix_align position p2 mid1 (mapcar '+ mid1 v))
                             )
                             (xdrx_entity_transform e mat)
                      )
                    )
             )
           )
         )
        (xdrx_pickset->ents ss)
      )
      (and tf (xdrx_document_zoomprevious))
      (xdrx_end)
    )
  )
  (princ))


115554kfe9ctu9vechyahi.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 272个

财富等级: 日进斗金

 楼主| 发表于 2018-9-16 07:58:12 | 显示全部楼层
newer 发表于 2018-9-14 02:12
看你图,有的调整到上方,有的调整到下方,还有的调整到左边,没规律不行啊

您好老师,这个程序是XDsoft 老师编写的,我用的时候选择字后就是没有变化,麻烦老师给看看是什么原因,谢谢老师。

点评

1、确保使用的是最新的XDRX API 2、文字和线的距离不能超过文字的高度  详情 回复 发表于 2018-9-16 08:14
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-9-16 08:14:31 | 显示全部楼层
本帖最后由 newer 于 2018-9-16 08:16 编辑
相信自己666 发表于 2018-9-16 07:58
您好老师,这个程序是XDsoft 老师编写的,我用的时候选择字后就是没有变化,麻烦老师给看看是什么原因, ...

1、确保使用的是最新的XDRX API
2、文字和线的距离不能超过文字的高度
另外,这个程序是把文字给你调整到线的中点,你要用,可能很多文字都跑到一个线的中点了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 272个

财富等级: 日进斗金

 楼主| 发表于 2018-9-16 09:27:52 来自手机 | 显示全部楼层
您好老师,我用的是最新的最近更新的,间距不超过文字的高度也是没变化的,老师根据这个好不好修改下,谢谢老师。
来自: 微社区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 19:02 , Processed in 0.417501 second(s), 47 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表