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  
akayzai1

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

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

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

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

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.

  • Vote tăng 2

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

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

  • Vote tăng 1

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

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:
  • Vote tăng 1

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


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
Hoan1111    694

 

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ỉ????

  • Vote tăng 1

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

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.

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

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

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  

×