[分享]座標式標註 座標如果是負值 數字前自動加負號

這是manson666於2011.09.11發問的題目
[討論]請問座標式標註 座標如果是負值 請問要怎麼顯示呢?(詳圖)
以下的程式是我的原創，歡迎更改，若能修改缺點並加以回饋更好
座標式負向加負號是AUTOCAD的不體貼之一，明明ID可以確認座標值是正或是負，但在標註時卻不能顯示出來。

代碼:

;DX.lsp
;X軸座標_負號
;載入後輸入DX執行

(defun C:DX(/ LL OSP OCT XY CL PT1 TIMES DIMXY N1 NN1 P1 P2 PTN PTN1)
  (graphscr)
  (setvar "CMDECHO" 0)

;===新增圖層DIM===
  (command "-LAYER" "P" "N" "0" "")  ;將圖層0設為不出圖
  (setq LAY_CURRENT (getvar "CLAYER"))  ;取得目前圖層名稱
  (command "-LAYER" "ON" LAY_CURRENT "T" LAY_CURRENT "U" LAY_CURRENT "")  ;將目前圖層打開並解鎖,解凍
  (setq LL (tblsearch "LAYER" "DIM"))  ;偵測是否有DIM圖層<可設定成自己習慣圖層>
  (if (= LL nil)(command "-LAYER" "N" "DIM" ""))  ;若無DIM層則新建DIM圖層<可設定成自己習慣圖層>
  (command "-LAYER" "ON" "DIM" "T" "DIM" "U" "DIM" "C" "2" "DIM" "");打開DIM並解鎖,解凍<可設定成自己習慣圖層>
;===

  (setq
    OSP (getvar "OSMODE")
    OCT (getvar "CTAB")  ;確認目前在模型空間或配置空間
    OCV (getvar "CVPORT")  ;當在模型空間時,值為2,在配置空間的圖紙空間時,值為1,在配置空間的視埠裡時,值為2
    PT1 nil PT2 nil XY XY_record CL 1 TIMES 1
  )
  (if (= XY_record nil) (setq XY 1)(setq XY XY_record))

  (while (= CL 1)
  (while (= PT1 nil)
    (if (= XY 1)(progn
      (initget "U u")
      (setq PT1 (getpoint "\n▍▍▍▍▍X軸標註點[Y軸標註(ENTER)  復原(U)  結束(ESC)]："))
      (if (or (= PT1 "U")(= PT1 "u")) (command "undo" "1"))
      (while (or (= PT1 "U")(= PT1 "u"))
        (initget "U u")
        (setq PT1 (getpoint "\n▍▍▍▍▍X軸標註點[Y軸標註(ENTER)  復原(U)  結束(ESC)]："))
        (if (or (= PT1 "U")(= PT1 "u")) (command "undo" "1"))
      )
      (if (and (/= PT1 nil)(or (/= PT1 "u")(/= PT1 "U")))(progn
          (setq XY_record XY DIMXY "X" N1 (car PT1) TIMES 1)
      ))
        (if (= PT1 nil)(progn
            (setq XY 2 TIMES (1+ TIMES))
            (if (= TIMES 5) (exit))
        ))
      ))  ;end if
      (if (= XY 2)(progn
          (initget "U u")
          (setq PT1 (getpoint "\n▄▄▄▄▄Y軸標註點[X軸標註(ENTER)  復原(U)  結束(ESC)]："))
          (if (or (= PT1 "U")(= PT1 "u")) (command "undo" "1"))
          (while (or (= PT1 "U")(= PT1 "u"))
           (initget "U u")
            (setq PT1 (getpoint "\n▄▄▄▄▄Y軸標註點[X軸標註(ENTER)  復原(U)  結束(ESC)]："))
            (if (or (= PT1 "U")(= PT1 "u")) (command "undo" "1"))
          )
          (if (and (/= PT1 nil)(or (/= PT1 "u")(/= PT1 "U")))(progn
              (setq XY_record XY DIMXY "Y" N1 (cadr PT1) TIMES 1)
          ))  ;end if
          (if (= PT1 nil)(progn
              (setq XY 1 TIMES (1+ TIMES))
              (if (= TIMES 5) (exit))
          )) ;end if
      ))  ;end if
    )
    (while (and (/= PT1 nil)(or (/= PT1 "u")(/= PT1 "U")))
      (command "UNDO" "BE")
      (cond
        ((< N1 0)   (setq NN1 "-<>"))
        ((>= N1 0)   (setq NN1 ""))
      )
      (command "DIMORDINATE" PT1 DIMXY "T" NN1 pause)
      (setvar "OSMODE" 0)
      (if (= OCT "Model")(progn
        (setq P1 (polar PT1 (/ (* 135 PI) 180) 10))
        (setq P2 (polar PT1 (/ (* 315 PI) 180) 10))
        (command "ZOOM" P1 P2)
      ))
      (setq PTN (ssget PT1))
      (if (/= PTN nil)(progn
          (setq PTN1 (cdr (assoc 0 (entget (ssname PTN 0)))))
          (if (= PTN1 "DIMENSION")
            (command "CHANGE" PT1 "" "P" "LA" "DIM" "C" "BYLAYER" "LT" " BYLAYER" "")
          )
      ))
      (if (= OCT "Model")(command "ZOOM" "P"))
      (setvar "OSMODE" OSP)
      (setq PT1 nil)
      (command "UNDO" "E")
    )  ;end while
  )  ;end while
  (princ)
)

唯一的缺點是標註出來的尺寸與物件沒有關聯,無法隨著物件移動而自動更改尺寸值,請各位高手幫忙修改

---

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

雖然工作上用不到，
但是太~~~~厲害了!!!!!

謝謝提供,解釋很清楚,對標注是個方便的方式.

感謝各位前輩的分享 讓大家受益良多

LISP太複雜，希望你能找到解答，感謝分享～

感謝分享,有空試用測試看看

多謝大大提供分享，祝大家新年快樂

當你有使用關連性標註時可以用拖拉指令圈選物件及尺寸標註,如此可變化尺寸標註值,但若超過原點範圍,意指原負座標拖拉到正座標數字會變,但正負值就不能附加,僅供參考

感謝蘋果爸的分享...太厲害了

黃文正 寫到:感謝蘋果爸的分享...太厲害了

要謝謝的人不是我！
這程式是樓主 djh1006 寫的喔！

謝謝版大的分享，這樣標註方便好多了