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

[Doan Van Ha 3.201]

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?

[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 !

[Doan Van Ha 3.201]

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é!

[phamthanhbinh 3.146]

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

[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 !

[phamthanhbinh 3.146]

 

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

[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 !

[Doan Van Ha 3.201]

 

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.

[phamthanhbinh 3.146]

 

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

[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è.

[ketxu 2.984]

ô 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

[thanhduan2407 272]

 

^^ Đ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