发布双下划线LISP

给文字添加双下划线，一根粗线加一根细线，其中粗线为0.5mm的pline，细线为line（该细线的线宽设置为bylayer，所以，细线的最终打印线宽依赖于线型，为了更好的绘图效果，请先切换到某一个细线图层使用该命令）
效果图：

加载xh.VLX,使用命令xh画双下划线，要求输入参数：全局比例，（实际上为出图比例），然后选择文字（必须为TEXT命令绘制的，如果为Mtext的，可以先炸开成单行文字）。
关于“全局比例”的说明：
全局比例－设全局比例为K，则下划线粗pline的全局宽度为（0.5×K）。这样如果图纸上字高为5mm，按1：1出图，则全局比例应该设为1，打印的双下划线中的粗线实际线宽为0.5mm。如果打印时缩小1000倍打印，（图纸比例1：1000），则全局比例应该设为1000，下划线Pline的全局宽度为500，打印时缩小1000倍，则实际打印的粗线线宽仍然为0.5mm。这样可以保持所有图纸风格一致。