Chuyển đến nội dung
Diễn đàn CADViet

tranloi12c

Thành viên
  • Số lượng nội dung

    8
  • Đã tham gia

  • Lần ghé thăm cuối

Cộng đồng

0 (bình thường)

About tranloi12c

  • Cấp bậc
    biết pan

Khách truy cập Tiểu sử gần đây

Khối khách truy cập gần đây đã bị vô hiệu và không được hiển thị cho người dùng khác.

  1. tranloi12c

    Nhờ chỉnh sửa Lisp

    A ra vậy e cảm ơn mọi ng nhé được rồi ạ ^^. dạ tại e còn làm mấy cái khác nữa ý mà hì.
  2. tranloi12c

    Nhờ chỉnh sửa Lisp

    Chào các bác, anh chị trên diễn đàn. Các bác cho e hỏi lỗi của đoạn mã sau ở đâu thế ạ, khi e copy từ model sang layout nó luôn chỉ chọn đối tượng đầu tiên và nhân lên vs số lần lặp mà k chọn sang đối tượng thứ N, nếu k dùng vòng lặp "while" hoặc copy và past trên cùng model hoặc layout thì k thấy lỗi ạ. E cảm ơn cả nhà (defun C:a1( / taphop soluong index) (setq taphop (ssget (list (cons 0 "POLYLINE,LWPOLYLINE")))) (setq soluong (sslength taphop)) (setq index 0) (while (< index soluong) (vl-cmdf "_.copybase" "_none" '(0 0 0) (ssname taphop index) "") (vl-cmdf "layout" "S" "Layout1") (vl-cmdf "_.pasteclip" "_none" '(0 0 0)) (setq index (+ index 1)) ) (princ) ) test.dwg
×