Đến nội dung


Hình ảnh
- - - - -

[Nhờ sửa Lisp] Xuất toạ độ COOR


  • Please log in to reply
4 replies to this topic

#1 lengruohan

lengruohan

    Chưa sử dụng CAD

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

Đã gửi 15 August 2014 - 06:56 PM

Chào mọi người trên diễn đàn, mình tìm mãi không thấy mục riêng nào dành cho phần sửa lisp nên mạo muội tạo chủ đề này, nếu không đúng topic mong mọi người bỏ quá cho ^^.

Như tiêu đề, mong các bạn chỉnh sửa giúp mình lisp xuất toạ độ từ cad sang exel (COOR), nội dung là khi mình gõ lệnh coor của lisp thì sẽ có dòng nhắc để mình pick 1 điểm bất kỳ để so sánh rồi mới chọn những điểm cần xuất toạ độ(mình muốn xuất toạ độ tương đối giữa các điểm mình mong muốn với 1 điểm tuỳ chọn, chứ không phải là so với gốc toạ độ).mong được sự giúp đỡ của mọi người.

còn đây là lisp xuất toạ độ COOR :

http://www.mediafire...uie4ts9y/COORN_(CAO_DO,_KT_HH).LSP

 

Mình xin cảm ơn.


  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 16 August 2014 - 07:47 AM

Nếu bạn muốn thì có thể mapcar relative toàn bộ ptList với điểm pick cũng được. Chắc chắn trong code có trả về danh sách điểm này ^^ Mà bật lên thấy dài dài ngại sửa code quá. Chi bằng bạn cứ UCS trước rồi chạy lisp cũng được mà :D

 

Không thì bạn copy mấy dòng mã sau để đổi ucs nhé 
- Copy đoạn này vào đầu file lisp :

(setq ucsN "Tenthatdaichodotrung")
(defun _ucsNamed(l)(apply 'command (append '("._ucs" "Named") l)))
(defun _ucsSave()	
	(if (tblsearch "ucs" ucsN)(_ucsNamed (list "_Delete" ucsN)))
	(_ucsNamed (list "_save" ucsN))
        (command "._ucs" (getpoint "\nPick relative point :") "")
)

 

- Tiếp theo, copy dòng này vào dưới mỗi dòng (defun c:...)  để thay đổi UCS và lưu UCS cũ

(_ucsSave)

 

- Cuối cùng copy dòng này vào trước dấu ngoặc cuối cùng của 1 lệnh để trả về UCS trước đó :

 

(_ucsNamed (list "_Restore" ucsN))

  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 lengruohan

lengruohan

    Chưa sử dụng CAD

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

Đã gửi 16 August 2014 - 10:49 AM


Cảm ơn bạn đã giúp đỡ, mình chưa có ngâm cứu qua cấu trúc hàm của lisp nên thực sự là chưa biết copy vào vị trí nào cho đúng cả T^T, mình copy vào rồi mà chẳng thấy gì khác biệt cả.


  • 0

#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 16 August 2014 - 10:58 AM

Bạn gửi cái lisp bạn sửa lên mình xem nào ^^ Mình k ngồi cạnh CAD để test nhưng ngữ pháp thì check được :) Sử dụng Tag code ở trình soạn thảo bạn nhé, k cần post file lên MF đâu


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#5 tung_nt8285

tung_nt8285

    biết zoom

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

Đã gửi 28 August 2014 - 11:03 PM

chào các bạn,tương tự nhưng e muốn xuất toạ độ x, y ra file text theo một dạng định trước thôi thì làm sao? vd như
abc
xyz, toạ độ x, toạ độ y
abc
mong các bạn giúp với
  • 0