Đến nội dung


Hình ảnh
- - - - -

Hỏi về Support file search path


  • Please log in to reply
5 replies to this topic

#1 haimed

haimed

    biết vẽ circle

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

Đã gửi 25 March 2009 - 02:39 PM

Mình muốn viết 1 lisp chèn block "a" ở đường dẫn "e:\\lisp\\chen diem\\a.dwg" vào bản vẽ hiện hành có code như sau:
(setq block "e:\\lisp\\chen diem\\a.dwg" )
(command "insert" block '(0 0 0) "1" "1" "0")

Sau đó vào option, chọn support file search path, add thư mục "e:\\lisp\\chen diem" nhưng khi chạy đoạn lisp trên thì vẫn bị báo lỗi "can't find file in search parth"
Bác nào có thể giúp mình với
  • 0

#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 25 March 2009 - 03:28 PM

Mình muốn viết 1 lisp chèn block "a" ở đường dẫn "e:\\lisp\\chen diem\\a.dwg" vào bản vẽ hiện hành có code như sau:
(setq block "e:\\lisp\\chen diem\\a.dwg" )
(command "insert" block '(0 0 0) "1" "1" "0")

Sau đó vào option, chọn support file search path, add thư mục "e:\\lisp\\chen diem" nhưng khi chạy đoạn lisp trên thì vẫn bị báo lỗi "can't find file in search parth"
Bác nào có thể giúp mình với

Bạn thử đừng nhập chữ lúc chọn support file path mà hãy browse xem sao.
Sau đó hãy sửa code thành:
(setq block "a.dwg" )
  • 0

#3 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 25 March 2009 - 03:32 PM

Mình muốn viết 1 lisp chèn block "a" ở đường dẫn "e:\\lisp\\chen diem\\a.dwg" vào bản vẽ hiện hành có code như sau:
(setq block "e:\\lisp\\chen diem\\a.dwg" )
(command "insert" block '(0 0 0) "1" "1" "0")

Sau đó vào option, chọn support file search path, add thư mục "e:\\lisp\\chen diem" nhưng khi chạy đoạn lisp trên thì vẫn bị báo lỗi "can't find file in search parth"
Bác nào có thể giúp mình với

Khi đã chỉ đích danh đường dẩn thì không cần add thư mục vào trong support file search path nửa chỉ cần viết đúng như sau:
(command ".INSERT" "e:\\lisp\\chen diem\\a.dwg" (list 0 0 0) 1 1 0)
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#4 haimed

haimed

    biết vẽ circle

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

Đã gửi 25 March 2009 - 04:36 PM

Khi đã chỉ đích danh đường dẩn thì không cần add thư mục vào trong support file search path nửa chỉ cần viết đúng như sau:
(command ".INSERT" "e:\\lisp\\chen diem\\a.dwg" (list 0 0 0) 1 1 0)

Mình ko muốn chỉ đích danh đường dẫn trong lệnh "insert" vì nếu dùng lisp này ở máy tính khác thì lại phải thay đường dẫn trong lisp

@Nguyen Hoanh: mình đã làm theo cách của bác Nguyễn Hoành thì thấy được, như vậy nếu mình chỉ (setq block "a.dwg") thì khi chạy lisp, cad sẽ tìm tất cả thư mục trong support file search path để insert file "a.dwg" phải ko, nếu có 2 thư mục đều chứa file "a.dwg" thì cad sẽ insert như nào nhỉ
  • 0

#5 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 26 March 2009 - 07:56 AM

Mình ko muốn chỉ đích danh đường dẫn trong lệnh "insert" vì nếu dùng lisp này ở máy tính khác thì lại phải thay đường dẫn trong lisp

@Nguyen Hoanh: mình đã làm theo cách của bác Nguyễn Hoành thì thấy được, như vậy nếu mình chỉ (setq block "a.dwg") thì khi chạy lisp, cad sẽ tìm tất cả thư mục trong support file search path để insert file "a.dwg" phải ko, nếu có 2 thư mục đều chứa file "a.dwg" thì cad sẽ insert như nào nhỉ

Khi tìm trong support file search path nó có thứ tự ưu tiên tìm kiếm đó bạn. Cái nào được tìm thấy trước thì nó lấy cái đó.
Mình giải quyết vấn đề bạn vướng như sau.
(setq odiachay "c:")
(command ".INSERT" (strcat odiachay "\\tienich\\dwg\\cott") (list (car a)(cadr a)) dkcot dkcot 0)

Và bạn chỉ cần thay đổi dòng (setq odiachay "c:") khi qua máy khác cón tất cả các dòng insert thì vẩn giử nguyên.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#6 w1nDream

w1nDream

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 293 Bài viết
Điểm đánh giá: 73 (tàm tạm)

Đã gửi 15 September 2009 - 09:58 AM

Khi đã chỉ đích danh đường dẩn thì không cần add thư mục vào trong support file search path nửa chỉ cần viết đúng như sau:
(command ".INSERT" "e:\\lisp\\chen diem\\a.dwg" (list 0 0 0) 1 1 0)



Pác ơi!Em muốn chèn các block trong 1 thư viện (folder).Em đang làm ATGT mà copy thì lâu quá nên muốn nhờ pác viết hộ em con lisp chèn block có được hok?
VD: em đánh lệnh 201 thì nó sẽ insert block 201 cho em vào bản vẽ...
  • 0
__Tâm tựa lưu thủY__
Vi nhân nan