XÓA KHOẢNG TRẮNG THỪA MTEXT

[vandongtdw 0]

Các Bác cho e hỏi có lệnh hoặc lisp nào xoá khoảng trắng thừa khi chọn tất cả Mtext không  (ảnh như hình đính kèm)

[vietduc147258 108]

21 giờ trước, vandongtdw đã nói:

Các Bác cho e hỏi có lệnh hoặc lisp nào xoá khoảng trắng thừa khi chọn tất cả Mtext không  (ảnh như hình đính kèm)

 

Thử cái này xem

(defun c:00 (/ ss i sn)
(setq ss (ssget "_:L" '((0 . "MTEXT"))))
(setq L 0)
(setq i (sslength ss))
		
	(repeat (setq a i)
		(setpropertyvalue (ssname ss (setq a (1- a))) "ColumnType" 0) 
	)
(while (< L i)
	(setq ssx (entget (ssname ss L)))
	(setq ssx (subst (cons 46 0) (assoc 46 ssx) ssx))
	(setq ssx (subst (cons 41 0) (assoc 41 ssx) ssx))
	(entmod ssx)
	 (setq L (+ L 1))
)
 
 
 (princ))

 

[vandongtdw 0]

E cảm ơn Bác nhiều ạ