文字样式lisp源码（lisp更改文字样式和字体）
本文目录一览：
- 1、CAD LISP 上下标文字怎么写源码？
- 2、lisp编程：怎么编译lisp源代码呢？
- 3、lisp编程：编译完lisp源代码后，出现了四个文件
- 4、用visual lisp对CAD二次开发中怎样新建文字样式和标注样式？
- 5、怎样批量修改多个CAD图中的点样式LSP源代码？怎样批量修改多个CAD图指定层（如JZD层）的文字颜色为白色？
CAD LISP 上下标文字怎么写源码？
你可以用下面的程序：
(command "-mtext" '(0 0) '(50 5) "\\A1;I\\S^x;" "")
lisp编程：怎么编译lisp源代码呢？
lisp程序不需要编译，直接在autocad中加载就可以了，然后执行定义的命令就行。
lisp编程：编译完lisp源代码后，出现了四个文件
XXXXX.lisp是lisp的源文件
XXXXX.list~是XXXXX.lisp的备份文件
XXXXX.lisp是XXXXX.lisp的加速加载文件
XXXXX.lib是编译过的库文件
用visual lisp对CAD二次开发中怎样新建文字样式和标注样式？
;;;新建标注样式"TSSD_100_100"
(defun ddstyle ( / sc)
(setq sc 1)
;;(setq sc (cdr (assoc 18 Data))) ;绘图比例
(setvar "cmdecho" 0)
(setvar "dimclrd" 0) ;为尺寸线、箭头和标注引线指定颜色
(setvar "dimclre" 0) ;为尺寸界线指定颜色
(setvar "dimclrt" acwhite) ;为标注文字指定颜色
(setvar "dimdle" (* sc 100)) ;当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离(超出标记)
(setvar "dimexe" (* sc 100)) ;指定尺寸界线超出尺寸线的距离
(setvar "dimexo" (* sc 250)) ;起点偏移量
(setvar "dimblk" "_ARCHTICK") ;箭头(建筑标记)
(setvar "dimasz" (* sc 100)) ;控制尺寸线和引线箭头的大小。并控制基线的大小
;;(setvar "dimcen" 0) ;圆心标记－无
;;(setvar "dimarcsym" 0) ;弧长符号－前辍
;;(setvar "dimjogang" (* sc 45)) ;折弯角度
(setvar "dimtxsty" "TSSD_Dimension") ;指定标注的文字样式
(setvar "dimtxt" (* sc 300)) ;指定标注文字的高度
(setvar "dimtad" 1) ;文字垂直位置(上方)
(setvar "dimjust" 0) ;文字水平位置(居中)
;;(setvar "dimtih" "off") ;线内文字对齐(与尺寸线对齐)
;;(setvar "dimtoh" "off") ;线外文字对齐(与尺寸线对齐)
(setvar "dimgap" (* sc 100)) ;文字从尺寸线偏移
;;(setvar "dimtix" "on") ;文字始终保持在尺寸界线之间
(setvar "dimtmove" 2) ;文字不在默认位置时，放在 尺寸线上方，不加引线
(setvar "dimscale" 1) ;全局比例
;;(setvar "dimtofl" "on") ;在尺寸线之间绘制尺寸界线
(setvar "dimdec" 0) ;精度
(setvar "dimlfac" 1) ;测量比例因子
(command "-dimstyle" "S" "TSSD_100_100" "" "");建立标注样式
怎样批量修改多个CAD图中的点样式LSP源代码？怎样批量修改多个CAD图指定层（如JZD层）的文字颜色为白色？
1. 创建CHSCR命令文件
CH.SCR文件的内容是由AutoCAD的命令和响应序列所组成的ASCⅡ文件，是可在AotuCAD编辑状态下执行的文本文件。
CH.SCR包含了可在指定图形中自动重复执行命令序列。
例：把图形文件C800-01～ C800-98中的图纸编号2066DD3改变2087DD2。高层代号C13改为D24，设备型号DZ20改为C45AD。
在DOS状态下用文本编辑软件建立CH.SCR文件：
CHTEXT_all _ _2066DD3
2087DD2
CHTEXT_all _ _C13
D24〈Enter〉
CHTEXT _all _ _DZ20
C45AD〈Enter〉
PLOT〈Enter〉
〈Enter〉
〈Enter〉
其中：
_代表一个空格
〈Enter〉代表回车
CHTEXT修改图中文字的LISP程序
•AotoCAD中文字修改功能较弱，AutoCADR12.0中曾加了DDEDIT修改文字命令，但只能用鼠标器手工修改，且一次只能改一个字符串不适用程序化操作。
因此，在编写SCR命令文件时我们采用了修改图中文字的LISP程序CHTEXT.LSP(其清单附后)。将其装入ACAD.LSP后，只要键入CHTEXT，就可按汉字提示使用，它一次可以修改多个字符串。
•当编写命令文件时，必须考虑每条AutoCAD命令中的所有响应和提示。命令文件中的每个空格都是有意义的，因为AotuCAD将它看作回车，所以不能随意增减。
•如果不需要输出PLT绘图文件，PLOT后面四行可以不要。
•CHSCR有两个作用：
①如果需要修改的图形文件较少，可以在ACAD中通过SCRLPT命令直接调用CH.SCR。
②可以在ACAD中通过SCRIPT命令试运行一次，看是否有错。
在ACAD命令状态下，键入以下命令即可按CH.SCR文件要求，对当前图形完成所需的修改。
Command:script
Script file:ch
当所涉及的图形文件较多时(十几个以上)，采用手动操作，将每一图形文件调出来，逐一修改，效率太低。因此建议采用以下步骤，使计算机按命令自动批量修改图形文件。
2. 建立图形文件表FILE.TAB
创建完CH.SCR后，下一步应把需要修改图形文件名(.DWG)存入FILE.TAB中：
例如：
C800-01
C800-02
C800-03
C800-98
3. 编译生成CHGE.SCR文件
当具备CH.SCR(试运行正常后)和FILE.TAB文件后，就可以进行编译工作，在DOS状态下键入CHSCR〈Enter〉即开始编译，若编译出现问题，系统会给出相应的提示，编译完成后，你会发现目录中多了一个CHGE.SCR文件(自动修改图形的文本文件)。
•CHSCR.EXE：其功能是配制SCR文件格式的命令字符串并调入相关的绘图参数(源程序用C语言编写，清单附后)。
•当ACAD输出PLT文件时，如果发现有对应图形的PLT文件，将提示出是否覆盖掉它，这将引起SCRIPT命令中断运行。为此在CHSCR.EXE中，我们是这么处理的：当程序发现有相应图形的PLT文件，将自动把它删除掉，并在屏幕上显示出对应的信息。
经CHSCR.EXE所生成的CHGE.SCR文件：
open y C800-01
CHTEXT all 2066DD3
2087DD2
CHTEXT all C13
D24
CHTEXT all DZ20
C45AD
PLOT
save
open y C900-98
CHTEXT all 2066DD3
2087DD2
CHTEXT all C13
D24
CHTEXT all DZ20
C45AD
PLOT
save
quit y
4. 执行SCRIPT命令
①在ACAD中通过SCRIPT命令直接调用CHGE.SCR：
Command:script chge
②启动AutoCAD时从操作系统提示符处输入以下正文：
C：acad script chge
三、程序的安装
1. 将CHTEXT.LSP装入ACAD.LSP中。
2. 用通用C++编译器将CHSCR.C编译成可执行程序CHSCR.EXE，将其拷贝到CAD可找到的目录下。
程序CHSCR.EXE适用于AutoCAD R11.0、R12.0。
