Ghi tọa độ?

[thaycung 0]

(DEFUN EXCUTE(/ n P TX TY)
 (setq str (strcat "\nPhan so le muon lay [" (itoa sl) "] (press Enter or Space for get default): "))
 (setq n (getint str))
 (if (/= n Nil)
(setq sl n)	
 )  
 (While T
(setq P Null)
(princ "\nPick a point or press ESC for exit:")
(setq P (getpoint))
(if (/= P Nil)
  (progn
(setq TX (rtos (Car P) 2 sl))
(setq TY (rtos (Cadr P) 2 sl))
(command "-INSERT" "TD" P "1" "1" "0" TX TY)
  )	  
)  
 );End While  
)
(DEFUN INIT()
 (if (= sl Nil)
(setq sl 2)
 )  
)
(DEFUN C:TOADO()
 (INIT)
 (EXCUTE)
)

Tải thêm cái này về:

http://www.cadviet.com/upfiles/TD.zip

Tôi là người mới nhập diễn đàn, vẽ acad còn chậm, mong mọi người trợ giúp.

với đoạn mã trên, có cách nào hiển thị thêm các ký tự (ví dụ: "X=" hay "Y=") ở đầu các chữ số ghi tọa độ không?

[VUVUZELA 100]

Đây nè bạn ơi. Dễ òm à. Lệnh tắt là TOALOA

 

(DEFUN EXCUTE (/ n P TX TY)

(setq str (strcat "\nPhan so le muon lay ["

(itoa sl)

"] (press Enter or Space for get default): "

)

)

(setq n (getint str))

(if (/= n Nil)

(setq sl n)

)

(While T

(setq P Null)

(setq caochu 2.00)

(princ "\nPick a point or press ESC for exit:")

(setq P (getpoint))

(if (/= P Nil)

(progn

(setq TX (strcat "X=" (rtos (Car P) 2 sl)))

(setq TY (strcat "X=" (rtos (Cadr P) 2 sl)))

 

(command "text" "J" "BC" p caochu "0" Tx "")

(command "text" "J" "TC" p caochu "0" Ty "")

 

;;;(command "-INSERT" "TD" P "1" "1" "0" TX TY)

)

)

) ;End While

)

(DEFUN INIT ()

(if (= sl Nil)

(setq sl 2)

)

)

(DEFUN C:TOALOA ()

(INIT)

(EXCUTE)

)

[thaycung 0]

Cảm ơn VUVUZELA rất nhiều!