Đến nội dung


Hình ảnh
* * * - - 1 Bình chọn

Cải tạo các lệnh cơ bản của cad


  • Please log in to reply
60 replies to this topic

#41 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 05 January 2013 - 11:26 PM

@Hoằn: có lẽ em đã nhầm lẫn, vì lisp của bạn ThuyLinh không phải như lệnh edit. Hay em có ý kiến gì sâu xa mà anh chưa hiểu?
@Ketxu: cần phải nói cho rõ ra là "cải tiến" hay "bổ sung" thêm 1 lệnh phụ. Xét về tính "bổ sung" thì tốt, nhưng nói rằng "cải tiến" thì không ổn. Vì khi đó lệnh nguyên thủy đã chết rồi.
  • 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.


#42 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

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

Đã gửi 05 January 2013 - 11:37 PM

@TueNV: Cái chết dở chính là bước bạn phải tìm trong danh sách và lôi ra đúng textstyle mà bạn muốn sửa đấy. Danh sách ngắn thì không mất nhiều thời gian, nhưng cỡ khoảng 20 style trở lên thì tìm thấy ngại ngay, nhất là các bản vẽ copy - paste nhiều lần, từ nhiều nguồn, tên style nhiều trường hợp na ná nhau tìm không nhanh đâu. Bạn không thấy cần vì bạn chưa bao giờ vấp phải nó.
@Hoằn: Thêm trả lời của TueNV và Ketxu nữa là tổng cộng có 4 người trả lời rồi nhé, hi vọng bạn đã hiểu được. Ở đây không ai ngố tàu và ngớ ngẩn đến nỗi hiểu vấn đề 1 cách đơn giản như chị em nhà bạn đâu.
@Ketxu: Mình chưa hiểu lắm ý định của bạn.
  • 0

#43 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 January 2013 - 11:45 PM

@bác H : Ket k thích ngồi phân tích 2 khái niệm này ^^.Mới hay cũ cũng chỉ là cái tên, thích đè thì để k đè thì sửa, thấy hợp thì xài, hàn lâm chi đau đầu bác ơi ^^ Trong trường hợp này là Cải tiến và cũng là bổ sung, nên mới gọi là thêm MODE :"> , vì vốn dĩ ta đã chẳng thay đổi được cái nhân của nó rồi.

@TL : copy ss1 -> ss2,3,4,5 ... mình muốn thêm một setting tự gán hoặc là s5, hoặc là toàn bộ ss1 đến ss5 vào tập previous. Ý sau thì dễ làm hơn ý trước 1 chút hay sao ý, vì gom tất thì đơn giản r. Mục đích : nhìu khi muốn làm group luôn sau khi copy, hoặc ... copy tiếp từ cái 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


#44 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 06 January 2013 - 12:02 AM

Từ khi mình post bài đến giờ topic trôi được gần 1 trang rồi. Vậy mà đọc toàn mấy thứ tranh luận chả đâu vào đâu.
@Haanh & Hoằn: Chị dùng cad2010 cưng ạ. Còn về mấy lisp trong topic này, nếu 2 cưng có hứng thì lấy về dùng, không thích thì thôi, không ai ép cưng cả. Chị không muốn mất thời gian giải thích cho người chậm hiểu đâu. Ai hiểu thì cũng đã hiểu rồi. Chị chỉ muốn nhắc 2 cưng rằng: hãy cố gắng đừng tranh luận vớ vẩn vào 1 topic đã được định hướng cụ thể tránh làm mất thời gian của mọi người khi theo dõi. Nó cũng khiến mọi người dễ sa đà và những trao đổi, tranh luận không cần thiết. có box Thảo luận vỉa hè Giao lưu gặp gỡ trong 4rum này đấy
@DVH và tất cả: Mình muốn nhắc lại và hi vọng mọi người nhìn nhận đúng về topic này: Đây không phải show diễn của riêng mình, những gì mình viết và post lên đây có thể hoàn thiện, có thể không. Nhưng cái quan trọng là ý tưởng mình muốn chia sẻ - bạn là dân lập trình, bạn cần gì hơn là ý tưởng? Nếu code của mình viết chưa hoàn hảo thì thay vì ngồi ném đá (Mình không nói DVH nhé) sao các bạn không đóng góp thêm, hoặc có thể tự các bạn sửa code cho tốt hơn. Chẳng hạn với code mình triển khai bên trên, bạn DVH đã nêu ra nhươc điểm của nó, vậy bạn thấy việc sửa nó có khó không?
PS: Mình nhờ DVH sửa lại code trên dùm mình để khắc phục các vấn đề bạn đã nêu do hiện tại máy mình đang dùng không có cad. mình biết là bạn sửa được.

Hoằn chỉ muốn và mong mỏi chị Thùy Linh chia sẻ lisp làm cho công việc vẽ mình và chỉnh sửa file bản vẽ của người khác được nhanh hơn nên Hoằn mới tranh luận!
Phương án lisp của chị Thùy Linh đưa ra, Hoằn thấy nó chậm và nó lạc hậu với lệnh cơ bản của AutoCAD, Hoằn đưa ra gợi ý với thiện ý là lần sau chị hãy cẩn trọng khi đưa ra nhận định ...đừng ngộ nhận làm mất thời gian của người khác.
Thông tin đưa lên diễn đàn CADViet.com không phải là Blog cá nhân mà là phương tiện thông tin đại chúng, vì thế người đưa tin không có quyền cấm người khác đọc...ngươc lại người đọc có quyền phản biện thông tin của người đưa thông tin trên tinh thần tôn trọng, cởi mở và vì lợi ích chung của cộng đồng...
Chị Thùy Linh đã viết lý do chị viết lisp là:
"Khi muốn chỉnh sửa textstyle của 1 đối tượng text nào đó trên bản vẽ, ta phải biết tên textstyle áp dụng vào text đó. Theo cách thông thường thì phải làm theo trình tự sau: Chọn text -> kiểm tra textstyle -> gõ lệnh st -> tìm kiếm style muốn đổi trong danh sách. mất tương đối nhiều thời gian."(Đó là cảm nhận của chị khi sử dụng AutoCAD.)
Người khác có cách làm khác nhanh hơn là cái chắc chắn , đừng bắt người ta phải ...ngộ nhận giống như mình!
Lisp của chị Thùy Linh chậm hơn AutoCAD là cái chắc rồi vì thế Hoằn mới phản biện!
  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#45 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

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

Đã gửi 06 January 2013 - 12:03 AM

@Ketxu: Ẹc! Chả ý nào dễ cả. Nhưng có lẽ là làm được. Bạn ra đề này không khác gì bài kiểm tra kết quả cho mình vậy. Mình sẽ thử, coi như trả bài cho Ketxu và Gia Bach cho hướng dẫn của 2 bạn dành cho mình trong topic Hỏi về lisp. Buộc phải dùng "nó" rồi.

@Hoằn: Thôi được rồi. Để chị nói rõ ràng với Hoằn 1 lần nữa và Chị hi vọng Hoằn hiểu được bản chat vấn đề mà chị nêu trong các bài viết. Sau đó nếu có gì cần trao đổi hoặc chưa rõ thì gửi thư cho chị chứ không viết vào topic này nữa. Chị không muốn nó "hot" theo cách này, và cũng là để dành đất cho các nội dung thảo luận chính. Chúng ta nên tôn trọng mọi người 1 chút.

1) Điều đầu tiên, vì em đã nhắc đến quyền được post bài. Đúng là chị chả có quyền gì cấm em cả, chị chỉ muốn nhắc em về ý thức của em trước cộng đồng hàng nghìn con người. Thẳng thắn mà nói thì em viết bài rất vô ý thức, điển hình là trong topic viết công cụ dung sai cho các bạn cơ khí. Topic thì dài mà em tương vô đó đủ thứ nội dung mang tính chat cảm xúc, tình cảm cá nhân hoặc nội dung không lien quan đến chủ đề (tất nhiên không chỉ riêng mình em mà cả 1 số người khác) Một vài lần Mod TueNV phải lên tiếng nhắc nhở nhưng hình như em vẫn không hiểu. Chị đã không đủ kiên nhẫn để theo dõi cũng như tham gia vào topic đó vì những bài viết như thế.

2) Trước khi em kết luận chị nhận ngộ hay ngộ nhận gì đó thì tốt nhất là em nên trang bị cho mình đủ kiến thức để hiểu người khác nói và để chắc chắn về điều mình nói. Chị đã đặt câu hỏi ngược cho em ở trang 1, nhưng em đâu có trả lời được? hay thấy chị đanh đá không dám trả lời?

3) Chị không dùng topic này để phô diễn khả năng hay để tô vẽ bản thân, Chị chỉ muốn trao đổi ý tưởng để cải tiến công cụ làm việc cho tốt hơn. và muốn mọi người cùng tham gia để trao đổi thảo luận. Chị không nhìn nhận bài viết đầu tiên của em và của chị chồng em theo hướng tích cực cho nội dung thảo luận. Nói that là cái giọng thảo mai, thương với chả không thương, chị nghe ngứa đít lắm :))

4) Có ý kiến cho rang: Autodesk nó giỏi thế thì mình làm gì mà đủ trình để đòi cải tạo sản phẩm của nó, em có vẻ đồng tình quan điểm. thi chị có thể chỉ thẳng ra ngay trong topic này:
- Lệnh join em chê đó, bao nhiêu năm cái bọn trình cao kia mới nhận ra là không hợp lý, qua bao nhiêu đời cad để rồi đến tận 2012 mới sửa? Nếu chị không sửa thì phải chap nhận dùng cái lệnh cùi mía cũ à? hay là mua cái máy mới, cài cad mới dùng cho oách.
- Lệnh Pedit autodesk đã chịu sửa đâu, không khác gì lệnh copy ngày xưa, mãi đến 2000 mới chịu sửa để copy thành mcopy...
Không thể suy nghĩ kiểu thụ động, 3 phải như thế khi làm việc được, nó giỏi thì nó bảo gì cũng là chân lý ư?

5) Về lisp Textstyle bên trên. Chị đành phải nhắc lại: Nó không phải dùng để đổi textstyle cho 1 đối tượng text mà dùng để sửa font và các thiết lập khác của 1 textstyle . Chị hi vọng em có đủ hiểu biết để phân biệt được sư khác nhau của 2 khái niệm này. Nếu vẫn chưa rõ thì em chỉ cần hiểu đây chính là lệnh st (style) trong máy của em nhưng được sử dung theo một cách khác mà một vài kẻ ngu ngốc, ngớ ngẩn... dùng rồi lại khen hay. thế thôi! Còn nếu em hay chị chồng em có y kiến gì hay hơn sao không đóng góp? post 1 chị đã nêu ro tinh than của topic rồi.
  • 0

#46 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 06 January 2013 - 12:18 AM

@TueNV: Cái chết dở chính là bước bạn phải tìm trong danh sách và lôi ra đúng textstyle mà bạn muốn sửa đấy. Danh sách ngắn thì không mất nhiều thời gian, nhưng cỡ khoảng 20 style trở lên thì tìm thấy ngại ngay, nhất là các bản vẽ copy - paste nhiều lần, từ nhiều nguồn, tên style nhiều trường hợp na ná nhau tìm không nhanh đâu. Bạn không thấy cần vì bạn chưa bao giờ vấp phải nó.
@Hoằn: Thêm trả lời của TueNV và Ketxu nữa là tổng cộng có 4 người trả lời rồi nhé, hi vọng bạn đã hiểu được. Ở đây không ai ngố tàu và ngớ ngẩn đến nỗi hiểu vấn đề 1 cách đơn giản như chị em nhà bạn đâu.
@Ketxu: Mình chưa hiểu lắm ý định của bạn.

Óe! 200 Style cũng vô tư luôn! Chị Thùy Linh hãy gửi file dwg minh họa về cách sử dụng lisp của chị lên...em Hoằn sẽ phản biện bằng AutoCAD! :D :D :D
  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#47 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 06 January 2013 - 06:39 AM

em thì thấy lsp st này cũng hay, tiện cho 1 số trường hợp chỉ thiếu 1 vài ý như anh Ha nêu ^^, ở đây em ko dám nói ai hơn ai, em chỉ ngĩ thế lày ví dụ 2 người thi đánh trứg xem ai nhanh hơn 1 người thích dùng máy theo phong cách hiệm đại cải tiến, 1 người thích dùng đũa theo truyền thống => kết quả 2 bên bằng nhau ko ai thua,nên em nghĩ là do thói quen thui ah, cách nào hợp với mình thì mình dùng thấy lẹ :D. Em ko vơ đũa cả nắm nhe vì cũng còn tùy có những thứ nên cải tiến thì nhanh hơn, có những cái cổ điển thì hay hơn, cũng có thể kết hợp cả 2 thì kết quả cho ra tốt nhất :D. Việc autodesk ko cải tiến mà dần dần họ mới cải thì em nghĩ ko phải họ nghĩ ko ra mà có thể là do chiến thuật kinh doanh chờ thời chăng :D, hay họ thấy nó như vậy tuy có 1 số hạn chế nhưng có thể áp dụng cho nhiều trường hợp ko bị tác dụng phụ vì nó có thể liên quan nguyên 1 mớ đâu đó ^^, sau này khi cải tiến họ cải đc 1 loạt nên cái lệnh có thể cải ấy nó khả thy nên cải lun :D
Chị TL cứ sáng tác thoải mái, mình là diễn đàn trao đổi kiến thức mà, tốt hay ko tốt chưa pit nhưng quan trọng là mình đã vận động. Như em hay nghịch có những thứ tưởg mình chế hay lắm nhưng cuối cùng đổ nợ kaka nhưng mẹ vẫn khen có tinh thần sáng tạo chịu khó nhưng lần sau mẹ bóp mũi chết ah quậy quá :D
Ps: vài dòng suy nghĩ của tiểu bối có gì sai mấy pac nhắc nhở rút kinh nghiệm ^^, đừng oánh nhoc , nhoc sợ đòn lém :D.
  • 2
"...................][)e\/i][_ /\/\@Y CrY....................."

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








#48 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 06 January 2013 - 10:29 AM

Anh nhoclangbat đã ... gãi chuẩn thiệt đó! Hoằn xin phép không "xung đột" đến thớt này nữa, lý do đơn là Hoằn tôn trọng tự do ngôn luận và tự do chia sẻ của người khác.
  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#49 various

various

    biết vẽ polygon

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

Đã gửi 06 January 2013 - 04:06 PM

2. Nhưng nếu bạn muốn chọn tập hợp Previuos trước cho 1 lênh nào khác mấy lệnh trên thì sao. Bạn có thể dùng lệnh này:


(defun C:SS (/ ss)
(or
(not (equal '(nil nil) (sssetfirst nil (ssget "p"))))
(prompt " ** Khong co doi tuong nao duoc chon **"))
(princ))


Em rất thích lisp này của bác. Thực sự nó khiến em vẽ thoải mái hơn so với lúc trước. :D Nhưng nếu thêm thì lựa chọn lựa chọn lại đối tượng thứ 2 ngay sau đối tượng thứ 1 thì hay quá.

Cũng xin hỏi bác và mọi người 1 câu : tại sao chức năng fence ( chọn đối tượng hay thực hiện command theo dạng quét hàng rào ) lại rất... dở hơi. Lúc dùng rõ ràng đã quét qua cả giữa ( em nghĩ chắc không cần thế, chỉ cần đi qua là được ) nhưng có cái xịt, có cái được. Lắm lúc đang trim, extend, matchprop... dùng fence rất thích, nhưng có lúc bực mình. Chỉ được ở đầu hoặc ở đầu và cuối bỏ qua giữa. Phải chọn lại rất ngán :D. Không biết em thao tác sai chỗ nào không? Nếu có thể thì mong các bác cải tạo luôn thằng này thì hay quá :)
  • 0

#50 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 06 January 2013 - 04:27 PM

Bạn chú ý đến các đường không phải là "Continuous" xem. Khi Fence qua khoảng hở thì đối tượng không được chọn đâu.
  • 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.


#51 hoa dai nhan

hoa dai nhan

    biết lệnh ddedit

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

Đã gửi 07 January 2013 - 08:23 AM

Đúng là khi quét qua các khoảng hở thì không được
  • 0

#52 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

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

Đã gửi 07 January 2013 - 08:25 AM

Select vào phạm vi đứt của nét đứt thì tất cả method của lệnh select đều không chọn được chứ không riêng gì Fence (trừ select all - ssget "x")
Đó chỉ là 1 phần nguyên nhân. Nguyên nhân chính là do cơ chế select đối tượng của cad, chỉ cho phép chọn các đối tượng đang hiển thị trong phạm vi màn hình (trừ select all - ssget "x") .
Trong method Fence của lệnh select đối tượng thì tập hợp đối tượng lấy được là tập hợp đối tượng trong lần pick cuối (ngay tại thời điểm pick). Bởi vậy, nếu muốn chọn chính xác thì người dùng cần phải chắc chắn rằng trước khi pick điểm cuối cùng, màn hình phải được zoom để toàn bộ điểm đã pick nằm trong phạm vi nhìn tháy trên màn hình. Đây là nguyên nhân chính mà người dùng hay gặp do ít người hiểu cơ chế này.

@various: Để sửa lại method này trong khi select đối tượng thì chắn chắn là không thể. Nhưng việc viết lại 1 lệnh để select đối tượng bằng method fence thì đơn giản. Khi nào rảnh mình sẽ viết cho bạn nếu chưa có ai viết và nếu bạn còn cần nó. Tuy nhiên nếu bạn đã hiểu cơ chế này rồi thì mình nghĩ chắc cũng không cần thiết phải viết lại nhỉ
  • 0

#53 various

various

    biết vẽ polygon

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

Đã gửi 07 January 2013 - 10:13 AM

@various: Để sửa lại method này trong khi select đối tượng thì chắn chắn là không thể. Nhưng việc viết lại 1 lệnh để select đối tượng bằng method fence thì đơn giản. Khi nào rảnh mình sẽ viết cho bạn nếu chưa có ai viết và nếu bạn còn cần nó. Tuy nhiên nếu bạn đã hiểu cơ chế này rồi thì mình nghĩ chắc cũng không cần thiết phải viết lại nhỉ


Vâng :). Em nghĩ phụ thuộc vào style của từng người. Cảm ơn bác đã giải đáp thắc mắc. Nếu để select riêng đối tượng thì có rất nhiều cách, cái cân thiết nhất là sử dụng được sau khi thực hiện command phía trước :D
  • 0

#54 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 07 January 2013 - 10:41 AM

Lệnh ST cải tạo lại trên code của bạn ThuyLinh
- Muốn gọi hộp thoại ST -> ở dòng select object -> pick vào vùng trống trên màn hình hoặc enter
- Muốn gọi Style của Text -> ở dòng select object -> pick vào Text


(defun c:st (/ style c-style)
(initdia)
(setq style (car (nentsel)))
(if style (progn
(setq style (cdr (assoc 7 (entget style))) c-style (getvar "textstyle"))
(setvar "textstyle" style)
(or (command "style")
(if (= (getvar "textstyle") style)
(setvar "textstyle" c-style)
)))
(command "style")
)
(princ))

  • 2

#55 ap0ll02009

ap0ll02009

    biết zoom

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

Đã gửi 07 January 2013 - 11:32 AM

tiếp tục hóng !!! mong sẽ biết thêm nhiều lisp tiện dụng . tks alls
  • 0

#56 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

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

Đã gửi 22 March 2013 - 09:47 AM

Mình nhận được một số lời than phiền của đồng nghiệp là lệnh U (undo) đôi khi không thực hiện được và báo lỗi như sau:

Command: u
Start of Group encountered.
Must enter UNDO END to go back further.
Mình cũng đã một vài lần gặp phải thông báo này và chắc rằng các bạn cũng vậy nếu các bạn có sử dụng Lisp cho công việc.
Nguyên nhân là do người viết Lisp kiểm soát lỗi người dùng thoát lệnh băng ESC không tốt. Lệnh lisp tạo vị trí Undo Begin nhưng không có Undo End. Thông báo trên là yêu cầu người dùng nhập Undo End thì mới tiếp tục Undo được. Hơi thủ công nên mình quyết định cải tạo lệnh này. Có 2 phương án cho các bạn lựa chọn.
 
PA1: Vì U là lệnh gốc của cad nên Lisp thông thường không thể can thiệp được. Mình viết 1 lệnh mới luôn, thay vì dùng U, bạn dùng Y sẽ không bao giờ gặp thông báo trên:
(defun C:Y (/) (if (= (getvar "undoctl") 61) (command "undo" "end")) (command "undo" "") (princ))
 
PA2: Can thiệp trực tiếp vào lệnh gốc U. Phương án này mình không khuyến khích các bạn sử dụng trừ những bạn có khả năng viết Lisp, sử dụng và quản lý tốt phần Reactor. Nếu có hứng thú thì các bạn có thể tham khảo code dưới để tích hợp vào hệ thống các Lisp Reactor của các bạn. Lợi ích của phương án này là có tác dụng kể cả với việc bạn dùng tổ hợp Ctrl+Z thay cho lệnh U.
 
(vlr-editor-reactor "Command Started" '((:vlr-commandwillstart . Callback-CmdStarted)))
(defun Callback-CmdStarted (rt cmd)
(and (equal cmd '("U"))
(= (getvar "undoctl") 61)
(vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))))

  • 0

#57 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

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

Đã gửi 22 March 2013 - 10:11 AM

@Hoằn: có lẽ em đã nhầm lẫn, vì lisp của bạn ThuyLinh không phải như lệnh edit. Hay em có ý kiến gì sâu xa mà anh chưa hiểu?
@Ketxu: cần phải nói cho rõ ra là "cải tiến" hay "bổ sung" thêm 1 lệnh phụ. Xét về tính "bổ sung" thì tốt, nhưng nói rằng "cải tiến" thì không ổn. Vì khi đó lệnh nguyên thủy đã chết rồi.

Hôm nay mới để ý thấy cái ý kiến này của ĐVH. Bạn không hiểu hay cố tính không hiểu nhỉ? Các lệnh mà mình "cải tiến" bên trên bản thân nó cũng chỉ là lệnh tắt. Ví dụ: Br lệnh gốc là Break, J lệnh gốc là Join.... cơ bạn ạ. Không có lệnh nguyên thủy nào chết cả, bản thân cad vẫn vậy, chỉ có trải nghiệm của người dùng là khác đi thôi :)


  • 0

#58 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

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

Đã gửi 04 April 2013 - 06:21 PM

Nếu bạn lười đến mức ngại với con chuột lên góc màn hình để đóng bản vẽ thì lisp dưới đây sẽ giúp bạn thay thế công việc "nặng nhọc" đó bằng 1 lệnh tắt.

(defun C:CF () ; Close file
(if (= (rem (getvar "dbmod") 2) 0) 
(command "close" "y") 
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "close ")))

Mình nói thế cho vui thôi, lisp này mục đích để cải tạo lại 1 chút thao tác đóng bản vẽ.

Với cách close bản vẽ thông thường thì nếu có bất kì thay đổi nào của bản vẽ, kể cả bạn mở bản vẽ ra chỉ để zoom và pan để xem thì khi đóng lại, Cad hâm vẫn cứ hỏi bạn 1 câu vô nghĩa: có lưu trước khi đóng hay không? Dùng Lisp trên bạn sẽ né được câu hỏi này. Nó đặc biệt hữu dụng với những ai thường xuyên làm công việc duyệt bản vẽ của đồng nghiệp.

 

Chú ý: với những bạn có add sẵn các lisp khởi động cùng cad mà bản thân các lisp này thay đổi 1 hay nhiều biến hệ thống nào đó của cad thì để né câu hỏi trên bạn cần thêm 2 thao tác sau nữa:

- Đặt hàm (acad-push-dbmod) vào Đầu lisp đầu tiên trong danh mục Startup Suite

- Đăt hàm (acad-pop-dbmod) vào Cuối lisp cuối cùng trong danh mục Startup Suite

Chúc các bạn duyệt bản vẽ vui vẻ ^^


  • 1

#59 thanhtungvnn

thanhtungvnn

    biết vẽ arc

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

Đã gửi 04 April 2013 - 07:27 PM

.Nó đặc biệt hữu dụng với những ai thường xuyên làm công việc duyệt bản vẽ của đồng nghiệp.

 

Cảm ơn bà chị :D. Đúng là lâu nay rất khó chịu vì thao tác này. Có lúc mở cả đống lên. Hỗ trợ view bằng idwg tab. Đến lúc đóng lại thì... sweat.gif


  • 0

#60 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 04 April 2013 - 07:32 PM

Phong cach viet lisp voi tu duy cua ke luoi bieng giong minh. Hoi truoc minh cung viet 1 lenh y het the nay. Cung dat ten lenh la cf lun, khac la dung sendkey =))
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD