Jump to content
InfoFile
Tác giả: ketxu
Bài viết gốc: 144540
Tên lệnh: eo
Xóa text nằm ngoài khoảng giá trị !


- Xóa các Text có giá trị ngoài khoảng giá trị nhập vào

Filename: 144540_eo.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 144563
Tên lệnh: eo1
Lisp xóa text nằm ngoài khoảng giá trị !

Hề hề hề,
Đây là lisp thứ 2 để bạn ấy tha hồ mà chọn hỉ?????


Mong bác Ketxu chớ giận vì cái éo này do cái eo của bác đẻ ra ấy mà......

Filename: 144563_eo1.lsp
Tác giả: gia_bach
Bài viết gốc: 144278
Tên lệnh: congt
LISP : Ánh xạ giá trị đối tượng (thay đổi giá trị nguồn -> Đích cập nhật theo)

Ơ, sao lại nhân tiện nhỉ ?!

Lisp cộng các TEXT đã chọn rồi ghi vào Text đích :
(T/hợp copy ... -> chạy lại lisp này :) )

Filename: 144278_congt.lsp
Tác giả: phamngoctukts
Bài viết gốc: 143799
Tên lệnh: vitrikd
Nhờ mọi người chỉ giúp cách đánh font Unicode trong lisp


Mình sửa giúp bạn này:

Nếu bạn muốn biết cách gõ chữ font unicode thì qua đây tham khảo:http://www.cadviet.com/forum/index.php?showtopic=39312

Filename: 143799_vitrikd.lsp
Tác giả: cuongkhan
Bài viết gốc: 143981
Tên lệnh: c1 c2 c4
thac mac ve lisp ve cua
Các bác pro giúp tôi với. tôi load lisp vẽ cửa nhưng tại sao ko sử dụng được
Anh em nào pro giúp mình với Cám ơn mọi người rất nhiều!!!!!
Nội dung lisp:

Filename: 143981_c1_c2_c4.lsp
Tác giả: ketxu
Bài viết gốc: 143588
Tên lệnh: lenh
Thiết đặt lại toàn bộ Text Style
1.Bạn thích từ bản của bác gia_bach thì đây :

2.Chờ các bác khác nghỉ lễ hè ^^

Filename: 143588_lenh.lsp
Tác giả: ketxu
Bài viết gốc: 143735
Tên lệnh: dc
Đổi màu các đường Dimension

- Đổi màu của Line, Text... Các bạn vào bài viết gốc để biết rõ hơn


Filename: 143735_dc.lsp
Tác giả: thanhduan2407
Bài viết gốc: 143551
Tên lệnh: ftext ftext0
lisp xoá text !

bạn dùng lisp này để lọc nhé. Vẫn là cái trong diễn đàn thôi. Bạn tìm hiểu kỹ nhé, mình đâu có mắng bạn đâu.


http://www.4shared.com/file/btx_Cjjr/Loc_text_theo_kcach_ftext_ftex.html

Filename: 143551_ftext_ftext0.lsp
Tác giả: ketxu
Bài viết gốc: 143571
Tên lệnh: fat
Thay thế Text trong ATT Block


Bạn dùng tạm hàng ngoại nhập nhé :

Filename: 143571_fat.lsp
Tác giả: gia_bach
Bài viết gốc: 143490
Tên lệnh: p2e
Viết lisp theo yêu cầu [phần 2]

Để nối list có thể dùng Append hay Cons cũng đuợc.
- Append : nối 2 list
(foreach pt (poly-pts ent)
(setq pt_lst (append pt_lst (list pt))) )
- Cons : thêm 1 p/tử vào vị trí đầu tiên của list
(foreach pt (poly-pts ent)
(setq pt_lst (cons pt pt_lst)) )

Update : Polyline Vertex to Excel
- Data đưa vào 1 sheet.
- T/hợp máy tính chưa cài Excel, lisp sẽ ghi ra file *.CSV.

Filename: 143490_p2e.lsp
Tác giả: ssg
Bài viết gốc: 14354
Tên lệnh: tl
Routine tính tổng chiều dài các đối tượng


Tặng bạn một lisp "cực ngắn" theo đúng yêu cầu, tên lệnh là TL. Bạn có thể tuỳ nghi sửa đổi theo ý thích:

Filename: 14354_tl.lsp
Tác giả: ketxu
Bài viết gốc: 143247
Tên lệnh: tt
Copy nội dung Text

Ý của bạn đã bàn ở trên, có điều bạn không đọc kỹ thôi.Lý do tại sao mình không để chọn khoanh vùng text đích mình và bác Bình cũng đều giải thích rồi, đó là có chủ đích chứ k là hạn chế. Nhưng thôi, cái đó bạn không đọc/cần thì mình bỏ đi vậy :) THeo yêu cầu mà ^^


Filename: 143247_tt.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 14337
Tên lệnh: mx
Xin lisp tách và ghép bản vẽ
Lệnh MX (MultiXclip) dưới đây có thể sẽ giúp bạn.

Lệnh này yêu cầu bạn pick vào 1 block, sau đó yêu cầu bạn nhập các rectangle khung. Lệnh sẽ tạo ra các block bị cắt cúp trong các khung rectangle vừa bạn vừa nhập. Nếu công trình dạng tuyến của bạn chưa phải là block, bạn phải block nó trước khi dùng lệnh này.


Filename: 14337_mx.lsp
Tác giả: ketxu
Bài viết gốc: 143395
Tên lệnh: p2e
Xuất tọa độ Pline ra Excel

- Nguyên tác của bác gia_bach, các bạn theo Link để lấy bản đầy đủ hơn nhé



Filename: 143395_p2e.lsp
Tác giả: ketxu
Bài viết gốc: 142634
Tên lệnh: cht1
Tác giả: ketxu
Bài viết gốc: 143002
Tên lệnh: tt
Copy nội dung Text (kể cả text trong Block)

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

P/S : match được cả các text trong block :)

Filename: 143002_tt.lsp
Tác giả: nguyentuyen6
Bài viết gốc: 142192
Tên lệnh: csn csy
Close tất cả Drawing đang mở
csn: Không lưu bản vẽ khi đóng
csy: Lưu trước khi đóng









Filename: 142192_csn_csy.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 14200
Tên lệnh: vtt
Tịnh tiến đường cong để tiếp xúc với đường thẳng

Lệnh VTT (Vectơ Tịnh Tiến) trong lisp dưới đây sẽ giúp bạn.

Lệnh này sẽ tìm và vẽ một đoạn thẳng ngắn nhất nối đường thẳng với 1 đường cong (chính là vector tịnh tiến). Công việc còn lại của bạn là dùng lệnh move.



Lisp trên tìm theo phương pháp dò, mặc định số điểm dò là 1000. Bạn có thể tăng độ chính xác bằng cách tăng số 1000 trong dòng...
>>

Lệnh VTT (Vectơ Tịnh Tiến) trong lisp dưới đây sẽ giúp bạn.

Lệnh này sẽ tìm và vẽ một đoạn thẳng ngắn nhất nối đường thẳng với 1 đường cong (chính là vector tịnh tiến). Công việc còn lại của bạn là dùng lệnh move.



Lisp trên tìm theo phương pháp dò, mặc định số điểm dò là 1000. Bạn có thể tăng độ chính xác bằng cách tăng số 1000 trong dòng lệnh (setq cv_dvd 1000) lên nhiều hơn nữa nhưng thời gian thực thi lệnh sẽ tăng lên.
<<

Filename: 14200_vtt.lsp
Tác giả: phamngoctukts
Bài viết gốc: 142096
Tên lệnh: cn
Vẽ hình chữ nhật có 4 điểm nằm trên 4 cạnh của 1 hình chữ nhật khác

Vẽ hình chữ nhật có 4 điểm nằm trên 4 cạnh của 1 hình chữ nhật khác. Chú ý kết quả không chính xác tuyệt đối



Filename: 142096_cn.lsp
Tác giả: NguyenNgocSon
Bài viết gốc: 141661
Tên lệnh: ctn
Nhờ sửa lisp ctn
Em có đoạn mã lisp nội suy ctn copy trên diễn đàn.
Sau khi chỉnh sửa lisp như sau nhưng không cho đúng kết quả nhờ các bác sửa giúp.

Mong các bác xem giúp
Thân.

Filename: 141661_ctn.lsp

Trang 38/330

38