社区 › AutoLISP/Visual LISP 编程技术 › 文字程序(源码)

恕放之生命 发表于 2014-7-19 11:41:34

谢谢分享。

caogis 发表于 2015-9-13 15:44:53

经广大C A D友们扩充，功能更强大了

springwillow 发表于 2015-9-18 22:14:10

来一个同行文字合并的功能吧！

GamIng 发表于 2015-9-19 14:18:49

LLXXZZ 发表于 2011-6-18 12:54 static/image/common/back.gif
真奇怪.没支持.

;;;;修改文字对齐方式为右对齐
(defun C:ZR (/ ss )
(prompt "选择要修改右对齐方式的文字：")
(command "justifytext" (setq ss (ssget '((0 . "TEXT")))) "" "Right")
(princ)
)

;;;;修改文字对齐方式为左对齐
(defun C:ZW (/ ss )
(prompt "选择要修改左对齐方式的文字：")
(command "justifytext" (setq ss (ssget '((0 . "TEXT")))) "" "Left")
(princ)
)

;;;;修改文字对齐方式为中心对齐
(defun C:ZE (/ ss )
(prompt "选择要修改右对齐方式的文字：")
(command "justifytext" (setq ss (ssget '((0 . "TEXT")))) "" "MC")
(princ)
)

xhk32067 发表于 2015-10-16 14:05:25

谢谢，正在研究对齐问题

my258 发表于 2016-10-13 16:04:50

很好的程序，收藏了

amen1981628 发表于 2016-10-17 13:53:24

非常实用

迷失1786 发表于 2017-9-4 17:20:13

谢谢分享

盐水鹅大麦粥 发表于 2017-9-5 10:10:12

不知道有没有用

明_明 发表于 2017-9-13 13:03:57

支持下，楼主辛苦

查看完整版本: 文字程序(源码)