fanqinwei 发表于 2012-7-23 22:32:34

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

高手们，谁能把一多行文本，按一定间隔，在原位变成一竖向文本，内容不变。


http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 fanqinwei的微博

preone 发表于 2012-7-24 20:57:55

也想知道~~

fanqinwei 发表于 2012-7-24 23:08:49

试了几个，都是把多行字文字打断，然后再定间距，竖向排列

fanqinwei 发表于 2012-8-2 19:41:15

怎么没有人回答？难道大家把一排横向文字变成竖向，都是一个又一个回车搞定的?

xyp1964 发表于 2012-8-2 23:39:53



;; 伪源码需要e派工具箱(XCAD)的支持
;; 多行文本，按一定间隔，在原位变成一竖向文本，内容不变
(defun c:tt ()
(CMDLA0)
(setq ss (ssget '((0 . "MTEXT")))
i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq tx (xyp-get-dxf 1 s1)
   tx (xyp-Str2List tx)
   tx (mapcar '(lambda (x) (strcat x "\\P")) tx)
   tx (apply 'strcat tx)
    )
    (xyp-SubUpd s1 1 tx)
)
(CMDLA1)
)

fanqinwei 发表于 2012-8-20 17:46:05

本帖最后由 fanqinwei 于 2012-8-20 17:46 编辑

院长做出来了，不知字间隔如何设置，谢谢了。

longer1000 发表于 2012-8-20 17:58:34

院长太厉害了

cuiq55 发表于 2012-8-23 03:17:54

加入字体设置功能什么的完全可以单独发布了

清风明月名字 发表于 2013-6-10 11:12:26

谢谢5楼主的分享！收藏备用。

zengbanxian 发表于 2019-12-22 17:09:56

(CMDLA0)没定义
页: [1] 2
查看完整版本: [求助]用LISP如何实现一文本由横向变为竖向?