吾爱汇编论坛

 找回密码
 立即注册

QQ登录

绑定QQ避免忘记帐号

查看: 451|回复: 54

[源码] 分享一个自己做的文字对齐

  [复制链接]

  离线 

升级   13.33%

zhangmaobo721 发表于 2021-11-23 10:57 | 显示全部楼层 |阅读模式


此文字对齐可指定一个点提取横坐标,然后把文字改为左对齐(t0)并向左对齐,中间对齐(t1)并向中间对齐,右对齐(t2)并向右边对齐‘很久前做的,没用vlisp,完全用autolisp写的,代码如下,比较简单:

;;;========= 左对齐,修改73码控制垂直上中下对齐==========;;;
(defun c:t0()
(setq Ltxt (ssget  '((0 . "text"))))
(setq LX0 (car (getpoint "\n拾取左对齐定位点:")))

(setq Lnum (sslength Ltxt)) ;;统计个数
;;对齐条件
(setq LH (cons '72 0)) ;;对其方式为左水平对齐
(setq LV (cons '73 0)) ;;对其方式为垂直对齐,改为012,表示上中下

;;循环结构
(setq L 0)
(while (< L Lnum)
(setq Llist (entget (ssname Ltxt L))) ;; 点表用于左对齐
(setq LHCODE (assoc '72 Llist)) ;;水平组码
(setq LVCODE (assoc '73 Llist)) ;;垂直组码

(setq newLlist1
         (subst LH LHCODE Llist))
(entmod newLlist1)
(setq newLlist2
         (subst LV LVCODE newLlist1))
(entmod newLlist2)

;; 修改坐标10码
(setq LXYZ0 (assoc '10 newLlist2))
(setq LXYZ1 (cons '10
                           (cons LX0  
                               (cdr (cdr LXYZ0))
                           ))
)

(setq newLlist3 (subst LXYZ1 LXYZ0 newLlist2))
(entmod newLlist3)
(setq L (+ L 1)))
(princ))

;;;========= 中间对齐,修改73码控制垂直上中下对齐==========;;;
(defun c:t1()
(setq Mtxt (ssget  '((0 . "text"))))
(setq MX0 (car (getpoint "\n拾取中间对齐定位点:")))
(print MX0)
(setq Mnum (sslength Mtxt)) ;;统计个数
;;对齐条件
(setq MH (cons '72 1)) ;;对其方式为中间水平对齐
(setq MV (cons '73 0)) ;;对其方式为垂直对齐,改为012,表示上中下

;;循环结构
(setq M 0)
(while (< M Mnum)
(setq Mlist (entget (ssname Mtxt M))) ;; 点表用于中间对齐
(setq MHCODE (assoc '72 Mlist)) ;;水平组码
(setq MVCODE (assoc '73 Mlist)) ;;垂直组码

(setq newMlist1
         (subst MH MHCODE Mlist))
(entmod newMlist1)
(setq newMlist2
         (subst MV MVCODE newMlist1))
(entmod newMlist2)

;; 提取坐标YZ值
(setq YZ
(cdr (cdr
(assoc '10 newMlist2))))

;;构建新的11码
(setq MXYZ1 (cons '11 (cons MX0 YZ)))
(setq MXYZ0 (assoc '11 newMlist2))
(setq newMlist3 (subst MXYZ1 MXYZ0 newMlist2))
(entmod newMlist3)

(setq M (+ M 1)))
(princ))

;;;========= 右对齐,修改73码控制垂直上中下对齐==========;;;
(defun c:T2()
(setq Rtxt (ssget  '((0 . "text"))))
(setq RX0 (car (getpoint "\n拾取左对齐定位点:")))

(setq Rnum (sslength Rtxt)) ;;统计个数
;;对齐条件
(setq RH (cons '72 2)) ;;对其方式为右水平对齐
(setq RV (cons '73 0)) ;;对其方式为左垂直对齐,改为012,表示上中下

;;循环结构
(setq R 0)
(while (< R Rnum)
(setq Rlist (entget (ssname Rtxt R))) ;; 点表用于左对齐
(setq RHCODE (assoc '72 Rlist)) ;;水平组码
(setq RVCODE (assoc '73 Rlist)) ;;垂直组码

(setq newRlist1
         (subst RH RHCODE Rlist))
(entmod newRlist1)
(setq newRlist2
         (subst RV RVCODE newRlist1))
(entmod newRlist2)

;; 提取坐标YZ值
(setq RYZ
(cdr (cdr
(assoc '10 newRlist2))))

;;构建新的11码
(setq RXYZ1 (cons '11 (cons RX0 RYZ)))
(setq RXYZ0 (assoc '11 newRlist2))
(setq newRlist3 (subst RXYZ1 RXYZ0 newRlist2))
(entmod newRlist3)

(setq R (+ R 1)))
(princ))



评分

参与人数 8HB +11 THX +4 收起 理由
agan8888 + 1
zxjzzh + 2 [吾爱汇编论坛52HB.COM]-软件反汇编逆向分析,软件安全必不可少!
PDWORD + 1
越宝 + 1
king51999 + 1 [快捷评语]--积极评分,从我做起。感谢分享!
597460175 + 1
Damnie + 1 [快捷评语]--吃水不忘打井人,给个评分懂感恩!
Shark_鹏 + 6 + 1 [快捷评语]--吃水不忘打井人,给个评分懂感恩!

查看全部评分

吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   90.72%

Shark_鹏 发表于 2021-11-23 11:20 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

大气野狼 发表于 2022-1-22 13:16 | 显示全部楼层


感谢楼主
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   16.67%

飞机8953 发表于 2022-1-28 13:50 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   22%

heCJlyuDEv 发表于 2022-1-30 10:08 | 显示全部楼层


谢谢分享
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   21.01%

osLHEYQ3768 发表于 2022-2-1 13:53 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   54.35%

gLNw7 发表于 2022-2-1 13:53 | 显示全部楼层


我觉得我可能遇上知音了
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   65.94%

KcthLpNC593 发表于 2022-2-12 10:42 | 显示全部楼层


谢谢分享
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   70%

fIcwvJhTiYx 发表于 2022-2-12 11:04 | 显示全部楼层


膜拜大神!
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   39.86%

LQO92613 发表于 2022-2-12 11:36 | 显示全部楼层


Thanks~ 向楼主致敬!
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 警告:本站严惩灌水回复,尊重自己从尊重他人开始!

1层
2层
3层
4层
5层
6层
7层
8层
9层
10层

免责声明

吾爱汇编论坛(www.52hb.com)所发布的破解补丁、注册机、逆向教程、逆向文章等,包含但不限于上述内容,仅限用于学习和研究目的,不得用于非法途径或商业行为。否则,一切后果请用户自行承担。本站内容源于网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除。如果您喜欢某程序,请购买正版,支持正版,获得正版优质服务。如有侵权请邮件或微信与我们联系处理。

站长邮箱:SharkHeng@iCloud.com
站长微信:SharkHeng


QQ|RSS|手机版|小黑屋|帮助|吾爱汇编论坛 ( 京公网安备11011502005403号 , 京ICP备20003498号 )

GMT+8, 2022-5-28 15:51 , Processed in 0.595290 second(s), 80 queries .

Powered by Discuz!

吾爱汇编论坛 www.52hb.com

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