[ Hỏi Code Lisp add thêm giá trị vào Mtext]

[anhGeodesy 2]

Nhờ các Bác chỉ giáo:
Mình có Mtext có n dòng, muốn add thêm giá trị vào dòng n+1 thì code lisp như thế nào? chân thènh cảm ơn!

ví dụ:  

Ban đầu:  

(1 . {\C3;Z3.M.HG.53}
2.91
{\C6;0.37})

Sau khi chạy code: thêm giá trị      2.397

(1 . {\C3;Z3.M.HG.53}
2.91
{\C6;0.37\P2.397})

[Doan Van Ha 3.180]

1 giờ} trướ}c, anhGeodesy đã nói:

Nhờ các Bác chỉ giáo:
Mình có Mtext có n dòng, muốn add thêm giá trị vào dòng n+1 thì code lisp như thế nào? chân thènh cảm ơn!

ví dụ:  

Ban đầu:  

(1 . {\C3;Z3.M.HG.53}
2.91
{\C6;0.37})

Sau khi chạy code: thêm giá trị      2.397

(1 . {\C3;Z3.M.HG.53}
2.91
{\C6;0.37\P2.397})

Cách bá đạo là: bạn cứ add bằng cad rồi sau đó lấy entget rồi tìm cách xử bằng entmod.

[anhGeodesy 2]

1 giờ} trướ}c, Doan Van Ha đã nói:

Cách bá đạo là: bạn cứ add bằng cad rồi sau đó lấy entget rồi tìm cách xử bằng entmod.

(defun c:adt ()
  (setvar "cmdecho" 0)
  (progn
    (setq lst
       (entget
         (car (entsel
            "\nCHON MTEXT CAN ADD GIA TRI: "
          )
         )
       )
    )
    (setq olditem (assoc 1 lst))
    (setq EL (strcat "\\P" (Rtos 2.39 2 2)))
    (setq newitem (subst (list 1 (car olditem) (cadr olditem) EL)
             olditem
             lst
          )
    )
    (entmod lst)
  )
  (setvar "cmdecho" 1)
  (princ)
)

 

Nhờ Bác @Doan Van Ha  Thông Não giúp cháu. Cháu đã thử nhưng trình độ còn non.

Chỉnh sửa Tháng 6 22, 2021 theo anhGeodesy
Định dạng mã Code

[Doan Van Ha 3.180]

1 giờ} trướ}c, anhGeodesy đã nói:

• adt.lsp
  
• [✎]
   

(defun c:adt ()
  (setvar "cmdecho" 0)
  (progn
    (setq lst
       (entget
         (car (entsel
            "\nCHON MTEXT CAN ADD GIA TRI: "
          )
         )
       )
    )
    (setq olditem (assoc 1 lst))
    (setq EL (strcat "\\P" (Rtos 2.39 2 2)))
    (setq newitem (subst (list 1 (car olditem) (cadr olditem) EL)
             olditem
             lst
          )
    )
    (entmod lst)
  )
  (setvar "cmdecho" 1)
  (princ)
)

 

Nhờ Bác @Doan Van Ha  Thông Não giúp cháu. Cháu đã thử nhưng trình độ còn non.

Sẵn bạn gởi bản vẽ (2007) để dễ test.

[anhGeodesy 2]

53 phút trước, Doan Van Ha đã nói:

Sẵn bạn gởi bản vẽ (2007) để dễ test.

 

Cháu gửi Bác @Doan Van Ha. File Test add Mtext Cad 2007

test add Mtext.dwg

[NTHAHT 78]

5 giờ trước, anhGeodesy đã nói:

Nhờ các Bác chỉ giáo:
Mình có Mtext có n dòng, muốn add thêm giá trị vào dòng n+1 thì code lisp như thế nào? chân thènh cảm ơn!

ví dụ:  

Ban đầu:  

(1 . {\C3;Z3.M.HG.53}
2.91
{\C6;0.37})

Sau khi chạy code: thêm giá trị      2.397

(1 . {\C3;Z3.M.HG.53}
2.91
{\C6;0.37\P2.397})

(defun c:adt  (/ ent str)
  (if (setq ent (car (entsel "\nPick Mtext: ")))
    (progn (setq str (cdr (assoc 1 (entget ent)))
                 str (strcat (vl-string-right-trim "}" str) "\\P2.397}"))
           (vla-put-textstring (vlax-ename->vla-object ent) str)))
  (princ))

[anhGeodesy 2]

7 giờ trước, NTHAHT đã nói:

(defun c:adt  (/ ent str)
  (if (setq ent (car (entsel "\nPick Mtext: ")))
    (progn (setq str (cdr (assoc 1 (entget ent)))
                 str (strcat (vl-string-right-trim "}" str) "\\P2.397}"))
           (vla-put-textstring (vlax-ename->vla-object ent) str)))
  (princ))

@NTHAHT  Cảm ơn bác đã thông não giúp em. xử lý cái chuỗi này nó nhì nhằng thật.