list gạch chân chữ (lệnh GC)

[oizdoi_oi 451]

(defun c:GC ()

(setvar "cmdecho" 0)

(setq olderr *error* *error* myerror)

(prompt "\nHay chon dong TEXT !... ")

(prompt "\nSelect objects: ")

(command "select" "au" pause)

(setq sstxt (ssget "p")

sslen (sslength sstxt)

ctr 0

)

(command ".undo" "mark")

(while (< ctr sslen)

(setq listxt (entget (ssname sstxt ctr))

txttxt (cdr (assoc 1 listxt))

enttxt (cdr (assoc 0 listxt))

)

(if (= enttxt "TEXT")

(progn

(setq testxt (substr txttxt 1 3))

(if (or (= testxt "%%u") (= testxt "%%U"))

(setq newtxt (substr txttxt 4))

(setq newtxt (strcat "%%u" txttxt))

)

(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))

(entmod listxt)

)

)

(setq ctr (1+ ctr))

)

(setq *error* olderr)

(setvar "cmdecho" 1)

(princ)

)

[arc.tuanhung 21]

Lisp này của bác cũng hay đấy! Nhanh hơn cách bôi đen đoạn text và nhấn tổ hợp phím Ctrl+U. Nhưng e muốn đường gạch chân bên dưới đoạn text ko cùng màu với layer text, để khi in xuất bản vẽ đường gạch chân sẽ đậm hơn! Bác giúp e được chứ?