Chào các anh, em đ­ược giử cho một bản vẽ có rất nhiều block thuộc tính là toạ độ, nhưng khi in ra thì ko thấy. Có anh chị nào biết cách chỉnh hàng loạt thuộc tính để có thể in ra được không?

Em up lên file block đó: 

>>

Chào các anh, em đ­ược giử cho một bản vẽ có rất nhiều block thuộc tính là toạ độ, nhưng khi in ra thì ko thấy. Có anh chị nào biết cách chỉnh hàng loạt thuộc tính để có thể in ra được không?

Em up lên file block đó: http://www.mediafire.com/?6x7er41idv7x4ll

Similar topics from web:
Cám ơn bạn nhiều vì đã chỉ dẫn
Lệnh tắt trong Auto Cad
Huy Đức – Wikipedia tiếng Việt
thư viện code cho blog violet
Các lệnh tắt trong AutoCAD
Nhóm 6 – Tôm vỏ bỏ đầu đông block (hoàn chỉnh) | Công nghệ Chế ...
Tin Học Phước Thái: Hướng dẫn sử dụng Blogspot
SAMIN: Tạo menu đẹp và load nhanh cho Blogger
Tăng tốc độ hiển thị trang web
+: Nhờ viết lisp
Download Black Block Video Downloader for iOS
Thủ thuật hay cho Blog- web
HUỲNH NGỌC CHÊNH
Download Block Website
Thủ Thuật Blog | Thủ thuật cho Blogger

Trong bản vẽ bạn gửi có 4 cái block attribute. 4 cái này có chung gốc rễ là cái block toadodiemxenhe (bạn bấm i enter rồi xem thì biết). Chung 1 block thuộc tính thì lẽ ra tất cả các đối tượng Text trong các block trên bản vẽ phải cùng Layer với block gốc nhưng không hiểu bạn hay là người gửi File cho bạn đã chỉnh một số Text trong block về Layer DEFPOINTS. Đây là Layer mặc định không thể in được. Để in được bạn dùng Lisp sau chuyển tất cả đối tượng Text về Layer bất kì (Layer "0" chẳng hạn).

;============CHUYEN DOI TUONG TU LAYER DEFPOINTS TRONG BLOCK ATTRIBUTE VE LAYER "0"=========
;=======================KANGKUNG 05/04/2013=========================
(defun c:KK()
  (vl-load-com)
  (setq taphop(ssget "_X" '((0 . "INSERT"))) i 0)
  (while (< i (sslength taphop))
    (SETQ EN2(ENTNEXT(ssname taphop i)))
    (SETQ ENLIST2(ENTGET EN2))
    (while (/= (cdr(assoc 0 enlist2)) "SEQEND")
      (setq en2(entnext en2))
      (setq enlist2(entget en2))
      (setq obj(vlax-ename->vla-object en2))
      (if (= "DEFPOINTS" (vla-get-layer obj))
	(vla-put-Layer obj "0")))
    (setq i(1+ i))
    )
  (alert "Well Done")
  )
(princ "\n                Written By KangKung - 05/04/2013\n")
(princ "\n                  Nhap KK de chay chuong trinh\n")

......

..

PS: Sau khi tò mò, mình mới phát hiện ra là dim của bác Tue_NV được lấy màu là byBlock. Cái Block dim này gồm có 10 đối tượng con tạo thành trong đó có tới 7 đối tượng có màu 5 và 3 đối tượng có màu 0.

Để đổi màu các đối tượng con này. mình phải explode cái block dim này ra và...

>>

......

..

PS: Sau khi tò mò, mình mới phát hiện ra là dim của bác Tue_NV được lấy màu là byBlock. Cái Block dim này gồm có 10 đối tượng con tạo thành trong đó có tới 7 đối tượng có màu 5 và 3 đối tượng có màu 0.

Để đổi màu các đối tượng con này. mình phải explode cái block dim này ra và như vậy làm cho tính associate của nó bị phá vỡ cho dù sau đó mình hoàn toàn có thể tạo block lại với các đối tượng con mới này. Điều này có nhẽ là chủ thớt cũng không khoái, nhưng mình chưa biết cách nào hơn nên đành gác tay chờ các bác khác ra sức vậy.

Cái này em thấy đơn giản mà bác. Code của bác đây, em chỉnh lại:

(defun c:edd ( / ssd els)
(vl-load-com)
(command "undo" "be")
(setq ssd (acet-ss-to-list (ssget (list (cons 0 "dimension")))))
(foreach dm ssd
     (if (/= (cdr (assoc 1 (entget dm))) "")
            (command "._DIMOVERRIDE" "DIMCLRT" "2" "DIMCLRD" "2" "DIMCLRE" "2" "" dm "")
     )
     (entmod els)
)
(command "undo" "e")
(princ)
)

em đang viết 1 đoạn code ngắn , trong đó dùng vòng lặp while nhưng ko hiểu sao vòng lặp lại ko kết thúc dc , nó cứ lặp mãi dẫn đến việc treo máy .em post lên nhờ các bác phân tích lỗi hộ e .

thank các bác .

(defun c:TLT ( / a b mai )
(setvar "osmode" 33 )
(setq a (getpoint "\n pick diem dau ranh"))
(setvar "osmode" 0 )
(setq b (polar a 0 1.2))
(command "TL" a "0.4" "100" "0.4" "0" "0.4"...
>>

em đang viết 1 đoạn code ngắn , trong đó dùng vòng lặp while nhưng ko hiểu sao vòng lặp lại ko kết thúc dc , nó cứ lặp mãi dẫn đến việc treo máy .em post lên nhờ các bác phân tích lỗi hộ e .

thank các bác .

(defun c:TLT ( / a b mai )
(setvar "osmode" 33 )
(setq a (getpoint "\n pick diem dau ranh"))
(setvar "osmode" 0 )
(setq b (polar a 0 1.2))
(command "TL" a "0.4" "100" "0.4" "0" "0.4" "-100")
(initget 1 "1 75")
(while (setq mai (getkword "\n nhap do doc mai <1 hoac 75>: "))
(if (= mai "1")
(command "6" "-100" "2" "10")
(command "8" (-(/ 100 0.75)) "2" "10")
)
(initget 1 "1 75")
)
(command "" a b "")
(setvar "osmode" 33 )
(princ)
)

1). Initget mà có 1 >> không chấp nhận enter >> không thể thoát bằng cách enter >> bỏ số 1 đi.

2). Lệnh TL là lệnh gì vậy?

em đã làm dc ,thay bit bằng 2 thì nó đã kết thúc .

PS : cho em hỏi chút về hàm while :

(while TESTEXPR EXPR ....)

TESTEXPR là điều kiện để lặp còn...

1). Initget mà có 1 >> không chấp nhận enter >> không thể thoát bằng cách enter >> bỏ số 1 đi.

2). Lệnh TL là lệnh gì vậy?

em đã làm dc ,thay bit bằng 2 thì nó đã kết thúc .

PS : cho em hỏi chút về hàm while :

(while TESTEXPR EXPR ....)

TESTEXPR là điều kiện để lặp còn EXPR biểu thức định giá trị .

em đang mơ hồ ở chỗ

(defun c:TLT ( / a b mai )
(setvar "osmode" 33 )
(setq a (getpoint "\n pick diem dau ranh"))
(setvar "osmode" 0 )
(setq b (polar a 0 1.2))
(command "TL" a "0.4" "100" "0.4" "0" "0.4" "-100")
(initget 1 "1 75")
(while (setq mai (getkword "\n nhap do doc mai <1 hoac 75>: ")) ; điều kiện
(if (= mai "1"); biểu thức sau điều kiện
(command "6" "-100" "2" "10")
(command "8" (-(/ 100 0.75)) "2" "10")
)
(initget 1 "1 75") ; tại sao lại phải thêm cái này vào thì vòng lặp mới ổn ( có thể em chưa hiểu lắm )
)
(command "" a b "")
(setvar "osmode" 33 )
(princ)
)

Mình có chỉnh đoạn code lại theo layer của mình như sau:

(defun c:doily()
(progn
  (setq Lay_nguon "1" Lay_dich "1a")
  (setq ss (ssget (list(cons 8 Lay_nguon))))
  (if (and Lay_nguon Lay_dich ss)
    (setq i -1)(while (< (setq i (1+ i)) (sslength ss)) (entmod(subst (cons 8 Lay_dich) (assoc 8 (setq ent (entget (ssname ss i)))) ent))))
  (princ "chuc ban thanh cong")
  (princ)
  )
(setq Lay_nguon "1" Lay_dich "1a")
(setq ss (ssget...
>>

Mình có chỉnh đoạn code lại theo layer của mình như sau:

(defun c:doily()
(progn
  (setq Lay_nguon "1" Lay_dich "1a")
  (setq ss (ssget (list(cons 8 Lay_nguon))))
  (if (and Lay_nguon Lay_dich ss)
    (setq i -1)(while (< (setq i (1+ i)) (sslength ss)) (entmod(subst (cons 8 Lay_dich) (assoc 8 (setq ent (entget (ssname ss i)))) ent))))
  (princ "chuc ban thanh cong")
  (princ)
  )
(setq Lay_nguon "1" Lay_dich "1a")
(setq ss (ssget (list(cons 8 Lay_nguon))))
(if (and Lay_nguon Lay_dich ss)
    (setq i -1)(while (< (setq i (1+ i)) (sslength ss)) (entmod(subst (cons 8 Lay_dich) (assoc 8 (setq ent (entget (ssname ss i)))) ent))))
(vl-cmdf  "change" ss "" "p" "la" Lay_dich "")
(command "change" ss "" "p" "la" Lay_dich "")
(setq i -1)(while (< (setq i (1+ i)) (sslength ss)) (entmod(subst (cons 8 Lay_dich) (assoc 8 (setq ent (entget (ssname ss i)))) ent)))))

nhưng vấn đề là:

- Khi load active hiện lỗi "; error: extra right paren on input" (mình cũng không rõ lỗi gì)

- Khi command "doily" > quét vùng đối tượng > cad lọc quét chọn những đối tượng như layer mình muốn > "space" > chuc ban thanh cong > "space". Thế là hết lệnh! Nó không tự chuyển từ Lay_nguon sang Lay_dich như mình đã gán.

Mong AE hướng dẫn dùm. THanks all...

các bác ơi, cho em hỏi tí là muốn sửa để phần toạ độ XY có 4 số sau dấu phẩy (,) thì làm thế nào ạ! cả thay đổi cột YX thành XY nữa! cảm ơn các bác

thanks vì lisp của bạn cái mình đang cần
mình có 1...

>>

các bác ơi, cho em hỏi tí là muốn sửa để phần toạ độ XY có 4 số sau dấu phẩy (,) thì làm thế nào ạ! cả thay đổi cột YX thành XY nữa! cảm ơn các bác

thanks vì lisp của bạn cái mình đang cần
mình có 1 yêu cầu nhỏ là bạn có thể chỉnh lại cho số tọa độ lấy làm tròn 2 số lẻ dc ko ( trong lisp lấy 3 số lẻ)
thank a lot

http://www.cadviet.com/upfiles/3/23835_xxx.lsp

Mình up cho các bạn lisp này theo yêu cầu cái này mình cũng sư tầm trên cadviet. nhờ rất nhiều người sửa giúp.

cái XY hay YX thì chịu khó sửa đi chứ mình ko biết.

Lệnh là TD1 nhé:

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=63922&pid=213751&st=0&#entry213751
;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=63922&pid=199638&st=0&#entry199638
;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=13203&st=3100
;; free lisp from cadviet.com
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Chuong trinh danh so va lap bang toa do ho so thua dat dia chinh
;;;Bang toa do tao thanh block, duoc dat ten theo so thu tu 1, 2, 3...
;;;Chap nhan cac doi tuong la Region, Polyline, Line va Arc khep kin
;;;Written by - January 2009 - www.cadviet.com
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;PUBLIC FUNCTIONS
;;;-------------------------------------------------------------------------------
(Defun DTR (x) (/ (* x pi) 180))
;;;change degree to radian, return REAL
;;;-------------------------------------------------------------------------------
(defun lineP (p0 a r / p1)
;;;Line polar: point, degree angle, radius
  (setq p1 (polar p0 (dtr a) r))
  (command "line" p0 p1 "")
)
;;;-------------------------------------------------------------------------------
(defun linePX (p0 x) (lineP p0 0 x))
;;;Horizontal line: length x, from p0
;;;-------------------------------------------------------------------------------
(defun linePY (p0 y) (lineP p0 90 y))
;;;Vertical line: length y, from p0
;;;-------------------------------------------------------------------------------
(defun getVert (e / i L)
;;;Return list of all vertex from pline e
  (setq	i 0
	L nil
  )
  (vl-load-com)
  (repeat (fix (+ (vlax-curve-getEndParam e) 1))
(setq L (append L (list (vlax-curve-getPointAtParam e i))))
(setq i (1+ i))
  )
  L
)
;;; First point of List rearrangement
(defun relist(pt0 Lst / i rt)
  (setq i 0)
  (foreach pt Lst
(if (equal pt0 pt 0.001)
   (setq rt i))
(setq i (1+ i)))
  (append (append (member (nth rt Lst) Lst)
  	(cdr (reverse (cdr (member (nth rt Lst) (reverse Lst))))))
  	(list (nth rt Lst)))
)
;;;New Layer
(defun newlayer(a b c d)
(if (not (tblsearch "layer" a))
	(command "-layer" "n" a "c" b a "l" c a "lw" d a ""))
)
;;;-------------------------------------------------------------------------------
(defun wtxtMC (txt p h k)
;;;Write text Middle Center, specify text, point, height
  (entmake (list (cons 0 "TEXT")
  	(cons 7 (getvar "textstyle"))
  	(cons 1 txt)
  	(cons 10 p)
  	(cons 11 p)
  	(cons 40 h)
  	(cons 72 1)
  	(cons 73 2)
  	(if k (cons 51 (DTR 18)) (cons 51 0))
	)
  )
)
;;;-------------------------------------------------------------------------------
(defun Collect (e / e2 SS)
;;;Selection set from e to entlast
  (setq SS (ssadd))
  (ssadd e SS)
  (while (setq e2 (entnext e)) (ssadd e2 SS) (setq e e2))
  SS
)
;;;-------------------------------------------------------------------------------
(defun Collect1	(e / ss)
;;;Selection set after e to entlast. If e nil, select all from fist entity of drawing.
  (if (= e nil)
(setq ss (collect (entnext)))
(progn (setq ss (collect e)) (ssdel e ss))
  )
)
;;;-------------------------------------------------------------------------------
;;;PRIVATE FUNCTIONS
;;;-------------------------------------------------------------------------------
(defun txt1 (txtL / p1 p2 p3 p4 pL i)
;;;Write texts in 1 row
  (setq
p1 (list (+ (car p0) (* 2 h)) (- (cadr p0) (* 1.5 h)))
p2 (polar p1 0 (* 7 h))
p3 (polar p2 0 (* 10 h))
p4 (polar p3 0 (* 9 h))
pL (list p1 p2 p3 p4)
i  0
  )
  (repeat 4
(wtxtMC (nth i txtL) (nth i pL) h t)
(setq i (1+ i))
  )
)
;;;-------------------------------------------------------------------------------
(defun txt2 (txtL / p1 p2 p3 p4 pL i)
;;;Write texts in 1 row
  (setq
p1 (list (+ (car p0) (* 2 h)) (- (cadr p0) (* 1.5 h)))
p2 (polar p1 0 (* 7 h))
p3 (polar p2 0 (* 10 h))
p4 (polar p3 0 (* 9 h))
p4 (polar p4 (* 0.5 pi) h)
pL (list p1 p2 p3 p4)
i  0
  )
  (repeat 4
(wtxtMC (nth i txtL) (nth i pL) h t)
(setq i (1+ i))
  )
)
;;;-------------------------------------------------------------------------------
;;;MAIN PROGRAM
;;;-------------------------------------------------------------------------------
(defun C:TD1 (/ h p et p0 p00 p01 p02 pt pvL pvL1 n j pv num txtL ss bn ntp p11 p12 p13 p14)
  (setvar "cmdecho" 0)
;;;New layer check
  (newlayer "kichthuoc" 7 "continuous" "default")
  (newlayer "stt" 1 "continuous" "default")
  (newlayer "bangtd" 7 "continuous" "default")
;;;GET TEXT HEIGHT
  (if (not h0)  (setq h0 1))
  (setq h (getreal (strcat "\nChon chieu cao text <" (rtos h0) ">:")))
  (if (not h)  (setq h h0)  (setq h0 h))
;;;GET DECIMAL PRECISION
  (if (not ntp0)  (setq ntp0 2))
  (setq ntp (getint (strcat "\nSo chu so thap phan <" (itoa ntp0) ">:")))
  (if (not ntp)  (setq ntp ntp0)  (setq ntp0 ntp))
;;;GET CIRCLE RADIUS
  (if (not cr0)  (setq cr0 0.3))
  (setq cr (getreal (strcat "\nNhap ban kinh vong tron <" (rtos cr0) ">:")))
  (if cr (setq cr0 cr))

;;;PICK & BASE POINT
  (initget "Y")
  (setq save (getkword "\nBan co muon luu file? < Y / Enter for No >:"))

  (setq oldos (getvar "osmode")
	pdau (getpoint "\nPick diem dau tien (so thu tu = M1): " )
  ) 

  ;(while pdau
(setq p (getpoint "\nPick 1 diem giua mien kin:")
          	pvL nil pvL1 nil)
(command "boundary" p "")
(setq et (entlast)
         	pvL1 (reverse (getvert et))) 
(redraw et 3) 
(setq p00 (getpoint "\nDiem dat Bang TDGR:"))
(initget "T t N n")
(setq chieu (getkword "\nLua chon chieu ghi toa do < T/N >"))
(command "erase" et "")
(setq  p0 p00
    	p01  (polar p00 (* 1.5 pi) (* h 3))   
    	pvL  (relist pdau pvL1)
    	n	(length pvL)
    	p02	(polar p01 (* 1.5 pi) (+ (* h 3) (* (1- n) h 2)))
) 
(setvar "osmode" 0)
;;;HEADER
  (setvar "CLAYER" "bangtd")
  (linepx p0 (* 32 h))
  (command "copy" "L" "" "m" p00 p01 "")
  (setq Lkqua nil)
  (command "style" "Standard" ".Arial" "" "" "" "" "")
  (wtxtMC "B¶ng kª to¹ d«d vµ kho¶ng c¸ch"
  	(polar (polar p0 0 (* 16 h)) (* 0.5 pi) (* 4 h))
  	(* 1.2 h) nil)
  (wtxtMC "H? t?a d? VN-2000"
  	(polar (polar p0 0 (* 16 h)) (* 0.5 pi) (* 2 h))
  	(* 1.2 h) nil)
  (txt1 (setq Lkq (list "TT" "Y (m)" "X (m)" "S (m)")))
  (setq Lkqua (append Lkqua (list Lkq)))
  (setq p0 (polar p0 (* 1.5 pi) (* 3 h)))
;;;MAKE RECORDS
  (if (or (= chieu "N") (= chieu "n")) (setq pvL (reverse pvL)) )
  (setq	j  0
	pt nil)
  (repeat n
(setq
   pv  (nth j pvL)
   num (itoa (1+ j))
num (strcat "M" num)
)
(if	pt
   (setq S (rtos (distance pt pv) 2 ntp))
   (setq S "")
)
(setq
   txtL (list num (rtos (car pv) 2 ntp) (rtos (cadr pv) 2 ntp) S)
   Lkqua (append Lkqua (list txtL))
)
(txt2 txtL)
(setq p11 (polar p0 (* 1.5 pi) (* 2.5 h)))
(setq P12 (polar p11 0 (* 25 h)))
(setq P13 (polar p11 0 (* 31 h)))
(setq P14 (polar p11 0 (* 32 h)))
(command "LINE" p11 p12 "")
(command "LINE" p13 p14 "")
(setq p0 (polar p0 (* 1.5 pi) (* 2 h)))
(setq pt pv)
(setq j (1+ j))
(if	(= j (- n 1))  (setq j 0))
  )
  (command "LINE" p11 p14 "")
  (linepy p00 (- (distance p00 (polar p0 (* 1.5 pi) (* 0.5 h)) )))
  (command "copy" "L" "" "m"  p0
	(list (+ (car p0) (* 4 h)) (cadr p0))
	(list (+ (car p0) (* 14 h)) (cadr p0))
	(list (+ (car p0) (* 24 h)) (cadr p0))
	(list (+ (car p0) (* 32 h)) (cadr p0))
	"")
;;;WRITE POINT NAME
  (setvar "CLAYER" "stt")
  (setq j 0)
  (repeat (1- n)
(setq
   pv  (nth j pvL)
   num (itoa (1+ j))
num (strcat "M" num)
)
(wtxtMC num (polar pv 0 h) h t)
(command "circle" pv cr0)
(command "HATCH" "solid" "L" "")
(command "erase" vtron "")
(setq j (1+ j))
  )
;;;GHI CANH THUA
(setvar "CLAYER" "kichthuoc")
(ghicanh) 
;;;FINISH
(savef)
(setvar "osmode" oldos)
;(setq pdau (getpoint "\nPick diem dau tien (so thu tu = 1) :"))
  ;;; ) 
  (setvar "cmdecho" 1)
  (princ)
)
;;;-------------------------------------------------------------------------------
(defun savef() 
  (if save
(progn
   (setq file (open (setq tenfile (strcat (getvar "dwgprefix")
 	(vl-filename-base (vl-string-right-trim "\\" (getvar "dwgname"))) ".txt")) "a"))
   (foreach line Lkqua
	(setq line1 "")
	(foreach it line
  	(setq line1 (strcat line1 " " it)))
	(write-line line1 file)
   )
   (close file)
   (princ (strcat "\nDa luu thanh file " tenfile))
)
  )
)
;;;PHAN BO SUNG
;;;------------------------------------------------------------------------------------
(defun Text_canh_TCA (S p a )
;;;Entmake text S at p with angle A - Top Center
  (if (/= p nil)
(entmake (list
    	(cons 0 "TEXT")
    	(cons 62 2)
    	(cons 10 p)
    	(cons 40 h)
    	(cons 1 S)
    	(cons 50 a )
    	(cons 41 0.7)
    	(cons 7 (getvar "textstyle"))
    	(cons 72 1)
    	(cons 11 p)
    	(cons 73 3)
  	)
)
  )
)
;;;------------------------------------------------------------------------------------
(defun Text_canh_BCA (S p a )
;;;Entmake text S at p with angle A - Bottom Center
  (if (/= p nil)
(entmake (list
    	(cons 0 "TEXT")
    	(cons 62 2)
    	(cons 10 p)
    	(cons 40 h)
    	(cons 1 S)
    	(cons 50 a )
    	(cons 41 0.7)
    	(cons 7 (getvar "textstyle"))
    	(cons 72 1)
    	(cons 11 p)
    	(cons 73 1)
  	)
)
  )
)
;;;-------------------------------------------------------------------------------
(defun Ghicanh (/ i k p1 p2 dist rad x_mp y_mp mp mp1)
  (setq
i	0  
k	(1- (length pvL))
  )
  (repeat k
(setq
   p1   (nth i pvL)
   p2   (nth (+ i 1) pvL)
   dist (distance p1 p2)
   rad  (angle p1 p2)
   x_mp (* (+ (car p1) (car p2)) 0.5)
   y_mp (* (+ (cadr p1) (cadr p2)) 0.5)
   mp   (list x_mp y_mp)
)
(if	(and (> rad (* 0.5 pi)) (<= rad (* 1.5 pi)))
   (setq mp (polar mp (+ rad (* 0.5 pi)) (* 0.3 h)))
)
(if	(and (> rad (* 0.5 pi)) (<= rad (* 1.5 pi)))
   (progn
	(setq rad (+ rad pi))
	;(Text_canh_TCA (rtos dist 2 2) mp rad)
)
   ;(Text_canh_BCA (rtos dist 2 2) mp rad)
)
(setq mp1 (polar mp (angle p mp) (* 2 h)) )
(command "DIMALIGNED" p1 p2 mp1)
(setq i (1+ i))
  )
  ;; repeat k;
)
;;;--------------------------

Lisp move từng nhóm đối tượng đến 1 Line cho trước.

Có 4 cách chọn kiểu đối tượng để Move: Point (nhập "P"), Text phía trên (nhập "TT"), Text phía dưới (nhập "TD") và cả 3 đối tượng (nhập "3").

Lệnh dùng: HA