Sửa giúp em đoạn lisp này với

[akayzai1 0]

(defun c:tinhps ()

(initget +7)

(setq     a (getdist "nhap chieu dai: ")

    b (getdist "nhap chieu rong: ")

    p (+ a a b b )

    s (* a b )

)

(initget 1 "chuvi dientich")

(setq answer (getkword "tinh chu vi hay dien tich <chuvi/dientich>: "))

(cond     ((= answer "chuvi")     (progn

                (print "chu vi cua hcn la: " )

                (print p)

                )

    )

    ((= answer "dientich")     (progn

                (print "dien tich cua hcn la: " )

                (print s)

                )

    )

)

)

E chạy nó ko ra kết quả, giúp e ktra lỗi với

[Tot77 508]

Líp không có lỗi gì, chắc bạn nhập không đúng chuvi/dientich thôi (đánh nguyên chữ).

[phamthanhbinh 3149]

E chạy nó ko ra kết quả, giúp e ktra lỗi với

Hề hề hề,

Thử sửa như vầy coi sao:

Thay thế:

 (progn

                (print "chu vi cua hcn la: " )

                (print p)

                )

bằng

 (progn

                (print (strcat  "chu vi cua hcn la: " (rtos p 2 2)) )

                (print )

                )

và tương tự ở đạon code in ra dien tich.

[akayzai1 0]

code vẫn loading nhưng mà nó ko hiện ra kết quả chuvi hay diện tích trên màn hình

[phamthanhbinh 3149]

code vẫn loading nhưng mà nó ko hiện ra kết quả chuvi hay diện tích trên màn hình

Nó không hiện ra trên màn hình vùng vẽ nhưng hiện ra tại dòng command.

Nếu muốn nó hiện ra trên màn hình vùng vẽ có thể dùng hàm (alert ....)

[akayzai1 0]

ko biết có phải do lỗi cad hay ko mà ở dòng commnad của e nó cũng ko hiện kết quả 

[phamthanhbinh 3149]

ko biết có phải do lỗi cad hay ko mà ở dòng commnad của e nó cũng ko hiện kết quả 

hề hề hề,

Mình test thử lisp của bạn thì cho ra kết quả như sau:

 

Command:

Command: tinhps

nhap chieu dai: 12

nhap chieu rong: 8

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 

"chu vi cua hcn la: "

40.0 40.0

 

Command:

 

Còn nếu sử dụng lisp như mình sửa thì:

 

Command:

Command: tinhps

nhap chieu dai: 12

nhap chieu rong: 8

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 

"chu vi cua hcn la: 40.00"

 

Command:

 

Do vậy nên mình cũng không biết lỗi của bạn ở đâu cả???

và cũng không biết bạn cần như thế nào???

Command:

Command: tinhps

nhap chieu dai: 12

nhap chieu rong: 8

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 

"chu vi cua hcn la: "

40.0 40.0

 

 

Command:

Command: tinhps

nhap chieu dai: 12

nhap chieu rong: 8

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 

"chu vi cua hcn la: "

40.0 40.0

 

 

Command:

Command: tinhps

nhap chieu dai: 12

nhap chieu rong: 8

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 

"chu vi cua hcn la: "

40.0 40.0

 

Command:

Command:

Command: tinhps

nhap chieu dai: 12

nhap chieu rong: 8

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 

"chu vi cua hcn la: "

40.0 40.0

 

 

Command:

Command: tinhps

nhap chieu dai: 12

nhap chieu rong: 8

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 

"chu vi cua hcn la: "

40.0 40.0

 

Command:

Command:

Command: tinhps

nhap chieu dai: 12

nhap chieu rong: 8

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 

"chu vi cua hcn la: "

40.0 40.0

 

 

Command:

Command: tinhps

nhap chieu dai: 12

nhap chieu rong: 8

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 

"chu vi cua hcn la: "

40.0 40.0

 

Command:

[akayzai1 0]

Command:

Command: tinhps

nhap chieu dai: 100

nhap chieu rong:50

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 e cũng làm ntn nhưng nó ko hiện dòng "chu vi cua hcn la:300".

[Hoan1111 696]

 

Command:

Command: tinhps

nhap chieu dai: 100

nhap chieu rong:50

tinh chu vi hay dien tich <chuvi/dientich>: chuvi

 e cũng làm ntn nhưng nó ko hiện dòng "chu vi cua hcn la:300".

 

Trời,,,,, có chiếu dài rồi, có chiếu rộng rồi , chỉ việc ....

Em tò mò muốn biết vì sao anh phải... khổ sở thế nhỉ????

[Tot77 508]

Lỗi tại cad chứ không phải tại lisp.

Ban thử cho biến nomutt = 0 xem.

(setvar "nomutt" 0)

[phamthanhbinh 3149]

Trời,,,,, có chiếu dài rồi, có chiếu rộng rồi , chỉ việc ....

Em tò mò muốn biết vì sao anh phải... khổ sở thế nhỉ????

Hề hề hề,

Anh ấy phải khổ vì anh ấy đang muốn học để viết được lisp cho nhu cầu của mình. Đây chỉ là bước đầu của việc học lisp chứ chưa tới bước đố vui đâu bác ạ. Việc học cái mới bao giờ cũng bắt đầu từ những vấn đề đơn giản như đang giỡn vậy. bác đừng chấp trách làm chi cho nhụt chí anh ấy.

[phamthanhbinh 3149]

Lỗi tại cad chứ không phải tại lisp.

Ban thử cho biến nomutt = 0 xem.

(setvar "nomutt" 0)

hề hề hề,

Có nhẽ không phải tại biến nomutt bởi trên màn hình cad của bạn này vẫn có hiển thi các dòng nhắc có trong lisp mà.