Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
lengruohan

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

Các bài được khuyến nghị

lengruohan    0

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.com/download/0l9nh9suie4ts9y/COORN_(CAO_DO,_KT_HH).LSP

 

Mình xin cảm ơn.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ketxu    2.653

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))
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
lengruohan    0

 

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ketxu    2.653

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
tung_nt8285    2

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×