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
-
-
Mình muốn tạo boundary cho một đa giác hở:cry: không thể. anh em cadviet bó tay. hở thì làm sao có ranh giới hả bạn?
-
Post nhầm box rồi :cry: .Spam :cry:Em dùng cad2009 vẫn chưa hiểu đc hết những chức năng mới của nó, vậy mà đã có cad2010 rùi. :leluoi:
-
Zoom thì giống phết còn pan thì hông được lun. <_<Anh nên để Pan factor từ 3-5 thôi thì mới Pan đc, nhưng pan kiểu này đúng là hơi chóng mặt :cry: tốt nhất là dùng kết hợp với lệnh Pan của cad, em dùng quen rồi :cry:
-
1
-
-
Đã update lại link cho bác.P/s:bản này chạy rất hay lỗi.Bác nên dùng bản Nova 4.0 chạy trên Cad R14,bản này chạy ít lỗi và ổn định hơn.
Cảm ơn bạn nhiều, hiện tại ở công ty mình cũng dùng bản cho cad 2004 này, thỉnh thoảng mình fải mang số liệu về nhà làm nhưng lại không có khoá nova. mình muốn thử xem bản c***k này chạy thế nào.
PS: nếu bạn vẫn phải xài nova tren cad 14 thì bạn có thể bổ xung thêm chức năng Zoom và Pan cho bản cad này, mình đã up lên bên box autolisp
-
1
-
-
Vậy là bác dù sao cũng còn là dân liên quan đến đường. Mình là dân IT :cry:, không liên quan gì đến CAD. Mà trong máy bây giờ cũng còn không có CAD, lại không có font chữ để đọc xem trong hướng dẫn viết cái gì. (Máy của mình chỉ được phép cài Unicode thui)Đến đây thì em thực sự ngưỡng mộ bác đấy, dân IT mà kiến thức của bác về autocad thật đáng nể.
-
hãy nói cho tôi vì sao, anh vẫn dùng cad 14 ?Cậu ấy vào box San nền - Giao thông để hỏi thì có lẽ cậu ấy dùng cad14 cho Nova bản C**K chạy trên cad14. Mình cũng đang fải dùng bản này cho máy ở nhà. phần vì thói quen, phần vì nó ổn định hơn các bản c**k khác dùng cho cad đời cao. mình thấy rất nhiều anh em cũng vẫn fải xài cad14 vì lý do này mà.
-
Bạn down theo đường link sau nhé,bộ cài Nova này chạy tốt nhất trên Cad 2004 bạn nhé.http://www.mediafire.com/?dnlnofj3z1j
Chúc thành công.
Phiền bạn up lại giúp mình với được không, link die mất rồi. mình cũng đang rất cần
-
sau 2 ngày lần mò cuối cùng mình cũng xin được cái lisp hay ho này, chia xẻ cho ai vẫn fải cày cuốc bằng cad14 nè download here
cái này dùng để zoom thì khá ổn, nhưng pan thì hơi tệ, dù sao có cũng còn hơn không :cry:
Còn đây là hướng dẫn sử dụng:
1. Type AIM2 at the AutoCAD command line, press the settings button.
2. Select how you want pan to be activated.
a. if you select "None" then AUX1 needs to be referenced later (see below)
b. if you select "Shift" then AUX2 needs to be referenced.
c. if you select "Control" then AUX3 needs to be referenced.
3. The AUX entries above are groups in the ACAD.MNU file. Locate and
make a copy of ACAD.MNU, its usually in the support subdirectory
where AutoCAD is installed. If you use custom menus then you will
need to locate it and follow the instructions below.
4. After you've made a copy of ACAD.MNU open it for editing using
wordpad or some other text editor.
5. Find the line that reads ***AUXn (where n is based on your selection
in instruction 2.
6. Each line below the ***AUXn is assigned to a button on the mouse. The
lines that start with // are coments and are not assigned. The first assigned
line represents the right mouse button. The second assigned line is the
wheel button.
7. For the line assigned to the wheel change it to read:
^z
8. Save ACAD.MNU and restart AutoCAD if its not currently running.
9. At the AutoCAD command line type MENU.
10. A file dialog box will appear, change the file type selection to MNU.
11. Locate and select the modified ACAD.MNU file then press the
open button.
12. You may get a warning about loosing toolbar customization, this
can't be help and you will need to select the yes button to get the
customized menu.
13. Panning should now work without a menu poping up. If you do
get a pop up check that the AIM2 settings match the AUX settings
mentioned above.
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
EDIT: UPDATE hướng dẫn thiết lập để Nova14 có thể tự động load Toolzoom và thiết lập lại chức năng Pan.
1. Để Nova14 có thể tự load tool trên bạn làm như sau:
- Copy 2 file AcadImouse2.arx và aim2.ini vào thư mục cài đặt nova. (mặc định là C:\Harmony CAD_Group\NovaTDN 4.0\)
- Mở file Acad.lsp cũng trong thư mục đó ra và thêm đoạn code dưới vào sau hàm Progn đầu tiên bạn nhìn thấy. (dòng thứ 4 của file này)
...
(progn
(if (not (member "AcadImouse2.arx" (arx)))
(arxload "AcadImouse2.arx")
)
(if
...
Phần in đậm là đoạn code bạn cần thêm.
Chú ý, đây chỉ là thiết lập riêng cho nova14, nếu bạn muốn thiết lập cho cả cad14 nữa thì bạn có thể làm tương tự các bước trên.
2. Thiết lập chức năng Pan: việc gõ lệnh Pan trên bàn fím có một chút bất tiện do thói quen dùng cad đời cao hơn. sau đây mình hướng dẫn các bạn thiết lập lệnh Pan vào nút chuột giữa.
- trong nova14 sau khi đã được load tool, bạn gõ aim2 -> setting -> chọn None cho mục Panmode -> OK
- mở file acad.mnu trong thu mục support của cad14 (mặc định là C:\Program Files\AutoCAD R14\SUPPORT)
- tìm đoạn code:
***AUX1
// Simple button
// if a grip is hot bring up the Grips Cursor Menu (POP 17), else send a carriage return
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,5),GRIP_),$P0=ACAD.GRIPS $P0=*);
$P0=SNAP $p0=*
^C^C
^B
^O
^G
^D
^E
^T
Trong đoạn code trên phần bôi đậm là các thiết lập lệnh cho nút chuột giữa. thay vì thay đoạn code này bằng ^Z như hướng dẫn của tác giả bạn thay nó bằng lệnh Pan như sau:
***AUX1
// Simple button
// if a grip is hot bring up the Grips Cursor Menu (POP 17), else send a carriage return
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,5),GRIP_),$P0=ACAD.GRIPS $P0=*);
'Pan
- trong cad14 bạn load lại file menu.
gõ lệnh Pr -> files -> Menu, help, log.... -> Menu files -> load lại file acad.mnu -> OK
Kết hợp 2 lệnh pan của cad và của tool trên bạn có 1 cách Pan theo mình là tuyệt vời. Nhất là với những bản vẽ lớn (vài chục hoặc vài trăm trắc ngang) thì dùng cách pan của Tool trên để duyệt trắc ngang đỡ mỏi tay dê chuột rất nhiều.
-
5
-
-
Ngày xưa khi còn dùng CAD14 tôi thường sửa file acad.mnu để có được tổ hợp phím như sau: Ctrl + Right Click = 'Zoom previous, Ctrl + Shift + Right Click = 'Zoom Window. Tôi nhớ hồi đó chỉ với 2 tổ hợp này tồi gần như không dùng đến lệnh Pan và Zoom Realtime nữaBác sửa thế nào chỉ em với
-
Không biết bạn nghĩ sao, nếu bạn đồng ý mình sẽ cải tạo lại đoạn lisp trên bạn nhé.Chúc bạn vui.
Truớc tiên em rất cảm ơn bác Tue_NV và bạn phamthanhbinh vì đã nhiệt tình giúp đỡ em.
Lisp của bạn thật tuyệt vời bạn phamthanhbinh ạ. Nó chính xác là những gì mình cần. Thực ra khi bạn để chức năng chọn một lần nhiều đối tượng là một ý tưởng rất hay mà chính bản thân mình là người đặt vấn đề cũng không nghĩ tới. Dùng chức năng này để chọn cùng một lúc nhiều đối tuợng có cùng tính chất hay cùng một nhóm (một tập hợp các đường song song chẳng hạn), như thế việc nhớ thứ tự cũng không khó mà công việc sẽ đuợc giải quyết nhanh hơn rất nhiều. Mình rất thích ý tưởng này của bạn. Và Lisp của bạn như thế cũng không cần phải chỉnh thêm gì nữa rồi. Một lần nữa rất cảm ơn bạn đã nhiệt tình giúp đỡ. :undecided:
-
1
-
-
Bạn có thể minh hoạ bằng file dwg và có thể nói rõ hơn cái điều bạn muốn được không?VD minh hoạ của em đây. :undecided:
Em muốn dùng lisp này để thống kê chiều dài nhiều đoạn thẳng và đoạn cong ra bảng, hoặc có thể dùng nó để ghi chú thích chiều dài cho các đoạn thẳng, đoạn cong đó
-
Em đang rất cần 1 lisp để ghi chiều dài đoạn thẳng là line hoặc chiều dài đoạn gồm cả đoạn thẳng và đoạn cong nếu là polyline, cụ thể như sau:
- command: CD
- Chọn đối tượng là polyline hoặc line cần đo kích thước.
- Ghi kết quả : 2 lựa chọn: + lựa chọn 1: chọn 1 text có truớc và ghi kích thuớc vào text đó
+ lựa chọn 2: Enter và chon điểm để lisp ghi kích thuớc bằng 1 text mới theo textstyle hiện tại
Chú ý cái này dùm em: là kết quả đuợc ghi ra theo kết quả đo của Dimstyle hiện tại (tuỳ thuộc vào Scale Factor của Dimstyle đó)
Ps: Công việc trên có thể thực hiện thủ công đơn giản, nhưng vì những bản vẽ của em phải lập đi lập lại công việc này rất nhiều nên em muốn nhờ các mọi người trong diễn đàn viết giúp em cái lisp. trước khi lập toppic này em cũng đã cố gắng tìm kiếm trong diễn đàn xem có lisp nào tương tự nhưng không có (or em vẫn chưa thấy :undecided: )
Thanks!
-
Xắp Xếp Trắc Ngang Nova
trong Nova
Hiện mình đang dùng một chương trình in ấn các trắc ngang Nova rất tuyệt, đơn giản và dể dùng. Nhưng ngoặc nỗi chương trình càng hay, càng tốt thì chủ nhân càng ko free -_-Ai cần dùng thử hoặc mua bản chính thức thì mình gửi qua mail cho :cheers:
Nghe bác quảng cáo tò mò quá. Bác gửi cho em dùng thử phát xem nào :o Email của em: Thaistreets214@gmail.com
thank bác trước
-
Nếu mà là con gái đi học cầu đường hoặc thủy lợi thì mệt lắm, nhất là khi có người yêu - gia đình - chồng, con, vvvv.Hình như bác ấy là con trai mà :o -_-
Em cũng có quan điểm như bác Viethung. để có thể xây dựng được một phần mềm thiết kế phục vụ công tác thiết kế đường là điều không hề đơn giản. Công việc này đòi hỏi tập thể những người tham gia phải sẽ phải dành nhiều thời gian và công sức cho nó, ngoài ra còn phải nắm vững những nguyên tắc thiết kế, trình tự thiết kế, các tiêu chuẩn kỹ thuật áp dụng đối với từng loại công trình đường..v.v. Chưa nói đến vấn đề khả năng và kỹ thuật. Chuyện con người thôi cũng đã là 1 vấn đề khó khăn. hiện tại như em thấy thì diễn đàn của chúng ta cũng không có nhiều thành viên có thể dành tâm sức cho công việc này.
Ý tưởng này rất hay, nhưng theo em thay vì việc chúng ta dành sức lực để xây dựng 1 PM mà biết chắc nó không thể tốt hơn những gì người khác đã làm thì có lẽ tốt hơn là chúng ta nên tập trung xây dựng những ý tưởng, những công cụ để hoàn thiện hơn cho những PM đã có
-
Xắp Xếp Trắc Ngang Nova
trong Nova
Tự động xắp xếp tất cả các trắc ngang nova vào viewport theo hàng cột định trước tương ứng với tỉ lệ nhất định.http://doanduyhung.googlepages.com/
-_-
Link die roi bác ạ
-
Chào các bạn,Tôi có lệnh nhỏ này dùng để sửa nhiều dòng text về cùng một giá trị (gần giống "Ctrl+Enter" trong Excel), hy vọng có bạn cần đến nó.
Bác nên giải thích rõ ràng luôn khi post bài để mọi người dễ hình dung chứ. Mà Ctrl+Enter trong Excel có tác dụng gì vậy nhỉ? phải chăng bác nhầm với Alt+Enter
-
Khi sử dụng lệnh rotate ta thấy đòi hỏi điểm gốc để xoay. Đối với text thì có điểm chèn của nó, tương tự như block ta có thể lấy làm điểm gốc để xoay. Tuy nhiên đối với Line hoặc các đối tượng khác thì việc xoay tại điểm nào sẽ quyết định tính đúng đắn của phép xoay. Tôi chưa hiểu ý bạn là xoay các line thì bạn chọn điểm nào là gốc?Em nói ngay lúc đầu rồi mà. em muốn xoay các đối tượng quanh trục trọng tâm của mỗi đối tượng
-
Nếu là Text thì bạn chọn đối tượng và vào Properti (Ctr+1) chỉnh góc cho nhanh cần gì đến lispTập hợp các đối tượng text mà em lấy ví dụ ở trên chỉ là 1 trường hợp đơn giản. Có thể sử dụng layiso + Properties là có thể chỉnh sửa được. Nhưng cách này có 1 hạn chế là sẽ đưa toàn bộ đối tượng được chọn về cùng vì giá trị góc xoay so với hệ trục tọa độ của cad, ta không thể giữ được góc xoay tương đối giữa các đối tượng được chọn. (vì giá trị rotation mà ta nhập trong properties là góc xoay tuyệt đối của đối tượng so với hệ trục tọa độ của cad). Tương tự, lệnh torient cũng bị hạn chế như vậy.
Vấn đề mà em gặp là khi tập hợp các đối tượng được chọn bao gồm cả text, line, block... thì cách giải quyết sẽ không còn đơn giản như vậy nữa.
-
bạn hãy upload 1 file dwg lên diễn đàn, trong đó có 2 trạng thái.Một trạng thái trước khi sử dụng lisp, một trạng thái sau khi sử dụng lisp.
Link đây ạ
-
Em đang cần 1 lisp để giải quyết công việc như sau:
Em có 1 tập hợp rất nhiều đối tượng bản vẽ. VD: 1 tập hợp các chữ số ghi cao độ của bình đồ.
Em muốn xoay các chữ số này theo 1 góc nào đó so với hướng bắc ban đầu. nghĩa là mỗi đối tượng sẽ xoay quanh trục trọng tâm của nó theo 1 góc mà em muốn
Lisp em cần sẽ thực hiện công việc này theo các bước như sau: Cmd -> chọn các đối tượng cần xoay -> nhập góc cần xoay -> kết thúc lệnh
Giúp em với nhé. Thank so much!
-
Bạn ko nên hứa bừa nhé. Mổi nic chỉ thank được có 1 lần thôi mà bạn đòi thank 100 phát hử? :o Chỉ cần bạn đóng góp tích cực cho diển đàn là ngon rồi.Cái lisp xóa theo lớp của Bác dùng ngon. Thank Bác thêm 1 phát nữa :cheers: từ sáng đến giờ em thank Bác được 10 fát rồi đó chứ. Em không có hứa bừa đâu. hehee, cứ từ từ rồi em sẽ chồng đủ cho Bác 100 phát thank -_-
-
Lệnh là: xla;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;
(Defun c:XLa ( )
(prompt "\nChon doi tuong thuoc layer muon xoa.")
(setq DT (car (entsel)))
(setq DT (entget DT))
(setq LDT (cdr (assoc 8 DT)))
(Princ "\nHay chon vung muon xoa:")
(setq SS (ssget (list (cons 8 LDT)
)
)
)
(if (Null ss)
(princ (strcat "\nKhong tim thay doi tuong nao thuoc layer: <" LDT "> trong vung vua chon !"))
)
(IF (/= NIL SS) (PROGN
(setq Sl (SSLength SS))
(command ".erase" ss "")
(princ (strcat "\nDa xoa: <" (itoa sl) "> doi tuong thuoc layer: <" LDT ">"))
)
)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Thank anh duy782006 nhiều nghe. để em thử phát xem nào ^^
-
việc này cần j phải lít hả bạn, bạn chỉ cần dùng lệnh Fi sau đó chọn theo color là ngon thôi màNhư thế mất công hơn nhiều bạn ạ
-
1
-
-
Chào các anh chị trong diễn đàn. em là thành viên mới toe. Có một việc rất mong được anh chị giúp đỡ
em làm việc với Nova nhiều và hay sử dụng lệnh XL của nova. Lệnh này có chức năng xóa tất cả các đối tượng cùng 1 layer trong vùng được chọn.
Cho em hỏi trong diễn đàn đã có ai viết lisp có chức năng này để sử dụng cho Cad chưa? nếu có rồi thì cho em xin link với.
Còn nếu chưa có thì xin các cao thủ viết dùm em cái lisp này, và nếu có thể ta thêm cho nó 1 lệnh xóa các đối tượng trong vùng được chọn theo màu. Giúp em với, sẽ thank 100 phát -_-
Lập Công thức tính Khối lượng trong NoVa
trong Nova
Đã đăng · Trả lời báo cáo
Việc lập công thức tính diện tích trên trắc ngang còn tùy vào trắc ngang của bạn cấu tạo thế nào. Hơn nữa cũng lại còn fải tùy thuộc vào bản Nova bạn đang dùng.
Mình đã dùng qua một số bản Nova 3.5; 4.0; 4.01 rồi nova 16 (chạy cad2005 có khóa cứng) và nhận thấy một điều là việc quy định fạm vi tính diện tích của mỗi bản có khác nhau
Ví dụ: diện tích đào: có bản thì quy định diện tích đào = diện tích miền giới hạn bởi đường đỏ và đường tự nhiên nằm fía trên đường đỏ (đường đỏ trong trường hợp này bao gồm cả taluy đào) . Nhưng có bản thì diện tích đào = diện tích đào trong phạm vi cạp nền và cạp gia cố hất lên trên. không tính phần diện tích đào taluy và đào rãnh dọc.
Đối với trắc ngang có cấu tạo đơn giản thì việc lập công thức chung sẽ đơn giản, giúp bạn tiết kiệm thời gian. Nhưng trường hợp trắc ngang của bạn cấu tạo phức tạp, chẳng hạn trên trắc ngang có cả rãnh, kè, tường chắn, vét hữu cơ, đánh cấp... khi đó bạn fải tính rất nhiều loại diện tích như đào rãnh, đắp trả hố đào rãnh, đào hố móng kè, đắp trả hố móng kè... thì theo kinh nghiệm của mình tốt nhất bạn nên tính thủ công bằng các lisp tính diện tích (lisp tính diện tích bằng cách pick điểm và ghi diện tích ra text mình nhớ là trên diễn đàn đã có). Cách này cũng giúp bạn tin tưởng vào kết quả của mình hơn là chạy tự động.
Khi sử dụng cách này bạn cần ghi tất cả các loại diện tích mà bạn cần tính lên trắc ngang bằng lệnh "tính diện tích" và "điền diện tích". khi đó bạn lập công thức thế nào cũng được, khi điền nhớ chọn điền cả giá trị 0. sau đó bạn đo diện tích và ghi diện tích vào các giá trị 0 đã ghi bằng lisp. để có bảng tổng hợp khối lượng bạn sử dụng lệnh "lbgt" - lập bảng tính khối lượng từ giá trị điền. Mình hay sử dụng cách này, và mình thấy nó cho kết quả tin tưởng, cũng không mất nhiều thời gian lắm so với việc lập công thức để có kết quả có thể không chính xác.
PS: nếu bạn muốn lập công thức tính tự động thì tốt nhất bạn nên vẽ 1 trắc ngang điển hình có tất cả các loại diện tích cần tính. Sau đó điền tất cả các loại diện tích mặc định mà bản nova bạn đang dùng cung cấp để hiểu được quy định tính diện tích của nó thì mới có thể lập đc công thức chính xác nhất.