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

zhaomc520

希望有点用处

SunSpring

2. ;;1
3. (DEFUN C:QA ()
4.   (PRINC
5.     "********************************************************\n"
6.   )
7.   (PRINC "             欢迎使用“文字排版软件” Ver 2.00\n")
8.   (PRINC
9.     "
10.         作者：叶永湛            广东吉业集团有限公司\n
11.         Ver: 2.0               泡泡：yongzhan829"
12.   )
13.   (PRINC
14.     "\n********************************************************"
15.   )
16.   (PRINC "\n*** 各行文字向以垂直方式对齐排列命令：Qa ***")
17.   (WHILE
18.     (PRINC
19.       "\n***** 选择作为向左以垂直方式对齐排列标准的文字行(只能单选) *****"
20.     )
21.      (SETQ ENTGRP (SSGET '((0 . "TEXT"))))
22.      (SETQ ENTNAME (SSNAME ENTGRP 0))
23.      (SETQ ENTDATA (ENTGET ENTNAME))
24.      (SETQ LOCALITY (ASSOC '10 ENTDATA)
25.     TYPESTRING (ASSOC '0 ENTDATA)
26.     LAYER (ASSOC '8 ENTDATA)
27.      )
28.      (SETQ LOCALITYPOINT (CADR LOCALITY))
29.      (PRINC
30.        "***** 选择要向左以垂直方式对齐排列的文字行(可单选可多选) *****"
31.      )
32.      (SETQ TYPEENTGRP
33.      (SSGET (LIST TYPESTRING LAYER))
34.      )
35.      (SETQ I 0)
36.      (SETQ ENTNUM (SSLENGTH TYPEENTGRP))
37.      (WHILE (< I ENTNUM)
38.        (SETQ TYPEENTNAME (SSNAME TYPEENTGRP I))
39.        (SETQ I (+ I 1))
40.        (SETQ TYPEENTDATA (ENTGET TYPEENTNAME))
41.        (SETQ TYPEENTLOCALITY (ASSOC '10 TYPEENTDATA))
42.        (SETQ TYPEENTLOCALITYPOINT (CADR TYPEENTLOCALITY))
43.        (SETQ TYPEENTNAME
44.        (SUBST LOCALITYPOINT
45.        TYPEENTLOCALITYPOINT
46.        TYPEENTLOCALITY
47.        )
48.        )
49.        (SETQ TYPEENTDATA
50.        (SUBST TYPEENTNAME
51.        TYPEENTLOCALITY
52.        TYPEENTDATA
53.        )
54.        )
55.        (ENTMOD TYPEENTDATA)
56.      )
57.      (PRINC "*******【操作结果】共有")
58.      (PRINC ENTNUM)
59.      (PRINC "行文字向左以垂直方式对齐排列 *******\n")
60.      (PRINC)
61.   )
62. )
63. ;;2
64. (DEFUN C:QW ()
65.   (PRINC
66.     "********************************************************\n"
67.   )
68.   (PRINC "             欢迎使用“文字排版软件” Ver 2.00\n")
69.   (PRINC
70.     "
71.         作者：叶永湛            广东吉业集团有限公司\n
72.         Ver: 2.0               泡泡：yongzhan829"
73.   )
74.   (PRINC
75.     "\n********************************************************"
76.   )
77.   (PRINC "\n*** 各行文字以水平方式对齐排列命令：Qw ***")
78.   (WHILE
79.     (PRINC
80.       "\n***** 选择作为以水平方式对齐排列标准的文字行(只能单选) *****"
81.     )
82.      (SETQ ENTGRP (SSGET '((0 . "TEXT"))))
83.      (SETQ ENTNAME (SSNAME ENTGRP 0))
84.      (SETQ ENTDATA (ENTGET ENTNAME))
85.      (SETQ LOCALITY (ASSOC '10 ENTDATA)
86.     TYPESTRING (ASSOC '0 ENTDATA)
87.     LAYER (ASSOC '8 ENTDATA)
88.      )
89.      (SETQ LOCALITYPOINT (CADDR LOCALITY))
90.      (PRINC
91.        "***** 选择要以水平方式对齐排列的文字行(可单选可多选) *****"
92.      )
93.      (SETQ TYPEENTGRP
94.      (SSGET (LIST TYPESTRING LAYER))
95.      )
96.      (SETQ I 0)
97.      (SETQ ENTNUM (SSLENGTH TYPEENTGRP))
98.      (WHILE (< I ENTNUM)
99.        (SETQ TYPEENTNAME (SSNAME TYPEENTGRP I))
100.        (SETQ I (+ I 1))
101.        (SETQ TYPEENTDATA (ENTGET TYPEENTNAME))
102.        (SETQ TYPEENTLOCALITY (ASSOC '10 TYPEENTDATA))
103.        (SETQ TYPEENTLOCALITYPOINT (CADDR TYPEENTLOCALITY))
104.        (SETQ TYPEENTNAME
105.        (SUBST LOCALITYPOINT
106.        TYPEENTLOCALITYPOINT
107.        TYPEENTLOCALITY
108.        )
109.        )
110.        (SETQ TYPEENTDATA
111.        (SUBST TYPEENTNAME
112.        TYPEENTLOCALITY
113.        TYPEENTDATA
114.        )
115.        )
116.        (ENTMOD TYPEENTDATA)
117.      )
118.      (PRINC "*********【操作结果】共有")
119.      (PRINC ENTNUM)
120.      (PRINC "行文字以水平方式对齐排列 *********\n")
121.      (PRINC)
122.   )
123. )
124. ;;3
125. (DEFUN C:QS ()
126.   (PRINC
127.     "********************************************************\n"
128.   )
129.   (PRINC "             欢迎使用“文字排版软件” Ver 2.00\n")
130.   (PRINC
131.     "
132.         作者：叶永湛            广东吉业集团有限公司\n
133.         Ver: 2.0               泡泡：yongzhan829"
134.   )
135.   (PRINC
136.     "\n********************************************************"
137.   )
138.   (PRINC "\n**** 统一字高命令:Qs ****")
139.   (WHILE (PRINC "\n**** 请选择要改变字高的字符串 ****")
140.     (SETQ TYPEENTGRP (SSGET '((0 . "TEXT"))))
141.     (SETQ I 0)
142.     (SETQ ENTNUM (SSLENGTH TYPEENTGRP))
143.     (SETQ LOCALITYJ (GETREAL "\n** 请输入文字高度<500>:"))
144.     (IF (= LOCALITYJ NIL)
145.       (SETQ LOCALITYJ 500)
146.     )
147.     (WHILE (< I ENTNUM)
148.       (SETQ TYPEENTNAME (SSNAME TYPEENTGRP I))
149.       (SETQ I (+ I 1))
150.       (SETQ TYPEENTDATA (ENTGET TYPEENTNAME))
151.       (SETQ TYPEENTLOCALITY (ASSOC '40 TYPEENTDATA))
152.       (SETQ TYPEENTLOCALITYPOINT (CDR TYPEENTLOCALITY))
153.       (SETQ TYPEENTNAME (CONS 40 LOCALITYJ))
154.       (SETQ TYPEENTDATA
155.       (SUBST TYPEENTNAME
156.       TYPEENTLOCALITY
157.       TYPEENTDATA
158.       )
159.       )
160.       (ENTMOD TYPEENTDATA)
161.     )
162.     (PRINC "**** 改变字高的字符串的数量是: ")
163.     (PRINC ENTNUM)
164.     (PRINC " ****")
165.   )
166.   (PRINC)
167. )
168. ;;4
169. (PRINC "\n\n***** 文字排版命令程序已经加载 *****\n")
170. (PRINC
171.   "\n*********************************************************"
172. )
173. (PRINC "\n                  文字排版命令程序命令表")
174. (PRINC
175.   "\n
176.             QA........以垂直方式对齐排列各文字行\n
177.             QW........以水平方式对齐排列各文字行\n
178.             QS........统一字高\n"
179. )
180. (PRINC
181.   "    ************************************************\n"
182. )
183. (PRINC "             欢迎使用“文字排版软件” Ver 2.00\n")
184. (PRINC
185.   "
186.         作者：叶永湛            广东吉业集团有限公司\n
187.         Ver: 2.0               泡泡：yongzhan829"
188. )
189. (PRINC
190.   "\n********************************************************"
191. )

复制代码

自己改了一个,给大家看看吧.

jhzxj

顶起来，非常好的插件

byghbcx

加密了,还上传干什么呢?

zhouyxcs

源程序共享吧.

dkj0322

谢谢楼上的分享，参考下，很感激

zwqgdhl

好东东，谢谢啦，下载先

zhb236623

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

gzbccy

现在还用不上，收藏下！

zhaozwf

谢谢分享
支持楼主

qqfish128

SunSpring 发表于 2006-11-28 11:37
自己改了一个,给大家看看吧.

我试了，但木有作用啊～！～！！～