明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2418|回复: 6

普通引线文字改为CAD式关联引线文字

[复制链接]
发表于 2013-5-31 13:15 | 显示全部楼层 |阅读模式
1明经币
cad的引线文字标注非常好用,引线能够随文字移动和随文字长短改变引线线长,现在想把以前老图里面的普通引线文字标注改为关联式的引线文字标注怎么实现,请求帮助!


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

最佳答案

查看完整内容

做了一个,不理想。算是抛砖引玉吧。
发表于 2013-5-31 13:15 | 显示全部楼层
本帖最后由 ZZXXQQ 于 2013-6-4 08:44 编辑

做了一个,不理想。算是抛砖引玉吧。
  1. (defun c:tt ()
  2. (setvar "CMDECHO" 0)
  3. (if (setq ss (ssget '((0 . "*TEXT")))) (progn
  4. (setq i -1)
  5. (repeat (sslength ss)
  6. (setq en (ssname ss (setq i (1+ i)))
  7. ent (entget en)
  8. txtbox (textbox ent)
  9. pt (cdr(assoc 10 ent))
  10. txt (cdr(assoc 1 ent))
  11. p1 (mapcar '+ pt (car txtbox))
  12. p2 (mapcar '+ p1 (cadr txtbox))
  13. p3 (mapcar '+ (list (car p2) (cadr p1)) '(5 -5))
  14. p4 (mapcar '+ (list (car p1) (cadr p2)) '(-5 5)))
  15. (if (setq ss1 (ssget "C" p2 p4 '((0 . "LEADER")))) (progn
  16. (setq en1 (ssname ss1 0) ent1 (entget en1))
  17. (setq plst (list))
  18. (foreach x ent1 (if (= (car x) 10) (setq plst (cons (cdr x) plst))))
  19. (setq plst (reverse plst))
  20. (command "_.LEADER" (car plst) (cadr plst) "" txt "")
  21. (entdel en)
  22. (entdel en1)
  23. ))
  24. )
  25. ))
  26. (setvar "CMDECHO" 1)
  27. (princ)
  28. )
回复

使用道具 举报

 楼主| 发表于 2013-6-3 08:46 | 显示全部楼层
ZZXXQQ 发表于 2013-5-31 23:12
做了一个,不理想。算是抛砖引玉吧。

非常感谢ZZXXQQ版主出手,功能已经差不多达到了,只是下图反方向的无反应。希望版主能够完善一下。

本帖子中包含更多资源

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

x
回复

使用道具 举报

发表于 2013-6-4 08:44 | 显示全部楼层
沙发改了,再试试。
回复

使用道具 举报

 楼主| 发表于 2013-6-4 09:21 | 显示全部楼层
ZZXXQQ 发表于 2013-6-4 08:44
沙发改了,再试试。

左右方向都无反应了,还有(textbox ent)貌似对多行文字出错。
回复

使用道具 举报

发表于 2013-7-30 12:53 | 显示全部楼层
再试试
回复

使用道具 举报

发表于 2016-10-24 16:10 | 显示全部楼层
很不错的程序,谢谢楼主分享啊。
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 18:44 , Processed in 0.220498 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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