Thaistreetz
-
Số lượng nội dung
905 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
30
Bài đăng được đăng bởi Thaistreetz
-
-
e muốn xoá tất cả các đối tượng trong 1 vùng kín nhưng phải làm thủ công bằng lệnh trim và erase, như vậy rất mất công và tốn thời gian, bác nào có cách nào giúp e giải quyết vấn đề này 1 cách nhanh chóng không?Mình không biết viết lisp. nhưng có vài cách giúp bạn đỡ thủ công hơn.
1. Dùng lệnh Trim với tham số f.
2. Bạn dùng lệnh extrim của express tool
cả 2 lệnh trên vẫn kết hợp vơi Erase nhưng nhanh hơn rất nhiều.
3. Dùng wipeout để che đi tất cả đối tượng trong vùng kín. Mình nghĩ cách này giải quyết tốt nhất vấn đề của bạn.
-
Cám ơn bạn, đúng là sau khi explode thì chọn được. Nhưng sau khi chuyển song vẫn không đọc được tiếng Việt. Bạn chỉ giúp với. Xin cám ơnChuyển xong thì bạn fải đổi textstyle sang các font thuộc bảng mã TCVN3 thì mới đọc được chứ
-
Liệu q288 có thể sửa đoạn lisp này lại để khi ta pick vào 1 vùng tính diện tích thì lisp sẽ tạo ra một đối tượng boundary khác màu (màu đỏ chẳng hạn) bao quanh vùng tính tiện tích đó. sau khi lisp kết thúc lệnh hay esc kết thúc giữa chừng thì những đối tượng boundary đó sẽ đc xóa đi.
Mục đích của việc này là nhằm đánh dấu những miền ta đã tính diện tích để tránh nhầm lẫn 1 vùng tính diên tích ta pick 2 lần dẫn đến kết quả sai.
Và nếu có thể thì ở bước xuất kết quả. nếu không gán vào 1 text có trước thì ta có thêm lựa chọn là pick vào 1 điểm bất kỳ để vẽ kết quả theo text style hiện thời.
Mình nghĩ lisp như vậy sẽ là 1 lisp tính diện tích hoàn chỉnh
-
Mình đoán là bản vẽ của bạn không còn vị trí các đỉnh đổi hướng của tuyến nên muốn xác định lại.
Cách đơn giản không cần dùng lisp
- Nếu đường cong không nối trực tiếp với nhau thì bạn còn 2 cánh tuyến. extend 2 cánh tuyến này ra cắt nhau tại đâu thì đỉnh tại đó.
- Nếu 2 đường cong nối trực tiếp thì thông thường mõi đường cong bạn còn 1 cánh tuyến. bạn cũng làm tương tự. extend 2 cánh tuyến còn lại của 2 đường cong rồi mirror 1 trong 2 cánh tuyến đó qua đường vuông góc với đường thẳng nối từ TD và TC của đường cong đó. bạn sẽ tìm được cánh tuyến chung của cả 2 đường cong.
-
Đúng hơn là fải copy cả 4 block LCD1, LCD2, LCD3, LCD4 vào bản vẽ mới. thì mới tránh được lỗi có thể sảy ra.
Lisp này rất hay. Liệu có cách nào sử dụng được lisp này cho bản vẽ bất kỳ nhưng không fải mất công copy mấy cái block trên add vào từng bản vẽ không nhỉ? mình gà mấy vụ này quá!
Và nếu có thể thì sửa lisp này lại 1 chút để sau khi kết thúc lệnh, lisp trả lại chế độ bắt điểm bình thường thì sẽ dễ dàng hơn khi lặp lại lệnh trên 1 trắc ngang khác.
-
Em dung photốhp kémViệc xén 1 phần ảnh trong cad liên quan gì đến photoshop nhỉ?
Ngoài cách trên thì bạn cũng có thể dùng lệnh wipeout để che đi phần ảnh không cần hiển thị
Còn nếu bạn muốn Crop bức ảnh đó trước khi insert vào Cad thì không cần dùng đến Photoshop đâu. thế là mang dao giết trâu để cắt tiết gà đó. MSpaint của Win hay những phần mềm quản lý ảnh nhỏ nhẹ khác cũng có thể làm tốt việc này ròi
-
1
-
-
vậy bác có thể up lisp của bác đang dùng cho anh em được ko, em giờ vẫn tính thủ công nhiều lúc thấy oải quáĐây là lisp mình đã tìm thấy trên diễn đàn. không nhớ là ở đâu nữa. Lisp này cho phép bạn pick liền lúc nhiều miền diện tích, lisp tự tính tổng và ghi kết quả vào một text có trước.
;;;Tinh dien tich ;;; (defun C:ae (/ P1 dtich dtich1 ss1 ss2 ss3 lacol) (command "UCS" "W" "") (command "Undo" "Mark") (setq lacol (getvar "CEColor")) (setq oldos (getvar "OsMODE")) (setvar "OSMODE" 0) ;(setvar "CECOLOR" 1) (command "CECOLOR" 1) (setq P1 (getpoint "\n Chi diem trong vung tinh dien tich")) (command "boundary" P1 "") (setq ss1 (ssget "L") ss2 (ssadd) ss2 (ssadd (ssname ss1 0) ss2) ent (ssname ss1 0) ) (command "area" "o" "l") (setq dtich (getvar "Area")) (setq P1 (getpoint "\n Chi diem tiep theo ...")) (while (/= P1 nil) (command "boundary" P1 "") (setq ss1 (ssget "L") ss2 (ssadd (ssname ss1 0) ss2) ent (ssname ss1 0) ) (command "area" "o" "l") (setq dtich1 (getvar "Area") dtich (+ dtich dtich1) ) (setq P1 (getpoint "\n Chi diem tiep theo ...")) ) (setq ss3 (chonchu "\nChon text chua kq dien tich...")) (if (/= ss3 nil) (progn (setq ob (bocdt ss3 0)) (setq st (sothanhchuintreal dtich)) (thaychu ob st) ) ) (command "erase" ss2 "") (setvar "OSMODE" OldOS) (command "CECOLOR" lacol) )
-
Lỗi khi viết chữ "ư" trong cad2004,2005,2006 không fải là do lỗi bộ gõ hay lỗi của bảng mã. mà cho chính các bản cad này. trong các bản cad từ 2007 trở đi nó đã đc sửa lỗi. Nếu textstyle mà bạn sử dụng là font chữ in hoa thì có thể thay ư bằng Ư không ảnh hưởng gì. còn nếu textstyle của bạn là font chữ thường, để viết được chữ "ư" trong các bản cad2004, 2005 và 2006 các bạn không thể dùng lệnh ed để edit trực tiếp lên text. hãy gõ trong mục contents của hộp thoại properties (Ctrl+1)
-
Anh Snowman đừng gọi em là "Bác" xưng "em" thế em ngại chết. Anh có vợ con rồi thì chắc hơn tuổi em nhiều.
Trộm vía, nhóc nhà anh nhìn kháu thế. bé đáng yêu quá! :lol2:
Trở lại với vấn đề của anh và em: như anh nói thì lisp anh đang viết dở vẫn cần fải thực hiện bước cấy text trên cad vào các điểm cao độ trên bình đồ fải không? thay vì như thế thì tại sao mình không thực hiện lệnh chèn các điểm cao độ (lệnh NT) trong nova vào những vị trí text đó. (lệnh này cho phép vẽ tương đối nhanh và chính xác các điểm cao độ) Từ những điểm cao độ đó ta lập lưới tam giác là có thể xuất trắc dọc và trắc ngang được rồi. kết quả tương đối chính xác.
Hôm trước em đã thử làm vậy trước khi nêu vấn đề nhờ mọi người trên diễn đàn giúp đỡ, tuy nhiên việc làm như thế này vẫn là thủ công và mất tương đối nhiều thời gian. cũng dễ bị nhầm lẫn ở thao tác nhập cao độ vì số điểm cao trình là rất nhiều
PS: chữ ký của anh đẹp lắm :lol2:
-
Của bạn đâyhttp://www.cadviet.com/upfiles/Trac_Ngang.ntd
Nhớ chỉnh lại lý trình vì minh fix về lý trình bằng 0
Dinh dang file .ntd này của nova 4.0 nhé (cad 2000) có thể mở được bằng nova 05 (cad 2005) đó.
Mình down đc rồi, sáng nay hình như hệ thống upload của diễn đàn bị lỗi thì fải. bạn có thể cho mình biết cách chuyển số liệu về file ntd như trên đc không?
-
Của bạn đâyhttp://www.cadviet.com/upfiles/Trac_Ngang.ntd
Nhớ chỉnh lại lý trình vì minh fix về lý trình bằng 0
Dinh dang file .ntd này của nova 4.0 nhé (cad 2000) có thể mở được bằng nova 05 (cad 2005) đó.
Bạn ơi. link không down đc bạn ạ. nếu có thể thì fiền bạn hướng dẫn mình cách làm có đc không? vì công việc của mình có thể sau này sẽ gặp những trường hợp thế này.
Thank bạn vì đã quan tâm :lol2:
PS: nếu upload của diễn đàn bị lỗi thì bạn gửi file trắc ngang cho qua email cũng đc: thaistreets214@gmail.com
-
Mình được giao nhiệm vụ thiết kế 1km đường với số liệu khảo sát được cung cấp là 3 file cad gồm: 1 file là bình đồ, 1 file là trắc dọc và1 file là trắc ngang
định dạng bảng trắc dọc và trắc ngang mình chưa thấy bao giờ và không biết số liệu này được làm từ phần mềm thiết kế đường nào.
Hiện mình dùng Nova 4.01 chạy trên nền cad14 chỉ có thể đọc được file cad này chứ không đọc được số liệu tuyến của nó
Ai biết những bản vẽ này dùng phần mềm gì để thiết kế và cách chuyển số liệu này về file ntd của nova làm ơn giúp mình với. Mình cảm ơn rất nhiều :s_big:
-
Các bác giúp em nhé vấn đền này em gặp khó khăn quá:s_big:
Bạn đã hỏi vấn đề này 1 lần nhưng mình chưa thấy bạn trả lời thắc mắc của mình.
http://www.cadviet.com/forum/index.php?sho...amp;#entry61447
-
À, còn Hatch và Text thì bó tay bác ạ, nó ko cắt được 2 cái ấy :s_big:Cad có trim được text không nhỉ? :s_big:
Mình vẫn trim được hatch mà.
Hình như bạn muốn che đi những fần của bản vẽ nằm phía ngoài ranh giới của bạn. vậy bạn thử lệnh wipeout đi, có lẽ nó sẽ giúp đc bạn
-
1
-
-
Cám ơn bạn, nhưng mình rất ghét layoutAutodesk thêm layout vào các bản cad sau này mục đích duy nhất là để cho người dùng đỡ vất vả hơn trong quá trình vẽ và in ấn thôi bạn ạ. việc bạn ghét nó cũng có nghĩa là bạn tự làm khó cho mình đấy. :mellow:
-
Em có 1 bản vẽ, em đã chia đôi bởi 1 đường thằng nằm ở giữa. Em muốn 1 cái lisp để xóa toàn bộ các vật thể nằm ở 1 phía nào đó của đường thẳng đó, có thể coi đường thẳng đó là ranh giới ấy. Bác nào biết thì giúp em cái nhé :mellow:Lệnh Extrim thì sao nhỉ?
-
1
-
-
Help me. Đây là Lisp dùng để rãi taluy của đường. Nó rất tiện lợi cho việc thể hiện mái dốc của đường đào hoặc đắp, nhưng có một khó khăn với tôi đó là nó chỉ rãi được trên đường thẳng và trên đường pline và cung tròn còn trên đường spline thì bó tay.Xin các Bác chỉnh sửa dùng cho với. Cám ơn trước nghe.
TL1: dùng để rãi trên đường thẳng và pline.
TL2: dùng để rãi trên cung tròn.
Bạn có dùng nova không. tôi thấy lệnh rải taluy trong menu phụ trợ rải taluy rất đẹp, cả trong đường cong và trong đường thẳng đó chứ
-
Mình đang cần code thể hiện độ dài của đoạn thẳng đặt ngay trung điểm của đoạn với đặc tính là phải thuộc layer hiện hành và style hiện hành. THanhks gấp gấp.Đề bài của bạn còn thiếu chiều cao của text được ghi nữa.
Bạn có thể tham khảo 1 lisp rất hay của bạn Phamthanhbinh.
http://www.cadviet.com/forum/index.php?sho...amp;#entry52919
-
Bạn load file này lên:http://www.cadviet.com/upfiles/themtext.lsp
Lệnh: themtext
Hỏi: nhập nội dung cần thêm phía trước. Nếu không thêm phía trước thì enter
Hỏi: nhập nội dung cần thêm phía sau. Nếu không thêm phía sau thì enter
Hỏi: chọn đối tượng, bạn ưng chỉnh tẽt nào thì chọn text đó nhiều cũng được. ok.
Chú ý khi nhập nội dung text nhận cả khoảng trắng muốn kết thúc phải nhấn enter.
Tuyệt quá!. cảm ơn anh Duy
-
Có khác biệt một chút với find và replace đấy bạn ah.Cách làm của mình có thể áp dụng cho text tạo bởi attribute , tên của block, tên của layer....Bạn cứ thử sẽ thấy sự khác biệt.
ok, để mình thử xem sao
-
Mình tìm giúp bạn đây!Lại fải cám ơn anh Duy dài dài rùi. :(
@duongsatdn: Ồ! Bây giờ mình mới để ý cái hộp thoại tìm kiếm chính của diễn đàn theo link của bạn. trước giờ mình toàn tìm kiếm bằng hộp thoại tìm kiếm nhanh phía trên nên kết quả lởm quá, rất mù mờ. Cảm ơn bạn rất nhiều!
-
Tập hợp các text được chọn ở đây là bao nhiêu?Nếu tập hợp này ít hoặc gồm nhiều text giống nhau chia làm ít nhóm thì mình có cách như sau:
Trước tiên bạn lưu bản vẽ của mình dưới dạng *.dxf .
Mở Wordpad lên ,Ctrl +O chọn file *.dxf vừa lưu.Nhấn Ctrl +H khai báo text ban đầu ở vùng Find what, khai báo tiếp text mới với tiền tố,hậu tố mong muốn.Bạn lưu lại rồi dùng Autocad mở lên sẽ được kết quả như ý.
Chúc thành công!
Cảm ơn chia xẻ của bạn. Nhưng mình thấy cách của bạn cũng tương tự việc dùng lệnh find và replate trong Cad thì fải. hoặc có thể dùng hộp thoại properties thủ công 1 chút cũng được. vấn đề mình gặp fải là tập hợp đó gồm nhiều fần tử khác nhau của một chuỗi.
-
Mình đang cần một lisp gíúp chèn thêm Tiền tố hoặc hậu tố hoặc cả 2 vào một tập hợp các text được chọn. cụ thể như sau:
- Command: chen
- Select objects: chọn tập hợp các text cần chèn thêm hậu tố hoặc tiền tố
- Nhập tiền tố, (nếu không cần chèn tiền tố thì enter để bỏ qua)
- Nhập hậu tố, (nếu không cần chèn hậu tố thì enter để nhận được kết quả)
Kết quả sau khi thực hiện lệnh như sau:
tập hợp Text ban đầu -----> tập hợp Text kết quả
X -----> AXB (hoặc AX, hoặc XB)
Y -----> AYB (hoặc AY, hoặc XB)
Z -----> AZB (hoặc AZ, hoặc ZB)
(Với A là text tiền tố, B là text hậu tố muốn chèn vào)
Mong các bác giúp đỡ.
PS: mình đã thử tìm kiếm trong diễn đàn nhưng hình như không có lisp chức năng này. Chức năng tìm kiếm của diễn đàn mình thấy cũng hơi khó dùng. Tìm kiếm bằng google với từ khóa: site:cadviet.com tukhóa cho kết quả trực quan và chính xác hơn nhiều.
-
Cái này hơi ngoài lề một chút,bạn có bình đồ của tỉnh Đắc Lắc ko,nếu có thì cho mình xin với nhé.Mình đang rất cầnBình đồ của cả 1 tỉnh lớn như tỉnh Đắk Lắk thì khó tìm lắm. hiện mình có 2 file bình đồ số hóa tỷ lệ 1:10.000 của 2 khu vực Liên Sơn và Thôn 10A. Hình như cũng thuộc tỉnh này. nếu bạn cần thì có thể PM cho mình email, mình gửi cho: huuthais@yahoo.com.
Theo như thông tin mình biết thì trường đại học GTVT HN đang sử dụng một tập bình đồ tỷ lệ 1:10.000 của Đắk Lắk (không chắc lắm - 2 tờ file bình đồ mình có cũng từ đây mà ra) để giao đồ án tốt nghiệp cho sv. Nếu bạn ở HN hoặc có anh em ở HN thì có thể đến bộ môn Đường bộ của trường gặp chị Hằng để hỏi mua tập bình đồ này. hình như là 10k/tờ. Nếu cần mua bình đồ đã số hóa thì bạn xuống mấy quán in trong trường. họ có bán đấy. 15k/file, có kèm file ảnh scan bình đồ gốc. mua số lượng nhiều chắc họ giảm giá
Ngoài ra bạn có thể tới cục bản đồ gần nơi bạn ở nhất. họ có bán đó.
-
1
-
Có cái này rất hay hỏi các pro
trong Sử dụng AutoCAD
Đã đăng · Trả lời báo cáo
???????? Cách mình bảo bạn chính là đi tìm cánh tuyến của các đường cong còn gì nữa