Jump to content
InfoFile
Tác giả: lp_hai
Bài viết gốc: 107884
Tên lệnh: md
Sửa các giá trị Dim theo một Dim khác

Dùng khi cần edit giá trị Dim. VD: bạn đang có nhiều Dim với nhiều giá trị khác nhau (có thể là Dim đã Edit rồi hoặc chưa), Bây giờ muốn tất cả các Dim này theo giá trị của Dim khác (thay vì phải Edit từng dim)

Filename: 107884_md.lsp
Tác giả: ssg
Bài viết gốc: 10790
Tên lệnh: mct
Xin lệnh gán thuộc tính contents cho text

Bạn thử cái này, lệnh MCT:


Filename: 10790_mct.lsp
Tác giả: phamngoctukts
Bài viết gốc: 107545
Tên lệnh: cat
Viết lisp theo yêu cầu [phần 2]
Mình là KTS giống như bao KTS khác đều ngại vẽ mặt cắt cầu thang. Chính vì vậy mình muốn xây dựng lisp để làm công việc này được nhanh chóng thuận lợi.
Mình đã xây dựng được code như thế này. Mong các bạn đóng góp ý kiến thêm để mình hoàn chỉnh.
http://www.cadviet.com/upfiles/3/thang.jpg
đây là code

Filename: 107545_cat.lsp
Tác giả: gia_bach
Bài viết gốc: 107680
Tên lệnh: tkt
cho em xin lisp đếm text

Đúng rồi, 2 dòng bạn phát hiện chưa hoàn chỉnh.
Update :

Filename: 107680_tkt.lsp
Tác giả: phamngoctukts
Bài viết gốc: 107237
Tên lệnh: vtb
Viết lisp theo yêu cầu [phần 2]

Buồn quá có việc bận nên không offline cùng anh em cadviet được. Thật là tiếc!!!
Ngồi buồn quá dở cái lisp vẽ thang của bác hoành ra sửa lại tí chút cho đúng cấu tạo.
tiện thể port lên đây cho anh em nào cần thì nhậu.
lisp này kết hợp với lisp vẽ lan can sắt của mình thì rất tiện.

Filename: 107237_vtb.lsp
Tác giả: Tue_NV
Bài viết gốc: 107300
Tên lệnh: mit
Cho xin lisp chỉnh chữ bị ngược khi MI

Chào bác TrungNgaMy, anh Duy, bạn ketxu
Lisp ở bài viết số 13 chỉ xử lý với những anh Text bị Mirror thôi chứ chưa xử lý các Text bị Rotate ngược.
Muốn xử lý thêm các anh Text bị Rotate ngược nữa như file ảnh mà bác TrungNgaMy đã upload thì thêm 1 chút nữa vào code

Các bác thử nhé

@foudremars : Lisp xử lý với nhiều đối tượng sẽ làm tăng hiệu quả công việc....
>>

Chào bác TrungNgaMy, anh Duy, bạn ketxu
Lisp ở bài viết số 13 chỉ xử lý với những anh Text bị Mirror thôi chứ chưa xử lý các Text bị Rotate ngược.
Muốn xử lý thêm các anh Text bị Rotate ngược nữa như file ảnh mà bác TrungNgaMy đã upload thì thêm 1 chút nữa vào code

Các bác thử nhé

@foudremars : Lisp xử lý với nhiều đối tượng sẽ làm tăng hiệu quả công việc. Nếu nhieu thì làm bằng tay cũng được, cũng chẳng ảnh hưởng gì đến hoà bình thế giới :undecided:
<<

Filename: 107300_mit.lsp
Tác giả: phamngoctukts
Bài viết gốc: 106882
Tên lệnh: stb
Viết lisp theo yêu cầu [phần 2]
Cám ơn bác Duy và bác Bình. Nhờ ơn 2 bác mà lisp cua em chay ầm ầm.

Gà như mình còn viết được code này mà bon nó bán tận 27$
http://www.rayburndrafting.com/prod_desc_I...AT.html?sno=298

Filename: 106882_stb.lsp
Tác giả: gia_bach
Bài viết gốc: 107219
Tên lệnh: diapos
Định vị trí hộp thoại trên màn hình

dkkx3a tham khảo VD về cố định vị trí hộp thoại.
Chạy LISP, Bạn thử di chuyển hộp thoại đến vị trí khác -> click OK (đóng hộp thoại)
Chạy lại LISP, hộp thoại sẽ xuất hiện tại vị trí truớc khi thoát LISP và hiển thị tọa độ (X,Y) của hộp thoại truớc khi thoát LISP
Chú ý :
- t/hợp sau khi bạn di chuyển mà hộp thoại không nằm toàn bộ trong màn hình, CAD tự...
>>

dkkx3a tham khảo VD về cố định vị trí hộp thoại.
Chạy LISP, Bạn thử di chuyển hộp thoại đến vị trí khác -> click OK (đóng hộp thoại)
Chạy lại LISP, hộp thoại sẽ xuất hiện tại vị trí truớc khi thoát LISP và hiển thị tọa độ (X,Y) của hộp thoại truớc khi thoát LISP
Chú ý :
- t/hợp sau khi bạn di chuyển mà hộp thoại không nằm toàn bộ trong màn hình, CAD tự động đưa về giữa màn hình.
- VD này sử dụng file DCL tạm (không cần file DCL cũng hiển thị được hộp thoại)

<<

Filename: 107219_diapos.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 106830
Tên lệnh: chsize
Viết lisp theo yêu cầu [phần 2]

Chào bạn nguyentuyen6,
Bạn xài thử xem còn gì chưa ổn không nhé.


Việc sửa lại lisp không khó lắm đâu, chỉ cần bạn thích và kiên trì là sẽ được, với kiến thức của bạn nên tập dần việc sửa này để dần dần có thể làm chủ được công việc của mình, chả phải sợ thằng Tây nào cả bạn ạ.
Thực ra trong cái lisp này còn khá nhiều đoạn thừa, không cần...
>>

Chào bạn nguyentuyen6,
Bạn xài thử xem còn gì chưa ổn không nhé.


Việc sửa lại lisp không khó lắm đâu, chỉ cần bạn thích và kiên trì là sẽ được, với kiến thức của bạn nên tập dần việc sửa này để dần dần có thể làm chủ được công việc của mình, chả phải sợ thằng Tây nào cả bạn ạ.
Thực ra trong cái lisp này còn khá nhiều đoạn thừa, không cần thiết do quá trình viết lần trước mình lựa chọn nhiều hướng đi mà không được, nhưng vì mình lười nên cứ kệ nó đấy để viết tiếp và sửa lại. Nếu bạn rảnh hãy cố gắng tìm các chỗ đó, sửa đi sẽ được cái lisp ngon lành hơn bạn ạ. Thông cảm cho cái tính lười cố hữu của mình.
Chúc bạn vui.
<<

Filename: 106830_chsize.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 106595
Tên lệnh: exbl
Viết lisp theo yêu cầu [phần 2]

Chào bạn phamngoctukts,
Bạn xài thử đoạn code này nhé:

Bạn hãy đọc thêm về cách sử dụng hàm ssget bạn nhé. Trong đó việc sử dụng filter list rất chi là lợi hại, hãy thử xem.......
Chúc bạn vui.

Filename: 106595_exbl.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 106605
Tên lệnh: chovrl
Viết lisp theo yêu cầu [phần 2]

Chào bạn condung04,
Bạn dùng thử cái này. Về cơ bản có thể nó đáp ứng cái yêu cầu của bạn, tuy nhiên cũng như cái lisp mình đã viết cho bạn nguyentuyen6 thì nó chỉ đổi kích thước trong díplay mà thôi, còn trong properties thì bạn chả thấy thay đổi gì. Phần lấy giá trị bạn có thể sử dụng lisp của bác Hoành, còn lisp này yêu cầu bạn nhập giá trị mới và nó đổi phóc luôn chứ...
>>

Chào bạn condung04,
Bạn dùng thử cái này. Về cơ bản có thể nó đáp ứng cái yêu cầu của bạn, tuy nhiên cũng như cái lisp mình đã viết cho bạn nguyentuyen6 thì nó chỉ đổi kích thước trong díplay mà thôi, còn trong properties thì bạn chả thấy thay đổi gì. Phần lấy giá trị bạn có thể sử dụng lisp của bác Hoành, còn lisp này yêu cầu bạn nhập giá trị mới và nó đổi phóc luôn chứ chả có thông báo chi đâu nhé.

Cái vụ đổi cả trong properties thì mình cũng đang mò thêm. Hy vọng sẽ sớm có kết quả.
Chúc bạn vui.
<<

Filename: 106605_chovrl.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 106477
Tên lệnh: ctxt
Làm sao dể tự động kết nối 1 bản vẽ text sang 2(nhiều) bản vẽ khác

Hề hề hề,
Với sự giúp sức của bác Master_Worse, mình có cái nè hay hơn gửi bạn coi thử:

Chúc bạn vui.

Filename: 106477_ctxt.lsp
Tác giả: phamngoctukts
Bài viết gốc: 106562
Tên lệnh: stb
Viết lisp theo yêu cầu [phần 2]
Cuối cùng thì mình cũng hoàn thành viết code cho lệnh Ironpat như mình đã trình bày ở trên.
Vấn đề này hình như không được mọi người quan tâm lắm nhưng mình vẫn port lên đây nếu ai có hứng thú thì sử dụng.
code mình viết khá tiện lợi khi sử dụng. Chỉ cần chọn đối tượng gốc, chọn điểm chèn, chọn hướng là ok.
đây là hình minh hoạ.
>>
Cuối cùng thì mình cũng hoàn thành viết code cho lệnh Ironpat như mình đã trình bày ở trên.
Vấn đề này hình như không được mọi người quan tâm lắm nhưng mình vẫn port lên đây nếu ai có hứng thú thì sử dụng.
code mình viết khá tiện lợi khi sử dụng. Chỉ cần chọn đối tượng gốc, chọn điểm chèn, chọn hướng là ok.
đây là hình minh hoạ.
http://www.cadviet.com/upfiles/3/complete.jpg
còn đây là code

Tiện thể bác nào cho em hỏi cái:
Làm thế nào để khi mình chọn nhóm đối tượng thì lọc ra những đối tượng là block. Nếu đối tượng nào là block thì explode nó ra.
<<

Filename: 106562_stb.lsp
Tác giả: gia_bach
Bài viết gốc: 106593
Tên lệnh: ins point
Chèn points vào vị trí text


Update theo yêu cầu.
Lisp chèn Point vào điểm insertion của Text (nếu có), t/hợp Text không có điểm insertion chèn Point vào điểm Node.
(chú ý: Lisp này chưa xét đến t.hợp nội dung Text không phải là số. Vd: " 123 0" có khoảng trắng giữa các kí tự)

Filename: 106593_ins_point.lsp
Tác giả: philipdn
Bài viết gốc: 106368
Tên lệnh: dap
Đo kích thước hàng loạt cho các phân đoạn đường Polyline
Lisp thực hiện chức năng tự động đo kích thước các phân đoạn của đường Polyline khi đường đó được chọn

Filename: 106368_dap.lsp
Tác giả: gia_bach
Bài viết gốc: 105610
Tên lệnh: vtt
Hướng dẫn sử dụng mã Lisp

Bác Bình có giới thiệu về hàm này rồi : vlax-curve-getFirstDeriv
xin viết 1 ví dụ cụ thể : Lisp vẽ tiếp tuyến với Curve

Filename: 105610_vtt.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 10573
Tên lệnh: ex3f
không explore được đối tượng 3D face!!

Lệnh ex3f (explode 3dFace) dưới đây sẽ làm điều đó.


Filename: 10573_ex3f.lsp
Tác giả: gia_bach
Bài viết gốc: 105828
Tên lệnh: vld
Xem giúp đoạn lisp của mình vẽ pline có nhập chiều dài và góc

Thật sự mà nói : Tìm nguyên nhân và cách khắc phục khó (mất nhiều Time) hơn là viết mới (trên nền ý tưởng của bạn).

Bạn thử LISP này nhé.

Filename: 105828_vld.lsp
Tác giả: ndtnv
Bài viết gốc: 105259
Tên lệnh: coblk
Đổi tất cả các đối tượng trong block về layer hiện hành.
CoBlk: lệnh đổi tất cả các đối tượng trong các block được chọn về layer hiện hành, color bylayer.
CoBylayer: hàm đệ quy, chuyển tất cả layer của các đối tượng trong block về layer hiện hành, color của các đối tượng về bylayer


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

Hề hề, cho Vàng bạn luôn. :D
Anh Duy và bạn kẽtu hãy thử Lisp này

Filename: 105386_1.lsp

Trang 50/330

50