Nhờ các bác sửa giúp mình lấy text từ dim

[ad.pham234 21]

Nhờ các bác sửa giúp mình líp lấy text từ dim nhưng text được lấy ra là mtext ạ.

(TU) lấy text từ đim có sẵn.lsp

[ad.pham234 21]

NHỜ CÁC CAO NHÂN Ạ

 

[ad.pham234 21]

Mong các bác sửa giùm ạ

 

[nhoclangbat 392]

(defun c:TU ( / ob str p1 h style)
(setq ob (vlax-ename->vla-object (car (entsel "\n Chon dim:"))))
(setq str (rtos (vla-get-Measurement ob) 2 0)
style (vla-get-TextStyle ob)
h (* (vla-get-TextHeight ob) (vla-get-ScaleFactor ob) 0.75)
p1 (getpoint "\nDiem dat text:"))
(command "_txt2mtxt" (entmakex (list (cons 0 "text") (cons 10 p1) (cons 7 style) (cons 40 h) (cons 1 str))) "")
)

-  mình sửa lại cho ra thẳng mtext 

[ad.pham234 21]

thank bác bác quả là cao thủ. cảm ơn bác rất nhiều