在120*120的面上用数控铣床刻一朵玫瑰花图案的程序,您能帮忙写意哈吗

在120*120的面上用数控铣床刻一朵玫瑰花图案的程序,您能帮忙写意哈吗,第1张

程序如下

( T2 | | H2 )

N100 G21

N102 G0 G17 G40 G49 G80 G90

N104 T2 M6

N106 G0 G90 G54 X0 Y0 S1000 M3

N108 G43 H2 Z25

N110 X10277 Y18559

N112 Z10

N114 G1 Z-2 F500

N116 G2 X1006 Y18556 I-217 J6974 F200

N118 X4324 Y21561 I0 J6977

N120 X2932 Y23875 I1228 J2314

N122 X3596 Y25617 I262 J0

N124 X-6859 Y19931 I-13139 J11704

N126 G3 X-1507 Y12062 I1511 J-9795

N128 G0 Z248

N130 Z25

N132 X-7913 Y11341

N134 Z10

N136 G1 Z-2 F500

N138 G3 X-12363 Y12461 I-445 J-8283 F200

N140 X-21499 Y5279 I0 J-9403

N142 G2 X-18613 Y7547 I2886 J-702

N144 X-16865 Y6979 I0 J-297

N146 X-15266 Y3838 I-2286 J-3141

N148 X-15442 Y2683 I-3885 J0

N150 G3 X-15945 Y-625 I10627 J-3308

N152 X-9695 Y-10628 I1113 J0

N154 G0 Z248

N156 Z25

N158 X-6387 Y-8849

N160 Z10

N162 G1 Z-2 F500

N164 G3 X-13848 Y-17791 I3529 J-10528 F200

N166 G2 X-1828 Y-21629 I-4432 J64

N168 G1 X-18298

N170 G0 Z248

N172 Z25

N174 X-16564 Y-21287

N176 Z10

N178 G1 Z-2 F500

N180 G3 X-71 Y-22612 I9464 J33148 F200

N182 X1072 Y-21629 I0 J34473

N184 X3035 Y-21779 I1963 J12797

N186 X15982 Y-8832 I0 J12947

N188 X11268 Y1159 I-12947 J0

N190 G0 Z248

N192 Z25

N194 X8955 Y35

N196 Z10

N198 G1 Z-2 F500

N200 G2 X11217 Y-3174 I-8717 J-6674 F200

N202 X5045 Y-13044 I-10979 J0

N204 X45 Y-13285 I-842 J1169

N206 X1278 Y-13662 I-3671 J17413

N208 X1072 Y-13665 I-206 J8181

N210 X-7112 Y-5481 I0 J8184

N212 X-6902 Y-3639 I8184 J0

N214 X-6609 Y-2585 I11945 J-2759

N216 G3 X-6396 Y-1248 I-4085 J1337

N218 X-6833 Y643 I-4298 J0

N220 X-7506 Y1731 I-5864 J-2872

N222 G0 Z248

N224 Z25

N226 X-6111 Y274

N228 Z10

N230 G1 Z-2 F500

N232 G3 X2711 Y1715 I8822 J3744 F200

N234 X5261 Y18 I0 J38465

N236 X10495 Y8183 I-1275 J6383

N238 X10493 Y8347 I-6509 J0

N240 G0 Z248

N242 Z25

N244 X10568 Y8349

N246 Z10

N248 G1 Z-2 F500

N250 G3 X10595 Y869 I-2136 J341 F200

N252 X1004 Y10136 I-2163 J0

N254 G2 X9743 Y10909 I859 J773

N256 X10899 Y12065 I1156 J0

N258 X10968 Y12062 I0 J-1156

N260 X952 Y11733 I-1448 J302

N262 X8073 Y12062 I0 J3349

N264 G3 X607 Y13759 I-7466 J-15576

N266 X-6859 Y12062 I0 J-17273

N268 X-8701 Y10336 I181 J-3777

N270 G2 X-12107 Y8285 I-3508 J197

N272 X-12016 Y8286 I091 J-3579

N274 X-8436 Y4706 I0 J-358

N276 X-8445 Y4452 I-358 J0

N278 G3 X-8454 Y4201 I3517 J-251

N280 X-7941 Y2369 I3526 J0

N282 X-364 Y-883 I6255 J3802

N284 G2 X-441 Y-5089 I-1166 J-4206

N286 X-46 Y-5481 I-4365 J0

N288 X2202 Y-463 I2662 J-3737

N290 X2452 Y-4637 I0 J-4588

N292 X8472 Y-10436 I-348 J-6385

N294 G3 X8705 Y-8575 I-7327 J1861

N296 X3035 Y-1256 I-756 J0

N298 X-1109 Y015 I-5257 J-9757

N300 G2 X-6329 Y3029 I737 J7305

N302 X-71 Y4201 I13395 J965

N304 X-7697 Y6361 I361 J216

N306 X-5217 Y10198 I4207 J0

N308 X-4903 Y10488 I1247 J-1035

N310 X-1943 Y11425 I296 J-4206

N312 X2426 Y8995 I0 J-5143

N314 X2674 Y809 I-1528 J-905

N316 X14 Y6386 I-1776 J0

N318 G3 X6 Y6111 I2698 J-9153

N320 G2 X079 Y6012 I-521 J1322

N322 X-12 Y6816 I0 J1421

N324 G3 X-35 Y6539 I85 J1164

N326 X1091 Y798 I0 J1441

N328 X984 Y8527 I-1441 J0

N330 X-12 Y959 I-2184 J-1711

N332 X-3974 Y6816 I0 J-2774

N334 X-2977 Y4684 I2774 J0

N336 X616 Y3383 I3593 J4311

N338 X6228 Y8995 I0 J5612

N340 X4906 Y12613 I-5612 J0

N342 X607 Y13759 I-4299 J-749

N344 G0 Z248

N346 Z25

N348 X-3166 Y13342

N350 Z10

N352 G1 Z-2 F500

N354 G2 X8073 Y18729 I11239 J-903 F200

N356 X13642 Y17609 I0 J-14417

N358 G3 X18834 Y16566 I5192 J12395

N360 X21134 Y16764 I0 J13438

N362 X18776 Y11099 I5625 J-5665

N364 X18834 Y10136 I7983 J0

N366 G0 Z248

N368 Z25

N370 X19019 Y10119

N372 Z10

N374 G1 Z-2 F500

N376 G2 X19703 Y6144 I-11216 J-3975 F200

N378 X13642 Y-4225 I-119 J0

N380 G0 Z248

N382 Z25

N384 X12322 Y-17852

N386 Z10

N388 G1 Z-2 F500

N390 G3 X31307 Y-27253 I18985 J1447 F200

N392 X32653 Y-27214 I0 J23871

N394 G0 Z248

N396 Z25

N398 X21322 Y-25064

N400 Z10

N402 G1 Z-2 F500

N404 G2 X35 Y-6517 I77265 J-42663 F200

N406 G0 Z248

N408 Z25

N410 Y-2676

N412 Z10

N414 G1 Z-2 F500

N416 G3 X20729 Y-20452 I3935 J-17776 F200

N418 X21322 Y-25064 I18206 J0

N420 G1 F500

N422 G3 X30266 Y-23284 I-10423 J75746 F200

N424 X35096 Y-13653 I-7186 J9631

N426 X35 Y-12129 I-12016 J0

N428 G0 Z248

N430 Z25

N432 Y-13653

N434 Z10

N436 G1 Z-2 F500

N438 X26122 Y-17341 F200

N440 G0 Z248

N442 Z25

N444 X27553 Y-15497

N446 Z10

N448 G1 Z-2 F500

N450 X21264 Y-16069 F200

N452 G0 Z248

N454 Z25

N456 X8088 Y-20752

N458 Z10

N460 G1 Z-2 F500

N462 G3 X29796 Y-30001 I21708 J20852 F200

N464 X32653 Y-29864 I0 J30101

N466 G0 Z248

N468 Z25

N470 X14675 Y-25926

N472 Z10

N474 G1 Z-2 F500

N476 G3 X9704 Y-24587 I-4971 J-8556 F200

N478 X882 Y-30 I0 J-9895

N480 G0 Z248

N482 Z25

N484 X15127 Y-26184

N486 Z10

N488 G1 Z-2 F500

N490 G2 X1053 Y-30 I-122314 J142658 F200

N492 G0 Z25

N494 M5

N496 G91 G28 Z0

N498 M30

桌面涂鸦VB程序代码

Option Explicit

Public Type POINTAPI

x As Long

y As Long

End Type

Public nXn As Long

Public gfqw As Long

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public sbsb As POINTAPI

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Public Type MOUSEMSGS

x As Long 'x座标

y As Long 'y座标

a As Long

b As Long

time As Long 'Window运行时间

End Type

Public Const WH_MOUSE_LL = 14

Public Const MB_OK = &H0&

Public Const MB_ICONASTERISK = &H40&

Public Type MSLLHOOKSTRUCT

pt As POINTAPI

mouseData As Long

Flags As Long

time As Long

dwExtraInfo As Long

End Type

Public hHook As Long

'-----------------------------------------

'消息

Public Const HC_ACTION = 0

Public Const HC_SYSMODALOFF = 5

Public Const HC_SYSMODALON = 4

'鼠标消息

Public Const WM_MOUSEMOVE = &H200

Public Const WM_LBUTTONDOWN = &H201

Public Const WM_LBUTTONUP = &H202

Public Const WM_LBUTTONDBLCLK = &H203

Public Const WM_RBUTTONDOWN = &H204

Public Const WM_RBUTTONUP = &H205

Public Const WM_RBUTTONDBLCLK = &H206

Public Const WM_MBUTTONDOWN = &H207

Public Const WM_MBUTTONUP = &H208

Public Const WM_MBUTTONDBLCLK = &H209

Public Const WM_MOUSEACTIVATE = &H21

Public Const WM_MOUSEFIRST = &H200

Public Const WM_MOUSELAST = &H209

Public Const WM_MOUSEWHEEL = &H20A

Public Declare Function GetActiveWindow Lib "user32" () As Long

Public MouseMsg As MOUSEMSGS '鼠标消息结构体

Public lHook As Long '勾子句柄

Public sbss As POINTAPI

'鼠标钩子函数

Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long

Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI

If wParam = WM_MOUSEMOVE Then

Call CopyMemory(typMHS, ByVal lparam, LenB(typMHS))

pt = typMHSpt

DebugPrint "mouse Cursor at " + CStr(ptx) + "," + CStr(pty)

GetCursorPos sbsb

End If

If wParam = WM_LBUTTONDOWN Then

Form1Timer2Enabled = True

nXn = 2

GetCursorPos sbss

End If

If wParam = WM_RBUTTONDOWN Then

End If

If wParam = WM_LBUTTONUP Then '按下中间记下这个值,然后调用一个过程,我的鼠标没有中键,自己测试一下

Form1Timer2Enabled = False

HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)

End If

End Function

'卸载勾子

Public Sub StopHook()

If lHook <> 0 Then lHook = UnhookWindowsHookEx(lHook)

End Sub

'===================== 模块结束 ========================

Public Sub FreeHook()

If hHook <> 0 Then

Call UnhookWindowsHookEx(hHook)

hHook = 0

End If

End Sub

Public Sub EnableHook()

If hHook = 0 Then

hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, ApphInstance, 0)

End If

End Sub

玫瑰玫瑰章小惠小程序的东西好。根据查询相关公开信息,玫瑰章小惠小程序是一款帮助用户在线创建简单有趣的玫瑰图案的应用程序。它专为手机用户设计,能够方便地创建出精致的玫瑰章,而且还可以搭配不同颜色、图案等,从而营造出精致的感觉。总的来说,它是一款优秀的应用程序,值得使用。

以上就是关于在120*120的面上用数控铣床刻一朵玫瑰花图案的程序,您能帮忙写意哈吗全部的内容,包括:在120*120的面上用数控铣床刻一朵玫瑰花图案的程序,您能帮忙写意哈吗、在桌面上显示很多玫瑰花的一个vb小程序代码、玫瑰是玫瑰章小惠小程序的东西怎么样等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/9337439.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-27
下一篇 2023-04-27

发表评论

登录后才能评论

评论列表(0条)

保存