MstnVBA學習--Vol1.代碼畫點線--20220623

来源:https://www.cnblogs.com/young89/archive/2022/06/23/16405151.html
-Advertisement-
Play Games

提示:文章寫完後,目錄可以自動生成,如何生成可參考右邊的幫助文檔 @(MstnVBA學習--Vol1.代碼畫點線--20220623) 前言 2022年6月23日,小白筆記,複習之前的MstnVBA代碼,因為目前還做不到完全自己背誦或編寫出來,雖然簡單,溫故知新~ Mstn中沒有單獨的圓的概念,圓實 ...


提示:文章寫完後,目錄可以自動生成,如何生成可參考右邊的幫助文檔

@

目錄


前言

2022年6月23日,小白筆記,複習之前的MstnVBA代碼,因為目前還做不到完全自己背誦或編寫出來,雖然簡單,溫故知新~

Mstn中沒有單獨的圓的概念,圓實際上是橢圓的一種形態,只不過該形態下長半軸和短半軸的值相等: a=b


1. 繪製固定大小的簡單圖形--靶心

Sub Main()
	'聲明變數 
	Dim MyLine As LineElement 
	Dim MyCir As EllipseElement 
	Dim CenPt As Point3d 
	Dim LineSt As Point3d 
	Dim LineEn As Point3d 
	Dim RotMatrix As Matrix3d 
	
	'生成水平線 
	LineSt.X = -1 
	LineEn.X = 1 
	'上面只給了起點LineSt和終點LineEn的x值,y值預設是0,這裡不給值的話那就是(-1,0)到(1,0)的一條線
	Set MyLine = Application.CreateLineElement2(Nothing, LineSt, LineEn) 
	Application.ActiveModelReference.AddElement MyLine 
	
	'生成垂直線 
	LineSt.X = 0: LineSt.Y = 1 
	LineEn.X = 0: LineEn.Y = -1 
	'上面給起點LineSt和終點LineEn賦值0是因為在生成水平線時給他賦值了
	Set MyLine = Application.CreateLineElement2(Nothing, LineSt, LineEn) 
	Application.ActiveModelReference.AddElement MyLine 
	
	'生成圓,用CreateEllipseElement2函數,CenPt是圓心,圓心不賦值的話預設就是(0,0,0),CenPt參數後面緊跟著是圓的a,b半徑
	Set MyCir = Application.CreateEllipseElement2(Nothing, CenPt, 0.25, 0.25, RotMatrix) 
	Application.ActiveModelReference.AddElement MyCir 
	Set MyCir = Application.CreateEllipseElement2(Nothing, CenPt, 0.5, 0.5, RotMatrix) 
	Application.ActiveModelReference.AddElement MyCir 
End Sub

2.繪製不固定大小的簡單圖形--靶心

不知道是個人原因還是哪裡不對,在原書中的這個例子有點問題,原封不動抄下來後卻跑不起來,應該是在DrawTarget過程中沒有定義輸入參數,根據個人理解稍加調整後可以運行,改後代碼如下:

Sub DrawTarget(CenX As Long, CenY As Long, CenZ As Long)
	'聲明變數
	Dim MyLine As LineElement		'LineElement是Mstn線元素
	Dim MyCir As EllipseElement		'EllipseElement是Mstn橢圓元素
	Dim CenPt As Point3d			'聲明原點
	Dim LineSt As Point3d			'聲明起點
	Dim LineEn As Point3d			'聲明終點
	Dim RotMatrix As Matrix3d		'聲明平面
	
	'生成水平線,這段代碼中的x,y,z沒有賦值,調用DrawTarget過程的時候,需要另外賦值才能畫出來圖形
	LineSt.X = CenX - 1 
	LineSt.Y = CenY 
	LineSt.Z = CenZ 
	LineEn.X = CenX + 1 
	LineEn.Y = CenY 
	LineEn.Z = CenZ 
	Set MyLine = Application.CreateLineElement2(Nothing, LineSt, LineEn) 
	Application.ActiveModelReference.AddElement MyLine 
	
	'生成垂直線,這段代碼中的x,y,z沒有賦值,調用DrawTarget過程的時候,需要另外賦值才能畫出來圖形
	LineSt.X = CenX 
	LineSt.Y = CenY + 1 
	LineSt.Z = CenZ 
	LineEn.X = CenX 
	LineEn.Y = CenY - 1 
	LineEn.Z = CenZ 
	Set MyLine = Application.CreateLineElement2(Nothing, LineSt, LineEn) 
	Application.ActiveModelReference.AddElement MyLine 

	'生成圓,這段代碼中的x,y,z沒有賦值,調用DrawTarget過程的時候,需要另外給圓心賦值才能畫出來固定半徑的圓形
	CenPt.X = CenX
	CenPt.Y = CenY 
	CenPt.Z = CenZ 
	Set MyCir = Application.CreateEllipseElement2(Nothing, CenPt, 0.25, 0.25, RotMatrix) 
	Application.ActiveModelReference.AddElement MyCir 
	Set MyCir = Application.CreateEllipseElement2(Nothing, CenPt, 0.5, 0.5, RotMatrix) 
	Application.ActiveModelReference.AddElement MyCir 
End Sub

'下麵是用Main來調用DrawTarget函數來繪製圖形
Sub Main() 
	'繪製靶形圖, 輸入三個參數來繪製圖形
	DrawTarget 0, 0, 0 
	DrawTarget 3, 0, 0 
	DrawTarget -3, 0, 0 
	DrawTarget 0, 3, 0 
	DrawTarget 0, -3, 0 
End Sub 
 

3.按照數組值繪製不固定大小的簡單圖形--靶心

事先並不知道參數數組中有多少個半徑值,有一個半徑值就繪製一個靶心, 所以在程式中使用了一個 For…Next 迴圈來查看每一個值並分別以之為半徑來生成新的圓。

Sub DrawCircle4(X As Double, Y As Double, Z As Double, ParamArray Radii() As Variant)
	'聲明變數
	Dim MyCir As EllipseElement
	Dim CenPt As Point3d
	Dim RotMatrix As Matrix3d
	Dim I As Long
	'生成圓
	CenPt.X = X
	CenPt.Y = Y
	CenPt.Z = Z
	'LBound函數返回一個 Long 型值,其中包含指示的數組維度的最小可用下標
	'UBound函數返回一個 Long 型值,其中包含指示的數組維度的最大可用下標
	For I = LBound(Radii) To UBound(Radii)		
		Set MyCir = Application.CreateEllipseElement2(Nothing, CenPt, Radii(I),Radii(I),RotMatrix)
		Application.ActiveModelReference.AddElement MyCir
	Next I
End Sub

'調用上面的DrawCircle4過程
Sub Main()
	DrawCircle4 1,1,0,0.25,0.5,0.75,1,1.25,1.5 
	'1,1,0是確定圓心位置的,後面的兩個數是數組來繪製6個圓
End Sub


4.返回對象

函數出了返回值和類型外,還能返回對象,下麵例子就是:
如果打開的excel中sheet里對應的B2,C2,D2有內容,那麼在立即視窗里會立刻顯示相應的內容

Function GetExcelWS() As Object		'取得Excel中的當前工作表
	Dim ExcelApp As Object
	Set ExcelApp = GetObject(,"Excel.Application")
	Set GetExcelWs = ExcelApp.activesheet
End Function

Sub TestGetExcelWS()
	Dim MyWS As Object
	Dim Cell1 As Double
	Dim Cell2 As Double
	Dim Cell3 As Double
	Set MyWS = GetExcelWS
	Cell1 = MyWS.Range("B2")
	Cell2 = MyWS.Range("C2")
	Cell3 = MyWS.Range("D2")
End Sub

總結

上面的都是最最簡單的基礎內容, 感覺對於沒啥經驗的人來說,還是需要練手的, 對於有經驗的人,那這內容應該是太小兒科了~


您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • #雙色球系統 ##案例: ##中獎條件及獎金錶 ##代碼及解釋 ###main方法代碼: public static void main(String[] args) { //1.隨機6個紅球號碼(1~33,不能重覆),隨機一個藍球號碼(1~16) int[] num = createLuckNum ...
  • 來源:https://www.51cto.com/article/628604.html 你是否還在大量控制台視窗中監控容器,還是對使用終端命令充滿熱情?而使用Docker的圖形用戶界面(GUI)工具,則可以更簡單的對容器進行管理,並提高效率。而且它們都是免費的。 1.Portainer Porta ...
  • Hi,大家好,我是Mic 一個工作3年的粉絲,早上6點給我微信發語音,把我直接嚇醒。 我以為什麼天大的事情,結果一問才知道。 面試官問了他一個問題沒答上來,問題是“Spring裡面,如果兩個id相同的bean會報錯嗎?如果會,在哪個階段報錯?” 下麵看看普通人和高手的回答! 普通人: 兩個id相同的 ...
  • 作為SpringData JPA系列內容的第二篇,此處以SpringBoot項目為基準,講一下集成SpringData JPA的相關要點,帶你快速的上手SpringData JPA,並用實例演示常見的DB操作場景,讓你分分鐘輕鬆玩轉JPA。 ...
  • 前言 不知道大家在工作無聊時,有沒有一種衝動:總想掏出手機,看看微博熱搜在討論什麼有趣的話題,但又不方便直接打開微博瀏 覽,今天就和大家分享一個有趣的小爬蟲,定時採集微博熱搜榜&熱評,下麵讓我們來看看具體的實現方法。 頁面分析 熱搜頁 熱榜首頁:https://s.weibo.com/top/sum ...
  • Zookeeper3.7源碼剖析 能力目標 能基於Maven導入最新版Zookeeper源碼 能說出Zookeeper單機啟動流程 理解Zookeeper預設通信中4個線程的作用 掌握Zookeeper業務處理源碼處理流程 能夠在Zookeeper源碼中Debug測試通信過程 1 Zookeeper ...
  • 系列文章彙總 前言: 最近看到ABP官網的一本電子書,感覺寫的很好,翻譯出來,一起學習下 Implementing Domain Driven Design 實現領域驅動設計 - 使用ABP框架 - 什麼是領域驅動設計? 實現領域驅動設計 - 使用ABP框架 - 解決方案概覽 實現領域驅動設計 - ...
  • 應用程式服務 應用程式服務是一種無狀態的服務,它實現應用程式的用例。應用程式服務通常獲取和返回dto。它由表示層使用。它使用並協調領域對象(實體、存儲庫等)來實現用例 應用程式服務的常見原則如下: 實現特定於當前用例的應用程式邏輯。不要在應用程式服務內部實現核心領域邏輯。我們將回到應用程式領域邏輯之 ...
一周排行
    -Advertisement-
    Play Games
  • 用例演示 - 創建實體 本節將演示一些示例用例並討論可選場景。 創建實體 從實體/聚合根類創建對象是實體生命周期的第一步。聚合/聚合根規則和最佳實踐部分 建議為Entity類創建一個主構造函數,以保證創建一個有效的實體。因此,無論何時我們需要創建實體的實例,我們都應該使用那個構造函數 參見下麵的問題 ...
  • 領域邏輯 & 應用邏輯 如前所述,領域驅動設計中的業務邏輯分為兩部分(層):領域邏輯和應用邏輯: 領域邏輯由系統的核心領域規則組成,應用邏輯實現應用特定的用例 雖然定義很明確,但實現起來可能並不容易。您可能無法決定哪些代碼應該位於應用程式層,哪些代碼應該位於領域層。本節試圖解釋其中的差異 多個應用程 ...
  • 表弟大學快畢業了,學了一個學期Python居然還不會寫學生管理系統,真的給我丟臉啊,教他又不肯學,還讓我直接給他寫,我真想兩巴掌上去,最終還是寫了給他,誰讓他是我表弟呢,關鍵時候還是得幫他一把! 寫完了放在那也是放著,所以今天分享給大家吧! 話不多說,咱們直接開始吧! 代碼解析 一、登錄頁面 1、定 ...
  • Zookeeper3.7源碼剖析 能力目標 掌握Zookeeper中Session的管理機制 能基於Client進行Debug測試Session創建/刷新操作 能搭建Zookeeper集群源碼配置 掌握集群環境下Leader選舉啟動過程 能說出Zookeeper選舉過程中的概念 能說出Zookeep ...
  • 前言 今天給大家分享一下我自己寫的筆記,純純的都是乾貨,關於字好像也能看。這是我學python整理出來的一些資料,希望對大家 有用。想要更多的資料那就的給一個關註了… python學習交流Q群:903971231### #導入Counter from collections import Count ...
  • Hi,大家好,我是Mic 一個工作5年的粉絲找到我。 他說: “Mic老師,你要是能回答出這個問題,我就佩服你” 我當場就懵了,現在打賭都這麼隨意了嗎? 我問他問題是什麼,他說“Kafka如何避免重覆消費的問題!” 下麵看看普通人和高手的回答! 普通人: Kafka怎麼避免重覆消費就是我們可以通過 ...
  • 前言 Steam是由美國電子游戲商Valve於2003年9月12日推出的數字發行平臺,被認為是電腦游戲界最大的數位發行平臺之一,Steam平臺是全球最大的綜合性數字發行平臺之一。玩家可以在該平臺購買、下載、討論、上傳和分享游戲和軟體。 而每周的steam會開啟了一輪特惠,可以讓游戲打折,而玩家就會 ...
  • 本篇內容將在上一篇已有的內容基礎上,進一步的聊一下項目中使用JPA的一些高階複雜場景的實踐指導,覆蓋了主要核心的JPA使用場景,可以讓你在需求開發的時候對JPA的使用更加的游刃有餘。 ...
  • 1.路徑處理 1.找模塊:sys.path import sys print(sys.path) - 1.理解 - 1.是python去查找包或模塊 - 2.項目開始根目錄,python內置的目錄 - 3.雖然說python的安裝目錄下也可以存放我們寫的模塊,但是不建議(太多了,不大好找) - 4. ...
  • Go 語言入門練手項目系列 01 基於命令行的圖書的增刪查改 02 文件管理 持續更新中... > 本文來自博客園,作者:Arway,轉載請註明原文鏈接:https://www.cnblogs.com/cenjw/p/gobeginner-proj-bookstore-cli.html 介紹 這是一 ...