吾爱汇编论坛

 找回密码
 立即注册

QQ登录

绑定QQ避免忘记帐号

查看: 502|回复: 67

[源码] 文字对齐源码

  [复制链接]

  离线 

升级   13.33%

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


  • jssc_none.gif ;;******************************************************
  • jssc_none.gif ;;                  文字对齐
  • jssc_none.gif ;;******************************************************
  • jssc_none.gif ;;源码来源明经社区,最终由whuluqw修改 2020.11.01
  • jssc_none.gif (defun c:wzdq (/ ss ent amode obj i ii p px jd jdx jdy ang)
  • jssc_none.gif   (setvar "cmdecho" 0)
  • jssc_none.gif   ;;-------------------------
  • jssc_none.gif   (defun getdxf (ent ii)
  • jssc_none.gif     (if (= (type ent) 'ename)
  • jssc_none.gif       (setq ent (entget ent))
  • jssc_none.gif     )
  • jssc_none.gif     (cdr (assoc ii ent))
  • jssc_none.gif   )
  • jssc_none.gif   ;;-------------------------
  • jssc_none.gif   (defun ch_dxf (en num ch / old_num new_num ent)
  • jssc_none.gif     (if
  • jssc_none.gif       (setq ent     (entget en)
  • jssc_none.gif             new_num (cons num ch)
  • jssc_none.gif             old_num (assoc num ent)
  • jssc_none.gif       )
  • jssc_none.gif       (entmod (subst new_num old_num ent))
  • jssc_none.gif       (entmod (reverse (cons new_num (reverse ent))))
  • jssc_none.gif     )
  • jssc_none.gif   )
  • jssc_none.gif   ;;-------------------------
  • jssc_none.gif   (princ "\n选择要对齐的文字<退出>:")
  • jssc_none.gif   (if (setq ss (ssget '((0 . "TEXT"))))
  • jssc_none.gif     (progn
  • jssc_none.gif       (setq p (getpoint "指定对齐基点:"))
  • jssc_none.gif       (setq px (car p)
  • jssc_none.gif             py (cadr p)
  • jssc_none.gif       );;基点x和y坐标
  • jssc_none.gif       (initget "L C R")
  • jssc_none.gif       (setq amode (getkword "\n选择对齐方式[左(L)/中(C)/右(R)]<左>:"))
  • jssc_none.gif       (if (not amode)
  • jssc_none.gif         (setq amode "L")
  • jssc_none.gif       )
  • jssc_none.gif       (cond
  • jssc_none.gif         ((= amode "L")
  • jssc_none.gif          (setq ii 10)
  • jssc_none.gif          (command "justifytext" ss "" "L")
  • jssc_none.gif         )
  • jssc_none.gif         ((= amode "C")
  • jssc_none.gif          (setq ii 11)
  • jssc_none.gif          (command "justifytext" ss "" "C")
  • jssc_none.gif         )
  • jssc_none.gif         ((= amode "R")
  • jssc_none.gif          (setq ii 11)
  • jssc_none.gif          (command "justifytext" ss "" "R")
  • jssc_none.gif         )
  • jssc_none.gif       )
  • jssc_none.gif       (setq i 0)
  • jssc_none.gif       (while (< i (sslength ss))
  • jssc_none.gif         (setq ent (ssname ss i))
  • jssc_none.gif         (setq jd (getdxf ent ii))
  • jssc_none.gif         (setq jdx (car jd)
  • jssc_none.gif               jdy (cadr jd)
  • jssc_none.gif         )
  • jssc_none.gif         (princ )
  • jssc_none.gif         ;;;;;;;;;;;;;;;以下为添加代码 by whuluqw
  • jssc_none.gif         (setq ang (getdxf ent 50)) ;;获取文字转角
  • jssc_none.gif         (setq dx  (- jdx px)
  • jssc_none.gif               dy  (- jdy py)
  • jssc_none.gif         ) ;;指定对齐点和文字基点距离
  • jssc_none.gif         (setq dx2 (+ (* dx (cos ang)) (* dy (sin ang)))
  • jssc_none.gif               dy2 (- (* dy (cos ang)) (* dx (sin ang)))
  • jssc_none.gif         ) ;;求移动距离
  • jssc_none.gif         (setq newx (- jdx (* dx2 (cos ang)))
  • jssc_none.gif               newy (- jdy (* dx2 (sin ang)))
  • jssc_none.gif         )
  • jssc_none.gif         ;;;;;;;;;;;;;;以上为添加代码
  • jssc_none.gif         (setq newjd (list newx newy))
  • jssc_none.gif         (apply '(lambda (x) (ch_dxf x ii newjd)) (list ent))
  • jssc_none.gif         ;(vl-cmdf "_move" (ssname ss i) "" "non" jd "non" (list px jdy))
  • jssc_none.gif         (setq i (+ i 1))
  • jssc_none.gif       )
  • jssc_none.gif     )
  • jssc_none.gif   )
  • jssc_none.gif   (princ)
  • jssc_none.gif )


评分

参与人数 9HB +4 THX +6 收起 理由
agan8888 + 1
zxjzzh + 1 [吾爱汇编论坛52HB.COM]-学破解防破解,知进攻懂防守!
ialove + 1 [吾爱汇编论坛52HB.COM]-感谢楼主热心分享,小小评分不成敬意!
pmm018 + 1
king51999 + 1 [快捷评语]--吃水不忘打井人,给个评分懂感恩!
531814517 + 1 [通知]学破解论坛即将在近期更名为吾爱汇编论坛WWW.52HB.COM
gccc + 1
cunzhang2016 + 1
mxx852 + 1 + 1 [快捷评语]--2021年,我们爱0爱1

查看全部评分

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

  离线 

升级   5%

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

  离线 

升级   5%

火星上金鱼 发表于 2022-1-22 18:56 | 显示全部楼层


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

  离线 

升级   5%

称心迎大侠 发表于 2022-1-22 19:26 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

坚定笑乌龟 发表于 2022-1-22 20:05 | 显示全部楼层


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

  离线 

升级   5%

生动笑芹菜 发表于 2022-1-22 20:06 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   90%

JYmejiO 发表于 2022-1-29 08:32 | 显示全部楼层


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

  离线 

升级   52%

cbWl 发表于 2022-2-3 02:12 | 显示全部楼层


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

  离线 

升级   50%

aVksWF94 发表于 2022-2-3 15:23 | 显示全部楼层


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

  离线 

升级   49.28%

OkPFH82 发表于 2022-2-6 08:59 | 显示全部楼层


不可多得,支持楼主
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!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 09:37 , Processed in 0.597757 second(s), 98 queries .

Powered by Discuz!

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

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