| Info | File | ||
| Tác giả: Tue_NV Bài viết gốc: 60176 Tên lệnh: saptext |
xuất chữ từ excel ra cad
Đầu tiên trong Excel bạn bôi đen cột có chữ a,b,c,d,e,f -> Bấm Ctrol+C -> Qua CAD -> trên thanh công cụ -> Edit -> Chọn Paste Special -> Chọn AutoCAD Entities -> OK Như vậy ccọt có chữ a,b,c,d,e,f đã được chuyển qua CAD. Sử dụng lệnh MA để làm cho chữ a,b,c,d,e,f đó bằng với chữ ở cột có toạ độ x, y. Có thể sử dụng lệnh Scaletext. Lệnh này bạn xem ở đây :...
| ||
| Tác giả: Tue_NV Bài viết gốc: 59437 Tên lệnh: mau |
Lisp cho biết màu đối tượng
Mạn phép anh Duy, cho phép Tue_NV sửa lại Code cho phù hợp : http://www.cadviet.com/forum/index.php?sho...amp;#entry49058
| ||
| Tác giả: Tue_NV Bài viết gốc: 59503 Tên lệnh: mau |
Lisp cho biết màu đối tượng
Không cần post bài như vậy đâu. Ở phía dưới có nút Thankss đấy. Lisp được Tue_NV bỏ thêm vòng lặp. Bạn sử dụng thử :
| ||
| Tác giả: duongsatdn Bài viết gốc: 59543 Tên lệnh: 1 |
Mất OSNAP khi dùng LISP
Nếu cần thiết thì bạn viết một cái lisp, nội dung chỉ có phần đặt chế độ bắt điểm, đưa nó vào cái cặp của lệnh AP. Thích cái bắt dính nào thì công các giá trị của nó lại. Các giá trị của biến OSMODE như sau: 0 NONe 1 ENDpoint 2 MIDpoint 4 CENter 8 NODe 16 QUAdrant 32 INTersection 64 INSertion 128 PERpendicular 256 TANgent
| ||
| Tác giả: Tue_NV Bài viết gốc: 59236 Tên lệnh: copytang |
Viết Lisp theo yêu cầu
Bạn sử dụng đoạn Code mà Tue_NV mới viết nhé. Hy vọng bạn hài lòng : 
| ||
| Tác giả: duy782006 Bài viết gốc: 5938 Tên lệnh: dcl | |||
| Tác giả: Tue_NV Bài viết gốc: 59394 Tên lệnh: timsong |
Viết Lisp theo yêu cầu
Thứ nhất là Tue_NV không thích gọi bằng cậu, và lời nói của bạn khi nói thì không hay cho lắm. Bạn nhờ người khác mà lại nói như thế à? Dù sao thì Tue_NV cũng viết xong đoạn Code này. Thực hiện đoạn Code cho file kèm theo ( 2 hình vẽ bên tay phải)
| ||
| Tác giả: Tue_NV Bài viết gốc: 58676 Tên lệnh: mten |
chỉ em cách ghi chú trên mũi tên với
Bạn thử dùng đoạn Code này nhé : Tên lệnh Mten Lisp yêu cầu : 1. Pick điểm đầu mũi tên; Pick điểm cuối của mũi tên 2. Pick điểm chèn Text; nhập chiều cao Text -> Hiện lên hộp thoại Edit text cho bạn nhập chữ vào. -> Xong Chú ý trong đoạn Code mình sử dụng Font .Vnarial . Mình sử dụng bảng mã TCVN. Nếu sử dụng font khác thì bạn sửa lại tên font...
| ||
| Tác giả: Tue_NV Bài viết gốc: 58796 Tên lệnh: stron |
Lisp căn lề tâm cho đuờng tròn
Bạn sử dụng đoạn Code mà Tue_NV mới viết xem : Cái này có thể canh lê text và dãn dòng Text được. Bạn thử xem :
| ||
| Tác giả: Tue_NV Bài viết gốc: 58898 Tên lệnh: stron |
Lisp căn lề tâm cho đuờng tròn
Cái này thì em biết anh Duy à. Vì Tue_NV sử dụng Code là có chủ đích, chỉ chọn riêng TEXT hoặc riêng CIRCLE để canh lề và dãn dòng thôi. Còn néu như chỉ chọn riêng thì điều này không khó, chỉ cần thay dòng này : (setq ss (ssget '((0 . "CIRCLE,TEXT"))) bằng dòng : (setq ss (ssget '((0 . "CIRCLE"))) : Nếu chỉ chọn Circle bằng dòng : (setq ss (ssget '((0 . "TEXT"))) : Nếu chỉ chọn TEXT
| ||
| Tác giả: Tue_NV Bài viết gốc: 58456 Tên lệnh: bu |
Viết Lisp theo yêu cầu
Đây bạn: Mình xin đính chính : Có đọan Dim là 3000 lấy giá trị 3000 chia cho bước @ (BT) và bước @ là ước số của 3000 thì ok, còn nếu chia cho các số khác mà không phải là ước số của 3000 thì hiện ra bảng thông báo là phép chia có dư và cho phép ta chọn tiếp đối tượng. Như vậy thì hay hơn phải không bạn minh tu?
| ||
| Tác giả: Tue_NV Bài viết gốc: 58470 Tên lệnh: bu |
Viết Lisp theo yêu cầu
Chào bác PhamthanhBinh. Có lẽ bác chưa hiểu hết ý của bạn minhtu. Trước khi viết Lisp Tue_NV đã chạy thử và thấy OK tất cả, nhưng không lường trước được sai số. Ví dụ như bác dim kích thước một đoạn thẳng có kích thước là 2000.001 thì kích thước đó chạy ra kết quả là 2000 đúng không? và với Lisp của bác như trên thì khi chọn dim 2000.001 sẽ báo lại cái dòng...
| ||
| Tác giả: Tue_NV Bài viết gốc: 58515 Tên lệnh: bu |
Viết Lisp theo yêu cầu
Chào bạn minhTu Chào bác PhamThanhBinh : Hoặc giải quyết theo cách trên và Tue_NV giải quyết theo cách của mình là sử dụng hàm Rnd(x). Và theo ý bác PhamThanhBinh, Tue_NV đã hoàn thiện theo hướng là khi người dùng nhập sai bước BT thì cho phép nhập lại Bạn Minh Tu sử dụng và cho biết ý kiến nhé. Hy vọng bạn hài lòng
| ||
| Tác giả: hai_1401 Bài viết gốc: 58449 Tên lệnh: xx yy cd cv |
Em muốn hỏi về lisp vừa copy vừa quay đối tượng
Có cái Lisp này rồi nhưng nó lại ko dùng để Copy Multiple được (lệnh CD ấy). Bác nào có thể sửa giúp em được ko ạ. Với cả, bỏ luôn giúp em mấy cái lệnh cắt Dim đi nhé, chỉ để lại lệnh để copy-xoay đối tượng, và phải Copy Multiple. Thanks các bác trước vậy 
| ||
| Tác giả: VUVUZELA Bài viết gốc: 100011 Tên lệnh: wipe |
Lisp convert arc, circle to polyline
Tội cho thành viên này quá ! Lâu quá rồi không thấy cao thủ CADVIET nào giúp cả Cũng như mình post bài "Tại sao không cập nhật dữ liệu mở rộng" mà cũng không thấy xuất hiện Cao Thủ Vì vậy, sau thời gian nghiên cứu mình sẽ giúp cho bạn đoạn mã này nhé Mong rằng bạn sẽ thích nó. Có gì pm cho mình
| ||
| Tác giả: Nguyen Hoanh Bài viết gốc: 5837 Tên lệnh: lz | |||
| Tác giả: Tue_NV Bài viết gốc: 58417 Tên lệnh: bu |
Viết Lisp theo yêu cầu
Bạn bị sai ở chổ này : KQ : phải là một biến kí tự chữ (string). Trong đoạn Code trên thì biến KQ là kiểu số thực nên nó bị lỗi Bạn dùng hàm Rtos để chuyển kiểu số thực sang kiểu string BT : phải là một biến kí tự chữ (string). Trong đoạn Code trên thì biến BT là kiểu số nguyên nên nó bị lỗi Bạn dùng hàm itoa để chuyển kiểu số nguyên sang kiểu string
| ||
| Tác giả: jikibo Bài viết gốc: 580 Tên lệnh: ve0 |
Khi các đối tượng không cùng nằm trên 1 mặt phẳng
Vẽ 2d mà sao các đối tượng cứ lung tung trục Z ? Hix. Làm thế nào ??? Đây rồi. Lisp CAD hỗ trợ là bản vẽ: Lệnh thực hiện là VE0 ( về 0 )/ Selec các đối tượng/ Enter ! OK Ngoài ra còn 1 cách nữa. Cái này thì do EXPRESS hỗ trợ. Express/Modify/Flatten objects http://thunglungden.org/cadviet/cad/baiviet/flatob.jpg
| ||
| Tác giả: gia_bach Bài viết gốc: 58048 Tên lệnh: addvertex | |||
| Tác giả: gia_bach Bài viết gốc: 57956 Tên lệnh: addvertex |
Trang 12/330