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.
hanam1210

[ Nhờ hoàn thiện] lisp vẽ line !

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

Doan Van Ha    2.676

Hic. Anh Hà xem lại giúp em nhé.

1- Line bị ngược chiều khi A <0 ( ngược chiều P1P2)

2-Theo yêu cầu chỉnh sửa thì khi TH3: nếu 0=<A< =7, kc= A*1.5

và TH4: nếuA >7, kc= A*1.5 +( (phần nguyên của A/5 -1 )*2

Nhưng khi A>7 thì hiện tại lisp vẫn tính kc=A*1.5 ( thiếu ( (phần nguyên của A/5 -1 )*2 ))

1). Trường hợp 3: tôi đã viết đúng

2). Trường hợp 4: tôi đã viết đúng

3). Trường hợp a<7: tôi viết đúng nhưng có lẽ y/c của bạn sai.

Tóm lại: bạn không thể diễn giải mỗi chuyện bạn muốn gì thì làm sao tôi hiểu "tư tưởng" của bạn được?

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
boy8x    0

1). Trường hợp 3: tôi đã viết đúng

2). Trường hợp 4: tôi đã viết đúng

3). Trường hợp a<7: tôi viết đúng nhưng có lẽ y/c của bạn sai.

Tóm lại: bạn không thể diễn giải mỗi chuyện bạn muốn gì thì làm sao tôi hiểu "tư tưởng" của bạn được?

Tức là khi mình pick điểm P1 rồi P2 thì line sẽ có chiều từ P1 =>P2, nhưng hiện tại thì nó bị ngược, tức là line bị quay 180 độ. Anh chuyển lại giúp em với . hic !

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
Doan Van Ha    2.676

Tức là khi mình pick điểm P1 rồi P2 thì line sẽ có chiều từ P1 =>P2, nhưng hiện tại thì nó bị ngược, tức là line bị quay 180 độ. Anh chuyển lại giúp em với . hic !

Tôi đã sửa trực tiếp trên file cũ. Bạn quay lại ở trên để lấy. Lần này có đúng hay không đúng ý bạn thì tôi cũng xin dừng ở đây. Bạn thông cảm 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
phamthanhbinh    3.123

Tức là khi mình pick điểm P1 rồi P2 thì line sẽ có chiều từ P1 =>P2, nhưng hiện tại thì nó bị ngược, tức là line bị quay 180 độ. Anh chuyển lại giúp em với . hic !

Hề hề hề,

Cái anh bạn này cũng nhiều VỎ nhể.......

Cái áo chả làm nện thầy tu đâu, phải chịu khó tu thì mới thành thầy được,

Hề hề hề....

Tu ở đâu ư, ở đâu mà bạn khoiái là được. Miễn là chịu tu.....

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
boy8x    0

Hề hề hề,

Cái anh bạn này cũng nhiều VỎ nhể.......

Cái áo chả làm nện thầy tu đâu, phải chịu khó tu thì mới thành thầy được,

Hề hề hề....

Tu ở đâu ư, ở đâu mà bạn khoiái là được. Miễn là chịu tu.....

 

huhuhu. Đợt đầu anh DVH viết thì cái hướng line đúng nhưng bị một số khác, khi sửa được chiều dài đúng thì vừa rồi là cái hướng line bị sai. Bi h sửa được hướng line thì chiều dài tất cả các trường hợp có ( ABS ( A) >7 đều không đúng yêu cầu. Bị thiếu mất (* (- (fix (/ (abs ot) 5)) 1) 2))), em đã thấy đưa vào code rồi nhưng mà chạy thì ko thấy cái đoạn (* (- (fix (/ (abs ot) 5)) 1) 2))) đâu. hic hic ! Phải sửa mấy lần chắc anh Hà bực em rồi. hic hic !

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

 

huhuhu. Đợt đầu anh DVH viết thì cái hướng line đúng nhưng bị một số khác, khi sửa được chiều dài đúng thì vừa rồi là cái hướng line bị sai. Bi h sửa được hướng line thì chiều dài tất cả các trường hợp có ( ABS ( A) >7 đều không đúng yêu cầu. Bị thiếu mất (* (- (fix (/ (abs ot) 5)) 1) 2))), em đã thấy đưa vào code rồi nhưng mà chạy thì ko thấy cái đoạn (* (- (fix (/ (abs ot) 5)) 1) 2))) đâu. hic hic ! Phải sửa mấy lần chắc anh Hà bực em rồi. hic hic !

Hề hề hề,

Bác ấy đã sửa cho bạn khá nhiều kiểu rùi đó. Nào là chiều dài, nào là hướng, nào là DK.....

Bạn chỉ cần chịu khó xem kỹ cái bác ấy đã sửa rồi bắt chước bác ấy cày vào chỗ chưa được. Cứ nhá vài lần chắc là sẽ thành công thôi. Với khả năng của bạn mình tin rằng nếu bạn chịu khó ngâm cứu thì ắt hẳn sẽ chả phải chờ lâu để có được cái mình cần. Có thể vài nhát đầu chưa thành công, nhưng bạn hãy cứ làm và post lên cái sự không thành đó để mọi người góp ý cho.

Cứ vậy chắc sẽ nhanh hơn là việc thay tên đổi họ để chờ giúp đỡ.

Hề hề hề, vài lời nghịch nhĩ nhưng mong bạn hiểu rằng mọi người chỉ giúp bạn khi bạn thật sự cầu thị, còn nếu cứ ỷ lại thì mọi người cũng sẽ nhanh chán thôi. Tất cả anh em trên diễn đàn đều chả có ai ăn không ngồi rồi để chỉ chờ bạn hỏi rồi giúp cả. Để trả lời và giúp bạn mọi người đều phải nhín chút công việc của mình và vì thế bạn hãy tôn trọng công sức của mọi người bằng cách tự mình hãy cố gắng để hiểu và áp dụng những gì mọi người đã giúp cho dù nó có thể chưa đáp ứng hoàn toàn yêu cầu của bạn. Dù sao đó cũng là những gợi ý để bạn có thể hoàn thành tốt công việc của bạn mà bản thân những người đã giúp bạn chẳng hề vụ lợi trong đó.

Hãy nhớ rằng việc là của bạn và cho dù chẳng có ai giúp, bạn vẫn phải hoàn thành nó kia mà. Hãy cố gắng tự cứu minh khi còn có thể bạn ạ....

Hề hề hề.

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
hanam1210    1

Hề hề hề,

Bác ấy đã sửa cho bạn khá nhiều kiểu rùi đó. Nào là chiều dài, nào là hướng, nào là DK.....

Bạn chỉ cần chịu khó xem kỹ cái bác ấy đã sửa rồi bắt chước bác ấy cày vào chỗ chưa được. Cứ nhá vài lần chắc là sẽ thành công thôi. Với khả năng của bạn mình tin rằng nếu bạn chịu khó ngâm cứu thì ắt hẳn sẽ chả phải chờ lâu để có được cái mình cần. Có thể vài nhát đầu chưa thành công, nhưng bạn hãy cứ làm và post lên cái sự không thành đó để mọi người góp ý cho.

Cứ vậy chắc sẽ nhanh hơn là việc thay tên đổi họ để chờ giúp đỡ.

Hề hề hề, vài lời nghịch nhĩ nhưng mong bạn hiểu rằng mọi người chỉ giúp bạn khi bạn thật sự cầu thị, còn nếu cứ ỷ lại thì mọi người cũng sẽ nhanh chán thôi. Tất cả anh em trên diễn đàn đều chả có ai ăn không ngồi rồi để chỉ chờ bạn hỏi rồi giúp cả. Để trả lời và giúp bạn mọi người đều phải nhín chút công việc của mình và vì thế bạn hãy tôn trọng công sức của mọi người bằng cách tự mình hãy cố gắng để hiểu và áp dụng những gì mọi người đã giúp cho dù nó có thể chưa đáp ứng hoàn toàn yêu cầu của bạn. Dù sao đó cũng là những gợi ý để bạn có thể hoàn thành tốt công việc của bạn mà bản thân những người đã giúp bạn chẳng hề vụ lợi trong đó.

Hãy nhớ rằng việc là của bạn và cho dù chẳng có ai giúp, bạn vẫn phải hoàn thành nó kia mà. Hãy cố gắng tự cứu minh khi còn có thể bạn ạ....

Hề hề hề.

 

Cái dòng : ((< ot -7) (setq kc (+ (* (abs ot) hsd) (* 2 (- (fix (/ (abs ot) 5)) 1) ))))

và dòng : ((> ot 7) (setq kc (+ (* ot 1.5) (* (- (fix (/ ot 5)) 1) 2)))))

bác DVH viết em thấy đúng mà ko hiểu sao nó chỉ tính được giá trị là : (< ot -7) (setq kc (* (abs ot) hsd))

và > ot 7) (setq kc (* ot 1.5))

Điều này quá tầm của em. Mong các anh chỉ giáo !

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
Doan Van Ha    2.676

 

Cái dòng : ((< ot -7) (setq kc (+ (* (abs ot) hsd) (* 2 (- (fix (/ (abs ot) 5)) 1) ))))

và dòng : ((> ot 7) (setq kc (+ (* ot 1.5) (* (- (fix (/ ot 5)) 1) 2)))))

bác DVH viết em thấy đúng mà ko hiểu sao nó chỉ tính được giá trị là : (< ot -7) (setq kc (* (abs ot) hsd))

và > ot 7) (setq kc (* ot 1.5))

Điều này quá tầm của em. Mong các anh chỉ giáo !

Tuỳ theo giá trị của "ot" mà cái đuôi có thể bằng 0.

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

 

Cái dòng : ((< ot -7) (setq kc (+ (* (abs ot) hsd) (* 2 (- (fix (/ (abs ot) 5)) 1) ))))

và dòng : ((> ot 7) (setq kc (+ (* ot 1.5) (* (- (fix (/ ot 5)) 1) 2)))))

bác DVH viết em thấy đúng mà ko hiểu sao nó chỉ tính được giá trị là : (< ot -7) (setq kc (* (abs ot) hsd))

và > ot 7) (setq kc (* ot 1.5))

Điều này quá tầm của em. Mong các anh chỉ giáo !

Hề hề hề,

Vậy có phải ngon hơn không,

Bạn hãy chú y cái hàm fix , cứ theo help thì nó Returns the conversion of a real number into the nearest smaller integer .

Vậy nên khi -1< a < 1 thì (fix a) sẽ bằng 0 và thế là ò í e cái đuôi cộng thêm của bạn.

Hề hề hề.

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
hanam1210    1

ô hô, em hiểu rùi. ( - (FIX(( / 8 5 ) 1 ) 1 )= 0. Như vậy là ngon rùi. Phần râu ria thì để em tự xử được chứ ko cần đến các sư phụ CADVIET mang dao mổ trâu ra mổ con kiến. hè hè.

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
ketxu    2.649

ô hô, em hiểu rùi. ( - (FIX(( / 8 5 ) 1 ) 1 )= 0.

^^ Điều cần thiết đầu tiên để viết lisp là đóng và mở ngoặc theo 1 cặp :D

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
thanhduan2407    226

 

^^ Điều cần thiết đầu tiên để viết lisp là đóng và mở ngoặc theo 1 cặp :D

@ketxu:hê hê, cái này quan trọng lắm ấy nha. Hii.

@phamthanhbinh: bác nói chí phải, cái này em ủng hộ 2 tay, 2 chân. Dạo này bác viết lisp trở lại rùi. Toàn thấy bác comment thui. Hii

 

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


×