Jump to content
InfoFile
Tác giả: phamthanhbinh
Bài viết gốc: 117842
Tên lệnh: gtxt
Viết lisp theo yêu cầu [phần 2]

Chào bạn Truongthanh,
Bạn xài cái lisp mình mới bổ sung để khắc phục những điều chưa được hoàn thiện mà mình đã nói ở trên xem đã ưng ý chưa nhé.


Hy vọng nó sẽ giúp ich cho bạn. Chúc bạn vui....

Filename: 117842_gtxt.lsp
Tác giả: gia_bach
Bài viết gốc: 117595
Tên lệnh: dimsearch
Viết lisp theo yêu cầu [phần 2]
LISP lọc các đuờng kích thuớc theo Tiền tố hoặc hậu tố:
tác giả : Alan J. Thompson

Filename: 117595_dimsearch.lsp
Tác giả: haimed
Bài viết gốc: 117734
Tên lệnh: tdt
Tính diện tích tạo nên từ những vùng giao nhau giữa 2 đường polyline

Chắc học cầu đường pháp xây dựng ah

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

Bạn thay dòng (command "text" "j" "mc" pt1 (* 400 bk) pt10 "A" "") bằng (command "attdef" "" "A" "A" "A" "j" "mc" pt1 (* 400 bk) "")
Mình sửa cho bạn như thế này bạn xem được chưa

Filename: 117804_ttt.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 11752
Tên lệnh: doctext
lisp đọc số thành chữ


Đoạn lisp dưới đây đã sửa được lỗi đọc lăm-năm.

Filename: 11752_doctext.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 11749
Tên lệnh: lh
Viết Lisp theo yêu cầu


Lệnh là LH

Filename: 11749_lh.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 11750
Tên lệnh: td
Viết Lisp theo yêu cầu


Bạn chỉ cần xoá tất cả các ký tự liên quan đến PT5, PT6 và xoá hết các chữ "A" trong đoạn mã trên là chương trình sẽ trở thành như bạn muốn. Và đây là đoạn mã sau khi xoá:

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

Của bạn đây:

Filename: 117175_mcs.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 11721
Tên lệnh: doctext
lisp đọc số thành chữ
Lisp dưới đây biến 1 text là số nguyên dương thành một dòng text, là chữ viết.

Ví dụ: 1234567890 sẽ trở thành 'mot nghin hai tram ba muoi tu ty nam tram sau muoi bay trieu tam tram chin muoi'

tên lệnh là doctext (đọc text).


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

Bác Bình thử cái này :

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


Nếu sửa như cách của bác Bình thì có thể lại áp dụng không đúng trong 1 số trường hợp nữa đó bác Bình ạ
Bạn hdt4151, bác Bình hãy thử lại với đoạn Code này. Tue_NV viết lại nhé:

Filename: 116419_cs.lsp
Tác giả: Tue_NV
Bài viết gốc: 116571
Tên lệnh: noisuy
Lisp copy text số, tăng theo hàm bậc nhất !


Nó không đúng do Tung độ Y của p2 lớn hơn Tung độ Y của p1
Fix lỗi cho bạn đây :
Chú ý rằng Z2 của điểm p2 bao giờ cũng lớn hơn Z1 của điểm p1 nhé (Z2>Z1)
Bạn thử các trường hợp xem nhé. Chú ý điều kiện (Z2>Z1)

Filename: 116571_noisuy.lsp
Tác giả: phamngoctukts
Bài viết gốc: 116115
Tên lệnh: colorx%09 colorxref colorxl colorxrefl
Đổi màu tất cả các đối tượng trên bản vẽ thành một màu duy nhất

Cái lisp này mình sưu tầm được trên mạng đã lâu. Nay thấy bạn có nhu cầu mình port lên bạn xem có vư ý không nhé.

Filename: 116115_colorx%09_colorxref_colorxl_colorxrefl.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 116340
Tên lệnh: csn
Viết lisp theo yêu cầu [phần 2]

Hề hề hề, Chào bạn hdt4151,
Về cái lisp đổi cột , mạn phép bác Tue_NV mình thử bổ sung cái bạn cần vào lisp của bác ấy. Bạn dùng thử, nếu không hài lòng thì mình xin lỗi, đành chờ bác ấy ra tay vậy.

Chúc bạn vui.

Filename: 116340_csn.lsp
Tác giả: Tue_NV
Bài viết gốc: 116073
Tên lệnh: noisuy
Lisp copy text số, tăng theo hàm bậc nhất !

Lisp noisuy được sửa lại theo yêu cầu của bạn đây :

Filename: 116073_noisuy.lsp
Tác giả: ketxu
Bài viết gốc: 115706
Tên lệnh: jp
lisp nối pline không chạm nhau
Bạn dùng lisp này,ệnh JP,chọn các đường pline và xác định khoảng cách lớn nhất giữa2 pline để nối chúng lại.Sau khi đã có 1 pline duy nhất rồi thì chuyển plne đó sang linetype Hidden là đúng theo ý bạn :D

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

Chào bạn bachngoctung!
Mấy hôm vưa rồi bận quá mình sửa cho bạn đây.

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

Bạn thử lại nhé :

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

Chào bạn hdt4151,
Gửi bạn cái này coi thử có Ok không nhé.

Bạn có thể dựa vào đây để có lisp đổi text theo hàng.
Chú ý là lisp này không yêu cầu số text trong các cột phải bằng nhau, song chỉ có các text trong cột có text cùng tọa độ y ở cột còn lại mới được đổi chỗ mà thôi. Nếu text nào không có text tương ứng ở cột kia sẽ được giữ nguyên giá trị.
>>

Chào bạn hdt4151,
Gửi bạn cái này coi thử có Ok không nhé.

Bạn có thể dựa vào đây để có lisp đổi text theo hàng.
Chú ý là lisp này không yêu cầu số text trong các cột phải bằng nhau, song chỉ có các text trong cột có text cùng tọa độ y ở cột còn lại mới được đổi chỗ mà thôi. Nếu text nào không có text tương ứng ở cột kia sẽ được giữ nguyên giá trị.
Hề hề hề....
Chúc bạn vui.
<<

Filename: 115320_cntxt.lsp
Tác giả: hatieu
Bài viết gốc: 115416
Tên lệnh: hcn
Bỏ số 0 đằng sau dấu phẩy khi thực hiện lisp
Đây là đoạn lisp của em nhờ các bác sửa giúp em. Em không biết làm thế nào để hết số 0 đằng sau dấu phẩy được.


Đây là kết quả khi thực hiện lệnh lisp này
http://www.cadviet.com/upfiles/3/0000.jpg

Filename: 115416_hcn.lsp

Trang 46/312

46