Có bạn nào có lisp đánh theo thứ tự

[Gia phuc 1]

Mình Có số 451, mình Muốn Dùng lisp chạy theo thứ tự là 451-1 451-2...............................khi mình pick nó cứ chạy như vây, mình xin cảm ơn ạ.

 

[Doan Van Ha 3202]

Chạy vào đâu? 

[Danh Cong 422]

5 phút trước, Gia phuc đã nói:

Mình Có số 451, mình Muốn Dùng lisp chạy theo thứ tự là 451-1 451-2...............................khi mình pick nó cứ chạy như vây, mình xin cảm ơn ạ.

+ Dùng lisp : "CY" của bác Doan Van Ha ở trên : Nhớ like cho bác ấy nhé :v :v :v 

https://www.cadviet.com/forum/topic/43968-yêu-cầu-lisp-copy-tăng-số-mà-chứ-giữa-nguyên/

Cách dùng : bạn đặt ký tự 451-01, 451-01 thành  AAA-01, AAA-02... Rồi dùng lệnh FIND để thay thế lại ký tự AAA một lần nữa là được :v :v 

 

[Gia phuc 1]

mình không phải đổi đc ko bạn

 

[Gia phuc 1]

22 phút trước, Doan Van Ha đã nói:

Chạy vào đâu? 

trong autocad đó  bạn

 

[cuongtk2 356]

Bạn thử cái này, dùng để copy tăng dần số thứ tự 1 đơn vị:

 - Nếu phần đuôi là số : AB.123 ; 123   ;  X9 thì sẽ cộng 1 đơn vị

 - Chữ số 0 đứng trước như "001" không bị mất khi tăng đơn vị.

 - Nếu phần đuôi là chữ thì chỉ tăng ký tự sau cùng (chỉ đúng đến z)

 

dtr2.lsp

[Gia phuc 1]

cảm ơn bạn nhiều nhưng không đúng ý mình ah. 

[cuongtk2 356]

Nếu bạn định làm dạng nối thêm -1 rồi -2 ... vào số ban đầu thì  code ngắn hơn rất nhiều. Nhưng nếu bạn kết thúc lệnh khi chưa đến số cần thiết thì bạn lại phải làm lại từ đầu đấy.

(defun c:test ( / ent text p1 p11 i textnum)
  (setq ent (entget (car (entsel)))
    text (cdr (assoc 1 ent))
    p1 (cdr (assoc 10 ent))
    p11 (cdr (assoc 11 ent))
    i 0)
    (while (setq p2 (getpoint "\nDiem tiep theo:" p1))
    (progn
      (setq i (1+ i)
    textnum (strcat text "-" (rtos i 2 0)))
      (setq ent (subst (cons 10 p2) (assoc 10 ent) ent)
        ent (subst (cons 11 p2) (assoc 11 ent) ent)
        ent (subst (cons 1 textnum) (assoc 1 ent) ent)
        )
      (entmake ent)
      )
    )
  )

 

 

[dinhvantrang 151]

 

Bạn tham khảo lisp của Lee-Mac.

http://www.lee-mac.com/numinc.html

 

 

 

[Gia phuc 1]

mình load hiện error: syntax error sao bạn