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
  • 經常看到有群友調侃“為什麼搞Java的總在學習JVM調優?那是因為Java爛!我們.NET就不需要搞這些!”真的是這樣嗎?今天我就用一個案例來分析一下。 昨天,一位學生問了我一個問題:他建了一個預設的ASP.NET Core Web API的項目,也就是那個WeatherForecast的預設項目模 ...
  • 很多軟體工程師都認為MD5是一種加密演算法,然而這種觀點是不對的。作為一個 1992 年第一次被公開的演算法,到今天為止已經被髮現了一些致命的漏洞。本文討論MD5在密碼保存方面的一些問題。 ...
  • Maven可以使我們在構建項目時需要用到很多第三方類jar包,如下一些常用jar包 而maven的出現可以讓我們避免手動導入jar包出現的某些問題,它可以自動下載那須所需要的jar包 我們只需要在創建的maven項目自動生成的pom.xml中輸入如下代碼 <dependencies> <!--ser ...
  • 來源:https://developer.aliyun.com/article/694020 非同步調用幾乎是處理高併發Web應用性能問題的萬金油,那麼什麼是“非同步調用”? “非同步調用”對應的是“同步調用”,同步調用指程式按照定義順序依次執行,每一行程式都必須等待上一行程式執行完成之後才能執行;非同步調 ...
  • 1.面向對象 面向對象編程是在面向過程編程的基礎上發展來的,它比面向過程編程具有更強的靈活性和擴展性,所以可以先瞭解下什麼是面向過程編程: 面向過程編程的核心是過程,就是分析出實現需求所需要的步驟,通過函數一步一步實現這些步驟,接著依次調用即可,再簡單理解就是程式 從上到下一步步執行,從頭到尾的解決 ...
  • 10瓶毒藥其中只有一瓶有毒至少需要幾隻老鼠可以找到有毒的那瓶 身似浮雲,心如飛絮,氣若游絲。 用二分查找和二進位位運算的思想都可以把死亡的老鼠降到最低。 其中,二進位位運算就是每一隻老鼠代表一個二進位0或1,0就代表老鼠存活,1代表老鼠死亡;根據數學運算 23 = 8、24 = 16,那麼至少需要四 ...
  • 一、Kafka存在哪些方面的優勢 1. 多生產者 可以無縫地支持多個生產者,不管客戶端在使用單個主題還是多個主題。 2. 多消費者 支持多個消費者從一個單獨的消息流上讀取數據,而且消費者之間互不影響。 3. 基於磁碟的數據存儲 支持消費者非實時地讀取消息,由於消息被提交到磁碟,根據設置的規則進行保存 ...
  • 大家好,我是陶朱公Boy。 前言 上一篇文章《關於狀態機的技術選型,最後一個真心好》我跟大家聊了一下關於”狀態機“的話題。從眾多技術選型中我也推薦了一款阿裡開源的狀態機—“cola-statemachine”。 於是就有小伙伴私信我,自己項目也考慮引入這款狀態機,但網上資料實在太少,能不能系統的介紹 ...
  • 使用腳本自動跑實驗(Ubuntu),將實驗結果記錄在文件中,併在實驗結束之後將結果通過郵件發送到郵箱,最後在windows端自動解析成excel表格。 ...
  • 話說在前面,我不是小黑子~ 我是超級大黑子😏 表弟大周末的跑來我家,沒事幹天天騷擾我,搞得我都不能跟小姐姐好好聊天了,於是為了打發表弟,我決定用Python做一個小游戲來消耗一下他的精力,我思來想去,決定把他變成小黑子,於是做了一個坤坤打籃球的游戲,沒想到他還挺愛玩的~ 終於解放了,於是我把游戲寫 ...