;DE command will dimension the xy coords of the endpoint of any line
; or arc with leader, with text automatic and inserted as X 0.3426 , Y 6.4356
; or arc with leader, with text automatic and inserted as X 0.3426 , Y 6.4356
(defun c:de ()
(setvar "cmdecho" 0)
(command "osnap" "end")
(setq p1 (getpoint "Select line near endpoint"))
(setq p2 (getpoint p1 "Select cen of Leader"))
(setq px (rtos (nth 0 p1 ) 2 4))
(setq py (rtos (nth 1 p1 ) 2 4))
(setq txt (strcat "x " px " , " "y " py))
(command "dim1" "leader" p1 p2 "" txt)
(setvar "cmdecho" 1)
)
(setvar "cmdecho" 0)
(command "osnap" "end")
(setq p1 (getpoint "Select line near endpoint"))
(setq p2 (getpoint p1 "Select cen of Leader"))
(setq px (rtos (nth 0 p1 ) 2 4))
(setq py (rtos (nth 1 p1 ) 2 4))
(setq txt (strcat "x " px " , " "y " py))
(command "dim1" "leader" p1 p2 "" txt)
(setvar "cmdecho" 1)
)
用(附屬應用程式)中的(記事本)輸入上面的程式....再另存新檔,檔名是DE.LISP
執行 AutoCAD.....
開啟舊檔....
點選(工具)...(載入應用程式）....DE.LISP
在指令列輸入....DE
移動滑鼠......點選線的端點....便會出現X,Y座標
文章標籤
全站熱搜
板主回覆： AUTOCAD"工具"中的載入應用程中....您要找到您存放DE.LISP的位置(上面有【搜尋位置】) 因為它一般是會內定 C:\Program Files\AutoCAD 2004 之下 您也可直接把DE.LISP放在C:\Program Files\AutoCAD 2004 之下也行 不然也有可能是DE.LISP的副檔名(.LISP)輸入錯誤的話....也會找不到哦 !!!
板主回覆： 您去我的相薄中......我有新増一個(有問必答)的相本 裏面有回答您的問題.....試看看.....這樣用行不行......
板主回覆： 有的!!!我這有個lisp有這功能 我整理一下 改天我再貼個網誌來說明....
你好： 按照提示輸入記事本且另存新檔，但開啟AUTOCAD"工具"中的載入應用程式卻看不見已存檔之DE.LISP
版主你好： 真不好意思，按照你的指示但為何存檔會產生DE.LISP(文字檔)，而且在AUTOCAD"工具"之載入應用程中亦找不到.LISP，請告之！謝謝
您好：很冒昧的請問，這些點的座標是否有簡單一點的方式可以全部轉成文字檔。
感謝版主您撥冗回答，多謝多謝。 因為我對於CAD不是很專精，對於每次一堆的點座標要轉成文字檔，實在時很頭痛。看到您的文章讓我真的是找到救星了。
親愛的版主您好： 很不好意思又要麻煩您了，請問可以儘快把您之前說的檔案貼上來嗎？因為有點急著要用，真的很抱歉。多謝多謝。