LoveLisp
-
Số lượng nội dung
191 -
Đã tham gia
-
Lần ghé thăm cuối
Bài đăng được đăng bởi LoveLisp
-
-
Hàm Nentsel
trong AutoLisp
Mình đã dùng hàm nentsel để lấy ename đối tượng. Đó là tên của một đối tượng con thuộc block.
Cho mình hỏi có cách nào truy xuất các thuộc tính của block mà chỉ dùng hàm nentsel không?
-
Bạn đừng tìm cách xóa Layer 0 nhé, dù nó bị tắt, bị đóng băng hay không dùng đến thì vẫn không thể xóa nó được :)
-
Bạn thử sử dụng LISP sau (Lệnh DelL)
http://www.cadviet.com/upfiles/7/99835_dell2__xoa_tat_ca_cac_layer_frozen_hoac_off.lsp
Lưu ý backup bản vẽ trước khi sử dụng nhé!
-
Có vẻ AutoCAD 2007 không có chế độ này.
Mình có tìm được hướng dẫn
http://blogs.rand.com/support/2014/08/autocad-make-your-hidden-lines-in-solids-hidden.html
tuy nhiên không thể áp dụng được cho AutoCAD 2007.
-
Mình sử dụng Autocad 2007, muốn bật chế độ nét đứt cho các cạnh không nhìn thấy, mong mọi người hướng dẫn giúp.
Xin cám ơn!
-
hic, đọc xong mà chẳng biết điều bạn muốn là gì. Bạn có thể làm rõ các ý sau không?
-MV là gì? Có phải Viewport không?
- Chiều Layout là gì? Có phải là chiều nằm ngang theo đáy màn hình?
- Vị trí ban đầu là vị trí nào? Có phải theo hệ tọa độ chuẩn World của AutoCAD?
- Bạn đã dùng lệnh nào của Express?
Mình đoán rằng trong Layout, trong một Viewport, bạn muốn chọn một hướng bất kỳ nào đó (tim một con đường chẳng hạn) để xoay về nằm ngang theo màn hình?
Nếu có thể, bạn hãy gửi bản vẽ lên và nêu rõ yêu cầu của bạn đối với bản vẽ đó.
-
... ket đọc cũng mù tịt á ^^
Oh, really??
-
Nếu tự sửa thì mình đã làm việc đó và up code mới lên rồi, cần gì phải nêu ra hả bạn? Nếu tất cả đều có thể tự làm thì việc tồn tại 4R liệu có cần thiết?
-
Oh, tuỳ chọn Undo của ketxu rất nguy hiểm.
Command: VTX undo Current settings: Auto = On, Control = All, Combine = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back]
<1>: Begin
Command: Thêm hay bớt vextex ? [T / B]t
Chọn phân đoạn muốn add thêm vertex : undo Current settings: Auto = On, Control
= All, Combine = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back]
<1>: mark
Command:
Pick điểm thêm vertex :
Chọn phân đoạn muốn add thêm vertex : u undo Current settings: Auto = On,
Control = All, Combine = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back]
<1>: back This will undo everything. OK? <Y>
Chọn phân đoạn muốn add thêm vertex : u undo
Yes or No, please.
This will undo everything. OK? <Y> back
Yes or No, please.Chọn phân đoạn muốn add thêm vertex : This will undo everything. OK? <Y> undo
Yes or No, please.
This will undo everything. OK? <Y> end
Yes or No, please.
nil
This will undo everything. OK? <Y> GROUP GROUP LINE VLIDE GROUP FILLET PLINE
PLINE GROUP
Everything has been undoneNguy hiểm nhất là Undo everything với tuỳ chọn Yes mặc định, nếu nhấn enter thì coi như bạn ... chưa làm gì từ lúc mở bản vẽ.
-
1
-
-
Lisp của ketxu hoạt động rất tốt, tuy nhiên mỗi lần chèn đỉnh vẫn phải chọn phân đoạn nên rất bất tiện nếu muốn chèn nhiều điểm. Nếu cho phép chèn "multiple" trên một đoạn bất kỳ thì tốt hơn rất nhiều.
-
Cách này khá thủ công và không thực sự hiệu quả. Nếu có lisp thì sẽ hay hơn nhiều nhỉ?! :D
Không xóa hay explode gì cả, chỉ chèn điểm và giữ nguyên hình dạng của nó. Yêu cầu này chắc là khó đây!
-
Mình đang băn khoăn không biết liệu có phải lệnh Pedit của AutoCAD có hoạt động sai không nhỉ?! Nếu chèn một đỉnh mới vào một PLine (chỉ bao gồm 1 arc) thì nó không còn giữ được hình dạng trước đó. Vậy làm sao để chèn đỉnh mới vào phân đoạn ARC trên PLine mà vẫn giữ nguyên hình dạng của nó?
-
Các góp ý rất hay, nếu được áp dụng nó sẽ giảm đáng kể thời gian thực thi.
-
Tuyệt vời! Nếu lisp này được khái quát lên và đúng cho mọi trường hợp thì nó xứng đáng được AutoDesk mua lại để bổ sung vào tùy chọn của lệnh Purge. Theo mình, đây là một cách tuyệt vời để giảm dung lượng bản vẽ!
P/S: Code của bạn nhiều dòng trống quá!
-
hic.. đúng là lực bất tòng tâm, kiến thức mình nông cạn quá, không đủ sức để làm việc này rồi. Các hàm (vla- với mình vẫn còn là điều bí ẩn, thấy thì rất hay và mạnh mẽ nhưng chưa biết làm thế nào để dùng được! :(
-
hehe cám ơn bác. Xong thì mình sẽ upload lại ở đây để mọi người dùng.
-
Mình đã xem lisp của bác GiaBach rồi
Link: http://www.cadviet.com/forum/topic/205-viet-lisp-theo-yeu-cau/page-126, bài #2511.
Nó chưa xét đến Block, bác Doan Van Ha có thể cải tiến nó lại được không?
Hóng! :D
-
hihi.. Hơi suy diễn chủ quan một tý! :P
Tại vì mình cũng đang có nhu cầu như vậy nên ... suy đoán mà! Các đối tượng phức (mline, mtext, dim, leader ...) chưa bàn, nhưng với block, giả sử đang xét màu đỏ, mà block nào đó chứa vài đối tượng màu đỏ, mình muốn đưa các đối tượng con đó (nằm bên trong block) vào lớp Color001 liệu có được không nhỉ?!
-
em đang cần 1 lisp lọc tất cả đối tượng theo mầu (không phân biệt bylayer và mầu), nếu có thể thì trước khi chọn mầu có lựa chọn là có chọn mầu theo lớp hay không, hoặc chọn tất cả đối tượng có cùng 1 mầu không phân biệt có cùng 1 lớp hay không. và giữ lại các đối tượng đó trên bản vẽ các đối tượng không cùng mầu ẩn hết đi. móng các pác giúp đỡ, thankssssssssss
Theo mình, Quick Select và Filter hoàn toàn không đáp ứng được nhu cầu. Mình xin diễn giải nhu cầu của chủ thớt như sau:
- Tự động tìm kiếm xem trên bản vẽ có bao nhiêu màu (bao gồm cả màu đối tượng và màu của layer). Giả sử có 2 màu là 1 và 2.
- Tạo lớp Color001 và lọc tất cả các đối tượng có màu số 1, bao gồm
+ Tất cả đối tượng có màu 1.
+ Tất cả đối tượng có màu bylayer nằm trên layer có màu 1.
+ Tất cả đối tượng con trong Block đáp ứng 2 điều kiện trên.
-> sau đó chuyển về tất cả về lớp Color001.
- Tiếp tục cho lớp Color002.
- Kết quả: Sau khi thực hiện xong Lisp, màu của bản vẽ không có gì thay đổi, trong bản vẽ có bao nhiêu màu thì sẽ có bấy nhiêu layer được tạo ra và chứa đúng đối tượng có màu đó. Riêng với đối tượng Dimension mình chưa biết phải làm thế nào, vì nó là đối tượng phức và bản thân nó có thể có nhiều màu khác nhau (cho mũi tên, text và đường gióng nữa).
Đây là yêu cầu, còn thực hiện nó không hề đơn giản chỉ một câu lệnh.
-
Ồ, chưa có phản hồi nào, lẽ nào học các hàm (vla- lại khó đến vậy sao? Mình đã ngồi Google 2 ngày mà không tìm được điều gì đáng kể, haizzz!
-
Cám ơn bạn, code làm việc rất tốt!
Nhân tiện, bạn có thể hướng dẫn mình tìm tài liệu để học các hàm (vla- được không?
Bình thường trong VLisp, khi bôi đen lệnh và nhấn Ctrl+F1 thì mình sẽ nhận được trợ giúp về hàm đó. Nhưng với các hàm (vla- thì trợ giúp này mình không thể hiểu và áp dụng được!
-
1
-
-
-
hihi.. Cám ơn bác Tue_NV nhiều! Dễ hiểu và dễ sử dụng hơn! :)
Nhưng vẫn gặp lỗi:
Command: (get-xref-foundpath)
Pick vao ban ve Xref :; error: Automation Error. Key not found
-
Không thực thi được bạn ạ! Có lỗi:
; error: Automation Error. Key not found
Tăng tốc (làm nhẹ) AutoCAD
trong AutoLisp
Đã đăng · Trả lời báo cáo
Tuyệt vời! Ứng dụng nhỏ nhưng rất chuyên nghiệp và hữu ích.
Nếu nó được bổ sung tính năng sao lưu (nhiều lần) và phục hồi những thay đổi thì thật tuyệt!