Đến nội dung


Hình ảnh
* * * - - 3 Bình chọn

Hướng dẫn lập trình Lisp


  • Please log in to reply
497 replies to this topic

#481 HDT

HDT

    biết zoom

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

Đã gửi 23 June 2016 - 10:55 AM

Các bác cho em hỏi làm thế nào để biến x nhận dữ liệu đã nhập lần ngày trước đó khi ta k không nhập giá trị cho lần sau cho nó. Cám ơn các bác.


  • 0
.........................................................................................................................................................................
Hoàng Đình Thắng
Cơ quan: Phòng Thiết kế 1 - Công ty Cổ phần Tư vấn Xây dựng công trình Giao thông 5.
Địa chỉ: 229 Trường Chinh, Quận Thanh Khê, TP Đà Nẵng.
DĐ: 01654525566
Fax: 0511. 3842415

#482 conankid

conankid

    biết vẽ polygon

  • Members
  • PipPip
  • 79 Bài viết
Điểm đánh giá: -4 (bình thường)

Đã gửi 24 June 2016 - 10:33 AM

Link die rồi.ai có tài liệu nào để viết Lisp cho em xin với ạ! cảm ơn nhiều !


  • 0

Chẳng biết ngày mai có ra sao

Mà có ra sao cũng chẳng sao.


#483 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 24 June 2016 - 03:35 PM

Học theo các link này thì cũng đủ khả năng để sửa lisp sưu tầm hoặc viết các lisp đơn giản

http://www.cadviet.c...0-hoc-autolisp/

http://www.cadviet.c...lap-trinh-lisp/

http://www.cadviet.c...-nhau-hoc-lisp/

http://www.cadviet.c...y-tuong-coding/


  • 0

#484 HDT

HDT

    biết zoom

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

Đã gửi 07 July 2016 - 02:51 PM

Xin các bác chỉ giáo cho.

Hàm nào trong Lisp thay đổi giá trị text trong Dimension ạ.

Cảm ơn các bác nhiều.


  • 0
.........................................................................................................................................................................
Hoàng Đình Thắng
Cơ quan: Phòng Thiết kế 1 - Công ty Cổ phần Tư vấn Xây dựng công trình Giao thông 5.
Địa chỉ: 229 Trường Chinh, Quận Thanh Khê, TP Đà Nẵng.
DĐ: 01654525566
Fax: 0511. 3842415

#485 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5451 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 07 July 2016 - 04:22 PM

Bạn lấy mã DXF của text trong dim, chú ý dim nguyên thủy và dim đã edit, sau đó dùng hàm entmod để thay đổi.


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#486 HDT

HDT

    biết zoom

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

Đã gửi 14 July 2016 - 09:57 AM

Nhưng em muốn đưa một giá trị từ một biến a vào trong cái record, nó cứ báo lỗi bad DXF group miết à.

Cụ thể là em là em viết đoạn lisp này k biết sai ở chỗ mô:

(setq ES (entsel) LIST (entget (car ES)) LIST (subst '(1 . a) '(1 . "") LIST))

Có cách gì để đưa biến vào trong record không ạ.


  • 0
.........................................................................................................................................................................
Hoàng Đình Thắng
Cơ quan: Phòng Thiết kế 1 - Công ty Cổ phần Tư vấn Xây dựng công trình Giao thông 5.
Địa chỉ: 229 Trường Chinh, Quận Thanh Khê, TP Đà Nẵng.
DĐ: 01654525566
Fax: 0511. 3842415

#487 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5451 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 14 July 2016 - 10:30 AM

Nhưng em muốn đưa một giá trị từ một biến a vào trong cái record, nó cứ báo lỗi bad DXF group miết à.

Cụ thể là em là em viết đoạn lisp này k biết sai ở chỗ mô:

(setq ES (entsel) LIST (entget (car ES)) LIST (subst '(1 . a) '(1 . "") LIST))

Có cách gì để đưa biến vào trong record không ạ.

Bạn không thể viết '(1 . a) mà bạn phải viết (cons 1 a), giải thích hơi khó hiểu tí nhưng dần bạn sẽ hiểu.


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#488 HDT

HDT

    biết zoom

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

Đã gửi 14 July 2016 - 10:43 AM

Mình đã dùng hàm (cons 1 a). Mình đã hiểu. Cái a phải là chuỗi. Mình chuyển nó sang chuỗi thì nó đã nhận. Cảm ơn bạn.

Cảm giác viết xong 1 cái Lisp thật là phê :3


  • 0
.........................................................................................................................................................................
Hoàng Đình Thắng
Cơ quan: Phòng Thiết kế 1 - Công ty Cổ phần Tư vấn Xây dựng công trình Giao thông 5.
Địa chỉ: 229 Trường Chinh, Quận Thanh Khê, TP Đà Nẵng.
DĐ: 01654525566
Fax: 0511. 3842415

#489 HDT

HDT

    biết zoom

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

Đã gửi 14 July 2016 - 04:42 PM

Cho em hỏi làm sao để thêm 1 list vào 1 list phức hợp có sẵn ạ. Tìm hoài có cái add_list mà hình như không phải.


  • 0
.........................................................................................................................................................................
Hoàng Đình Thắng
Cơ quan: Phòng Thiết kế 1 - Công ty Cổ phần Tư vấn Xây dựng công trình Giao thông 5.
Địa chỉ: 229 Trường Chinh, Quận Thanh Khê, TP Đà Nẵng.
DĐ: 01654525566
Fax: 0511. 3842415

#490 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5451 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 14 July 2016 - 04:48 PM

Dùng cons hoặc append. Còn nếu thêm vào 1 vị trí định sẵn thì phải viết hàm.


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#491 HDT

HDT

    biết zoom

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

Đã gửi 15 July 2016 - 10:39 AM

Cho em hỏi:

      Em có một dotted pair như sau: (0 . "LINE")

      Tại sao dùng hàm cdr thì nó trả về "LINE" (đáng nhẽ là: ("LINE") chứ)

      Còn dùng hàm cadr thì nó báo lỗi bad argument type: consp "LINE" (đáng nhẽ trả về : "LINE" chứ)

Rất mong được các anh giải đáp.


  • 0
.........................................................................................................................................................................
Hoàng Đình Thắng
Cơ quan: Phòng Thiết kế 1 - Công ty Cổ phần Tư vấn Xây dựng công trình Giao thông 5.
Địa chỉ: 229 Trường Chinh, Quận Thanh Khê, TP Đà Nẵng.
DĐ: 01654525566
Fax: 0511. 3842415

#492 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5451 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 15 July 2016 - 11:12 AM

Cho em hỏi:

      Em có một dotted pair như sau: (0 . "LINE")

      Tại sao dùng hàm cdr thì nó trả về "LINE" (đáng nhẽ là: ("LINE") chứ)

      Còn dùng hàm cadr thì nó báo lỗi bad argument type: consp "LINE" (đáng nhẽ trả về : "LINE" chứ)

Rất mong được các anh giải đáp.

Dotted pair là 1 kiểu list đặc biệt nên nó thế  :lol:

Lý luận "đáng lẽ phải thế này thế nọ" của bạn cũng không đúng, vì trong dotted pair còn có dấu chấm (.) chứ không phải chỉ là '(0 "LINE").

Vì đặc biệt nên thậm chí (length '(0 . "LINE")) >> error, trong khi (length '(0 "LINE") >> 2


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#493 HDT

HDT

    biết zoom

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

Đã gửi 17 July 2016 - 11:26 AM

Em muốn lấy diện tích của 1 pline kín. Sao trong danh sách record của nó không có nhỉ.

Các anh giúp em với.


  • 0
.........................................................................................................................................................................
Hoàng Đình Thắng
Cơ quan: Phòng Thiết kế 1 - Công ty Cổ phần Tư vấn Xây dựng công trình Giao thông 5.
Địa chỉ: 229 Trường Chinh, Quận Thanh Khê, TP Đà Nẵng.
DĐ: 01654525566
Fax: 0511. 3842415

#494 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5451 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 17 July 2016 - 11:32 AM

Hàm này là cơ bản, nên tự tìm trong các hàm lisp chứ nhỉ?
(vla-get-area obj)


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#495 HDT

HDT

    biết zoom

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

Đã gửi 17 July 2016 - 11:37 AM

Làm phiền anh nói rõ tên đầy đủ được không ạ. Em mới học Lisp tập tõm thôi.

Cảm ơn anh


  • -1
.........................................................................................................................................................................
Hoàng Đình Thắng
Cơ quan: Phòng Thiết kế 1 - Công ty Cổ phần Tư vấn Xây dựng công trình Giao thông 5.
Địa chỉ: 229 Trường Chinh, Quận Thanh Khê, TP Đà Nẵng.
DĐ: 01654525566
Fax: 0511. 3842415

#496 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5451 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 17 July 2016 - 11:42 AM

Ví dụ:

(vla-get-area (vlax-ename->vla-object (car (entsel "\nChon doi tuong de lay dien tich: "))))


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#497 Giả Vờ Thôi

Giả Vờ Thôi

    Chưa sử dụng CAD

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

Đã gửi 18 July 2016 - 05:35 PM

chào các bậc tiền bối

mình có một file autocad 2007 mà không mở được các bác giúp em với ạ

http://www.cadviet.c.../154054_moi.dwg


  • 0

#498 HDT

HDT

    biết zoom

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

Đã gửi 22 July 2016 - 02:32 PM

Ví dụ:

(vla-get-area (vlax-ename->vla-object (car (entsel "\nChon doi tuong de lay dien tich: "))))

Anh Hà có tài liệu học lisp của các hàm trên không, em có 2 tập tự học auto Lisp nhưng không thể tìm ra các hàm trên. Mong anh chỉ giáo và chia sẻ. Em cảm ơn ạ. :)))))))))))


  • 0
.........................................................................................................................................................................
Hoàng Đình Thắng
Cơ quan: Phòng Thiết kế 1 - Công ty Cổ phần Tư vấn Xây dựng công trình Giao thông 5.
Địa chỉ: 229 Trường Chinh, Quận Thanh Khê, TP Đà Nẵng.
DĐ: 01654525566
Fax: 0511. 3842415