Bee

Lỗi gì hay vậy nhỉ. File có text lại block tận 3 cỡ chữ vào 1 block. Chịu khó explode ra rồi xóa thôi. Text anno mà chẳng anno tí nào. :D

Có thể có lỗi đơn giản là lock layer. ^_^ Do vậy không có bản vẽ không ai check thử được cho chủ thớt đâu.

Xóa dòng là được mà: (command "text" cT "" "" (rtos (1- (length vLst)) 2 0) "")

Lisp đây chủ thớt nhé: (defun c:gt1 (/ line txt etxt d) (setq line (car (entsel "\Chon line: "))) (setq d (distance (cdr (assoc 10 (entget line))) (cdr (assoc 11 (entget line))))) (setq txt (car (entsel "\n Chon text can thay")) etxt (entget txt) etxt (subst (cons 1 (rtos d 2 2)) (assoc 1 etxt) etxt) ) (entmod etxt) (princ) )

Done. Close topic nhé. :D

Chỉnh thì chỉnh được, hơi mất công thêm chút. Bạn gửi chút phí mình ngồi cafe rồi chỉnh cho ^_^

Dùng lệnh: WMFOUT và WMFIN hoặc express/ text/ explode text

Thử chọn cái này xem nhé:

gửi lại file cad lên đây. Có ghi rõ trước và sau khi chạy lisp nhé b.

Chayj lisp thì nó báo gì trên CAD. Bạn copy paste lên đây xem nào .

(setq s1 (vl-sort (ss_vla s2) '(lambda (a b) (< (car (vlax-get a 'InsertionPoint)) (car (vlax-get b 'InsertionPoint)) ) ) ) ) (setq s2 (vl-sort (ss_vla s2) '(lambda (a b) (< (car (vlax-get a 'InsertionPoint)) (car (vlax-get b 'InsertionPoint)) ) ) ) ) thay cả 2 dòng này chưa ?

Thay hết (< (car (vlax-get a 'InsertionPoint)) (car (vlax-get b 'InsertionPoint)) thành (> (cadr (vlax-get a 'InsertionPoint)) (cadr (vlax-get b 'InsertionPoint))