Lisp Canh Lề Text nhanh

[langtuga1781993 2]

DOWNLOAD LISP CANH LỀ TEXT:  https://kysuthietke.com/lisp-canh-le-text/

 

Khi bạn làm việc sẽ thường xuyên gặp trường hợp các dòng Text nằm lộn xộn. Để sắp xếp chúng thẳng hàng nhanh chóng hãy sử dụng lisp phía trên. Bạn sẽ có thể Lisp canh lề Text theo bên trái, bên phải hoặc ở giữa.

Canh lề trái: lệnh JL

Canh lề phải: lệnh JR

Canh giữa: lệnh JC

Ví dụ:

CÁC TEXT NẰM LỘN XỘN CẦN ĐƯỢC SẮP XẾP

CÁC TEXT ĐƯỢC CANH LỀ TRÁI (SỬ DỤNG LỆNH JL)

CÁC TEXT ĐƯỢC CANH LỀ PHẢI (SỬ DỤNG LỆNH JR)

CÁC TEXT ĐƯỢC CANH GIỮA (SỬ DỤNG LỆNH JC)

[Ma Vương 36]

Và chỉ hỗ trợ Text
MText thì không được.

[CadExTools 102]

Cad có lệnh TextAlign mà nhỉ

[quocmanh04tt 635]

Dựa vào ý tưởng trên, mình viết lại tổng hợp lại thành 1 lệnh, tổng hợp các trường hợp canh lề (và bổ sung thêm Spacing), áp dụng cho Text và Mtext. Lệnh CLT.

 

 

CLT.rar

[Doan Van Ha 3.201]

Cái này Thaistreez viết lâu rồi mà

http://www.cadviet.com/forum/index.php?showtopic=13440&st=0

[ketxu 2.984]

Video đã quay 1 năm rồi ^^
 

 

[Doan Nguyen Van 491]

Em dùng quen Cad 2014 nên chưa có lệnh TextAlign, và em nghĩ cũng có nhiều người chưa nâng cấp lên cad đời cao quá vì thói quen ^^

Sửa lại 1 chút Lisp của chủ tus để dùng được với cả MTEXT. Lệnh vẫn như cũ.

(Mtext mình hay dùng kiểu TOP Left, Top Right, Top Center. Bạn nào dùng kiểu khác như Middle Left, bottom left thì đổi các kí tự đầu  tương ứng vào (command "_.justifytext" #sset "" "_TC") nhé ^^

(defun c:JL( / qa #sset osmode pt2 ssl pcanh te pt ptnew tent)
  (prompt "\nCh\U+1ECDn TEXT c\U+1EA7n ch\U+1EC9nh s\U+1EEDa: ")
  (setq #sset (ssget '((0 . "MTEXT,TEXT"))))
  (setq qa (getvar 'QAFLAGS)
	      oldos (getvar 'osmode))
  (setvar 'QAFLAGS 1)
  (command "_.justifytext" #sset "" "_TL")
  (setq pcanh (getpoint "\nPick \U+0111i\U+1EC3m c\U+0103n l\U+1EC1 tr\U+00E1i!"))
  
  
  (setq ssl (sslength #sset))
  
  (while (> ssl 0)
    (setq te (ssname #sset (setq ssl (1- ssl))))
    (if (= (cdr (assoc 0 (entget te))) "TEXT") (progn
    (setq pt (cdr (assoc 11 (entget te))))
    (if (equal pt '(0.0 0.0 0.0))
      (setq pt (cdr (assoc 10 (entget te))))
    )
    (setq ptnew (list (car pcanh) (cadr pt) 0.0))
    (setq tent (entget te))
    (setq tent (subst (cons 73 2) (assoc 73 tent) tent))
    (setq tent (subst (cons 72 0) (assoc 72 tent) tent))
    (setq tent (subst (cons 11 ptnew) (assoc 11 tent) tent))
    (entmod tent)
  )
    (progn
      (setq pt (cdr (assoc 10 (entget te))))
      (setq pt2  (list (car pcanh) (cadr pt) (caddr pt)))
      (setvar "osmode" 0)
      (command "MOVE" te "" pt pt2)
      (setvar "osmode" oldos)
      
      ))
  (princ)
)
(setvar 'QAFLAGS qa)
)
;======================================================================================================================================================================
(defun c:JR ( / qa #sset osmode pt2 ssl pcanh te pt ptnew tent)
  (prompt "\nCh\U+1ECDn TEXT c\U+1EA7n ch\U+1EC9nh s\U+1EEDa: ")
 (setq #sset  (ssget '((0 . "MTEXT,TEXT"))))
  (setq qa (getvar 'QAFLAGS)
	      oldos (getvar 'osmode))
  (setvar 'QAFLAGS 1)
  (command "_.justifytext" #sset "" "_TR")
  (setq pcanh (getpoint "\nPick \U+0111i\U+1EC3m c\U+0103n l\U+1EC1 ph\U+1EA3i!"))
  (setq ssl (sslength #sset))
  (while (> ssl 0)
    (setq te (ssname #sset (setq ssl (1- ssl))))
    (if (= (cdr (assoc 0 (entget te))) "TEXT") (progn
    (setq pt (cdr (assoc 11 (entget te))))
    (if (equal pt '(0.0 0.0 0.0))
      (setq pt (cdr (assoc 10 (entget te))))
    )
    (setq ptnew (list (car pcanh) (cadr pt) 0.0))
    (setq tent (entget te))
    (setq tent (subst (cons 73 2) (assoc 73 tent) tent))
    (setq tent (subst (cons 72 2) (assoc 72 tent) tent))
    (setq tent (subst (cons 11 ptnew) (assoc 11 tent) tent))
    (entmod tent)
  )  (progn
      (setq pt (cdr (assoc 10 (entget te))))
      (setq pt2  (list (car pcanh) (cadr pt) (caddr pt)))
      (setvar "osmode" 0)
      (command "MOVE" te "" pt pt2)
      (setvar "osmode" oldos)
      ))
  (princ)
)
(setvar 'QAFLAGS qa))
;======================================================================================================================================================================
(defun c:JC( / qa #sset osmode pt2 ssl pcanh te pt ptnew tent)
  (prompt "\nCh\U+1ECDn TEXT c\U+1EA7n ch\U+1EC9nh s\U+1EEDa: ")
  (setq #sset  (ssget '((0 . "MTEXT,TEXT"))))
  (setq qa (getvar 'QAFLAGS)
	      oldos (getvar 'osmode))
  (setvar 'QAFLAGS 1)
  (command "_.justifytext" #sset "" "_TC")
  (setq pcanh (getpoint "\nPick \U+0111i\U+1EC3m c\U+0103n l\U+1EC1 gi\U+1EEFa!"))

  (setq ssl (sslength #sset))
  
  (while (> ssl 0)
    (setq te (ssname #sset (setq ssl (1- ssl))))
    (if (= (cdr (assoc 0 (entget te))) "TEXT") (progn
    (setq pt (cdr (assoc 11 (entget te))))
    (if (equal pt '(0.0 0.0 0.0))
      (setq pt (cdr (assoc 10 (entget te))))
    )
    (setq ptnew (list (car pcanh) (cadr pt) 0.0))
    (setq tent (entget te))
    (setq tent (subst (cons 73 2) (assoc 73 tent) tent))
    (setq tent (subst (cons 72 1) (assoc 72 tent) tent))
    (setq tent (subst (cons 11 ptnew) (assoc 11 tent) tent))
    (entmod tent)
  )(progn
      (setq pt (cdr (assoc 10 (entget te))))
      (setq pt2  (list (car pcanh) (cadr pt) (caddr pt)))
      (setvar "osmode" 0)
      (command "MOVE" te "" pt pt2)
      (setvar "osmode" oldos)
      ))
  
  (princ)
)
(setvar 'QAFLAGS qa))

 

[langtuga1781993 2]

mình thấy nên sử dụng cho text thôi, vì Mtext thì trong Autocad đã hỗ trợ canh lề trong thanh công cụ rồi.