对CAD的图元或者图元的相对距离零碎数归整，如端点、顶点、线段的
;;;长度的零碎数归整，轴线之间距取整等等。
;;;适用于斯维尔，天正，直线，圆，弧，多段线，块。
;;;可以自定义容差。在这个容差内的数据将会被归整。
;;;譬如歪斜不平的线段可以摆平，轴线间距归整，Z坐标归零等等。
;;;程序可用于整理他人所提条件图、其他程序产生的误差和完美主义者.
The relative distance of CAD or the number of bits of primitive primitive integer, such as endpoint, vertex, line
The length of the system;;; the number of integer, the distance between the axis of rounding and so on.
Where applicable;;;,, Tianzheng, straight line, circle, arc, polyline, block.
;;; can customize the tolerance. The tolerance within the data will be sorted.
For example;;; segment the uneven spacing axis could settle, integer, Z coordinates zero etc..
; procedures; it can be used to sort out other people's conditional maps, errors produced by other programs and perfectionists. (2018-04-16, LISP, 2KB, 下载9次)
xas.lsp 使用说明
hzh:坐标标注，标高标注等 数字高度 参数需初始化。
bgth:标高替换，用于纵断面5线谱.在UCS下，点取标高点，选取数字，用标高替换该数.
bz:坐标标注；文字方向任意
bz1:坐标标注；文字方向水平
bz2:坐标标注；文字方向水平，且标注线定长定角度。
bg:标高标注；
bgmm:标高标注mm；
cx:批处理加粗线；
dc:选取任意arc,line,pline,将其线条加粗，与第1条线等粗.
dg:修改n个字体与样本字体等高，
zx:字型匹配，字高不变.
ju:数字累加；显示输出.
jg:前n-1数字累加,结果赋予最后一个数n,保留2位小数。
j0:前n-1数字累加,结果赋予最后一个数n,保留0位小数。
ji:数字相减,结果显示输出；
jk:两数相乘,结果显示输出;
jcs:批处理将所选数字加一个常数，并更新
j1:第1个数减后面n-1个数,并减1个常数，结果赋予第n个数;
kl:累计直线、弧线长度;
CAD numerical calculation (2017-07-20, LISP, 7KB, 下载18次)