Đến nội dung


Hình ảnh
- - - - -

[Xin Lisp] Xóa linetype


  • Please log in to reply
15 replies to this topic

#1 bloodknight151

bloodknight151

    biết zoom

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

Đã gửi 21 September 2014 - 05:59 PM

 Do trình độ có hạn và mày mò không thành công autolisp mà đang cần gấp nên bác nào hảo tâm viết giùm e cái lisp, nội dung là xóa hết tất cả linetype cứng đầu bất chấp nó có tồn tại trong object được không ạ? (kể cả xóa luôn object đó cũng không sao). E xin chân thành cám ơ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 21 September 2014 - 06:04 PM

1). Nhờ bạn gởi bản vẽ lên.

2). Nhờ bạn định nghĩa "Linetype cứng đầu" giùm tí. Tôi thấy Linetype nào cũng đáng yêu cả 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 bloodknight151

bloodknight151

    biết zoom

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

Đã gửi 22 September 2014 - 07:43 AM

Vâng, File gửi kèm của e đây ạ, bác xem hộ :)

http://www.cadviet.c...7_filemau_1.dwg


  • 0

#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 22 September 2014 - 08:24 AM

Save xuống 2007 xem sao. Cao quá mở 0 đượ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.


#5 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 22 September 2014 - 10:48 AM

^^ nhoc phụ bạn đó xíu, khi save xuống 2007 nhoc cảm giác có gì đó ko ổn ^^

http://www.cadviet.c...7_filemau_1.dwg104473_cvcvcvcvc.png


  • 1
"...................][)e\/i][_ /\/\@Y CrY....................."

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








#6 bloodknight151

bloodknight151

    biết zoom

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

Đã gửi 22 September 2014 - 12:36 PM

Đây ạ, e up  lại cad 07 cho chắc, thanks bạn nhoclangbat nhiều nhé!

 

http://www.cadviet.c...7_filemau_3.dwg


  • 0

#7 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 22 September 2014 - 07:04 PM

Bạn chọn Linetype Standard làm hiện hành rồi Pu nó là xong,... Textstyle cũng tương tự :D


  • 1

#8 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 22 September 2014 - 07:26 PM

Ah quên, sorry! Đó là Dimstyle và Textstyle... còn Linetype thì quả là cứng đầu :wub:


  • 2

#9 bloodknight151

bloodknight151

    biết zoom

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

Đã gửi 22 September 2014 - 09:16 PM

hix, cám ơn bạn đã quan tâm. Lúc xưa thì bị layer, nhờ có lệnh laydel mà thoát khốn, giờ lại them cái linetype này nữa :(


  • 0

#10 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 22 September 2014 - 09:23 PM

Dường như Cad 2015 đã tích hợp lệnh Dgnpurge để xóa Linetype không cần thiết :) ... Tôi cổ hủ rồi không theo kịp thời đại :D


  • 2

#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 22 September 2014 - 09:39 PM

Đây ạ, e up  lại cad 07 cho chắc, thanks bạn nhoclangbat nhiều nhé!

 

http://www.cadviet.c...7_filemau_3.dwg

Mò giúp bạn suốt buổi, tìm được vài cách, nhưng áp dụng với bản vẽ của bạn thì đều thất bại. Rất tiếc là không thể giúp được, đành hóng vậy.


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


#12 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 22 September 2014 - 10:42 PM

nhoc mò đại xóa gần hết còn 1 cái linetype  nữa ko xóa đc thua  đổi tên nó "kkk" cho zui, thua bùn ngủ rùi ^^

http://www.cadviet.c...filemau_1_1.dwg


  • 1
"...................][)e\/i][_ /\/\@Y CrY....................."

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








#13 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 23 September 2014 - 12:42 PM

Bạn kết hợp các cách sau, thứ tự có thể tuỳ bạn, đây là 1 thứ tự tham khảo và xử lý được với file bạn đưa lên :

 

- Linetype ->Chọn ByLayer và Set nó làm Current

- Lệnh Purge và tích vào mục Automatically Purge Orphaned Data với CAD 2015. Cad thấp hơn thì bạn tìm bản DGN Hot Fix trên trang chủ Autodesk (dưới dạng Module Net). 

- Lệnh Laytrans -> Load lại chính file CAD này -> Map Same -> Translate -> Translate Only

- Wblock -> Entire Drawing -> Lưu ra file mới


  • 1

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


#14 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 25 September 2014 - 11:20 AM

AutoCAD 2010

Chuyển LineType về ByLayer, chuyển Layer về 0 text style và dim style về standard > purge > xóa layer Defpoint và kich thuoc (LayDel)

Save As thành dxf (R12) > mở lên > Purge > còn lại 1 line type save dxf (R12)

bằng Notepad tìm mấy cái tên line type còn lại xóa xóa từ dòng LTYPE -> LTYPE (hoặc ENDTAB)

mở lại bằng CAD -> done.

Good luck!


  • 2

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#15 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 25 September 2014 - 12:43 PM

Mình đã làm giống Detailing chỉ còn 1 Ltype cứng đầu... Việc mở Notepad file dxf để can thiệp vào bản vẽ là hết sức cẩn thận... Nhưng đây là file trống chỉ xóa Ltype nên cách của bạn khả thi :D . Thanks!


  • 1

#16 bloodknight151

bloodknight151

    biết zoom

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

Đã gửi 25 September 2014 - 07:50 PM

Nhà mất mạng mấy hôm nay, rất cám ơn sự giúp đỡ nhiệt tình của các bác. e đã làm theo 2 cách trên và rất oke, tuy nhiên việc xử lý trực tiếp trên bản vẽ mà không qua các quy trình save ra file dxf và write lock là ko thể sao ạ? tại đôi khi tự nhiên e cop một số thư viện qua bên file mới nặng 7,8mb thì lại dính lũ linetye này. Nếu như write lock và save ra file cad mới thì 1 số dynamic block bị lỗi 1 số thuộc tính bên trong. Điều đó là tối kỵ trong công việc của e :(


  • 0