Xin lisp đưa dạng text (content) thành cao độ (dạng số)

[hongquan88 1]

Chào cả nhà, mình có vấn đề sau về cao độ, mong được giúp đỡ.

Mình có bản vẽ cad về bình đồ, các cao độ trong cad (chẳng hạn 3.90) khi mình chọn và bấm Ctrl 1 thì ở content ghi là 3.90 nhưng ở cao độ (text alignment Z) thì vẫn là 0. Mình cần lisp để biến nó về đúng cao độ mình cần. Mong mọi người giúp đỡ. Cám ơn cả nhà.

[Doan Van Ha 3.192]

Code nhanh cho bạn đây.

(defun C:HA( / ss elist ass)

 (if (setq ss (ssget '((0 . "*TEXT"))))

  (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))

   (setq elist (entget ent) ass (assoc 10 elist))

   (entmod (subst (cons 10 (list (cadr ass) (caddr ass) (atof (cdr (assoc 1 elist))))) ass elist))))

 (princ))

[hongquan88 1]

Uầy, đúng cái mình cần rồi, cám ơn bạn nhiều. Mới đầu nhìn ha cứ tưởng là cái lisp nối text ^^. Một lần nữa, cám ơn bạn.

[Chiron 94]

Uầy, đúng cái mình cần rồi, cám ơn bạn nhiều. Mới đầu nhìn ha cứ tưởng là cái lisp nối text ^^. Một lần nữa, cám ơn bạn.

Cám ơn bằng cách nhấn vào biểu tượng mũi tên hướng lên màu xanh ở góc dưới bên phải mỗi bài viết đó bạn ^ ^

[ketxu 2.984]

Cái này có trên 4r r k biết bạn đã tìm kiếm chưa. Topic lập sai quy định, dù sao thì yêu cầu đã đc đáp ừng, cảm ơn bác H và chúc bạn thành công. closed topic