前一俥子因為工作關係....一直抽不出時間來寫網誌，今天偷偷休息了了一天。
今天來回覆TS網友在【在圖上標上座標(x,y) 】網誌的問題了，原本是可用我之前的【展點及畫線程式(配合Autocad及Excel) 】來解決您的問題，但是有二位網友說這個（展點及畫線程式）並非我朋友所撰寫，因避免惹來不必要的麻煩~~~我已經砍掉這個網誌了，所以您們也看不到這個（展點及畫線程式）了。
没關係．．．之前也有幾位朋友用AutoACD LISP寫了一些不錯的小程式，我感覺是很實用～～分享給大家使用看看，有興趣的朋友可以下載回去試一試。
這些AutoCAD LISP程式它可以整批選擇圖形，篩選出其中的（point點）或（Circel圓心），並提取坐標的資料自動產生文字檔至指定的資料夾中。
１.【圓】圖上自動編號並自動生成座標至文件檔
２.整批導出CAD中的【點】座標自動生成文件檔(圖上没編號)
３.由文字檔的【點】座標資料匯入AutoCAD中自動生成CAD圖
按【觀看全文】.......說明這程式的使用的方法及步驟(今天先介紹第一個【圓】圖上自動編號並自動生成座標至文件檔）
１．打開一個已經畫好的CAD圖, UCS座標(0,0,0)原點要先設定好，那樣標出來的座標才會正確。
２．把點的型式設定修改一下，因為原本的內定值是看不到的，只要把設定值修改成可以看到的型式及大小就行了。
３．開啟一張電腦中的圖檔，UCS座標(0,0,0)原點已經設定好，在右下方。
４．在線的端點畫一個圓，大小自己決定（不要太小，因為也判斷圓的大小來決定標註在圓的裏面的點號的文字大小；字太小就會看不清楚了）。
５．依序把這個圓COPY至每個線的端點。
６．載入LISP應用程式 → HH.LSP。
７．在命令列中輸入HH，便會出現以下畫面，輸入您要匯出的文字資料的位置。
８．把滑鼠指到圓的地方點一下，啾.....一下子它就把全部的圓標上點號上了喔!!，而且利害的是~~每個字都控制大小在這個圓的裏面吔。
９．去您匯出的文字資料的位置，用（記事本）打開那個文字檔........您看!!! 在裏面就有CAD的座標資料了。!!! YA 成功 !!!
文章標籤
全站熱搜
板主回覆： 不客氣..... ~~希望對您的工作能有所幫助~~
板主回覆： 是呀!!!我也感覺很實用吔~~~所以才分享給大家啊!!! 希望各位前輩能把這lisp的程式修改得更實用更好用~~
板主回覆： 謝謝((老師媽咪))的問候~~ 我和大頭看到您的留言都好開心吔 希望您們~~~永遠幸福~~~永遠快樂
板主回覆： 您說的問題我也有遇過...... 我猜想是AutoCAD 系統的關係吧? 我的了解決方法是: 1.先把圖繪好後 2.又把UCS的原點(0,0)設定好了 3.再另外開一個新檔案 4.把回到原來圖的視窗中,把圖全部COPY起來 5.到新圖的視窗中(空白的圖),把所選的圖貼上(注意:要用"貼上原始座標"才行喔!) 這樣應該就可以了,如果還有問題再留言給。
板主回覆： 不客氣.....希望您常來這裡 我還有一些不錯的LISP,我找時間貼上來,讓大家研究看看!!
板主回覆： IAN 大大您好.... 我看了一下您的操作步驟，都沒有問題呀！ 我建議您先把第３步驟的設定UCS，不要去執行它 這樣應該就可以了；試試看吧~~~
板主回覆： 您這問題問得真好! 這版面不好回應 所以我就寫一篇文章來回答您好了 但可能要等上幾天喔~~ 哈哈....白天要工作,可以利用的時間有限呀!!
板主回覆： 目前這個lisp沒有這個功能! 文字檔中只能有點號及座標x及座標y 如果您有需要的話 我把這程式再做修改一下 之後再發表在網誌好了!!
板主回覆： 不客氣....最近白天工作有些忙 我會抽空給幫您改程式的 請您要等待囉~~~
板主回覆： 抱歉~~~那麼晚才回覆您的問題 您的問題其實也沒什麼困難 如果不修改lisp程式之的話 您可先Excel來試看看 Excel 也可以解決您的問題 我這幾天把這程式改一下,好了再告訴您好~~~
板主回覆： 您的問題可用『 AutoCAD繪圖工具列』來解決 它可把圖上的x,y,z都匯出及匯入 AutoCAD 和Excel 哦 連上下面的網址看看~~~~ http://blog.yam.com/jack60455867/article/18115320
板主回覆： 我也不知道它的抓點方式是逆時針或順時針方向導出的 這指令是要CAD把全部的點抓到一個指定文字檔之中 好像沒有順或逆時針的選擇 我再問朋友看看 但是你可以把那些導出的資料 利用Execl來做排序是可以的 您先自己試試看 如果不會用Excel排序的話再留言告訴我吧！ 我再做詳細解說好了~~
板主回覆： 好吧!那我這幾天就寫篇文章來告訴您"Excel的資料排序"好了~~~
板主回覆： 大地遊俠 大大您好 謝謝您的大駕光臨喔!!! 我們都是"測量人" 所以有好東西一定要相互分享才是呀! 希望這程式能對您有所幫助喔!! 有空要時常來這坐坐看看我~~~哈哈~~~
版大真神奇： 感謝捏，有這麼神奇的方法就搞定了，心裡的這份感動真是無以言喻。
真的很實用耶^^
果然是術業有專攻!!^^ 像我這個""電腦白癡""怎麼看都不懂@@.哈... 這周是台北國+高中的段考 我稍稍忙一些(其實還好啦!!) 因為老公身體不佳 為了有較多的時間陪老公 我請2個老師協助 他們的表現都不錯~讓我輕鬆不少!!^^ 這幾天天氣不錯 不過明天周四又有寒流到 小邱+大頭在戶外辛苦的工作 別忘了照顧自己呢!!^^ 老師媽咪97-12-03(三)
小邱哥，請問一下 為何我怎樣試...自設的ucs的原點 取出來的座標都不會是（0，0） 可以說明一下嗎
小邱哥謝謝 可以了
HI，您好，這個LSP真的滿好用的，不過，可否向您請教一下，我使用HH.LSP的時候，我按照您說的步驟： ①先將HH.LSP載入 ②繪一個多邊形的圖 ③設定UCS（0,0） ④畫小圓圈 ⑤執行HH後，叫我點我繪的圓圈 ⑥生成一個TXT檔 ⑦但是我在CAD檔中，編號不在…圓圈內，而且偏移很多！（我是使用CAD2004） 是不是我哪裡設定有問題呢？可否指導一下呢？謝謝！
您好，謝謝您的指導，我不執行第三步驟（設定ucs），就正常可以編號，而且編的數字是在我設定的圓圈圈裡面，真是感恩！ 另外，還有二個問題要向您再請教： ㈠我反方向執行，把剛剛匯出來的文字檔（假設為11.txt）的座標，反向的匯入autocad檔案中，卻發現1,444,555←這個座標中，（444：y、555：x），要設定這樣子，匯入的cad檔圖形中才是正常的，不然的話，會相反的；而不是原設定的xy，而是要設定為yx。 ㈡我有一個檔案excel檔中，a欄：編號1、2、3…等、b欄：x座標、c欄：y座標，我如果要將excel檔中，將這些點位匯入cad檔的話，我要怎麼做才好呢？ 我自己用最笨的方法，將這個座標一個一個key入記事本，然後用dp.lsp的方式將記事本的點位匯入好像會有問題。
我想請問 您可以輸入點.TXT匯入AUTOCAD，但是可以把圓的半徑也匯入CAD嗎，我還滿想知道是否可以有這樣的功能，對我幫助很大
挖 真的非常謝謝你耶!!! 果然在台南很肝欣!!!
小邱哥 請問你能否幫我一各忙阿? 1.我需要一各能將座標轉出的lisp 找了很久才找到您 但我還需要在座標前面加上軸像 如:X100. Y100. 能否幫我加上? 2.如果可以能否幫我註解每一行所敘述的意思> 我也想學LISP看了書但還是不懂裡面語法的含意 是否能教教我
整批導出CAD中的【點】座標自動生成文件檔(圖上没編號) 請問版主 可以寫一個 除了點位的X,Y匯出外 ,也可以把Z值資料(高程)匯出.... 或是 有沒有其他方法 可以把DWG 轉成 DAT 再用文書工具去開?? 以上 謝謝~
您好喔:有個問題想請教一下，就是整批導出CAD中的【點】座標自動生成文件檔(圖上没編號)所導出的座標好像都是以圖面順時針方向導出，如果要逆時針有辦法嗎?因為我所用得力學分析軟體所需的數據必須是要逆時針輸入!謝謝你
版主您好: 謝謝你的熱心，真是個好人。那請問有沒有辦法抓取pline的結點來導出座標ㄋ?還有Excel的排序我真的不會ㄟ~~~ㄏ，可以麻煩您指導一下嗎??感恩!!
亂逛進到"小邱邱"的部落格，竟然是如此捧。把這程式下載試試囉。 加油! 測量人
最近在研究這些好用程式發覺一些問題 1.hh.lsp，就算原點設為0，點位還是會亂跑不然就是偏移，或是輸出設為0的那點，輸出後的座標卻不為0,0，該如何設呢? 2.還有xy的向軸如果是反方面..他標注就會跟著那個方向跑， 3.該如何讓hh.lsp可以直接輸出就為cad中id所點之座標相同呢?
這是CAD的系統上的關係 我也有發現這問題 解決的方法是要設定原點之後一定要copy圖之後再貼上一個新的空白圖檔 要用"貼上原始座標"才可以 再來執行HH.lsp 這樣座標才會正確抓到哦~~~
AutoCAD繪圖工具列(最新版本) 都找不到下載點 可以告知方法嗎?
小邱哥~ 面對上千點的座標 看的滿腦子發熱 剛好看到這篇文章 想問一下 HH.LSP的載點還有嗎 謝謝
叩求版主 請問hh.lsp的載點 或是可以寄給我 ufae.lin@gmail.com 感激
請問版主，HH.lisp的載點，我的EMAIL是sunhohon@gmail.com，感激您!
請問大大有lisp可以提供嗎? 這個幫助非常大