A. 大螺距矩形螺纹宏程序
加工直螺纹
指令格式: G92 X(U___Z(W)___ F ___
式中: X、Z:取值为螺纹终点坐标值;
U、W:取值为螺纹终点相对循环起点的坐标分量;
F:螺纹的导程。
加工锥螺纹
指令格式: G92 X(U___Z(W)___ R___ F ___
式中: X、Z:取值为螺纹终点坐标值;
U、W:取值为螺纹终点相对循环起点的坐标分量;
R:为圆锥螺纹切削起点和切削终点的半径差。
B. 我想利用cad中的vba编程,画多个个矩形,要求第一点在屏幕上直接输入,再输入矩形的长和高。
可以实现,看看cad的帮助
C. 数控铣床宏程序怎样写 最简单的实例就好。比如说一个正方形100×100外形深50,每次下刀2 请
#1=100
#2=100
#3=50
#4=2
#5=0
G00 X [#1/耐粗2] Y[#2/2]
WHILE #5.LE. #3
G01 Z[-#5] F100
G01 X[-#1/2] F300
Y[-#1/2]
X[#1/2]
Y[#1/2]
G00 Z2
#5=#5+#4
END
大致搏亩明就这样,具体的你在分析下
括号是不是要使用,你看基告看你的设备
D. VB里面怎么画矩形
使用Line方法弯团,向Form,PictureBox这些控件都支持这个方法。
语法:
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]
如:
Me.Line (100,100)-(600,600), vbred, bf
加B这个参数就是矩形,加F就是用就边框颜色填充
补充:
Color参数就是边框颜色埋毕橘,如果省略,就数咐用对象的ForeColor(前景色,就是字体的颜色) 属性值
E. autocad中如何用vba画圆角矩形
您好,是这样的:
1.先是画一个矩形用“L”在输入长度画出一个罩指所需要的矩形。
2.倒4个圆角 其实方法就都一样 输入fillet命令 再输入“R ”后输入你想要倒圆角判嫌的半径(一般都会给出)再选择需要倒圆角的2条边掘闷手就行了 其他3个圆角方法一样。
F. FAUNC数控系统中,如何利用宏程序铣一个方形槽,请编程高手赐教!
o8001;
#27=#[2000+#7]/2;
#28=#27;
#30=#24-#27/2;
#31=#25-#28*2;
IF[#8 NE 0] GOTO 1;
#8=54;
N1 #11=#[2000+#11];
IF[#11 GT 0] GOTO 2;
#11=1.0;
N2 G90 G00 G#8 X#27 Y#28;
Z#18;
#29=0;
WHILE[#29 LT #26] DO1;
#1=0;
#29=#29+#17;
Z-[#29-#17-#11];
IF[#29 LT #26] GOTO 11;
#29=#26;
N11 G01 Z-[#29] F#8;
#32=#27;
#33=0;
IF[#27 EQ 1] GOTO 100;
IF[#22 EQ 1] GOTO 201;
IF[#24 LT #25] GOTO 201;
N100 DO2;
#32=#32+#[2000+#20];
#33=#33+1;
IF[[#33 AND 1] EQ 0] GOTO 101;
X#30;
GOTO 102;
N101 X#27;
N102 IF[#1 EQ 1] GOTO 12;
IF[#32 LT #31] GOTO 103;
#32=#31;
#1=1;
N103 Y#32;
END2;
N201 DO2;
#32=#32+#[2000+#20];
#33=#33+1;
IF[[#33 AND 1] EQ 0] GOTO 202;
Y#31;
GOTO 203;
N202 Y#28;
N203 IF[#1 EQ 1] GOTO 12;
IF[#32 LT #30] GOTO 204;
#32=#30;
#1=1;
N204 X#32;
END2;
N12 IF[#23 NE 1] GOTO 18;
IF[#22 EQ 1] GOTO 15;
Y#28;
IF[[#33 AND 1] EQ 0] GOTO 13;
X#27;
GOTO 14;
N13 X#30;
N14 Y#27;
GOTO 18;
N15 X#27;
IF[[#33 AND 1] EQ 0] GOTO 16;
Y#28;
GOTO 17;
N16 Y#31;
N17 X#30;
N18 G00 Z#18;
X#27 Y#28;
END1;
N99 M99;
调用指令:G65 P8001 D(刀具直径补偿号) E(坐标系选择) F(进给量) H(每次深度进给前刀尖与切削面距离补偿号) Q(深度方向每次增量) R(每层切削完后Z轴返回点) T(宽度方向每次增量) U(为1时以X向为切削方向) V(为1时以Y向为切削方向) X(X向长度) Y(Y向长度)Z(深度) W(为1时最后沿四壁加工一周)
这是十年前用的,很粗糙,不知现在的系统能用不,你再调试一下吧。
G. 数控编程宏程序的指令
宏程序编程
一 变量
普通加工程序直接用数值指定G代码和移动距离;例如,GO1和X100.0。使用用户宏程序时,数值可以直接指定或用变量指定。当用变量时,变量值可用程序或用MDI面板上的操作改变。
#1=#2+100
G01 X#1 F300
说明:
变量的表示
计算机允许使用变量名,用户宏程序不行。变量用变量符号(#)和后面的变量号指定。
例如:#1
表达式可以用于指定变量号。此时,表达式必须封闭在括号中。
例如:#[#1+#2-12]
变量的类型
变量根据变量号可以分成四种类型
变量号
变量类型
功能
#0
空变量
该变量总是空,没有值能赋给该变量.
#1-#33
局部变量
局部变量只能用在宏程序中存储数据,例如,运算结果.当断电时,局部变量被初始化为空.调用宏程序时,自变量对局部变量赋值,
#100-#199
#500-#999
公共变量
公共变量在不同的宏程序中的意义相同.当断电时,变量#100-#199初始化为空.变量#500-#999的数据保存,即使断电也不丢失.
#1000
系统变量
系统变量用于读和写CNC运行时各种数据的变化,例如,刀具的当前位置和补偿值.
变量值的范围
局部变量和公共变量可以有0值或下面范围中的值:
-1047到-10-29或-10-2到-1047
如果计算结果超出有效范围,则发出P/S报警NO.111.
小数点的省略
当在程序中定义变量值时,小数点可以省略。
例:当定义#1=123;变量#1的实际值是123.000。
变量的引用
为在程序中使用变量值,指定后跟变量号的地址。当用表达式指定变量时,要把表达式放在括号中。
例如:G01X[#1+#2]F#3;
被引用变量的值根据地址的最小设定单位自动地舍入。
例如:
当G00X#/;以1/1000mm的单位执行时,CNC把123456赋值给变量#1,实际指令值为G00X12346.
改变引用变量的值的符号,要把负号(-)放在#的前面。
例如:G00X-#1
当引用未定义的变量时,变量及地址都被忽略。
例如:当变量#1的值是0,并且变量#2的值是空时,G00X#1 Y#2的执行结果为G00X0。
双轨迹(双轨迹控制)的公共变量
对双轨迹控制,系统为每一轨迹都提供了单独的宏变量,但是,根据参数N0.6036和6037的设定,某些公共变量可同时用于两个轨迹。
未定义的变量
当变量值未定义时,这样的变量成为空变量。变量#0总是空变量。它不能写,只能读。
引用
当引用一个未定义的变量时,地址本身也被忽略。
当#1=
当#1=0
G90 X100 Y#1
G90 X100
G90 X100 Y#1
G90 X100 Y0
(b) 运算
除了用赋值以外,其余情况下与0相同。
当#1=时
当#1=0时
#2=#1
#2=
#2=#1
#2=0
#2=#*5
#2=0
#2=#*5
#2=0
#2=#1+#1
#2=0
#2=#1+#1
#2=0
(c)条件表达式
EQ和NE中的不同于0。
当#1=时
当#1=0时
#1EQ#0 成立
#1EQ#0 不成立
#1 NE #0 成立
#1 NE #0 不成立
#1 GE #0 成立
#1 GE #0 不成立
#1 GT #0 不成立
#1 GT #0 不成立
限制
程序号,顺序号和任选程序段跳转号不能使用变量。
例:下面情况不能使用变量:
0#1;
/#2G00X100.0;
N#3Y200.0;
二 算术和逻辑运算
下面表中列出的运算可以在变量中执行。运算符右边的表达式可包含常量和或由函数或运算符组成的变量。表达式中的变量#j和#k可以用常数赋值。左边的变量也可以用表达式赋值。
说明:
角度单位
函数SIN ,COS,ASIN,ACOS,TAN和ATAN的角度单位是度。如90°30'表示为90.5度。
ARCSIN # i= ASIN[#j]
(1)取值范围如下:
当参数(NO.6004#0)NAT位设为0时,270°~90°
当参数(NO.6004#0)NAT位设为1时,-90°~90°
(2)当#j超出-1到1的范围时,发出P/S报警NO.111.
(3)常数可替代变量#j
ARCCOS #i=ACOS[#j] 取值范围从180°~0° 当#j超出-1到1的范围时,发出P/S报警NO.111. 常数可替代变量#j
三 程序举例
铣椭圆:
轨迹:
椭圆程序代码如下:
N10 G54 G90 G0 S1500 M03
N12 X0 Y0 Z20.
N14 G0 Z1
N16 G1 Z-5. F150.
N18 G41 D1
N20 #1=0
N22 #2=34
N24 #3=24
N26 #4=#2*COS[#1]
N28 #5=#3*SIN[#1]
N30 #10=#4*COS[45]-#5*SIN[45]
N32 #11=#4*SIN[45]+#5*COS[45]
N34 G1 X#10 Y#11
N36 #1=#1+1
N38 IF [#1 LT 370] GOTO26
N40 G40 G1 X0 Y0
N42 G0 Z100
N44 M30
铣矩形槽:
铣矩形槽代码如下:
#102=0.
N3#100=0.
#101=0.
#103=200.
#104=400.
G91G28Z0.
G0G90G54X0.Y0.
G43H1Z20.
M3S2000.
N4G0X#100Y#101
G01Z#102F200.
#102=#102-2.
IF[#102EQ-50.]GOTO1
GOTO2
N2
N4X#104F500.
Y#103
X#100
Y#101
#100=#100+10.
#101=#101+10.
#103=#103-10.
#104=#104-10.
IF[#100EQ100.]GOTO3
GOTO4
N3
N1
M5
M9
G91G28Z0.
G28Y0.
M30
铣倾斜3度的面:
轨迹:
铣倾斜3度的面的代码如下:
O0001
#[#1+1*2]=1
G65P9012L1A0B0.1C4I100J3K0
M30
宏程序O9012代码如下:
G54 G90 G00 X[#3] Y0 Z100
S500 M3
G01 Z0 F300
WHILE[#1LE10]DO1
#7= #1/TAN[#5]+#3
G1Z-#1 X#7
#8=#6/2-ROUND[#6/2]
IF[#8EQ0]GOTO10
G1Y0
GOTO20
N10 Y#4
N20#1=#1+#2
#6=#6+1
END1
G0
Z100
铣半球:
轨迹:
铣半球代码如下:
G90G0G54X-10.Y0M3S4500
G43Z50.H1M8
#1=0.5
WHILE[#1LE50.]DO1
#2=50.-#1
#3=SQRT[2500.-[#2*#2]]
G1Z-#1F20
X-#3F500
G2I#3
#1=#1+0.5
END1
G0Z50.M5
M30
铣喇叭:
铣喇叭代码如下:
M03 S500
M06 T01
#1=0
#2=0
G0 Z15
X150 Y0
N11
#2=30*SIN[#1]
#3=30+30*[1-COS[#1]]
G01 Z-#2 F40
G41 X#3 D01
G03 I-#3
G40 G01 X150 Y0
#1=#1+1
IF [#1 LE 90] GOTO 11
G0 Z30
M30
H. 用c语言画矩形
每行起始和结束字符均是你的第3个宏散参数
矩形第1行和最后一行中间型绝亩是第3个参数,其他行根据第4个参数决定是空格或者第3个参数
程序可以这样写:
...
for ( m=0;m<a;m++ )
{
printf("%c",c); //第1列
if ( m==0 || m==a-1 ) //第1行和最后一行
for ( n=1;n<b-1;n++ ) printf("%c",c);
else //中间的行
for ( n=1;n<b-1;n++ ) if ( d==0 ) printf(" "); else printf("%c",c); //空心或否
printf("%c\n",c); //最后1列
}
或者可以写:
for ( m=0;m<a;m++ )
{
printf("%c",c); //第1列
if ( m==0 || m==a-1 || d!=0) for ( n=1;n<b-1;n++ ) printf("%c",c);
else for ( n=1;n<b-1;n++ ) printf(" ");
printf("%c\n"卜森,c); //最后1列
}
I. 用C语言编写程序 在屏幕上画一个矩形
#include <math.h>
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <graphics.h>
void polygon(int n, int x, int y, int r, int color, float arg, int fillstyle);
int main()
{
int GraphDriver;
int GraphMode;
float arg = 45, argd;
int a;
int direction;
int r;
int n = 4;
FILE *fp;
char szfilename[255] = {"c:\\cube.txt"};
GraphDriver = DETECT;
printf("Input size of cube: ");
scanf("%d", &r);
printf("Input direction(0-1): ");
scanf("%d", &direction);
if (direction == 0)
{
argd = 45;
}
else
{
argd = -45;
}
initgraph(&GraphDriver, &GraphMode, "");
polygon(n, 300, 200, r, 12, arg, 0);
while(1)
{
while(kbhit())
{
a = getch();
if (a == 27)
{
if ((fp = fopen(szfilename, "wt")) != NULL)
{
fprintf(fp, "%d\n%d\n", r, direction);
fclose(fp);
}
closegraph();
return 0;
}
if (a == 0)
{
getch();
polygon(n, 300, 200, r, 0, arg, 0);
arg += argd;
polygon(n, 300, 200, r, 12, arg, 0);
}
else
{
polygon(n, 300, 200, r, 0, arg, 0);
arg += argd;
polygon(n, 300, 200, r, 12, arg, 0);
}
}
}
}
void polygon(int n, int x, int y, int r, int color, float arg, int fillstyle)
{
double pi;
int i;
float x1[10], y1[10];
setcolor(color);
pi = atan(1) * 4;
arg = atan(1) / 45 * arg;
x1[1] = x + r * cos(2 * pi / n + arg);
y1[1] = y + r * sin(2 * pi / n + arg);
moveto(x1[1], y1[1]);
for (i = 2; i <= n; i++)
{
x1[i] = x + r * cos(2 * pi * i / n + arg);
y1[i] = y + r * sin(2 * pi * i / n + arg);
lineto(x1[i], y1[i]);
}
lineto(x1[1], y1[1]);
if (fillstyle != 0)
{
setfillstyle(SOLID_FILL, color);
floodfill(x, y, color);
}
}
J. 请问新代系统用宏程序,宏矩形格式是怎么样的
#1=0(程序前面)
N10。。。。
。。。。(加闷棚神工程序)
G50 W(工蚂亏件长)
#1=#1+1(每执行完程序记录数加一)
if[#1<6]GOTO10(判断句,如果#1<6则跳到N10段)
G50 W-工件和桥长*6
M30