设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 每日插件 › 批量标注线段长度插件
返回列表 发新帖
查看: 2228|回复: 5

[标注] 批量标注线段长度插件

[复制链接]
好梦压星河啊
发表于 2021-6-2 17:21:00 | 显示全部楼层 |阅读模式

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

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

×
我有一个批量标注线段长度的插件，很好用，但是使用会出下面这样的提示（不影响使用），想知道怎么解决，希望大佬指点一下
QQ图片20210602172013.png
  2. (defun c:gt()
  3.   (COMMAND "UCS" "")
  4.   (setvar "DIMZIN" 0)
  5.   (setvar "BLIPMODE" 0)
  6.   (setvar "HIGHLIGHT" 1)
  7.   (setvar "CMDECHO" 0)
  8.   (setvar "osmode" 0)
  9.   (setq AcadObject (vlax-get-acad-object)
  10.     AcadDocument (vla-get-ActiveDocument Acadobject)
  11.     mSpace (vla-get-ModelSpace Acaddocument)
  12.   )
  13.   ;;选取需要测量的样条曲线、圆弧、直线、椭圆
  14.   (setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))
  15.   (setq i 0)
  16.   ;;获取系统参数textsize
  17.   (setq shh (getvar "textsize"))
  18.   (setq str_hh (strcat "\n文字高度 <" (rtos shh 2) ">: "))
  19.   (setq hh (getdist str_hh))
  20.   (while hh
  21.     (setvar "textsize" hh)
  22.     (setq hh nil))
  23.   ;;输入标注文字高度
  24.   ;;循环开始
  25.   (repeat (sslength en)
  26.     (setq ss (ssname en i))
  27.     (setq endata (entget ss))
  28.     (command "lengthen" ss "")
  29.     (setq dd (getvar "perimeter"))
  30.     (princ (strcat "\n长度=" (rtos dd 2 3)))
  31.     ;;寻找代表图层的字符串
  32.     (setq aa (assoc 0 endata))
  33.     ;;获取图层名称
  34.     (setq aa1 (cdr aa))
  35.     ;;判断线条种类
  36.     (cond
  37.       ((= aa1 "SPLINE")
  38.         ;;如果是spline
  39.         (progn
  40.           (setq arcObj (VLAX-ENAME->VLA-OBJECT ss))
  41.           (setq startPnt1 (vla-get-ControlPoints arcObj))
  42.           (setq p1
  43.             (vlax-safearray->list (vlax-variant-value startPnt1))
  44.           )
  45.           (setq x1 (car p1))
  46.           (setq y1 (cadr p1))
  47.           (setq z1 (caddr p1))
  48.           (setq pp1 (list x1 y1 z1))
  49.           (repeat (- (/ (length p1) 3) 1)
  50.             ;;循环，寻找最后一个控制点
  51.             (setq p1 (cdddr p1))
  52.             (setq x2 (car p1))
  53.             (setq y2 (cadr p1))
  54.             (setq z2 (caddr p1))
  55.           )
  56.           (setq pp2 (list x2 y2 z2))
  57.         )
  58.       )
  59.       ((= aa1 "LWPOLYLINE")
  60.         ;;如果是LWPOLYLINE
  61.         (progn
  62.           (setq arcObj (VLAX-ENAME->VLA-OBJECT ss))
  63.           (setq startPnt1 (vla-get-Coordinates arcObj))
  64.           (setq p1
  65.             (vlax-safearray->list (vlax-variant-value startPnt1))
  66.           )
  67.           (setq x1 (car p1))
  68.           (setq y1 (cadr p1))
  69.           (setq z1 (caddr p1))
  70.           (setq pp1 (list x1 y1 z1))
  71.           (repeat (- (/ (length p1) 3) 1)
  72.             ;;循环，寻找最后一个控制点
  73.             (setq p1 (cdddr p1))
  74.             (setq x2 (car p1))
  75.             (setq y2 (cadr p1))
  76.             (setq z2 (caddr p1))
  77.           )
  78.           (setq pp2 (list x2 y2 z2))
  79.         )
  80.       )
  81.       (t
  82.         ;;如果是其他种类线条
  83.         (progn
  84.           (setq arcObj (VLAX-ENAME->VLA-OBJECT ss))
  85.           (setq startPnt1 (vla-get-StartPoint arcObj))
  86.           ;;获取起点
  87.           (setq endPnt1 (vla-get-EndPoint arcObj))
  88.           ;;获取终点
  89.           (setq pp1
  90.             (vlax-safearray->list (vlax-variant-value startPnt1))
  91.           )
  92.           (setq
  93.             pp2 (vlax-safearray->list (vlax-variant-value endPnt1))
  94.           )
  95.         )
  96.       )
  97.     )
  98.     (setq x1 (car pp1))
  99.     (setq y1 (cadr pp1))
  100.     (setq z1 (caddr pp1))
  101.     (setq x2 (car pp2))
  102.     (setq y2 (cadr pp2))
  103.     (setq z2 (caddr pp2))
  104.     (setq x (/ (+ x1 x2) 2))
  105.     (setq y (/ (+ y1 y2) 2))
  106.     (setq z (/ (+ z1 z2) 2))
  107.     (setq pt (list x y z))
  108.     ;;取得线段两端的中点
  109.     (setq ang (angle pp1 pp2))
  110.     ;;获取角度
  111.     (if    (> (* (/ ang pi) 180) 180)
  112.       (setq ang (+ ang pi))
  113.     )
  114.     (command "text"
  115.       "j"
  116.       "bc"
  117.       pt
  118.       ""
  119.       (* (/ ang pi) 180)
  120.       (strcat "" (rtos dd 2 3))
  121.       ""
  122.     )
  123.     (setq i (1+ i))
  124.   )
  125.   (setvar "osmode" 487)
  126.   (princ "线段长度标注已完成")
  127.   (princ)
  128. )


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

使用道具 举报

chaozi5756

已领礼包: 64个

财富等级: 招财进宝
发表于 2021-7-11 15:31:07 | 显示全部楼层
批量标注线段长度插件，不错的插件。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

feeling_chin

已领礼包: 2个

财富等级: 恭喜发财
发表于 2021-8-10 17:16:11 | 显示全部楼层
可以批量标注半径弧长吗？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

bai0371

已领礼包: 11个

财富等级: 恭喜发财
发表于 2021-8-12 07:39:19 | 显示全部楼层
批量标注线段长度插件，不错的插件。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

CAD56390

已领礼包: 1个

财富等级: 恭喜发财
发表于 2021-11-29 08:23:32 | 显示全部楼层
可惜不能标注零件内部尺寸
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

tanxindong
发表于 2022-10-8 08:14:15 | 显示全部楼层
我的ｃａｄ２０１９居然不好用这个插件
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-27 11:15 , Processed in 0.421366 second(s), 41 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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