Đến nội dung


Hình ảnh
- - - - -

[Nhờ chỉnh sữa] lsp load linetype


  • Please log in to reply
10 replies to this topic

#1 nhoclangbat

nhoclangbat

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1409 Bài viết
Điểm đánh giá: 379 (khá)

Đã gửi 12 December 2012 - 07:57 AM

Em viết 1 lsp đơn giản dùng để gọi các linetype em đã tạo, nhưng có 1 số chỗ vướn.Chẳng là em đang học bên lớp anh
Ket, đc anh Ket hướng dẫn học 1 phần nhỏ về lệnh command, em mún viết lsp này cũng để xài,nhưng về thông số để set các lệnh trong
cad em chưa nắm đc hết còn mù mờ lắm, chủ yếu là mò đại ^^.Các linetype riêng của em đã tạo thành 1 file.lin, giờ ý em là tùy từng
mục đích của bản vẽ chỉ cần load 1 vài linetype trong số đó, nếu load hết thì chỗ linetype dài hết cả màn hình kím cũng mệt ^^.
Thông thường để load thì lại phải vô other->load->file-> chọn đường dẫn, chọn file, chọn linetype=> hơi dài dòng.
Cái lsp em mò viết đại nó cũng đã load đc nhưng thấy chưa đc đúng ý em lắm, thấy nó kỳ kỳ ^^.
em viết như thế này
(defun c:ltt ()
(command "linetype" "load" "C:\program files\autodesk\autocad 2012-English\hotro" "acad.lin" "s" "1LOGIOI_54" "S" "1LEDUONG_54" "")
)
Sau khi chạy bật f2 lên thì em thấy nó báo giống như là ko kím đc, rùi nó kím trong file acadiso.lin
nằm trong mục appdata, roaming, autcad, enu18.0, support chứ ko kím trong đường dẫn em đã viết.
em nghĩ chắc là do cú pháp em sai nhưng em đảm bảo đường dẫn là đúng, em đặt file của em trong thư mục hotro.
Vậy là em phải copy 1 số linetype của em vào thư mục mà cad nó lấy để thử nghiệm xem thế nào thì kết quả là nó lấy đc.
Mục đích của em là khi cần chỉ cần đánh 1 lệnh là nó load lun các linetype em cần theo đúng đường dẫn của em,
Em cũng đã thử sửa đi sửa lại nhưng vẫn load ko đc chỉ có viết như trên là đc và phải copy linetype cũa em vào file .lin mà cad nó lấy.
Mong các anh xem hộ giúp em hoàn thiện cái lsp củ chuối này của em, em cảm ơn rất nhiều :D
  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#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 12 December 2012 - 08:07 AM

1). Sửa dấu \ thành \\ hoặc / xem sao.
2). Không biết lisp của bạn giống củ chuối hay củ khoai lang vì mắt mờ lắm.
  • 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 nhoclangbat

nhoclangbat

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1409 Bài viết
Điểm đánh giá: 379 (khá)

Đã gửi 12 December 2012 - 08:29 AM

vẫn ko đc anh Doan Van Ha ơi sữa thành \\ đúng cú pháp nhưng vẫn load ko đc, nó báo như thế này

Command: LTT linetype
Current line type: "CONTINUOUS"
Enter an option [?/Create/Load/Set]: load
Enter linetype(s) to load: C:\program files\autodesk\autocad 2012 -
English\HSB12\acad.lin. Enter name of linetype file to search <acad.lin>:
acad.lin

No matching linetypes found in file
C:\Users\Devil\appdata\roaming\autodesk\autocad 2012 -
english\r18.2\enu\support\acad.lin.

Enter an option [?/Create/Load/Set]: s
Specify linetype name or [?] <CONTINUOUS>: 1LOGIOI_54
Linetype "1LOGIOI_54" not found in acad.lin.
You can use the "Load" option to load it from another file.
error: Function cancelled
Enter an option [?/Create/Load/Set]: *Cancel*

Đúng là lsp em nó củ... thiệt ^^
  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#4 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 12 December 2012 - 10:07 AM

Cú pháp hướng dẫn:

(defun C:LTT()
(if (tblsearch "ltype" "LineTypeName")
(command "linetype" "load" "LineTypeName" "FileName+Path" "y" "")
(command "linetype" "load" "LineTypeName" "FileName+Path" "")))

  • 2

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


#5 nhoclangbat

nhoclangbat

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1409 Bài viết
Điểm đánh giá: 379 (khá)

Đã gửi 12 December 2012 - 10:32 AM

Thank anh Doan Van Ha nhiu lam, anh co the giai thich cho sai hoac thieu trong lsp của em đc ko anh, để em nắm đc cách sau này nhớ ko bị sai nữa.
  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#6 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 12 December 2012 - 10:45 AM

Nếu bạn làm theo code hướng dẫn là đúng thì sẽ suy ra code của bạn sai chỗ nào. Rõ mười mươi rồi còn gì (nhất là thứ tự các thông số, và việc Set liệu có cần không).
  • 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.


#7 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 12 December 2012 - 10:46 AM

Nhoclangbat chú ý đánh TV có dấu trong các bài của mình. Chấm phẩy xuống dòng tùy tiện thì người đọc khó theo dõi :)
  • 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


#8 nhoclangbat

nhoclangbat

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1409 Bài viết
Điểm đánh giá: 379 (khá)

Đã gửi 12 December 2012 - 11:15 AM

Ah em hỉu rùi anh Doan Van Ha, lsp của em nếu sửa lại như cú pháp anh hướng dẩn thì chỉ cần 1 dòng là đủ mà hơi dài nếu load nhìu linetype.
(command "linetype" "load" "tên của loại linetype mún load, tên tiếp, ...." " đường dẫn" "")
Đơn giản vậy mà giờ mới ngộ ra, tội ko dịch đc cad nó nói gì hihi
  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#9 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 12 December 2012 - 11:28 AM

Ah em hỉu rùi anh Doan Van Ha, lsp của em nếu sửa lại như cú pháp anh hướng dẩn thì chỉ cần 1 dòng là đủ mà hơi dài nếu load nhìu linetype.
(command "linetype" "load" "tên của loại linetype mún load, tên tiếp, ...." " đường dẫn" "")
Đơn giản vậy mà giờ mới ngộ ra, tội ko dịch đc cad nó nói gì hihi

Hề hề hề,
Ngộ gì cũng tốt nhưng chớ ngộ gió nhé....
  • 2
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#10 TRUNGNGAMY

TRUNGNGAMY

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 401 Bài viết
Điểm đánh giá: 91 (tàm tạm)

Đã gửi 28 February 2015 - 04:52 PM

Các bạn cho hỏi tý:

Mình muốn sd cứu pháp cũng như thế này (trích ở trên)

(if (tblsearch "ltype" "LineTypeName")
(command "linetype" "load" "LineTypeName" "FileName+Path" "y" "")
(command "linetype" "load" "LineTypeName" "FileName+Path" "")))

nhưng nếu muốn biết "LineTypeName" đang nằm trong file nào thì làm sao các bạn (ý mình có một vài file .lin nhưng.muốn viết  tổng quát lisp phải tự biết tìm đúng file có "LineTypeName" đó để load).

Cám ơn các bạn


  • 0

#11 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 28 February 2015 - 06:50 PM

LM đã viết ở đây. Nhớ xem ghi chú.

http://www.lee-mac.c...adlinetype.html


  • 1

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