[分享]標註x、y、z座標LISP

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

poiuyy 寫到:

請問AP載入NEZP後無法標註座標

操作哪裡有問題

謝謝

代碼:


(print "標註點位NE值與高程: NEZP")
(defun C:NEZP(/ Layername Point1 Point_N Point_E Point_Z  TXT_X TXT_Y TXT_Z UCS_N UCS_E UCS_Z Point2 Set_style)
  (Prompt "這是一個繪製引線標註點位NE值與高程的指令")
(setq oce (getvar "cmdecho" ))  (setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
;新增圖層;
 (setq Layername (getstring "\n請設定標註點位的圖層名稱: "))
 (MakeLayer Layername 2);;;新建圖層(MakeLayer "圖層名稱" 顏色)

;主程式;
    (SETVAR "OSNAPCOORD" 1); 設定座標資料輸入優先權為鍵盤輸入
    (setq Point1 (getpoint "\n請點選測量點位置: "))
    (setq Point_N (car Point1)) ; N值
    (setq Point_E (cadr Point1)) ;E值
    (setq Point_Z (caddr Point1)) ;高程值
    (setq TXT_X (rtos Point_N  2 3));將實數轉換成字串[小數模式][精度小數點下三位]
    (setq TXT_Y (rtos Point_E 2 3))
    (setq TXT_Z (rtos Point_Z 2 3))
    (setq UCS_N (strcat "N " TXT_Y));合併字串:N+TXT_Y
    (setq UCS_E (strcat "E  " TXT_X));合併字串:N+TXT_X
    (setq UCS_Z (strcat "EL+" TXT_Z));合併字串:N+TXT_Z
    (setq Set_style(tblsearch "style" "standard"));設定文字型式為coordinate_value
    (if (= Set_style nil)
          (command "style" "standard" "arial" "" "" "" )
    )
    (setq Point2 (getpoint Point1 "\n請點選文字放置位置: "))
   (setvar "osmode" 0)
    (command "LEADER" Point1 Point2 "" UCS_N  UCS_E UCS_Z "");繪製引線
(setvar "osmode" osm)
(setvar "cmdecho" oce)
(princ ",完成")(princ))
;
;;;;;;;;;;;;;新增圖層副程式;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN MakeLayer (#LayName #LayColor);;;用法(MakeLayer "圖層名稱" 顏色)
  (SETQ LAYKEY (TBLSEARCH "Layer" #LayName))
  (IF (= LAYKEY nil);;;假設沒有此圖層
    (COMMAND "LAYER" "M" #LayName "C" #LayColor #LayName "");;;如果沒有圖層執行此行新建該圖層
    (COMMAND "LAYER" "T" #LayName "S" #LayName "U" #LayName "C" #LayColor #LayName "");;;如果有圖層執行此行
    )
(PRINC));end defun




蔡欣恬 寫到:第一次發分享文不知道格式有沒有寫對  

由於AUTOCAD設定的座標式標註X值與Y值須分開標註很不好用，
最近剛剛學習了如何寫LISP程式，參考了一些前輩們的程式後，自己也寫了一個標註X，Y，Z 值的LISP，分享給大家，寫得不好的地方也希望大家不吝賜教。
程式的功能如下:
1.設定一個標註點位的圖層
2.以引線標註點位的X,Y,Z值

操作畫面如下:

▼下載網址(*回覆可見*):

---

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

代碼:


(setvar "osmode" 0)