SỬA LỖI LISP EM MỚI TẬP VIẾT

[trieu12341 0]

Xin chào các anh 

Em mới tập viết lisp, khi load thì báo lỗi malformed list on input

Xem giúp em bị sai chỗ nào ạ

(defun c:tdt( / a b x)
(setq a(getreal("nhap a"))
(setq b(getreal("nhap b"))
(setq x (+ a b)
(princ"\nTong la:")
(princ x)
)

[Danh Cong 422]

17 phút trước, trieu12341 đã nói:

(defun c:tdt( / a b x) 
(setq a(getreal("nhap a")) ; Thừa dấu ngoặc () ; Thiếu dấu đóng ngoặc )
(setq b(getreal("nhap b")) ; Thừa dấu ngoặc () ; Thiếu dấu đóng ngoặc )
(setq x (+ a b)                     ; Thiếu dấu đóng ngoặc )
(princ"\nTong la:")
(princ x)
)

 

[huunhantvxdts 195]

9 phút trước, trieu12341 đã nói:

Xin chào các anh 

Em mới tập viết lisp, khi load thì báo lỗi malformed list on input

Xem giúp em bị sai chỗ nào ạ

(defun c:tdt( / a b x)
(setq a(getreal("nhap a"))
(setq b(getreal("nhap b"))
(setq x (+ a b)
(princ"\nTong la:")
(princ x)
)

thừa mấy dấu ngoặc "("

sửa lại như sau

(defun c:tdt( / a b x)
(setq a(getreal "nhap a"))
(setq b(getreal "nhap b"))
(setq x (+ a b))
(princ"\nTong la:")
(princ x)
)

[trieu12341 0]

hay quá ạ :)))) 
Em mày mò mấy bài của bác hoành với trang vietlisp, có kê khai các hàm

Trò này rất thú vị, xài chùa nhiều r, giờ tập viết khó vô cùng

[trieu12341 0]

Command: TDT
nhap a: 10
nhap b: 10

Tong la:20.00"20.00"
Cái tongla thấy nó kỳ kỳ :)))  em bỏ cái "20.00" phía sau ntn các bác ?

[trieu12341 0]

(defun c:tdt( / sel ent dientich)

(princ "\nChao cadviet")

(setq sel (entsel "\nHay chon doi tuong: "))

(setq ent (car sel))

(command ".area" "o" ent)

(setq dientich (getvar "area"))

(princ "\nDien tich tap doi tuong vua roi la: ")

(princ dientich)

(princ "\nm2")

(princ)

)

Sao lisp của bác Hoành k cần rtos mà vẫn pinc dc dạng số nhỉ ?

[Nguyen Hoanh 4664]

Nếu lệnh Princ một mình thì có thể in ra bất cứ kiểu biến nào. Nhưng nếu nối các text vào nhau thì phải chuyển số thành text trước (bằng lệnh rtos).

[trieu12341 0]

Good morning bác Hoành

Theo ý em hiểu thì do anh đã setq biến dientich thành setvar của area, lệnh setvar sẽ lấy giá trị của area nên princ chỉ in mỗi area ra thôi phải không ạ ? :D
à mình nên dùng soft nào để tập viết lisp ạ, cty em xài zwcad k có visuallsip editor

[trieu12341 0]

à, thêm 1 cái nữa là tại sao sau (princ "\nm2") lại có (princ) vậy bác. k có thì có sao ko

[gia_bach 1553]

1 giờ} trướ}c, trieu12341 đã nói:

à, thêm 1 cái nữa là tại sao sau (princ "\nm2") lại có (princ) vậy bác. k có thì có sao ko

có sao hay không là do cảm nhận của mỗi người ?!

chạy 2 lisp dưới đây để thấy sự khác biệt :

(defun c:coPrinc(/)
  (princ"\nCo (princ).")
  (princ)
  )

(defun c:koPrinc(/)
  (princ"\nKhong co (princ).")
  )

1 giờ} trướ}c, trieu12341 đã nói:

........

à mình nên dùng soft nào để tập viết lisp ạ, cty em xài zwcad k có visuallsip editor

Muốn sài VisualLisp Editor thì phải cài AutoCAD.

Có thể dùng Notepad++ để viết lisp nhưng không bằng Editor chính chủ của AutoCAD.

 

Có 1 số hàm của visualLisp không chạy (hoặc chạy không chính xác) trên ZwCAD !

[trieu12341 0]

ý em là phía trên đã princ cái dientich ra rồi, sao phía dưới lại có hàm princ mà k có biến để in

[Doan Van Ha 3202]

27 phút trước, gia_bach đã nói:

Có 1 số hàm của visualLisp không chạy (hoặc chạy không chính xác) trên ZwCAD !

@Gia_Bach: chả lẽ ZwCad có hàm visualisp nhưng chạy không đúng à? Không đúng ở đây nghĩa là sao? Vì tôi đang tìm hiểu về nó.

[trieu12341 0]

em check cái zwcad, mấy cái lisp cũ thì chạy tốt hết, kể cả các lisp phức tạp có bảng vẫn ok