[已解決][討論]程式修改，下列程式要如何修改，只要點取標註，不需再輸入標註值即可達到我的要求

(defun c:dxft()
(setq bk1(entsel "\n選取欲修改的尺寸 : "))
(setq na (getint "\n輸入標註值 :"))
(setq b1 (entget (car bk1)))
(setq OLD (assoc 1 b1))
(setq naa (/ na 26))
(setq nab (itoa naa))
(setq na1 (strcat "26*"nab))
(setq NEW (CONS 1 NA1))
(SETQ B1 (SUBST NEW OLD B1)
)
(ENTMOD B1)
(princ)
)

老水牛 寫到:(defun c:dxft()
(setq bk1(entsel "\n選取欲修改的尺寸 : "))
(setq na (getint "\n輸入標註值 :"))
(setq b1 (entget (car bk1)))
(setq OLD (assoc 1 b1))
(setq naa (/ na 26))
(setq nab (itoa naa))
(setq na1 (strcat "26*"nab))
(setq NEW (CONS 1 NA1))
(SETQ B1 (SUBST NEW OLD B1)
)
(ENTMOD B1)
(princ)
)

看不懂你的需求是啥 ?
如果說你的 (setq na (getint "\n輸入標註值 :")) 這部份指的是標註上的"值"
那你也已經知道它是多少了
程式稍微修改一下即可
(defun c:dxft()
(setq bk1(entsel "\n選取欲修改的尺寸 : "))
;;;;;;(setq na (getint "\n輸入標註值 :"))
(setq b1 (entget (car bk1)))
(setq na (cdr (assoc 1 b1)))
(setq OLD (assoc 1 b1))
(setq naa (/ na 26))
(setq nab (itoa naa))
(setq na1 (strcat "26*"nab))
(setq NEW (CONS 1 NA1))
(SETQ B1 (SUBST NEW OLD B1)
)
(ENTMOD B1)
(princ)
)

綠色為原程式移除的部份
紅色為新增的部份
***未經測試~僅以程式架構做修正***

阿希大大：
我要的需求是，選取標註，取得該標註值，經計算後，將計算後的值取代原標註。
也就是說 我要如何抽取尺寸標註DXF碼中的標註文字

老水牛 寫到:阿希大大：
我要的需求是，選取標註，取得該標註值，經計算後，將計算後的值取代原標註。
也就是說 我要如何抽取尺寸標註DXF碼中的標註文字

上面我修改的程式可行嗎 ?

我將程式作修改如下，你試用看看

代碼:

(defun c:dxft()
  (setq bk1(entsel "\n選取欲修改的尺寸 : "))
  (setq b1 (entget (car bk1)))
  (setq na (cdr (assoc 42 b1)))
  (setq OLD (assoc 1 b1))
  (setq naa (/ na 26))
  (setq nab (rtos naa))
  (setq na1 (strcat "26*" nab))
  (setq NEW (CONS 1 NA1))
  (SETQ B1 (SUBST NEW OLD B1))
  (ENTMOD B1)
  (princ)
)


這樣應該符合你的需要，另外跟你說明一下，
要抓出尺寸的值必須使用 dxf群碼 42 ，不是 1
因為尺寸是內定值 <>，這樣的值是無法運算的

感謝張老師的指導。
讓我對DXF群碼有更進一步的了解。