Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
vanduynguyen

Chỉnh sửa Lisp theo yêu cầu

Các bài được khuyến nghị

Chào các bạn ! Chúc các bạn ngày cuối tuần vui vẻ và hạnh phúc bên ngýời yêu và gia ðình .

Hiện tại mình có lisp sắp xếp text , mình tải trên diển ðàn cadviet nhýng nó có một lồi nhỏ chýa phù hợp với yêu cầu của mình , mong các bạn chình sửa dùm mình ðể phù hợp với mình . Cảm õn các bạn trýớc nhe !

TÌnh hình là này : Hiện tại lisp của mình cái text nào nằm theo phýõng dọc thì nó xếp theo phýõng dọc ,text nào nằm ngang nó xếp theo phýõng ngang . Bây giờ mình muốn sửa lại tấc cả text sẽ ðýợc sắp xếp ðýa về phýõng ngang hết (mình có ðính kèm file lisp rất mong các bạn coi giúp)

.http://www.cadviet.com/upfiles/3/115743_st1_1sap_xep_tex.lsp

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
phamthanhbinh    3.123

Chào các bạn ! Chúc các bạn ngày cuối tuần vui vẻ và hạnh phúc bên ngýời yêu và gia ðình .

Hiện tại mình có lisp sắp xếp text , mình tải trên diển ðàn cadviet nhýng nó có một lồi nhỏ chýa phù hợp với yêu cầu của mình , mong các bạn chình sửa dùm mình ðể phù hợp với mình . Cảm õn các bạn trýớc nhe !

TÌnh hình là này : Hiện tại lisp của mình cái text nào nằm theo phýõng dọc thì nó xếp theo phýõng dọc ,text nào nằm ngang nó xếp theo phýõng ngang . Bây giờ mình muốn sửa lại tấc cả text sẽ ðýợc sắp xếp ðýa về phýõng ngang hết (mình có ðính kèm file lisp rất mong các bạn coi giúp)

.http://www.cadviet.com/upfiles/3/115743_st1_1sap_xep_tex.lsp

Hề hề hề,

Bạn nên tôn trọng quy định của diễn đàn khi có các yêu cầu về lisp. Đừng bắt mọi người phải đoán mò nữa. Nếu không bài của bạn sẽ bị xoá thẳng tay đấy.

Nếu bạn không gửi các bản vẽ thể hiện những gì bạn có trước khi dùng lisp và những gì bạn muốn sau khi dùng lisp thì ngay cả bài này sau 48 giờ nữa sẽ được vào sọt rác đấy.

Rất mong bạn lưu ý các quy định chung khi tham gia diễn đàn. Mọi điều bạn cần biết về các quy định của diễn đàn đều đã có công khai trên diễn đàn rồi, hãy tìm và đọc kỹ, thực hiện đúng các quy định đó trước khi bạn trở thành người không tên trên diễn đàn này nhé.

Chúc bạn vui.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hề hề hề,

Bạn nên tôn trọng quy định của diễn đàn khi có các yêu cầu về lisp. Đừng bắt mọi người phải đoán mò nữa. Nếu không bài của bạn sẽ bị xoá thẳng tay đấy.

Nếu bạn không gửi các bản vẽ thể hiện những gì bạn có trước khi dùng lisp và những gì bạn muốn sau khi dùng lisp thì ngay cả bài này sau 48 giờ nữa sẽ được vào sọt rác đấy.

Rất mong bạn lưu ý các quy định chung khi tham gia diễn đàn. Mọi điều bạn cần biết về các quy định của diễn đàn đều đã có công khai trên diễn đàn rồi, hãy tìm và đọc kỹ, thực hiện đúng các quy định đó trước khi bạn trở thành người không tên trên diễn đàn này nhé.

Chúc bạn vui.

HEhehehe

Cảm ơn bạn nhắc nhở mình xin gởi lại file mới .

http://www.cadviet.com/upfiles/3/115743_lisp_yeu_cau_1.rar

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
phamthanhbinh    3.123

Hề hề hề.

HEhehehe

Cảm ơn bạn nhắc nhở mình xin gởi lại file mới .

http://www.cadviet.com/upfiles/3/115743_lisp_yeu_cau_1.rar

Biết sai mà sửa thì luôn là điều cần thiết cho tất cả mọi người. Cám ơn bạn đã tiếp thu phê bình và không giận mình.

Yêu cầu của bạn nếu được trình bày rõ ràng và mậch lạc như vầy thì có nhẽ đã có kết quả từ lâu rồi. Yêu cầu đó không quá khó khăn. Bạn có thể tự làm như sau:

Bổ sung dòng code dưới đây:

(setq eget (if (/= (cdr (assoc 50 eget)) 0) (subst (cons 50 0) (assoc 50 eget) eget) eget))

vào ngay phía dưới dòng code:

(subst (cons 11 dtiep) (assoc 11 eget) eget)))

 

Hãy làm thử và xem kết quả nhé.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hề hề hề.

HEhehehe

Cảm ơn bạn nhắc nhở mình xin gởi lại file mới .

http://www.cadviet.com/upfiles/3/115743_lisp_yeu_cau_1.rar

Biết sai mà sửa thì luôn là điều cần thiết cho tất cả mọi người. Cám ơn bạn đã tiếp thu phê bình và không giận mình.

Yêu cầu của bạn nếu được trình bày rõ ràng và mậch lạc như vầy thì có nhẽ đã có kết quả từ lâu rồi. Yêu cầu đó không quá khó khăn. Bạn có thể tự làm như sau:

Bổ sung dòng code dưới đây:

(setq eget (if (/= (cdr (assoc 50 eget)) 0) (subst (cons 50 0) (assoc 50 eget) eget) eget))

vào ngay phía dưới dòng code:

(subst (cons 11 dtiep) (assoc 11 eget) eget)))

 

Hãy làm thử và xem kết quả nhé.

Cảm ơn bạn kết quả đã thành công miễn mãn . Mình phải cảm ơn bạn thì đúng hơn hehehehe !

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×