设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 网络资源区 › 电脑技术研讨 › 内摆线动态绘制
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 11232|回复: 1

内摆线动态绘制

[复制链接]
老刘1号
发表于 2020-2-13 13:24:56 | 显示全部楼层 |阅读模式
本帖最后由 老刘1号 于 2020-3-1 22:22 编辑

视频演示
更新：4线同步绘制。
语言：Clogo旧版本（需要请自行站内搜索）
  1. @ECHO OFF&@MODE 180,44&@TITLE 【老刘制作】内摆线&@Pause>nul&@CLGO "%~F0"&@Pause>nul&@Exit


  4. TO MAIN2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :绘制圈数 :精度
  5.         MAKE :大圆半径=250 :精度=100

  7.         CS
  8.         PU
  9.         MAKE :绘制中心X=-500 :绘制中心Y=0
  10.         MAKE :小圆半径=:大圆半径/2 :绘制圈数=1
  11.         SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
  12.         WAIT 100
  13.         TEXT 30 3 7 微软雅黑 1：2内摆线
  14.         DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  15.        
  16.         WAIT 2000
  17.         CS
  18.         PU
  19.         MAKE :绘制中心X=-500 :绘制中心Y=0
  20.         MAKE :小圆半径=:大圆半径/3 :绘制圈数=1
  21.         SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
  22.         WAIT 100
  23.         TEXT 30 3 7 微软雅黑 1：3内摆线
  24.         DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  25.        
  26.         WAIT 2000
  27.         CS
  28.         PU
  29.         MAKE :绘制中心X=-500 :绘制中心Y=0
  30.         MAKE :小圆半径=:大圆半径/4 :绘制圈数=1
  31.         SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
  32.         WAIT 100
  33.         TEXT 30 3 7 微软雅黑 1：4内摆线
  34.         DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0

  36.         WAIT 2000
  37.         CS
  38.         PU
  39.         MAKE :绘制中心X=-500 :绘制中心Y=0
  40.         MAKE :小圆半径=:大圆半径/5 :绘制圈数=1
  41.         SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
  42.         WAIT 100
  43.         TEXT 30 3 7 微软雅黑 1：5内摆线
  44.         DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0

  46.         WAIT 2000
  47.         CS
  48.         PU
  49.         MAKE :绘制中心X=-500 :绘制中心Y=0
  50.         MAKE :小圆半径=:大圆半径*3/7 :绘制圈数=3
  51.         SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
  52.         WAIT 100
  53.         TEXT 30 3 7 微软雅黑 3：7内摆线
  54.         DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0


  57.         WAIT 2000
  58.         CS
  59.         PU
  60.         MAKE :绘制中心X=-500 :绘制中心Y=0
  61.         MAKE :小圆半径=:大圆半径*5/11 :绘制圈数=5
  62.         SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
  63.         WAIT 100
  64.         TEXT 30 3 7 微软雅黑 5：11内摆线
  65.         DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0


  68.         WAIT 2000
  69.         CS
  70.         PU
  71.         MAKE :绘制中心X=-500 :绘制中心Y=0
  72.         MAKE :小圆半径=:大圆半径/pi :绘制圈数=7
  73.         SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
  74.         WAIT 100
  75.         TEXT 30 3 7 微软雅黑 1：π内摆线
  76.         DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0


  79. TO DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 :延时 :小圆旋转角 :大圆旋转角 :小圆圆心X :小圆圆心Y :上一次内摆线1_1X :上一次内摆线1_1Y :上一次内摆线1_2X :上一次内摆线1_2Y :上一次内摆线2X :上一次内摆线2Y :上一次内摆线3X :上一次内摆线3Y :上一次内摆线4X :上一次内摆线4Y
  80.         MAKE :大圆旋转角=0 :小圆旋转角=0
  81.         MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
  82.         MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
  83.         MAKE :上一次内摆线1_1X=:小圆圆心X+:小圆半径*cos(-1*:小圆旋转角)
  84.         MAKE :上一次内摆线1_1Y=:小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
  85.         MAKE :上一次内摆线1_2X=:小圆圆心X-:小圆半径*cos(-1*:小圆旋转角)
  86.         MAKE :上一次内摆线1_2Y=:小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
  87.         MAKE :上一次内摆线2X=:小圆圆心X+:小圆半径*cos(-1*:小圆旋转角)+2*:大圆半径+5
  88.         MAKE :上一次内摆线2Y=:小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
  89.         MAKE :上一次内摆线3X=:小圆圆心X-:小圆半径*cos(-1*:小圆旋转角)+2*(2*:大圆半径+5)
  90.         MAKE :上一次内摆线3Y=:小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
  91.         FOR ::Theta 0 :精度*:绘制圈数 1 [
  92.                 MAKE :大圆旋转角=::Theta*2*pi/:精度 :小圆旋转角=((:大圆半径-:小圆半径)/:小圆半径)*:大圆旋转角
  93.                 MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
  94.                 MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
  95.                 MAKE :PENC=15 :PENA=255
  96.                 SETXY :绘制中心X :绘制中心Y
  97.                 OVAL :大圆半径 :大圆半径  0
  98.                 MAKE :PENC=10 :PENA=40
  99.                 SETXY :小圆圆心X :小圆圆心Y
  100.                 OVAL :小圆半径 :小圆半径  0
  101.                 MAKE :PENC=5 :PENA=255
  102.                 SETXY :上一次内摆线1_1X :上一次内摆线1_1Y
  103.                 PD
  104.                 SETXY :小圆圆心X+:小圆半径*cos(-1*:小圆旋转角) :小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
  105.                 PU
  106.                 MAKE :PENC=5 :PENA=255
  107.                 SETXY :上一次内摆线1_2X :上一次内摆线1_2Y
  108.                 PD
  109.                 SETXY :小圆圆心X-:小圆半径*cos(-1*:小圆旋转角) :小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
  110.                 PU
  111.                
  112.                 MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
  113.                 MAKE :大圆旋转角=::Theta*2*pi/:精度 :小圆旋转角=((:大圆半径-:小圆半径)/:小圆半径)*:大圆旋转角
  114.                 MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
  115.                 MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
  116.                 MAKE :PENC=15 :PENA=255
  117.                 SETXY :绘制中心X :绘制中心Y
  118.                 OVAL :大圆半径 :大圆半径  0
  119.                 MAKE :PENC=10 :PENA=40
  120.                 SETXY :小圆圆心X :小圆圆心Y
  121.                 OVAL :小圆半径 :小圆半径  0
  122.                 MAKE :PENC=5 :PENA=255
  123.                 SETXY :上一次内摆线2X :上一次内摆线2Y
  124.                 PD
  125.                 SETXY :小圆圆心X+:小圆半径*cos(-1*:小圆旋转角) :小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
  126.                 PU
  127.                
  128.                 MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
  129.                 MAKE :大圆旋转角=::Theta*2*pi/:精度 :小圆旋转角=((:大圆半径-:小圆半径)/:小圆半径)*:大圆旋转角
  130.                 MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
  131.                 MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
  132.                 MAKE :PENC=15 :PENA=255
  133.                 SETXY :绘制中心X :绘制中心Y
  134.                 OVAL :大圆半径 :大圆半径  0
  135.                 MAKE :PENC=10 :PENA=40
  136.                 SETXY :小圆圆心X :小圆圆心Y
  137.                 OVAL :小圆半径 :小圆半径  0
  138.                 MAKE :PENC=5 :PENA=255
  139.                 SETXY :上一次内摆线3X :上一次内摆线3Y
  140.                 PD
  141.                 SETXY :小圆圆心X-:小圆半径*cos(-1*:小圆旋转角) :小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
  142.                 PU




  147.                 WAIT 20




  152.                 MAKE :绘制中心X=:绘制中心X-2*(2*:大圆半径+5)
  153.                 MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
  154.                 MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
  155.                 MAKE :PENC=0 :PENA=40
  156.                 SETXY :小圆圆心X :小圆圆心Y
  157.                 OVAL :小圆半径 :小圆半径  0
  158.                 MAKE :上一次内摆线1_1X=:小圆圆心X+:小圆半径*cos(-1*:小圆旋转角)
  159.                 MAKE :上一次内摆线1_1Y=:小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
  160.                 MAKE :上一次内摆线1_2X=:小圆圆心X-:小圆半径*cos(-1*:小圆旋转角)
  161.                 MAKE :上一次内摆线1_2Y=:小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)

  163.                 MAKE :绘制中心X=:绘制中心X+(2*:大圆半径+5)
  164.                 MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
  165.                 MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
  166.                 MAKE :PENC=0 :PENA=40
  167.                 SETXY :小圆圆心X :小圆圆心Y
  168.                 OVAL :小圆半径 :小圆半径  0
  169.                 MAKE :上一次内摆线2X=:小圆圆心X+:小圆半径*cos(-1*:小圆旋转角)
  170.                 MAKE :上一次内摆线2Y=:小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)

  172.                 MAKE :绘制中心X=:绘制中心X+(2*:大圆半径+5)
  173.                 MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
  174.                 MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
  175.                 MAKE :PENC=0 :PENA=40
  176.                 SETXY :小圆圆心X :小圆圆心Y
  177.                 OVAL :小圆半径 :小圆半径  0
  178.                 MAKE :上一次内摆线3X=:小圆圆心X-:小圆半径*cos(-1*:小圆旋转角)
  179.                 MAKE :上一次内摆线3Y=:小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)

  181.                 MAKE :绘制中心X=:绘制中心X-2*(2*:大圆半径+5)
  182.         ]
  183.         MAKE :PENC=15 :PENA=255

  185. TO MAIN
  186.         MAKE :PENW=1
  187.         MAIN2 0 0 0 0 0 0
复制代码

评分

参与人数 1技术 +1 收起 理由
codegay + 1 1

查看全部评分

回复

举报

609980218
发表于 2020-3-17 09:49:09 | 显示全部楼层
厉害，支持楼主
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 04:03 , Processed in 0.018623 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表