明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 717|回复: 8

[提问] 求一个程序,输入tt,选择图元,把图元所在图层的名称标注在cad上

[复制链接]
发表于 2018-12-7 13:53 | 显示全部楼层 |阅读模式
本帖最后由 664571221 于 2018-12-8 09:55 编辑

求一个程序,输入tt,选择图元,把图元所在图层的名称标注在cad上

本帖子中包含更多资源

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

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2018-12-7 22:23 | 显示全部楼层
看你描述问题应该不复杂,建议上个图说明需求。
 楼主| 发表于 2018-12-8 09:55 | 显示全部楼层
Bao_lai 发表于 2018-12-7 22:23
看你描述问题应该不复杂,建议上个图说明需求。

你好看一下
发表于 2018-12-10 09:55 | 显示全部楼层
谢谢!分享程序!!!
发表于 2018-12-10 12:57 | 显示全部楼层
oistre 发表于 2018-12-10 09:55
谢谢!分享程序!!!

Are you Spammer ?
 楼主| 发表于 2018-12-10 13:20 | 显示全部楼层
oistre 发表于 2018-12-10 09:55
谢谢!分享程序!!!

??????????
发表于 2018-12-11 09:32 | 显示全部楼层
这个不难的就几句话
(defun c:tt ( / en lay pt)
        (if (and (setq en (car (entsel "\n请选择图形:"))) (setq lay (cdr (assoc 8 (entget en)))) (setq pt (cdr (assoc 10 (entget en)))))
                (vl-cmdf "text" pt 100 0 lay)
        )
)
发表于 2018-12-11 11:44 | 显示全部楼层
  1. (defun c:tt ()
  2. (while (setq s1 (entsel "\n选择一个物体: "))
  3.   (setq lnm (strcat "图层名:" (cdr(assoc 8 (entget(car s1))))))
  4.   (setq pt (osnap (cadr s1) "NEA"))
  5.   (command "_.LEADER" pt (getpoint "\n文字点") "" lnm "" "")
  6. )
  7. (princ)
  8. )
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 14:19 , Processed in 0.223287 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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