明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4320|回复: 10

[求助]用LISP如何实现一文本由横向变为竖向?

[复制链接]
发表于 2012-7-23 22:32:34 | 显示全部楼层 |阅读模式
高手们,谁能把一多行文本,按一定间隔,在原位变成一竖向文本,内容不变。


该贴已经同步到 fanqinwei的微博
发表于 2012-7-24 20:57:55 | 显示全部楼层
也想知道~~
 楼主| 发表于 2012-7-24 23:08:49 | 显示全部楼层
试了几个,都是把多行字文字打断,然后再定间距,竖向排列
 楼主| 发表于 2012-8-2 19:41:15 | 显示全部楼层
怎么没有人回答?难道大家把一排横向文字变成竖向,都是一个又一个回车搞定的?
发表于 2012-8-2 23:39:53 | 显示全部楼层


  1. ;; 伪源码需要e派工具箱(XCAD)的支持
  2. ;; 多行文本,按一定间隔,在原位变成一竖向文本,内容不变
  3. (defun c:tt ()
  4.   (CMDLA0)
  5.   (setq ss (ssget '((0 . "MTEXT")))
  6. i  -1
  7.   )
  8.   (while (setq s1 (ssname ss (setq i (1+ i))))
  9.     (setq tx (xyp-get-dxf 1 s1)
  10.    tx (xyp-Str2List tx)
  11.    tx (mapcar '(lambda (x) (strcat x "[url=file://\\P]\\P[/url]")) tx)
  12.    tx (apply 'strcat tx)
  13.     )
  14.     (xyp-SubUpd s1 1 tx)
  15.   )
  16.   (CMDLA1)
  17. )

本帖子中包含更多资源

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

x
 楼主| 发表于 2012-8-20 17:46:05 | 显示全部楼层
本帖最后由 fanqinwei 于 2012-8-20 17:46 编辑

院长做出来了,不知字间隔如何设置,谢谢了。
发表于 2012-8-20 17:58:34 | 显示全部楼层
院长太厉害了
发表于 2012-8-23 03:17:54 | 显示全部楼层
加入字体设置功能什么的完全可以单独发布了
发表于 2013-6-10 11:12:26 | 显示全部楼层
谢谢5楼主的分享!收藏备用。
发表于 2019-12-22 17:09:56 | 显示全部楼层
(CMDLA0)没定义
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-25 14:44 , Processed in 0.235639 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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