公告版位
我是從事建築的測量放樣工程.......希望能夠與大家一起分享工作的心得及技術....

目前分類:AutoLisp程式 (3)

瀏覽方式: 標題列表 簡短摘要

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


    AutoCAD是廣為流行的一種通用繪圖軟體。介紹了在AutoCAD環境下,通過對電腦作圖與手工作圖不同模式的比較並結合實例提出了電腦繪圖靈活方便的作圖方法,同時指出在國家標準規範下,正確的電腦繪圖既符合工程制圖要求又可提高工程制圖效率。
    熟練掌握AutocAD在各種工程中應用的技巧,對快速完善工程圖有事半功倍的效果,且具有易執行規範、制圖標準、整潔美觀、修改方便等優點。

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

;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 發表在 痞客邦 留言(8) 人氣()