Nhờ anh chị sửa giúp em cái lisp về text

[thewind0910 11]

Em đang có lisp thêm dấu ngoặc () vào text nhờ các anh chị viết thêm cho em 1 lisp thành thêm dấu ngoặc nhọn <> vào text được chọn vs ạ.
Tại ngôn ngữ code toàn ngoặc ))(( nên em k biết sửa ở chỗ nào

Thanks anh chị

G-Them () text-`.lsp

[Doan Van Ha 3.147]

46 phút trước, thewind0910 đã nói:

Em đang có lisp thêm dấu ngoặc () vào text nhờ các anh chị viết thêm cho em 1 lisp thành thêm dấu ngoặc nhọn <> vào text được chọn vs ạ.
Tại ngôn ngữ code toàn ngoặc ))(( nên em k biết sửa ở chỗ nào

Thanks anh chị

G-Them () text-`.lsp

  (setq ttdangt "(") 
  (setq ttdangs ")") 

Thành:

  (setq ttdangt "<") 
  (setq ttdangs ">") 
 

[thewind0910 11]

7 giờ trước, Doan Van Ha đã nói:

  (setq ttdangt "(") 
  (setq ttdangs ")") 

Thành:

  (setq ttdangt "<") 
  (setq ttdangs ">") 
 

Em cảm ơn anh Hà nhiều !