Jump to content
InfoFile
Tác giả: hatieu
Bài viết gốc: 140235
Tên lệnh: htext
Đưa toàn bộ text, mtext về cùng chiều cao

Đúng là text và mtext thì em làm được còn atttext và text của dim thì em chịu.
Đây là lisp đưa toàn bộ text về cùng chiều cao h.
Nhờ các bác hộ em thêm các chức năng đưa mtext, text của dim, attext về cùng chiều cao vào lisp này với.

Em cảm ơn trước!
Em mượn câu của bác ketxu
(Cái gì biết thì chia sẻ.Đừng sợ người ta cười mình hợm hĩnh.Chỉ e người ta không muốn...
>>
Đúng là text và mtext thì em làm được còn atttext và text của dim thì em chịu.
Đây là lisp đưa toàn bộ text về cùng chiều cao h.
Nhờ các bác hộ em thêm các chức năng đưa mtext, text của dim, attext về cùng chiều cao vào lisp này với.

Em cảm ơn trước!
Em mượn câu của bác ketxu
(Cái gì biết thì chia sẻ.Đừng sợ người ta cười mình hợm hĩnh.Chỉ e người ta không muốn tiếp thu.
Cái gì chưa biết thì hỏi.Đừng ngại người ta cười mình dốt.Chỉ sợ mình hoài dốt thật)
<<

Filename: 140235_htext.lsp
Tác giả: nataca
Bài viết gốc: 139936
Tên lệnh: qe
Mở và đóng một thư mục của file bản vẽ hiện hành

- Trong quá trình làm việc với file bản vẽ không ít lần chúng ta cần mở thư mục chứa file bản vẽ đang mở. Theo cách thông thường thì chúng ta sẽ vào thư mục một cách thủ công, đôi khi thư mục để ở một nơi "thâm sâu bí hiểm" nên việc tìm đến nó khá mệt mỏi. Có một số cách để làm nhẹ nhàng đi như: tạo shortcut file hay thư mục... Tuy nhiên có một cách mà mình muốn bàn ở...
>>
- Trong quá trình làm việc với file bản vẽ không ít lần chúng ta cần mở thư mục chứa file bản vẽ đang mở. Theo cách thông thường thì chúng ta sẽ vào thư mục một cách thủ công, đôi khi thư mục để ở một nơi "thâm sâu bí hiểm" nên việc tìm đến nó khá mệt mỏi. Có một số cách để làm nhẹ nhàng đi như: tạo shortcut file hay thư mục... Tuy nhiên có một cách mà mình muốn bàn ở đây là mở bằng Autolisp:
+ Cad có một biến lưu đường dẫn thư mục chứa file đó là: "DWGPREFIX"
+ Vấn đề còn lại là Explorer thư mục này. Có một cách đơn giản là dùng hàm (startapp "explorer.exe"(getvar "DWGPREFIX")) . Tuy nhiên cách này không chơi được với những thư mục có dấu , (phẩy)-> hiện tại mới test được lỗi này
+ Cách nữa có thể chơi được với mọi loại tên thư mục:

-> Cách này rất ổn. Nó dùng "Shell.Application" để liên kết với windows.
- Tiếp theo là vấn đề thứ 2 của topic: Mở ra được rồi nhưng làm cách nào để đóng một thư mục đang mở hoặc để không mở trùng một thư mục đã mở trước. Mình thử tìm hiểu nhưng chưa nghĩ ra cách. Mọi người thử nghĩ tiếp xem sao. :)
<<

Filename: 139936_qe.lsp
Tác giả: phamngoctukts
Bài viết gốc: 139937
Tên lệnh: o2p
Lệnh offset đặc biệt

Bạn dùng thử cái này

Filename: 139937_o2p.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 13988
Tên lệnh: ltr
lisp tính chiều dài một phần polyline


Lệnh LTR (Lý trình) dưới đây sẽ giúp bạn:

Filename: 13988_ltr.lsp
Tác giả: phamngoctukts
Bài viết gốc: 139509
Tên lệnh: matext
Giúp mình change width factor của Text

Của bạn đây. Hi vọng bạn hài lòng

Filename: 139509_matext.lsp
Tác giả: hochoaivandot
Bài viết gốc: 139027
Tên lệnh: me2
measure cho nhiều đối tượng

Có phải bạn cần lisp này không?

Filename: 139027_me2.lsp
Tác giả: tomboy
Bài viết gốc: 139425
Tên lệnh: xyzo
Viết lisp theo yêu cầu [phần 2]


Của bạn đây, nhu­ng mình xuất cho bạn theo toạ độ của acad thôi nhé, nếu theo toạ độ bản đồ thì bạn phải vào exel đổi lại trục toạ độ, cần lu­u­ ý khi bạn chạy chu­o­ng trình nó sẽ hỏi bạn độ chính xác tu­ vị trí Point cho den vị trí text, nếu bạn nhập số lon quá thì có thể bạn không nhận đu­o­c kết quả nhu­ mong muốn, còn nếu bản vẽ của bạn giũa Text và Point là...
>>

Của bạn đây, nhu­ng mình xuất cho bạn theo toạ độ của acad thôi nhé, nếu theo toạ độ bản đồ thì bạn phải vào exel đổi lại trục toạ độ, cần lu­u­ ý khi bạn chạy chu­o­ng trình nó sẽ hỏi bạn độ chính xác tu­ vị trí Point cho den vị trí text, nếu bạn nhập số lon quá thì có thể bạn không nhận đu­o­c kết quả nhu­ mong muốn, còn nếu bản vẽ của bạn giũa Text và Point là trùng nhau thì bạn nên chọn là 0.

<<

Filename: 139425_xyzo.lsp
Tác giả: tvgtyb08
Bài viết gốc: 138356
Tên lệnh: bd
Bật truy bắt điểm

Đây là Lisp của anh Sơn em sửa lại (setq chuoi (100/strcat (rtos i 2 tphan)"%")):

Filename: 138356_bd.lsp
Tác giả: tvgtyb08
Bài viết gốc: 138356
Tên lệnh: tlt
Nhờ sửa LISP ghi độ dốc đường thẳng


Đây là Lisp của anh Sơn em sửa lại (setq chuoi (100/strcat (rtos i 2 tphan)\"%\")):


Filename: 138356_tlt.lsp
Tác giả: Thaistreetz
Bài viết gốc: 138408
Tên lệnh: tbc
Nhờ các anh sửa hộ em lisp trung bình nhân này với

Uh, tại mình đọc không kỹ. code moi cho bạn đây

Filename: 138408_tbc.lsp
Tác giả: Skywings
Bài viết gốc: 137541
Tên lệnh: tcal
TCAL - Text calculation tool
- Bao gồm các phép tính đơn giản mà mình hay dùng :
Plus - cộng các số, Subtract - trừ 1 số với nhiều số, Multiply - nhân các số, Divide - chia một số với nhiều số, Average - tính trung bình, Max-min - số lớn nhất, nhỏ nhất trong các tập hợp chọn, Add by - cộng các số với một số cho trước, Multiply by - nhân các số với một số cho trước, Precision - độ chính xác của kết quả.
- Tùy...
>>
- Bao gồm các phép tính đơn giản mà mình hay dùng :
Plus - cộng các số, Subtract - trừ 1 số với nhiều số, Multiply - nhân các số, Divide - chia một số với nhiều số, Average - tính trung bình, Max-min - số lớn nhất, nhỏ nhất trong các tập hợp chọn, Add by - cộng các số với một số cho trước, Multiply by - nhân các số với một số cho trước, Precision - độ chính xác của kết quả.
- Tùy chọn xuất kết quả: ghi đè lên 1 Text, tạo Text mới hoặc chỉ xem.
- Xuất biểu thức để kiểm tra, hỗ trợ vòng lặp cho 1 phép tính.

<<

Filename: 137541_tcal.lsp
Tác giả: friendship293a
Bài viết gốc: 138173
Tên lệnh: tb
Nhờ các anh sửa hộ em lisp trung bình nhân này với
Tình hình là em có cái lisp tinh giá trị trung bình của các số sau đó nó cho chọn text để ghi kết quả nhưng bây giờ em muốn nó thế này ạ
sau khi đánh lệnh thì chọn các giá trị để lấy trung bình xong enter rùi chọn số cần nhân vào giá trị trung bình rùi chọn số để điền kết quả
tức là nó sẽ thêm tính năng là nhân thêm một số được chọn trên màn hình rùi mới điền kết...
>>
Tình hình là em có cái lisp tinh giá trị trung bình của các số sau đó nó cho chọn text để ghi kết quả nhưng bây giờ em muốn nó thế này ạ
sau khi đánh lệnh thì chọn các giá trị để lấy trung bình xong enter rùi chọn số cần nhân vào giá trị trung bình rùi chọn số để điền kết quả
tức là nó sẽ thêm tính năng là nhân thêm một số được chọn trên màn hình rùi mới điền kết quả. Cảm ơn các anh.

<<

Filename: 138173_tb.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 13659
Tên lệnh: tkb
Viết Lisp theo yêu cầu

Cảm ơn bạn vì đã đưa ra yêu cầu rất mạch lạc.

Lệnh TKB (thống kê block) dưới đây sẽ làm điều bạn muốn:

Filename: 13659_tkb.lsp
Tác giả: ketxu
Bài viết gốc: 135518
Tên lệnh: ee
Cắt và xóa bỏ (extrim)

Bạn nên chú ý cách giải thích vấn đề của mình, tránh làm cả bạn và mọi người mất quá nhiều thời gian
Ý xanh : được
Ý đỏ : được
Bạn có thể theo dõi ở đây, chính là topic mà bạn nói chỉ có "trong" chứ chưa có ngoài, nhưng thực ra đã có, các lisp bác giabach và bác thiep viết rất hay :
http://www.cadviet.com/forum/index.php?showtopic=27121&st=40

Còn...
>>

Bạn nên chú ý cách giải thích vấn đề của mình, tránh làm cả bạn và mọi người mất quá nhiều thời gian
Ý xanh : được
Ý đỏ : được
Bạn có thể theo dõi ở đây, chính là topic mà bạn nói chỉ có "trong" chứ chưa có ngoài, nhưng thực ra đã có, các lisp bác giabach và bác thiep viết rất hay :
http://www.cadviet.com/forum/index.php?showtopic=27121&st=40

Còn đây là mình độ giùm theo 2 yêu cầu của bạn. Yêu cầu xanh : mình cụ thể là bên trái hoặc bên phải Line,Pline, chưa có thời gian làm tổng quát :)
Link EE


Chú ý : chưa kiểm định, mần trên lý thuyết ^^
<<

Filename: 135518_ee.lsp
Tác giả: ssg
Bài viết gốc: 13593
Tên lệnh: are
Tính san lấp

1) Bạn xem ở đây:
http://www.cadviet.com/forum/index.php?showtopic=2158
Lần sau bạn hãy search trước khi nêu vấn đề nhé. Phần nào cũng thông cảm cho bạn vì các bài viết trên diễn đàn hiện nay khá nhiều. Nhưng với chức năng Tìm kiếm của diễn đàn, bạn chịu khó một chút chắc sẽ tìm thấy cái mình cần.

2)...
>>

1) Bạn xem ở đây:
http://www.cadviet.com/forum/index.php?showtopic=2158
Lần sau bạn hãy search trước khi nêu vấn đề nhé. Phần nào cũng thông cảm cho bạn vì các bài viết trên diễn đàn hiện nay khá nhiều. Nhưng với chức năng Tìm kiếm của diễn đàn, bạn chịu khó một chút chắc sẽ tìm thấy cái mình cần.

2) Bạn muốn ghi kết quả ra màn hình thì dùng lisp này (cứ để nguyên spline mà "chơi", không cần, và không nên chuyển sang pline):

<<

Filename: 13593_are.lsp
Tác giả: hochoaivandot
Bài viết gốc: 136427
Tên lệnh: ad
Viết lisp theo yêu cầu [phần 2]


@TUE_NV: không ngờ có lệnh hay thế này mà lâu ni không biết. Cảm ơn anh 1 lần nưa
@kamezoko: Cách làm của anh TUE_NV có thể giải quyết được 2 yêu cầu của bạn
Mình hoàn chỉnh cho bạn rồi nè.

Filename: 136427_ad.lsp
Tác giả: Tue_NV
Bài viết gốc: 135405
Tên lệnh: smake
Viết lisp theo yêu cầu [phần 2]

Của bạn đây. Bạn tự tìm hiểu nhé.
Chúc thành công

Filename: 135405_smake.lsp
Tác giả: Tue_NV
Bài viết gốc: 135441
Tên lệnh: smake
Viết lisp theo yêu cầu [phần 2]

Ngâm cứu nhé bạn :

Filename: 135441_smake.lsp
Tác giả: ketxu
Bài viết gốc: 135245
Tên lệnh: fl
Là phẳng đối tượng

- Hay còn gọi là Flatten, chuyển cao độ Z của các đối tượng về 0
- Phiên bản đầu




Filename: 135245_fl.lsp
Tác giả: Thaistreetz
Bài viết gốc: 134737
Tên lệnh: av
Cho e hỏi về chiều cao text ứng với từng khổ giấy.
Cần hiểu chiều cao chữ theo 2nghĩa. cao chữ trong bản vẽ (tính bằng đơn vị bản vẽ) và cao chữ khi in ra giấy.
Chiều cao chữ khi in ra giấy là cái mà ta quan tâm, nó là kết quả thu được từ chiều cao chữ và tỷ lệ in bản vẽ
với cad đời cũ (từ 2007 trở xuống thì fải) thì việc xác định mấy con số này thực sự vất vả và làm tốn nhiều noron thần kinh. Các bản cad cao hơn cung...
>>
Cần hiểu chiều cao chữ theo 2nghĩa. cao chữ trong bản vẽ (tính bằng đơn vị bản vẽ) và cao chữ khi in ra giấy.
Chiều cao chữ khi in ra giấy là cái mà ta quan tâm, nó là kết quả thu được từ chiều cao chữ và tỷ lệ in bản vẽ
với cad đời cũ (từ 2007 trở xuống thì fải) thì việc xác định mấy con số này thực sự vất vả và làm tốn nhiều noron thần kinh. Các bản cad cao hơn cung cấp thuộc tính annotation cho đối tượng nên vấn đề này được giải quyết đơn giản hơn. áp dụng cho nhiều loại đối tượng chứ không chỉ text
với text thì làm như sau:
- giả sử bạn muốn in bản vẽ ra có chiều cao 1 loại text nào đó = 2mm (tầm khoảng này nhìn vừa mắt, dễ đọc) với mọi tỷ lệ in
- Thiết lập textstyle cho loại text đó với chiều cao text mặc định = 2 nếu đơn vị bản vẽ của bạn là minimeter (tương tự = 0.002 nếu đơn vị bản vẽ là meter...)
- tương ứng với mỗi bản vẽ có 1 tỷ lệ in cho bản vẽ đó. khi sử dụng textstyle đã tạo ở bước trên để viết text, cad sẽ kết hợp với tỷ lệ in của bản vẽ để tính toán lại chiều cao text sao cho đảm bảo yêu cầu khi in ra text luôn có chiều cao =2mm.
Cụ thể: tỷ lệ in của bản vẽ là 1:100, textstyle có chiều cao mặc định = 0.002 (m) thì text vẽ ra sẽ có chiều cao tính bằng đơn vị bản vẽ là 0.002x100=0.2 (cái này cad tính giúp ta rồi nên không cần fải quan tâm đến nó nữa) bạn chỉ cần làm 1 việc duy nhất là thiết lập tỷ lệ in bản vẽ về tỷ lệ mong muốn trước khi viết text là được.
Tặng bạn lệnh này để thiết lập tỷ lệ in cho nhanh

PS: các đối tượng cad muốn sử dụng chức năng này fải thiết lập bật chế độ Annotative. VD: khi tạo textstyle, bạn kích chọn mục annotative cho textstyle đó.
Muốn biết bản vẽ đang đặt tỷ lệ in là bao nhiêu bạn nhìn xuống thanh status của cad, chỗ hình cái fi tiêu 3 cạnh ý
<<

Filename: 134737_av.lsp

Trang 39/330

39