Lisp xóa xuống dòng và ký tự trắng

[Lisp xóa xuống dòng và ký tự trắng]

Vào lúc 28/9/2022 tại 21:19, ngokiet đã nói:

(defun c:xoa(/ st)
  (foreach x (acet-ss-to-list(ssget '((0 . "MTEXT"))))
    (setq x (entget x)
	  st (cdr(assoc 1 x)))
    (while (vl-string-search "\\P" st) (setq st (vl-string-subst "" "\\P"st)))
    (while (vl-string-search "\\p" st) (setq st (vl-string-subst "" "\\p"st)))
    (while (vl-string-search " " st) (setq st (vl-string-subst "" " "st)))
    (entmod (subst (cons 1 st) (assoc 1 x) x))))

 

Cám ơn bác nhiều nhé! hjhj

[Lisp xóa xuống dòng và ký tự trắng]

Nếu chuyển về Text thì nó không tự đưa chữ lên được, mình phải xóa thủ công trong Mtext mới được (vì chữ nằm gần điểm khảo sát mình muốn giống file đính kèm)

new block.dwg

 

[Lisp xóa xuống dòng và ký tự trắng]

Các bác cho hỏi có lisp nào xóa được xuống dòng và ký tự trắng của Mtext không ạ (Số liệu xuất từ phần mềm khảo sát qua nó tự động xuống dòng và có ký tự trắng trong khi đó điểm khảo sát nằm trên)

Xin cám ơn anh em diễn đàn

[Cài đặt Cad 2019 không được]

Mọi người cho mình hỏi sao cài cad 2019 nó chỉ cài được 76.2M vậy nhỉ, cài không lên cad được luôn! Xin cám ơn mọi người