Chuyen Text Cao Độ Về Cao Độ Thực Trong Z Của Cad

[tientracdia 16]

mình cần Chuyen text cao độ về cao độ thực trong z của Cad

http://www.cadviet.com/upfiles/5/114381_drawing1.dwg

rất mong được giúp

[ketxu 2.983]

Mình là một trong những người vote trừ cho bạn. Thời điểm này bạn đã -11 điểm r ^^ Lý do vì sao thì bạn tự đọc lại các bài viết của chính mình sẽ hiểu. Lần đầu và cũng là lần cuối mong bạn nghĩ đến cảm giác người đọc / người muốn giúp bạn

Còn đây là quick code viết nhanh giúp bạn, hi vọng bạn xài được

(defun c:t2elev  (/ s p)
(vl-load-com)
(ssget '((0 . "TEXT")))
(vlax-for e (setq s (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
	(vla-put-InsertionPoint
		e
		(vlax-3D-point
			(list (car (setq p (vlax-get e 'InsertionPoint)))(cadr p) (distof (vl-string-translate "," "." (vla-get-textstring e))))
		)
	)
)
(if s (vla-delete s))
)

[tientracdia 16]

Xin lỗi nha