Đến nội dung


Hình ảnh
- - - - -

[Nhờ chỉnh sửa] Lisp tọa độ


  • Please log in to reply
2 replies to this topic

#1 phpv84

phpv84

    biết pan

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

Đã gửi 21 September 2011 - 06:27 PM

Mình có 1 lisp sau:
http://www.cadviet.c...s/3/caymia1.lsp
mẫu file dữ liệu:
http://www.cadviet.c...files/3/mau.txt
file bản vẽ:
http://www.cadviet.c...les/3/mau_5.dwg

Nhờ các bạn bổ sung vào đoạn lisp sao cho lớp NODE có giá trị tọa độ các điểm là X, Y, H giống như file dữ liệu mẫu (hiện tại chỉ có giá trị tọa độ các điểm là X, Y, 0)
Mong các bạn giúp đỡ!!!!!!!!!
  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 21 September 2011 - 07:00 PM

Mình có 1 lisp sau:
http://www.cadviet.c...s/3/caymia1.lsp
mẫu file dữ liệu:
http://www.cadviet.c...files/3/mau.txt
file bản vẽ:
http://www.cadviet.c...les/3/mau_5.dwg

Nhờ các bạn bổ sung vào đoạn lisp sao cho lớp NODE có giá trị tọa độ các điểm là X, Y, H giống như file dữ liệu mẫu (hiện tại chỉ có giá trị tọa độ các điểm là X, Y, 0)
Mong các bạn giúp đỡ!!!!!!!!!

Sửa (setq pXY (list (car pt) (cadr pt))) thành (setq pXY (list (car pt) (cadr pt) (caddr pt)))
  • 0

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


#3 phpv84

phpv84

    biết pan

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

Đã gửi 21 September 2011 - 09:25 PM

Sửa (setq pXY (list (car pt) (cadr pt))) thành (setq pXY (list (car pt) (cadr pt) (caddr pt)))

cám ơn bạn nhiều lắm
bạn có thể chỉnh dùm mình STT điểm và độ cao điểm thể hiện trên màn hình không bị trùng với điểm không (cách xa điểm 1 tý)?
  • 0