| Info | File | ||
| 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....
| ||
| 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
| ||
| 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
| ||
| 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
| ||
| Tác giả: Nguyen Hoanh Bài viết gốc: 11752 Tên lệnh: doctext | |||
| Tác giả: Nguyen Hoanh Bài viết gốc: 11749 Tên lệnh: lh | |||
| 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á:
| ||
| Tác giả: phamngoctukts Bài viết gốc: 117175 Tên lệnh: mcs | |||
| 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).
| ||
| Tác giả: Tue_NV Bài viết gốc: 116766 Tên lệnh: ttam | |||
| 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é:
| ||
| 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)
| ||
| 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é.
| ||
| 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.
| ||
| 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 :
| ||
| 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 
| ||
| 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.
| ||
| Tác giả: Tue_NV Bài viết gốc: 115317 Tên lệnh: cs | |||
| 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ị.
| ||
| 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
|
Trang 46/330