- ;; 伪源码需要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 "[url=file://\\P]\\P[/url]")) tx)
- tx (apply 'strcat tx)
- )
- (xyp-SubUpd s1 1 tx)
- )
- (CMDLA1)
- )
|