Mission Planner 使用手册中文！打印版！！！

付之一笑

如题！开源无人机地面站培训教材。默认A4纸打印！
文档地址：
链接：https://pan.baidu.com/s/1Jvvssyezr4HUrJr_8UQ8aQ
提取码：3zi8
复制这段内容后打开百度网盘手机App，操作更方便哦


图片自动调整的宏：《图片按页宽等比缩放》
链接：https://pan.baidu.com/s/1GwjHWouc6UKrI4iVfxBiCg
提取码：qwdi
复制这段内容后打开百度网盘手机App，操作更方便哦


宏代码：2.54即页边距；29.7X21即A4纸的大小；根据需要自己调整（VBA自学的，没搞明白怎么自动获取这些值，知道的欢迎回贴！3Q）
-----------------------------------------------------------------------------------------------------------------
Sub 图片按页宽等比缩放()

Dim n '图片个数
Dim myShape As Variant
Dim picheight
Dim picwidth
Dim pheight
Dim pwidth

On Error Resume Next '忽略错误

Set doc = ActiveDocument
pheight = CentimetersToPoints(29.7 - 2.54 - 2.54)
pwidth = CentimetersToPoints(21 - 2.54 - 2.54)

MsgBox "InlineShape = " & doc.InlineShapes.Count & _
    vbCr & "Shapes = " & doc.Shapes.Count

For n = 1 To doc.InlineShapes.Count 'InlineShapes类型图片
Set myShape = doc.InlineShapes(n)
    myShape.LockAspectRatio = msoTrue
    picheight = myShape.Height / myShape.ScaleHeight * 100
    picwidth = myShape.Width / myShape.ScaleWidth * 100
        If picheight > pheight Or picwidth > pwidth Then
            If picheight / pheight > picwidth / pwidth Then
                myShape.ScaleHeight = Fix(pheight / picheight * 100)
            Else
                myShape.ScaleWidth = Fix(pwidth / picwidth * 100)
            End If
        Else
            myShape.ScaleHeight = 100
            myShape.ScaleWidth = 100
        End If
Next n

End Sub

fjxmy

很给力

xxiejun_001

谢谢楼主，把贴顶起来。

quasiflight

哈，这玩意居然还有中文翻译。话说回来，还是得好好学英语啊……

叶雪儿

sssjiatao 发表于 2021-4-17 17:51
楼主，请教下 4+1固定翼回来转多轴会抬头上升怎么解决 谢谢

转多轴飞机减个速或者转多轴每秒转到角度小一点可以不

最终幻想13

谢谢楼主

Chenbing8888

19930102fxy

帮顶拿货

shuzaxi

好东西

sssjiatao

楼主，请教下 4+1固定翼回来转多轴会抬头上升怎么解决 谢谢

shuzaxi

跳入死亡湖

感谢楼主，已经下载学习

xiaoguosir

抱走了，感谢分享

acer05

收藏了，谢谢楼主

文哥仔

帮顶一下拿分走人

付之一笑

sky02203 发表于 2019-9-2 12:01
樓主可以發QQ嗎

已经不记得密码了，得有一两年没登陆过账号了！

sky02203

樓主可以發QQ嗎

mhplcc

楼主手里硬货真不少呀。感谢分享！

guozhima

多谢楼主

ly308244935