[Yêu cầu] Nhờ chỉnh sửa lisp nội suy cao độ và khoảng cách

[tranngoctu87 0]

Lisp: http://www.cadviet.com/upfiles/3/131127_cd.lsp

Em sưu tầm được lisp nội suy cao độ và khoảng cách nhưng ở 2 bước chọn điểm cần nội suy và xuất kết quả có nhiều lựa chọn. Em muốn nhờ các anh sửa lại giúp em như sau:

       + Bước chọn điểm cần nội suy: mặc định là pick điểm

       + Bước xuất kết quả: mặc định là Excel

Em xin chân thành cảm ơn!!!!!!!!!!!!!!!!

[phamthanhbinh 3.146]

Lisp: http://www.cadviet.com/upfiles/3/131127_cd.lsp

Em sưu tầm được lisp nội suy cao độ và khoảng cách nhưng ở 2 bước chọn điểm cần nội suy và xuất kết quả có nhiều lựa chọn. Em muốn nhờ các anh sửa lại giúp em như sau:

       + Bước chọn điểm cần nội suy: mặc định là pick điểm

       + Bước xuất kết quả: mặc định là Excel

Em xin chân thành cảm ơn!!!!!!!!!!!!!!!!

Hề hề hề,

File bạn gửi không down load về được. Bạn hãy upload lên trang khác và gửi link lại nhé.

[tranngoctu87 0]

Link mới đây ạ:

http://tenlua.vn/cd-lsp-0137e526e6036e01/#download0137e526e6036e01

Cảm ơn anh nhiều!!!!!!!!!!!!!!!!

[phamthanhbinh 3.146]

Link mới đây ạ:

http://tenlua.vn/cd-lsp-0137e526e6036e01/#download0137e526e6036e01

Cảm ơn anh nhiều!!!!!!!!!!!!!!!!

Hề hề hề,

Chu choa, cái lisp bạn gửi của tây có khác. Nó làm quá kỹ và khá rắc rối. Chỉ đọc để hiểu hết cũng toát mồ hôi hột rồii.

Yêu cầu của bạn thực ra là làm giảm đi giá trị của nó khá nhiều và có nhẽ thích ứng với tư duy kiểu mì ăn liền của người Việt. Tuy không ủng hộ cách tư duy này, song nếu bạn cần thì có thể tự sửa một chút như sau:

1/- Để lisp chỉ chơi với mphu7ong án pick chọn điểm bạn hãy vô hiệu hóa đoạn code sau đây bằng cách thêm một hay nhiều dấu ";" vào đầu mỗi dòng code::

(initget "Óêàçàòü Òî÷êà Áëîêè Ïîëèëèíèÿ Pick pOints Blocks poLyline _Pick pOints Blocks poLyline Pick pOints Blocks poLyline")

(setq oldMode ptcol:mode ptcol:mode

(getkword (if IsRus (strcat "\nÂûáåðèòå ðåæèì [Óêàçàòü/Òî÷êà/Áëîêè/Ïîëèëèíèÿ èëè ñïëàéí] <"

(cadr (assoc ptcol:mode '(("Pick" "Óêàçàòü")("pOints" "Óêàçàòü")("Blocks" "Áëîêè")("poLyline" "Ïîëèëèíèÿ")))) ">: ")

     (strcat "\nSpecify mode [Pick/pOints/Blocks/poLyline or spline] <"ptcol:mode">: "))) ptLst nil)

(if(null ptcol:mode)(setq ptcol:mode oldMode))

Đồng thời thêm dòng code:: (setq ptLst nil) thay cho đoạn code trên.

2/- Để lisp chỉ xuất sang excel bạn có thể sửa như sau"

a/-Thay thế dòng code:(if(null sFlag)(setq sFlag "Text")) thành (if(null sFlag)(setq sFlag "Excel"))

b/- Vô hiệu hóa đoạn code sau theo cách như trên:

(setq sFlag (getkword (if IsRus "\nÑîõðàíèòü êîîðäèíàòû â [Ôàéë/Excel/Íå ñîõðàíÿòü] <Ôàéë> : "

"\nSave coordinates to [Text file/Excel/Not save] <Text> : ")))

 (initget "Óêàçàòü Òî÷êà Áëîêè Ïîëèëèíèÿ Pick pOints Blocks poLyline _Pick pOints Blocks poLyline Pick pOints Blocks poLyline")

(setq oldMode ptcol:mode ptcol:mode

(getkword (if IsRus (strcat "\nÂûáåðèòå ðåæèì [Óêàçàòü/Òî÷êà/Áëîêè/Ïîëèëèíèÿ èëè ñïëàéí] <"

(cadr (assoc ptcol:mode '(("Pick" "Óêàçàòü")("pOints" "Óêàçàòü")("Blocks" "Áëîêè")("poLyline" "Ïîëèëèíèÿ")))) ">: ")

     (strcat "\nSpecify mode [Pick/pOints/Blocks/poLyline or spline] <"ptcol:mode">: "))) ptLst nil)

(if(null ptcol:mode)(setq ptcol:mode oldMode))

[genius111 2]

Chủ thớt có thể hướng dẫn em cách dùng lisp này được không ạ. Em gõ lệnh Cd là lisp xuất ra luôn mà không thấy nhập cao độ gì cả là sao ạ

[tranngoctu87 0]

Cảm ơn anh phamthanhbinh rất nhiều ạ!

[tranngoctu87 0]

Chủ thớt có thể hướng dẫn em cách dùng lisp này được không ạ. Em gõ lệnh Cd là lisp xuất ra luôn mà không thấy nhập cao độ gì cả là sao ạ

Trước tiên bạn dùng lệnh "UCS" của CAD để đặt lại gốc tọa độ mới, các điểm cần nội suy sẽ có cao độ và khoảng cách so với gốc tọa độ mới. Sau đó dùng lisp