[討論]以VBA或是LISP取得配置的視埠在模型空間裡對應的角點?

各位前輩,高手,大家好!
我有個問題想要請教,有關配置中如果加了數個視埠,目前先假設只有單一視埠好了,視埠會對應到模型空間裡的位置,我想要(用程式)取得視埠對應範圍在模型空間裡的左下角點(數據)與右上角點(數據),
請問有什麼方法可以取得嗎?使用LISP或是VBA都可以.

說明圖示如下:



在國外的論壇上找到我需要的資訊了,貼出來分享給有需要的人.
http://www.cadtutor.net/forum/archive/index.php/t-21820.html

ginse0727 寫到:在國外的論壇上找到我需要的資訊了,貼出來分享給有需要的人.
http://www.cadtutor.net/forum/archive/index.php/t-21820.html

多謝分享找到的資訊～
不知道你的用途是用在哪呢？

是這樣的,現階段我在畫施工圖大多採用外部參考的模式,也就是主要的圖面畫在一張參考檔,其他的檔案都是參考外部參考檔的,舉例來說像是詳圖統統畫在一個外參裡,所有的圖檔全部都是去抓外參,只是視埠鎖定的位置不同,這樣的目的主要是方便查詢和修改圖面,但是竣工時就必需把圖面BIND進個別的檔案中,並清空圖面的不必要資訊,我想做的是把點選視埠後,只保留模型空間裡視埠內的圖元,其他非視埠外的圖元統統刪除.

ginse0727 寫到:是這樣的,現階段我在畫施工圖大多採用外部參考的模式,也就是主要的圖面畫在一張參考檔,其他的檔案都是參考外部參考檔的,舉例來說像是詳圖統統畫在一個外參裡,所有的圖檔全部都是去抓外參,只是視埠鎖定的位置不同,這樣的目的主要是方便查詢和修改圖面,但是竣工時就必需把圖面BIND進個別的檔案中,並清空圖面的不必要資訊,我想做的是把點選視埠後,只保留模型空間裡視埠內的圖元,其他非視埠外的圖元統統刪除.

是啊！我以前也是一個參考檔有很多圖面，每張個別BIND圖之後都沒有將其他非視埠外的圖元統統刪除，造成每張檔案過大。
你這個主意方式非常好！
後然BIND圖之後，是再搭配程式或腳本檔批次處理每張圖嗎！

是的,我就是想把這種繁雜的工作交給電腦,然後躲在一旁喝咖啡聊是非.

另外請教您一個問題,有關腳本的執行,如果腳本上加上是lisp寫出來的指令,可以執行嗎?
之前我試過,好像除了AUTOCAD內建的指令,自已編寫的指令,執行時會顯示找不到指令,
您有遇過這樣的情況嗎?有的話是怎麼克服的呢?

ginse0727 寫到:是的,我就是想把這種繁雜的工作交給電腦,然後躲在一旁喝咖啡聊是非.

另外請教您一個問題,有關腳本的執行,如果腳本上加上是lisp寫出來的指令,可以執行嗎?
之前我試過,好像除了AUTOCAD內建的指令,自已編寫的指令,執行時會顯示找不到指令,
您有遇過這樣的情況嗎?有的話是怎麼克服的呢?

腳本上加上是lisp指令，是可以執行的～
有時候要測試看看有沒有衝突，基本上我執行都沒有問題～
你可能要上傳你的腳本來討論看看！

可能是我測試用的電腦,使用的CAD有問題,因為就算程式中已載入了(vl-load-com),執行到下列這段程式 vlax-ename->vla-object,命令欄就會出現no function,現在空閒時間比較少,沒法子全心的來測試,等後續有完整一點的成果,再貼出來跟大家分享.

ginse0727 寫到:可能是我測試用的電腦,使用的CAD有問題,因為就算程式中已載入了(vl-load-com),執行到下列這段程式 vlax-ename->vla-object,命令欄就會出現no function,現在空閒時間比較少,沒法子全心的來測試,等後續有完整一點的成果,再貼出來跟大家分享.

這樣啊...可能是我的程式較簡單吧～

將程式下載後,在AutoCAD中載入下載的檔案
執行指令為dme
選取視埠,即可刪除模型空間中視埠外的圖元.
可搭配腳本使用做批次的刪除.
程式主要是自已整理圖檔要用到,
順便提供給大家參考看看.

以下回覆可見

Tiger&蘋果爸 寫到:

ginse0727 寫到:可能是我測試用的電腦,使用的CAD有問題,因為就算程式中已載入了(vl-load-com),執行到下列這段程式 vlax-ename->vla-object,命令欄就會出現no function,現在空閒時間比較少,沒法子全心的來測試,等後續有完整一點的成果,再貼出來跟大家分享.

這樣啊...可能是我的程式較簡單吧～

蘋果爸你客氣了,我覺得好像是在win10 好像把visual lisp activex 的部份功能拿掉了,因為在公司用AutoCAD 2016,程式跑起來正常,可是在家裡測試就出問題了,
測試的條件只差別在作業環境是win10跟win7.

不過我還在確認到底是什麼原因.