设为首页收藏本站 CAD论坛 CAD教程 CAD下载明经币充值

切换到宽版

明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › MTEXT 文字竖向排版 -初学者来看

发新帖

查看: 1199|回复: 5

[基础] MTEXT 文字竖向排版 -初学者来看

发表于 2023-2-19 00:11:50 | 显示全部楼层 |阅读模式

[size=11.115pt]

(entmake (list '(0 . "MTEXT")
'(100 . "AcDbEntity")
'(100 . "AcDbMText")
(cons 1 (strcat "中国葛洲坝集团股份有限公司")) ;
(cons 10 PT )
(cons 40 2 )
' (41 . 5.74092) ;文字竖向排版
'(71 . 5)
'(72 . 5)
(cons 50 0)
(cons 62 3)
(cons 8 "图框") )
) ;标注

本帖子中包含更多资源

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

x

"觉得好，就打赏"

还没有人打赏，支持一下

回复

使用道具举报

发表于 2023-2-19 07:16:00 | 显示全部楼层

本帖最后由尘缘一生于 2023-2-19 16:39 编辑

还可以这样实现（三领集成展示）

;;单行MTEXT文本-动态拉伸---(一级)----
(defun macedit-mtext (nam / p0 loop gr pt)
(setq p0 (car (e-box4 nam t)) obj (en2obj nam))
(princ "\n 指定拉伸点:")
(setq loop t)
(while loop
(setq gr (grread t 15 0) pt (cadr gr))
(cond
((or (= (car gr) 3) ;;左键
(member (car gr) '(11 25)) ;;右键
)
(setq loop nil)
)
((= (car gr) 5)
(vla-put-Width obj (distance p0 pt))
)
)
)
)

- ;;单行MTEXT文本-动态拉伸---(一级)----
- (defun macedit-mtext (nam / p0 ent loop gr pt)
- (if (= (oneorno nam) nil) ;MTEXT多行的，格式复杂者
- (progn
- (sl-ss-txt2mtext (expmtext nam) 1.5) ;分解MTEXT，并再次重生成不复杂格式MTEXT
- (setq nam (entlast))
- )
- )
- (setq p0 (car (txbox nam nil)) ent (entget nam))
- (princ "\n 指定拉伸点:")
- (setq loop t)
- (while loop
- (setq gr (grread t 15 0) pt (cadr gr))
- (cond
- ((or (= (car gr) 3) ;;左键
- (member (car gr) '(11 25)) ;;右键
- )
- (setq loop nil)
- )
- ((= (car gr) 5)
- (entmod (emod ent 41 (distance p0 pt)))
- )
- )
- )
- )

本帖子中包含更多资源

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

x

回复支持 1 反对 0

使用道具举报

发表于 2023-2-19 09:38:43 | 显示全部楼层

感谢分享代码！

回复支持反对

使用道具举报

发表于 2023-2-20 11:21:42 | 显示全部楼层

可以提供一下e-box4函数源代码吗

回复支持反对

使用道具举报

发表于 2023-2-20 18:27:29 | 显示全部楼层

本帖最后由尘缘一生于 2023-2-20 18:34 编辑

清清绿茶发表于 2023-2-20 11:21
可以提供一下e-box4函数源代码吗

这个就是取得MTEXT的包容盒的左下角，你换一换即可，E-BOX4集成太复杂，或者你这个任意取下点

;;单行MTEXT文本-动态拉伸---(一级)----
(defun macedit-mtext (nam / p0 loop gr pt)
(setq p0 (cadr (grread 5)) obj (en2obj nam))
(princ "\n 指定拉伸点:")
(setq loop t)
(while loop
(setq gr (grread t 15 0) pt (cadr gr))
(cond
((or (= (car gr) 3) ;;左键
(member (car gr) '(11 25)) ;;右键
)
(setq loop nil)
)
((= (car gr) 5)
(vla-put-Width obj (distance p0 pt))
)
)
)
)

回复支持反对

使用道具举报

发表于 2023-2-21 10:33:19 | 显示全部楼层

尘缘一生发表于 2023-2-20 18:27
这个就是取得MTEXT的包容盒的左下角，你换一换即可，E-BOX4集成太复杂，或者你这个任意取下点

感谢大佬！

回复支持反对

使用道具举报

发新帖

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

GMT+8, 2024-11-16 10:53 , Processed in 0.196334 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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