公告版位
我是從事建築的測量放樣工程.......希望能夠與大家一起分享工作的心得及技術....
;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

(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)
)



用(附屬應用程式)中的(記事本)輸入上面的程式....再另存新檔,檔名是DE.LISP




執行 AutoCAD.....
開啟舊檔....
點選(工具)...(載入應用程式)....DE.LISP
在指令列輸入....DE





移動滑鼠......點選線的端點....便會出現X,Y座標




創作者介紹

jack60455867 發表在 痞客邦 PIXNET 留言(8) 人氣()


留言列表 (8)

發表留言
  • 測工
  • 你好:
    按照提示輸入記事本且另存新檔,但開啟AUTOCAD"工具"中的載入應用程式卻看不見已存檔之DE.LISP
  • jack60455867
  • 板主回覆:
    AUTOCAD"工具"中的載入應用程中....您要找到您存放DE.LISP的位置(上面有【搜尋位置】)
    因為它一般是會內定 C:\Program Files\AutoCAD 2004 之下
    您也可直接把DE.LISP放在C:\Program Files\AutoCAD 2004 之下也行
    不然也有可能是DE.LISP的副檔名(.LISP)輸入錯誤的話....也會找不到哦 !!!
  • 測工
  • 版主你好:
    真不好意思,按照你的指示但為何存檔會產生DE.LISP(文字檔),而且在AUTOCAD"工具"之載入應用程中亦找不到.LISP,請告之!謝謝
  • jack60455867
  • 板主回覆:
    您去我的相薄中......我有新増一個(有問必答)的相本
    裏面有回答您的問題.....試看看.....這樣用行不行......
  • ts
  • 您好:很冒昧的請問,這些點的座標是否有簡單一點的方式可以全部轉成文字檔。
  • jack60455867
  • 板主回覆:
    有的!!!我這有個lisp有這功能
    我整理一下
    改天我再貼個網誌來說明....
  • ts
  • 感謝版主您撥冗回答,多謝多謝。
    因為我對於CAD不是很專精,對於每次一堆的點座標要轉成文字檔,實在時很頭痛。看到您的文章讓我真的是找到救星了。
  • ts
  • 親愛的版主您好:
    很不好意思又要麻煩您了,請問可以儘快把您之前說的檔案貼上來嗎?因為有點急著要用,真的很抱歉。多謝多謝。