AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

*<已解決>AutoCAD有沒有快速的方法能計算地形圖上小方格的交點?

上一篇主題 下一篇主題 向下

*<已解決>AutoCAD有沒有快速的方法能計算地形圖上小方格的交點?

發表 由 ilan0312 于 2008-10-27, 12:03

目前小弟我尚有一個非常困擾的問題,就是AutoCAD地形圖上的小方格與地形等高線的交點,有沒有快速方法可以算出地形圖上每一格方格上交點,如果有,請告訴我,謝謝!!
Tiger&蘋果爸,檔案我有寄給您!

ilan0312
新手上路
新手上路

文章總數 : 7
年齡 : 31
來自 : 台灣台北
職業 : 學生
愛好 : 漫畫、美食、美女
經驗值 : 3269
威望值 : 0
注冊日期 : 2008-09-12
男 雙魚座 虎

回頂端 向下

回復: *<已解決>AutoCAD有沒有快速的方法能計算地形圖上小方格的交點?

發表 由 Tiger&蘋果爸 于 2008-10-28, 03:13

最快的方式是透過AutoLISP程式來滿足,若沒有程式基礎倒是可以透過 資料萃取 DATAEXTRACTION指令(2008以上版本)。
進行 萃取座標值 時,直接過濾出 點 的座標值即可,資料萃取完畢後可以直接插入AutoCAD表格或是輸出成外部檔案(*.xls)
PS:參考步驟說明可以參考 F1 使用者說明。

※測完請回報,這是禮貌喔~問題若順利解決,請編輯該主題在前面加入<已解決>。
竊喜

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17064
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 63868
威望值 : 12639
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: *<已解決>AutoCAD有沒有快速的方法能計算地形圖上小方格的交點?

發表 由 ilan0312 于 2008-10-28, 12:06

Tiger&蘋果爸 寫到:最快的方式是透過AutoLISP程式來滿足,若沒有程式基礎倒是可以透過 資料萃取 DATAEXTRACTION指令(2008以上版本)。
進行 萃取座標值 時,直接過濾出 點 的座標值即可,資料萃取完畢後可以直接插入AutoCAD表格或是輸出成外部檔案(*.xls)
PS:參考步驟說明可以參考 F1 使用者說明。

※測完請回報,這是禮貌喔~問題若順利解決,請編輯該主題在前面加入<已解決>。
竊喜

謝謝蘋果爸您的熱心解說,最快的方法果然還是要用AutoLISP來解決,可惜我沒有程式的基礎,只好用DATAEXTRACTION指令試試看,不過還是要謝謝您提供的方法!

ilan0312
新手上路
新手上路

文章總數 : 7
年齡 : 31
來自 : 台灣台北
職業 : 學生
愛好 : 漫畫、美食、美女
經驗值 : 3269
威望值 : 0
注冊日期 : 2008-09-12
男 雙魚座 虎

回頂端 向下

回復: *<已解決>AutoCAD有沒有快速的方法能計算地形圖上小方格的交點?

發表 由 Tiger&蘋果爸 于 2008-10-29, 01:36

ilan0312 寫到:
謝謝蘋果爸您的熱心解說,最快的方法果然還是要用AutoLISP來解決,可惜我沒有程式的基礎,只好用DATAEXTRACTION指令試試看,不過還是要謝謝您提供的方法!
不客氣~有問題請再提出來討論喔!!

※測完請回報,這是禮貌喔~問題若順利解決,請編輯該主題在前面加入<已解決>。
※我會持續追蹤您的問題,不管有沒有解決要做個處理回應喔!
竊喜

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17064
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 63868
威望值 : 12639
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: *<已解決>AutoCAD有沒有快速的方法能計算地形圖上小方格的交點?

發表 由 歐土 于 2008-11-20, 13:22

用lisp就可以很快,順利處理
以下提供你lsp 及dcl檔
代碼:

(defun c:exp14()

  (setq dcl_id (load_dialog "exp14"))
  (if (< dcl_id 0) (exit))
  (setq chk_dd 10 area_sum 0 txt_num 0)
  (setq txt "共選取: 0 物件")
  (while (> chk_dd 1)
    (new_dialog "exp14" dcl_id)
    (set_tile "sel_num" txt)
    (set_tile "area_sum" (rtos area_sum 2))
    (action_tile "sel_key" "(sel_obj)")
    (action_tile "pick_key" "(pick_obj)")
    (action_tile "clear_key" "(set_tile \"area_sum\" \"0\")")
    (action_tile "accept" "(ok_exp18)")
    (setq chk_dd (start_dialog))
    (cond ((= chk_dd 1) (draw_exp18))
          ((= chk_dd 2) (sel_obj2))
          ((= chk_dd 3) (pick_obj2))
    )
  )
  (unload_dialog dcl_id)
)

(defun sel_obj()
  (setq area_sum (atof (get_tile "area_sum")))
  (done_dialog 2)
)

(defun sel_obj2()
  (princ "\n選取封閉物件....")
  (setq ss (ssget))
  (setq i 0)
  (repeat (sslength ss)
    (setq ssn (ssname ss i))
    (command "area" "o" ssn)
    (setq s_area (getvar "area"))
    (setq area_sum (+ area_sum s_area))
    (setq i (1+ i))
  )
  (setq txt_num (+ txt_num (sslength ss)))
  (setq txt (strcat "共選取: " (itoa txt_num) " 物件"))
)

(defun pick_obj()
  (setq area_sum (atof (get_tile "area_sum")))
  (done_dialog 3)
)

(defun pick_obj2()
  (setq ss (ssadd))
  (setq pt (getpoint "\選取內部點:"))
  (while (/= pt nil)
    (setvar "cecolor" "1")
    (command "bpoly" pt "")
    (command "area" "o" (entlast))
    (setq ss (ssadd (entlast) ss))
    (setq s_area (getvar "area"))
    (setq area_sum (+ area_sum s_area))
    (setq pt (getpoint "\選取內部點:"))
    (setq txt_num (1+ txt_num))
  ) 
  (command "erase" ss "")
  (setq txt (strcat "共選取: " (itoa txt_num) " 物件"))
  (setvar "cecolor" "bylayer")
)


(defun ok_exp18()
  (setq area_sum (get_tile "area_sum"))
  (setq ww_key (get_tile "ww_key"))
  (done_dialog 1)
)

(defun draw_exp18()
  (if (= ww_key "1")
    (progn
      (setq pt (getpoint "\n插入點:"))
      ;(setq hh_1 (getvar "textsize"))
      (setq hh (getvar "textsize"))
      ;(setq hh (getdist pt (strcat "\n字高<" (rtos hh_1 2) ">:")))
      ;(if (= hh nil) (setq hh hh1))
      ;(setq ang (getangle pt "\n旋轉角<0>:"))
      ;(if (= ang nil) (setq ang 0))
        (setq ang 0)
      (command "text" pt hh ang area_sum)
    )
    (progn
      (princ (strcat "\n面積總和=" area_sum ))
      (prin1)
    )
  )
)
(princ "\n< C:EXP14 >----面積計算")
(prin1)

以下為dcl檔
代碼:

exp14:dialog {
      label="面積計算";
      :boxed_column {
          label="面積總和";
          :edit_box {
            key="area_sum";
          }
      }
      :row {
          :button {
            label="選取物件";
            key="sel_key";
          }
          :button {
            label="點選點";
            key="pick_key";
          }
          :button {
            label="清除";
            key="clear_key";
          }
        }
      :text {
          key="sel_num";
      }
      spacer_1;
      :row {
        :toggle {
            label="寫入圖面";
            key="ww_key";
            value="1";
        }
          ok_cancel; 
        }
    }
avatar
歐土
新手上路
新手上路

文章總數 : 2
年齡 : 55
來自 : 台灣桃園縣
職業 :
經驗值 : 3238
威望值 : 0
注冊日期 : 2008-10-07
男 獅子座 虎

回頂端 向下

請問這個lsp只能寫出面積嗎

發表 由 hung 于 2008-11-21, 02:48

請問這個lsp只能寫出面積有可以寫出有幾條線通過格網嗎??
謝謝

hung
一般會員
一般會員

文章總數 : 41
年齡 : 45
來自 : 台北
職業 : 電腦繪圖
愛好 : 看電影
個性 : 樂觀
使用年資 : 15
使用版本 : 2014
經驗值 : 3379
威望值 : 0
注冊日期 : 2008-10-08
女 巨蟹座 鼠

回頂端 向下

回復: *<已解決>AutoCAD有沒有快速的方法能計算地形圖上小方格的交點?

發表 由 Tiger&蘋果爸 于 2008-11-21, 03:08

歐土 寫到:用lisp就可以很快,順利處理
以下提供你lsp 及dcl檔
謝謝程式分享~< 貢獻 +1>

[公告]關於團隊成員的回文及貢獻

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17064
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 63868
威望值 : 12639
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章