找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 927|回复: 10

[求助] 晓东工具块标注中怎么让标注对齐

[复制链接]

已领礼包: 1个

财富等级: 恭喜发财

发表于 2018-5-10 11:38:55 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
还请大神教教我,谢谢!在作图中使用块标注时,我只能让标注在一条直线上,由于工作原因需要对成千上万个块进行快速标注,切对齐不同角度,发现有块标注这个功能,就是不能对齐不同角度。
对齐.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-5-10 11:52:34 | 显示全部楼层
请把 DWG图压缩传上来,能说明不同对齐的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2018-5-10 12:05:56 | 显示全部楼层
大神,我已经把CAD发上来了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2018-5-10 12:08:07 | 显示全部楼层
newer 发表于 2018-5-10 11:52
请把 DWG图压缩传上来,能说明不同对齐的。

大神 ,我已经把CAD发上来了

点评

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-5-10 17:24:19 | 显示全部楼层
晓东CADlidoong 发表于 2018-5-10 12:08
大神 ,我已经把CAD发上来了

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

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2018-5-10 17:56:26 | 显示全部楼层

是这个文件

卓资主干.rar

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

点评

图太乱了,还没附带图像文件,看不清哪些是你要标注的,哪些没有对齐。 你找个局部,放大,说明问题的地方,你是怎么标注的? 用的哪个插件,给出链接,标注的结果是什么,你希望的是什么,说清楚些,截图贴论坛来  详情 回复 发表于 2018-5-11 10:28
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-5-11 10:28:26 | 显示全部楼层

图太乱了,还没附带图像文件,看不清哪些是你要标注的,哪些没有对齐。
你找个局部,放大,说明问题的地方,你是怎么标注的? 用的哪个插件,给出链接,标注的结果是什么,你希望的是什么,说清楚些,截图贴论坛来。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2018-5-11 17:03:07 | 显示全部楼层
newer 发表于 2018-5-11 10:28
图太乱了,还没附带图像文件,看不清哪些是你要标注的,哪些没有对齐。
你找个局部,放大,说明问题的地 ...

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

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2018-5-11 17:21:16 | 显示全部楼层

局部图纸和图片已上传,请大神看看,谢谢!
图快标注.png

局部图纸.rar

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

局部图纸

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-5-11 20:31:36 | 显示全部楼层
本帖最后由 newer 于 2018-5-11 20:34 编辑

给你个强的,批量连线标注图块

图块连线标注.gif

  1. (defun c:tt (/          blkname        blknames      box
  2.                            coords e         ml        mls    name   names
  3.                            p1          p2         pts        scl    ss     ss1
  4.                            val          x         y
  5.                           )

  6.   (defun _make (ss blkname)
  7.     (xdrx_prompt "\n正在标注:" blkname)
  8.     (vl-cmdf "layer" "")
  9.     (princ)
  10.     (setq pts (mapcar
  11.                 '(lambda (x)
  12.                    (xd::geom:get9pt x 5)
  13.                  )
  14.                 (xdrx_pickset->ents ss)
  15.               )
  16.     )
  17.     (setq pts (xd::pnts:groupbygap
  18.                 pts
  19.                 #xd_var_global_entity_group_gap
  20.                 (xd::pnts:Extremum pts '> '> t)
  21.               )
  22.     )
  23.     (mapcar
  24.       '(lambda (x)
  25.          (setq y   (xd::list:snakepair x)
  26.          )
  27.          (mapcar '(lambda (m)
  28.                     (xdrx_dimension_makerotate
  29.                       (car m)
  30.                       (cadr m)
  31.                       (car m)
  32.                       (apply 'angle m)
  33.                     )
  34.                     (xdrx_setpropertyvalue
  35.                       (entlast)
  36.                       "dimasz"
  37.                       0.0
  38.                       "dimblk1"
  39.                       "_none"
  40.                       "dimblk2"
  41.                       "_none"
  42.                       "dimse1"
  43.                       t
  44.                       "dimse2"
  45.                       t
  46.                       "dimtxt"
  47.                       #xd_var_global_txtheight
  48.                     )
  49.                   )
  50.                  y
  51.          )
  52.        )
  53.       pts
  54.     ) ; (xdrx_polyline_make lxd)

  55.   )
  56.   (xdrx_begin)
  57.   (xdrx_sysvar_push '("cmdecho" 0))
  58.   (if (not #xd_var_global_txtheight)
  59.     (setq #xd_var_global_txtheight 4.0)
  60.   )
  61.   (if (setq val        (getreal (xdrx_prompt
  62.                            "\n输入字高<"
  63.                            #xd_var_global_txtheight
  64.                            ">:"
  65.                            t
  66.                          )
  67.                 )
  68.       )
  69.     (setq #xd_var_global_txtheight val)
  70.   )
  71.   (if (not #xd_var_global_entity_group_gap)
  72.     (setq #xd_var_global_entity_group_gap 6.0)
  73.   )
  74.   (if (setq val        (getreal (xdrx_prompt
  75.                            "\n输入组团间距<"
  76.                            #xd_var_global_entity_group_gap
  77.                            ">:"
  78.                            t
  79.                          )
  80.                 )
  81.       )
  82.     (setq #xd_var_global_entity_group_gap val)
  83.   )
  84.   (xdrx_initget "Y N")
  85.   (setq _group (xdrx_yesorno "\n是否分组" 1))
  86.   (setq        names nil
  87.         blknames nil
  88.         ss nil
  89.   )
  90.   (while (and
  91.            (xdrx_prompt
  92.              "\n已选中图块:"
  93.              (setq blknames
  94.                     (xdrx_string_join names ",")
  95.              )
  96.            )
  97.            (setq e (car        (xdrx_entsel
  98.                           "\n拾取要连线标注的块<结束>:"
  99.                           '((0 . "INSERT"))
  100.                         )
  101.                    )
  102.            )
  103.          )
  104.     (setq name (xdrx_getpropertyvalue e "blocktablerecord" nil))
  105.     (if        (not (member name names))
  106.       (progn
  107.         (xdrx_entity_redraw
  108.           (setq        ss (ssget "x"
  109.                           (list        '(0 . "INSERT")
  110.                                 (cons 2 name)
  111.                           )
  112.                    )
  113.           )
  114.           3
  115.         )
  116.         (setq names (cons name names))
  117.       )
  118.     )
  119.   )
  120.   (if ss
  121.     (progn
  122.       (if (and
  123.             (setq p1 (getpoint "\n标注范围第一点<退出>:"))
  124.             (setq p2 (XD::Doc:Getcorner
  125.                        p1
  126.                        "\n范围对角点<退出>:"
  127.                        7
  128.                        (getvar "ucsxdir")
  129.                      )
  130.             )
  131.           )
  132.         (progn
  133.           (xdrx_entity_redraw ss 4)
  134.           (xd::dim:init)
  135.           (if (= _group 1)
  136.             (mapcar
  137.               '(lambda (x)
  138.                  (if (setq ss (ssget "cp"
  139.                                      (cadr p2)
  140.                                      (list '(0 . "INSERT")
  141.                                            (cons 2 x)
  142.                                      )
  143.                               )
  144.                      )
  145.                    (_make ss x)
  146.                  )
  147.                )
  148.               names
  149.             )
  150.             (progn
  151.               (if (setq        ss
  152.                          (ssget        "cp"
  153.                                 (cadr p2)
  154.                                 (list '(0 . "INSERT")
  155.                                       (cons 2 (xdrx_string_join names ","))
  156.                                 )
  157.                          )
  158.                   )
  159.                 (_make ss x)
  160.               )
  161.             )
  162.           )
  163.         )
  164.       )
  165.     )
  166.   )
  167.   (xdrx_sysvar_pop)
  168.   (xdrx_end)
  169.   (princ)
  170. )

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

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2018-5-12 10:03:00 | 显示全部楼层
newer 发表于 2018-5-11 20:31
给你个强的,批量连线标注图块

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 23:48 , Processed in 0.511801 second(s), 58 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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