[分享]線性及對齊式標註物件自動設定於DIM圖層

整理了一些標註的LISP程式，程式有些冗長，不好意思，因為習慣用單純的LISP寫，不習慣用Visual LISP（覺得有些艱澀），
以下有二大主題，線性標註和對齊式標註，裡面各有４個小程式，有前面加直徑符號和攻牙符號等，檔名就是快速鍵名稱
對於以圖層繪圖的人來說是個很好用的方式，請大家參考
按慣例說明：程式是本人原創，歡迎更改，若修改後功能更好請回饋，謝謝

https://www.youtube.com/watch?v=28Sg9Uv_Vgg&feature=youtu.be

第二載點 by Judy

得想想看如何應用在工作上了!
謝謝分享!

標註可以自動設定於圖層滿方便的
感謝你的用心與分享~

感謝分享,試用看看

剛好需要這個功能,感謝分享..............

感謝分享
在這提個問題
但是當有兩條平行線(非水平會垂直)要標示他們之間的距離
似乎會有問題,我一直找不出要如何解決

分享的心意大於一切,感謝分享

謝謝前輩的分享~
這LSP看影片示範~
看到單邊標示~好神喔~

剛剛有發現一個問題
DA.lsp 不能執行

代碼:


指令: _appload DA.LSP  成功載入。

指令:
指令:
指令: da 不明的指令「DA」。請按 F1 取得說明。

將 DA.lsp
(defun C:DH(/ LL OCE OCT OCV PT1 PT2 P1 P2 PTN PTN4)
改
(defun C:DA(/ LL OCE OCT OCV PT1 PT2 P1 P2 PTN PTN4)
就可以執行

第二載點 已經修正

感謝你的用心與分享~

感謝你的分享

謝謝分享
個人使用上有個想法
既可指定標註圖層
不知是否能將某一標註形式設定一起帶入？？謝謝

有時候會出現失效的情況
目前測試(用DH測試)看起來
這情況出現在標註位置有鎖點的時候
(例如我已經標註了第一段，然後標註第二段的時候，起點選擇前一標註的末端，
標註位置選擇與前一次同高{也就是跟連續式同樣}，這時候就會發生圖層沒有轉換的情況)

另外還有齣戲過整個卡住的狀況，但條件還不清楚

謝謝分享
來使用看看適合在工作上幫助

感謝分享!!!!

謝謝前輩的分享，最近剛接觸LISP，正需要大量的範例幫助成長！感謝您！