PM2016宏应用之五：刻字

xingyue*

       PM2016用宏实现的刻字功能！虽然没有外挂的方便，但也不失为一种好的方法！我在这里主要是想表达的一个意思：大胆地用宏去尝试完成一些外挂的功能！可以当作练习！       这个宏需要字库，我这里的字库是前辈作出来的！注意字库的路径，如下图：   

图一

红色线标记的地方是字库路径！Text是字库的名称！
下面是使用方法：
一、输入字符串

二、设置字体高度

三、效果预览！我把坐标系放在字体的右下角！

下面是源码：
//QQ群：
CREATE PATTERN ;

string prompt="输入字符串："
string str=''
$str=input $prompt
//设置比例
string prompt1="输入字体高度："
REAL Height=0
bool err=0
do {
    $Height=input $prompt1
    $err=ERROR Height
    if err {
       $prompt1="请输入一个数值："
    }
} while err
//------------------------------
int i=length(str)
int j=0
While i>+j {
    String Char=substring(str,j,1)
    String Path="C:\dcam\PM2016\Text\"+Char+".dgk"
    //message info $path
    int k=-0.7
    EDIT PATTERN ; INSERT FILE $Path
    MODE NOGUI GEOMETRY_TRANSFORM START PATTERN ;
    MODE NOGUI TRANSFORM TYPE TRANSLATE
    MODE NOGUI TRANSFORM ORIGIN ACTIVE_WORKPLANE
    MODE NOGUI COORDINPUT COORDINATES $k 0 0
    MODE NOGUI GEOMETRY_TRANSFORM FINISH ACCEPT
    $j=j+1
}
//变换参考线高度
MODE NOGUI GEOMETRY_TRANSFORM START PATTERN ;
MODE NOGUI TRANSFORM TYPE SCALE
MODE NOGUI TRANSFORM COPY NO
MODE NOGUI TRANSFORM SCALE LOCK Z ON
MODE NOGUI TRANSFORM SCALE FACTOR $Height
MODE NOGUI GEOMETRY_TRANSFORM FINISH ACCEPT
//变换到激活坐标系
MODE NOGUI GEOMETRY_TRANSFORM START PATTERN ;
MODE NOGUI GEOMETRY_TRANSFORM TOWORK
MODE NOGUI GEOMETRY_TRANSFORM FINISH ACCEPT
字库也共享出来了：
Text.zip (113.37 KB, 下载次数: 1363)

2016-12-30 09:00 上传

点击文件名下载附件

JAMES_HZG

解决了我的问题

坐看风起云动

谢谢分享

txl280142787

2017版本的可以不

txl280142787

2017版本的 行不{:tongue:}

txl280142787

你发的源代码怎么用啊

lemon爸爸

厉害了   谢谢大神分享

王琳琅

这个怎么是根据世界坐标系排列的啊，怎么改啊

85403003

PM2016用宏实现的刻字功能！666666666666666666

lsf2750

非常感谢