Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
11 replies to this topic

#1 akayzai1

akayzai1

    biết pan

  • Members
  • Pip
  • 7 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 18 April 2014 - 12:38 AM

(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


  • 0

#2 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 18 April 2014 - 07:49 AM

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


  • 0

#3 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 18 April 2014 - 10:47 AM

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.


  • 2
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#4 akayzai1

akayzai1

    biết pan

  • Members
  • Pip
  • 7 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 18 April 2014 - 12:07 PM

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


  • 0

#5 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 18 April 2014 - 12:15 PM

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


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#6 akayzai1

akayzai1

    biết pan

  • Members
  • Pip
  • 7 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 18 April 2014 - 12:33 PM

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ả 


  • 0

#7 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 18 April 2014 - 06:04 PM

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:

  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#8 akayzai1

akayzai1

    biết pan

  • Members
  • Pip
  • 7 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 18 April 2014 - 07:46 PM

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


  • 0

#9 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 18 April 2014 - 08:15 PM

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


  • 1

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#10 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 18 April 2014 - 09:36 PM

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

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

(setvar "nomutt" 0)


  • 0

#11 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 19 April 2014 - 04:05 PM

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.


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#12 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 19 April 2014 - 04:11 PM

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


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.