明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1828|回复: 13

[提问] 画一段线中间上面标注文字

[复制链接]
发表于 2023-4-25 19:56:50 | 显示全部楼层 |阅读模式
大神位,谁能帮我编一个,画一段线,在线的中间和上面标注文字, 第二种模式就是只在线的上面标注文字,,最好可以自己存几个常用的文字

本帖子中包含更多资源

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

x
发表于 2023-4-26 19:50:58 | 显示全部楼层
本帖最后由 橡皮 于 2023-5-1 10:57 编辑

上传一个演示动图吧

本帖子中包含更多资源

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

x
回复 支持 1 反对 0

使用道具 举报

发表于 2023-4-26 23:34:53 | 显示全部楼层
本帖最后由 x_s_s_1 于 2023-4-27 10:19 编辑

纯玩笑之作,复制代码可能有问题,最后上传了附件,要玩儿的下载附件吧,贴的代码给高手指点用。
  1. (defun c:tt  (/ f fl i lst1 lst2 mnug mnugs mnus pt1 pt2 stct)
  2.   (setvar "cmdecho" 0)
  3.   (setq  lst1  '("扩展词库(&K)" "提示1(&1)" "提示2(&2)" "提示3(&3)"
  4.       "提示4(&4)") ;_快捷键是(&*)自己定义lst1和lst2原子数量要对应
  5.   lst2  '("tt2 " "你是谁" "为了谁" "我的战友你何时归" "回不去了")
  6.   pt1  (getpoint "\n第一点:")
  7.   pt2  (getpoint pt1 "\n第二点:")
  8.   **mid**  (mapcar '(lambda (x y) (* 0.5 (+ x y))) pt1 pt2)
  9.   **ang**  (angle pt1 pt2)
  10.   **ang**  (angtos **ang** 2 8))
  11.   (if (not (menugroup "tempmenu"))
  12.     (progn
  13.       (setq f  (strcat (getvar "tempprefix") "tempmenu.mnu")
  14.       f  (strcat f)
  15.       fl (open f "w"))
  16.       (write-line
  17.   "***menugroup=tempmenu\n\n***POP0\n\n**temp\n\n[temp]"
  18.   fl)
  19.       (close fl)
  20.       (vl-cmdf "menuload" f)))
  21.   (setq  mnugs (vlax-get-property (vlax-get-acad-object) 'MenuGroups)
  22.   mnug  (vl-catch-all-apply
  23.     'vlax-invoke-method
  24.     (list mnugs 'item "tempmenu"))
  25.   mnus  (vlax-get-property mnug 'menus))
  26.   (vlax-for pop   mnus
  27.     (if  (= :VLAX-TRUE (vlax-get-property pop 'ShortcutMenu))
  28.       (setq stct pop)))
  29.   (vlax-for pop stct (vlax-invoke-method pop 'delete))
  30.   (setq i 0)
  31.   (mapcar
  32.     '(lambda (x y)
  33.        (if (= 0 i)
  34.    (vlax-invoke-method stct 'addmenuitem i x y)
  35.    (vlax-invoke-method
  36.      stct
  37.      'addmenuitem
  38.      i
  39.      x
  40.      (strcat "_text\nj\nc\n!**mid**\n300\n!**ang**\n" y "\n")))
  41.        (setq i (1+ i)))
  42.     lst1
  43.     lst2)
  44.   (vl-cmdf "._line" "non" pt1 "non" pt2 "")
  45.   (menucmd "0=tempmenu.temp")
  46.   (menucmd "0=*"))

我也上传一个动图吧



本帖子中包含更多资源

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

x

评分

参与人数 1明经币 +1 收起 理由
USER2128 + 1 赞一个!

查看全部评分

回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2023-4-26 12:48:23 | 显示全部楼层
有偿有偿有偿
发表于 2023-4-26 16:35:17 来自手机 | 显示全部楼层
这个问题有人给解决了吗?
 楼主| 发表于 2023-4-26 17:39:45 | 显示全部楼层
帝都划水王 发表于 2023-4-26 16:35
这个问题有人给解决了吗?

没有
可能现在论坛的人太少了,都在忙
发表于 2023-4-26 19:00:33 | 显示全部楼层
兄弟加QQ吧 3446099265
 楼主| 发表于 2023-4-27 08:42:06 | 显示全部楼层

[img]大哥太谦虚了,这可不是玩笑之做呀,就是我CAD有问题,输入命令 变成乱码了,也不知道怎么回事,我刚学这个见笑了,

本帖子中包含更多资源

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

x
发表于 2023-4-27 08:59:33 | 显示全部楼层
好玩,能定义字体和与线的间距更好玩
发表于 2023-4-27 09:10:54 来自手机 | 显示全部楼层
gaolei_gaolei 发表于 2023-4-27 08:42
大哥太谦虚了,这可不是玩笑之做呀,就是我CAD有问题,输入命令 变成乱码了,也不知道怎么回事,我刚学这 ...

下载lsp文件直接加载吧
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-16 16:45 , Processed in 0.193020 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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