zhaomc520 发表于 2006-11-23 23:44:00

CAD文字排版小程序的 lisp文件

希望有点用处

SunSpring 发表于 2006-11-28 11:37:00


;;1
(DEFUN C:QA ()
(PRINC
    "********************************************************\n"
)
(PRINC "             欢迎使用“文字排版软件” Ver 2.00\n")
(PRINC
    "
      作者：叶永湛            广东吉业集团有限公司\n
      Ver: 2.0               泡泡：yongzhan829"
)
(PRINC
    "\n********************************************************"
)
(PRINC "\n*** 各行文字向以垂直方式对齐排列命令：Qa ***")
(WHILE
    (PRINC
      "\n***** 选择作为向左以垂直方式对齐排列标准的文字行(只能单选) *****"
    )
   (SETQ ENTGRP (SSGET '((0 . "TEXT"))))
   (SETQ ENTNAME (SSNAME ENTGRP 0))
   (SETQ ENTDATA (ENTGET ENTNAME))
   (SETQ LOCALITY (ASSOC '10 ENTDATA)
    TYPESTRING (ASSOC '0 ENTDATA)
    LAYER (ASSOC '8 ENTDATA)
   )
   (SETQ LOCALITYPOINT (CADR LOCALITY))
   (PRINC
       "***** 选择要向左以垂直方式对齐排列的文字行(可单选可多选) *****"
   )
   (SETQ TYPEENTGRP
   (SSGET (LIST TYPESTRING LAYER))
   )
   (SETQ I 0)
   (SETQ ENTNUM (SSLENGTH TYPEENTGRP))
   (WHILE (< I ENTNUM)
       (SETQ TYPEENTNAME (SSNAME TYPEENTGRP I))
       (SETQ I (+ I 1))
       (SETQ TYPEENTDATA (ENTGET TYPEENTNAME))
       (SETQ TYPEENTLOCALITY (ASSOC '10 TYPEENTDATA))
       (SETQ TYPEENTLOCALITYPOINT (CADR TYPEENTLOCALITY))
       (SETQ TYPEENTNAME
       (SUBST LOCALITYPOINT
       TYPEENTLOCALITYPOINT
       TYPEENTLOCALITY
       )
       )
       (SETQ TYPEENTDATA
       (SUBST TYPEENTNAME
       TYPEENTLOCALITY
       TYPEENTDATA
       )
       )
       (ENTMOD TYPEENTDATA)
   )
   (PRINC "*******【操作结果】共有")
   (PRINC ENTNUM)
   (PRINC "行文字向左以垂直方式对齐排列 *******\n")
   (PRINC)
)
)
;;2
(DEFUN C:QW ()
(PRINC
    "********************************************************\n"
)
(PRINC "             欢迎使用“文字排版软件” Ver 2.00\n")
(PRINC
    "
      作者：叶永湛            广东吉业集团有限公司\n
      Ver: 2.0               泡泡：yongzhan829"
)
(PRINC
    "\n********************************************************"
)
(PRINC "\n*** 各行文字以水平方式对齐排列命令：Qw ***")
(WHILE
    (PRINC
      "\n***** 选择作为以水平方式对齐排列标准的文字行(只能单选) *****"
    )
   (SETQ ENTGRP (SSGET '((0 . "TEXT"))))
   (SETQ ENTNAME (SSNAME ENTGRP 0))
   (SETQ ENTDATA (ENTGET ENTNAME))
   (SETQ LOCALITY (ASSOC '10 ENTDATA)
    TYPESTRING (ASSOC '0 ENTDATA)
    LAYER (ASSOC '8 ENTDATA)
   )
   (SETQ LOCALITYPOINT (CADDR LOCALITY))
   (PRINC
       "***** 选择要以水平方式对齐排列的文字行(可单选可多选) *****"
   )
   (SETQ TYPEENTGRP
   (SSGET (LIST TYPESTRING LAYER))
   )
   (SETQ I 0)
   (SETQ ENTNUM (SSLENGTH TYPEENTGRP))
   (WHILE (< I ENTNUM)
       (SETQ TYPEENTNAME (SSNAME TYPEENTGRP I))
       (SETQ I (+ I 1))
       (SETQ TYPEENTDATA (ENTGET TYPEENTNAME))
       (SETQ TYPEENTLOCALITY (ASSOC '10 TYPEENTDATA))
       (SETQ TYPEENTLOCALITYPOINT (CADDR TYPEENTLOCALITY))
       (SETQ TYPEENTNAME
       (SUBST LOCALITYPOINT
       TYPEENTLOCALITYPOINT
       TYPEENTLOCALITY
       )
       )
       (SETQ TYPEENTDATA
       (SUBST TYPEENTNAME
       TYPEENTLOCALITY
       TYPEENTDATA
       )
       )
       (ENTMOD TYPEENTDATA)
   )
   (PRINC "*********【操作结果】共有")
   (PRINC ENTNUM)
   (PRINC "行文字以水平方式对齐排列 *********\n")
   (PRINC)
)
)
;;3
(DEFUN C:QS ()
(PRINC
    "********************************************************\n"
)
(PRINC "             欢迎使用“文字排版软件” Ver 2.00\n")
(PRINC
    "
      作者：叶永湛            广东吉业集团有限公司\n
      Ver: 2.0               泡泡：yongzhan829"
)
(PRINC
    "\n********************************************************"
)
(PRINC "\n**** 统一字高命令:Qs ****")
(WHILE (PRINC "\n**** 请选择要改变字高的字符串 ****")
    (SETQ TYPEENTGRP (SSGET '((0 . "TEXT"))))
    (SETQ I 0)
    (SETQ ENTNUM (SSLENGTH TYPEENTGRP))
    (SETQ LOCALITYJ (GETREAL "\n** 请输入文字高度<500>:"))
    (IF (= LOCALITYJ NIL)
      (SETQ LOCALITYJ 500)
    )
    (WHILE (< I ENTNUM)
      (SETQ TYPEENTNAME (SSNAME TYPEENTGRP I))
      (SETQ I (+ I 1))
      (SETQ TYPEENTDATA (ENTGET TYPEENTNAME))
      (SETQ TYPEENTLOCALITY (ASSOC '40 TYPEENTDATA))
      (SETQ TYPEENTLOCALITYPOINT (CDR TYPEENTLOCALITY))
      (SETQ TYPEENTNAME (CONS 40 LOCALITYJ))
      (SETQ TYPEENTDATA
      (SUBST TYPEENTNAME
      TYPEENTLOCALITY
      TYPEENTDATA
      )
      )
      (ENTMOD TYPEENTDATA)
    )
    (PRINC "**** 改变字高的字符串的数量是: ")
    (PRINC ENTNUM)
    (PRINC " ****")
)
(PRINC)
)
;;4
(PRINC "\n\n***** 文字排版命令程序已经加载 *****\n")
(PRINC
"\n*********************************************************"
)
(PRINC "\n                  文字排版命令程序命令表")
(PRINC
"\n
            QA........以垂直方式对齐排列各文字行\n
            QW........以水平方式对齐排列各文字行\n
            QS........统一字高\n"
)
(PRINC
"    ************************************************\n"
)
(PRINC "             欢迎使用“文字排版软件” Ver 2.00\n")
(PRINC
"
      作者：叶永湛            广东吉业集团有限公司\n
      Ver: 2.0               泡泡：yongzhan829"
)
(PRINC
"\n********************************************************"
)自己改了一个,给大家看看吧.

jhzxj 发表于 2021-9-10 23:53:03

顶起来，非常好的插件

byghbcx 发表于 2006-11-27 09:29:00

<P>加密了,还上传干什么呢?</P>

zhouyxcs 发表于 2006-11-28 11:07:00

<P>源程序共享吧.</P>

dkj0322 发表于 2010-10-12 08:42:00

<p><font face="Verdana">谢谢楼上的分享，参考下，很感激</font></p>

zwqgdhl 发表于 2011-7-12 13:16:15

好东东，谢谢啦，下载先

zhb236623 发表于 2011-7-12 22:47:25

好东东，顶起。。。。。。。。。。

gzbccy 发表于 2011-7-13 07:09:14

现在还用不上，收藏下！

zhaozwf 发表于 2011-7-25 11:53:19

谢谢分享
支持楼主

qqfish128 发表于 2011-9-4 17:14:40

SunSpring 发表于 2006-11-28 11:37 static/image/common/back.gif
自己改了一个,给大家看看吧.

我试了，但木有作用啊～！～！！～
页: [1] 2
查看完整版本: CAD文字排版小程序的 lisp文件