文字引！

好好-MEN · 发表于 2021-5-29 12:14:26

提示: 作者被禁止或删除内容自动屏蔽

好好-MEN · 发表于 2022-5-7 13:16:15

提示: 作者被禁止或删除内容自动屏蔽

decemc · 发表于 2022-5-7 16:31:24

一直想找个这种的，没找到

好好-MEN · 发表于 2022-5-7 22:41:04

提示: 作者被禁止或删除内容自动屏蔽

alexmai · 发表于 2022-5-8 17:54:26

decemc 发表于 2022-5-7 16:31
一直想找个这种的，没找到

;;;设置文字对正--中间
(defun c:tem(/ ent)
  (setq ent (SSGET (LIST '(0 . "*text"))))
  (command "_JUSTIFYTEXT" ent "" "m")
(princ)
)

;;;设置文字对正--左对齐
(defun c:tel(/ ent)
  (setq ent (SSGET (LIST '(0 . "*text"))))
  (command "_JUSTIFYTEXT" ent "" "l")
(princ)
)

;;;设置文字对正--右对齐
(defun c:ter(/ ent)
  (setq ent (SSGET (LIST '(0 . "*text"))))
  (command "_JUSTIFYTEXT" ent "" "r")
(princ)
)

;;;设置文字对正--fit
(defun c:tef(/ ent)
  (setq ent (SSGET (LIST '(0 . "*text"))))
  (command "_JUSTIFYTEXT" ent "" "F")
(princ)
)

;;;设置文字对正--中下
(defun c:temd(/ ent)
  (setq ent (SSGET (LIST '(0 . "*text"))))
  (command "_JUSTIFYTEXT" ent "" "BC")
(princ)
)

;;;设置文字对正--中上
(defun c:temt(/ ent)
  (setq ent (SSGET (LIST '(0 . "*text"))))
  (command "_JUSTIFYTEXT" ent "" "TC")
(princ)
)

账号		自动登录	找回密码
密码			注册

[源码] 文字引！

本帖子中包含更多资源

好好-MEN 好好-MEN 当前离线积分 1246 明经币个注册时间 2014-7-30 在线时间小时威望金钱个贡献激情	发表于 2021-5-29 12:14:26 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

好好-MEN 好好-MEN 当前离线积分 1246 明经币个注册时间 2014-7-30 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2022-5-7 13:16:15 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报显身卡

好好-MEN 好好-MEN 当前离线积分 1246 明经币个注册时间 2014-7-30 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2022-5-7 22:41:04 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报显身卡