刻字---PM2016宏应用

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


字库也同享出来了：
链接：https://pan.baidu.com/s/1X5M9bFS2vSmOek5RptANMw
提取码：

游客，如果您要查看本帖隐藏内容请回复