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

tanbqtb03

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    91

  • Đã tham gia

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

  • Ngày trúng

    1

Bài đăng được đăng bởi tanbqtb03

  3. Đã đăng · Trả lời báo cáo

     

    Hề hề hề,

    Việc bạn hỏi do không có file bản vẽ trước và sau khi chạy lisp nên mình chỉ đoán mò dựa trên yêu cầu của bạn chủ thớt,

    Nếu mình đoán đúng thì bạn có các text được sắp xếp theo hàng ngang và bây giờ bạn muốn các text này được sắp xếp lại theo cột.

    Như vậy dựa vào lisp trên bạn có thể thay đổi như sau:

    1/- Sắp xếp lại các text trong bộ chọn ss1 theo trật tự của tọa đô x chứ không phải tọa độ y:

    Muốn vậy bạn thay thế các hàm (caddr x) và (caddr y) trong hàm vl-sort thành (cadr x) và (cadr y)

    2/- Trật tự ghi text ra bản vẽ theo cột chứ không phải theo hàng. Do vậy sau mỗi lần ghi text phải thay đổii tọa độ y chứ không phải tọa độ x. Vì thế trong vòng lặp (foreach dt ss1 .....

    bạn cần thay: (setq p0 (list (+ (car p0) (* 6 h)) (cadr p0)))

    bằng: (setq p0 (list (car p0) (- (cadr p0) (* 2 h))))

    và thay: (setq p1 (list (car p1) (- (cadr p1) (* 2 h))))

    bằng: (setq p1 (list (+ (car p1) (* 6 h)) (cadr p1) ))

    3/- Nếu bạn muốn có tùy chọn theo người dùng thì cần phải đưa thêm biến điều kiện vào. Có thể dùng hàm if hay cond tùy theo các điều kiện của bạn cần.

     

    Nếu bạn không thể tự làm được những điều trên thì bạn phải post bản vẽ đã có trước khi dùng lisp và bản vẽ kết quả sau khi dùng lisp lên thì mới có thể hiểu và làm đúng theo yêu cầu của bạn được.

     

    Chúc bạn vui.

    Thanks a đã phản hồi, ý e đúng như vậy đó a.

    Để e sửa thử lisp có lỗi gì không e báo lại.

     

  9. Đã đăng · Trả lời báo cáo

    ng ai hưởng

    Etabs 9.7.3 tặng các bạn

     

    http://adf.ly/7L00Z

     

    (Nhấn bỏ qua quảng cáo để tải mediafire nhé!)

    Hình như không mấy người hưởng ứngbác nhỉ??! Thanks tinh thần for share của bác!!! Hii nếu cần e có thể phụ bác 1 tay

    Etabs 9.7.3 tặng các bạn

     

    http://adf.ly/7L00Z

     

    (Nhấn bỏ qua quảng cáo để tải mediafire nhé!)

    hình như khô

    • Vote tăng 1

  11. Đã đăng · Trả lời báo cáo

    Các bác cho em hỏi có lisp nào để layoff các đối tượng trong vùng được chọn không ah? Ví dụ: trong 1 bản vẽ, em vẽ rectang ở góc phần tư thứ 1, bây giờ em muốn layoff các "phần" đối tượng trong vùng được chọn (vùng nằm trong rectang) giống như nó vừa '"cắt rời" các phần đối tượng này và đồng thời layoff các phần này luôn vậy đó. Em mới học Cad nên các bác thông cảm chỉ dùm em nghen. Thanks các bác nhiều!

×