Đến nội dung


Hình ảnh

(Xin giúp) Vấn đề lisp chuyển spline thành polyline


  • Please log in to reply
5 replies to this topic

#1 phambaquyet

phambaquyet

    Chưa sử dụng CAD

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

Đã gửi 04 March 2012 - 09:18 AM

Chào các anh!
Em đang làm một công cụ lấy tọa độ đỉnh polyline được chuyển từ đường spl bằng vb và lisp. Tức là ban đầu có một đường spl sau đó lisp sẽ chuyển spl thành pl. tiếp theo đó một đoạn lisp khác sẽ lấy tọa độ đỉnh của đường pl vừa tạo.
Em đã sử dụng rất nhiều lisp để chuyển spl thành pl .Tuy nhiên tất cả các lisp đó sau khi chuyển xong đều di chuyển các đường Pl vừa tạo. Thế là đến lisp sau lấy tọa độ bị sai hết.
-Vậy các bác cho em hỏi có cách nào mà đường PL sau khi chuyển được không bị di chuyển khỏi đường spl cũ.
-Cho em hỏi thêm luôn: tại sao mà em gửi lệnh flatten từ lisp sang cad thì cad không nhận lệnh
- Không biết ngòai cách lấy tọa độ đỉnh PL được chuyển từ SPL của em có bác nào biết cách khác không thì giúp em với.
Em mới học lisp có gì không biết mọi người giúp em với.
Dưới đây là lisp mà em dùng để chuyển
http://www.cadviet.c.../105745_s2p.lsp
Em xin đính chính là lỗi này xảy ra khi gốc tọa độ bị di chuyển.
  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 04 March 2012 - 10:15 AM

Chào các anh!
Em đang làm một công cụ lấy tọa độ đỉnh polyline được chuyển từ đường spl bằng vb và lisp. Tức là ban đầu có một đường spl sau đó lisp sẽ chuyển spl thành pl. tiếp theo đó một đoạn lisp khác sẽ lấy tọa độ đỉnh của đường pl vừa tạo.
Em đã sử dụng rất nhiều lisp để chuyển spl thành pl .Tuy nhiên tất cả các lisp đó sau khi chuyển xong đều di chuyển các đường Pl vừa tạo. Thế là đến lisp sau lấy tọa độ bị sai hết.
-Vậy các bác cho em hỏi có cách nào mà đường PL sau khi chuyển được không bị di chuyển khỏi đường spl cũ.
-Cho em hỏi thêm luôn: tại sao mà em gửi lệnh flatten từ lisp sang cad thì cad không nhận lệnh
- Không biết ngòai cách lấy tọa độ đỉnh PL được chuyển từ SPL của em có bác nào biết cách khác không thì giúp em với.
Em mới học lisp có gì không biết mọi người giúp em với.
Dưới đây là lisp mà em dùng để chuyển
http://www.cadviet.c.../105745_s2p.lsp
Em xin đính chính là lỗi này xảy ra khi gốc tọa độ bị di chuyển.

1). Bạn thêm đoạn code này vào đầu lisp xem sao nhé!
(command "ucs" "w")
2). Lệnh Flatten nằm trong bộ Tool Express nên không thể đơn giản dùng trong hàm lisp được.
  • 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 phambaquyet

phambaquyet

    Chưa sử dụng CAD

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

Đã gửi 04 March 2012 - 11:05 AM

1). Bạn thêm đoạn code này vào đầu lisp xem sao nhé!
(command "ucs" "w")
2). Lệnh Flatten nằm trong bộ Tool Express nên không thể đơn giản dùng trong hàm lisp được.


Cảm ơn bác đã giúp!
Nhưng việc dùng (command "ucs" "w") sẽ chuyển hết hệ tọa độ mà em đã định trước cho bản vẽ.
Tuy nhiên cách của bác cũng đã giúp em tìm ra biện pháp. Vì nó bị lỗi khi chuyển hệ tọa nên em đã không chuyển hệ tọa độ nữa mà chuyển đối tượng về gốc tọa độ

-Còn lệnh flatten thì có cách nào send vào cad không ạ. Bác nào biết giúp em với
  • 0

#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 04 March 2012 - 11:33 AM

-Còn lệnh flatten thì có cách nào send vào cad không ạ. Bác nào biết giúp em với

Nếu có Express :
(c:flatten)
  • 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 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 04 March 2012 - 11:43 AM

Nếu có Express :
(c:flatten)

Chắc ý chủ topic là dùng nó như hàm lisp với đầy đủ thông số chứ nhỉ!
  • 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.


#6 phambaquyet

phambaquyet

    Chưa sử dụng CAD

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

Đã gửi 04 March 2012 - 03:19 PM

Nếu có Express :
(c:flatten)

Cảm ơn bác. Em đã thử tuy nhiên đúng là phải cần thêm thông số.
Bác có thể thêm cho em cái lệnh để nó gửi tiếp lệnh "yes" đến cad không ạ. Ý em là đường pl sau khi tạo ra ko bị mềm như spl.
  • 0