Các bác ơi cho e hỏi cái
bây giờ em đang có cái lisp đánh số thứ tự như sau: e dùng lệnh để đánh số thứ tự hố ga, lệnh của em bjo khi dùng nó sẽ nhảy số đằng sau. VDu: 1KB1, 1KB2,1KB3. nhưng bjo e muon số của e nó nhảy đằng trc như: 1KB1, 2KB1, 3KB1 thì lsửa thế nào ạ? Lisp của e nó như thế này:
;*********************************************************************
(defun c:cc ( / cumdt dodai thoat dem ten doituong textxl dem goc toi)
; Khoi dau cua chuong trinh
(princ "\nCopy Inteligent...\n")
(setq luuecho (getvar "cmdecho")
luu *error*
*error* ketthuc
cumdt (ssget)
dodai (sslength cumdt)
goc (getpoint "\nSelect base point:")
thoat nil
dem 0
textxl nil
);
(setvar "cmdecho" 0)
; Loc ra duoc ong text de xu ly
(while (and (= thoat nil)
(< dem dodai)
)
(setq ten (ssname cumdt dem)
dem (1+ dem)
doituong (entget ten)
kieu (cdr (assoc 0 doituong))
)
(if (or (= kieu "TEXT")
(= kieu "MTEXT")
)
(setq thoat T
textxl (cdr (assoc 1 doituong))
)
)
);
(while T
(setq toi (getpoint "\nSelect next point: " goc)
vitrilech (list (- (car toi) (car goc)) (- (nth 1 toi) (nth 1 goc)))
dem 0
)
(while (< dem dodai)
(setq ten (ssname cumdt dem)
dem (1+ dem)
doituong (entget ten)
kieu (cdr (assoc 0 doituong))
)
(if (or (= kieu "TEXT")
(= kieu "MTEXT")
)
(doitext ten)
(copy_dt ten)
);if
)
);while
(ketthuc)
);defun
(princ "Type \"DG\" to start")
;Note: bien toan cuc: textxl vitrilech
mọi người ai biết bảo e với nha. Nếu anh chị nào có file lisp đó luôn thì gửi vào Mail:
vuvanlinh1989@gmail.com cho e xin voi nha. em xin chân thành cảm ơn!
