Nộ Thiên
-
Số lượng nội dung
290 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
2
Bài đăng được đăng bởi Nộ Thiên
-
-
Mình đã làm như bạn mà không được, vẫn bị lỗi, nó nháy cái rồi biến mấtCái này có thể cái tên font mình xác định trong lần đầu kg có trong máy của bạn nên bị lỗi
Nên Bạn có thể mở file thongso1.txt và thongso2.txt chỉnh sửa lại.
To Ketxu:
Có thể lỗi của bạn là do bị đụng với các ứng dụng khác.
Bởi kg có ai bị lỗi giống của bạn.
-
Thì ra Bác Nộ thiên là tác giả của fast cad. Cám ơn Bác đã đóng góp cho cộng đồng một tiện ích rất hay. Bác có thể up mã nguồn mở để anh em nghiên cứu được không Bác. Thanh!!!Nguồn mở thì OK vì cách đây mấy năm có người hỏi xin và mình cũng đã cho rồi.
Nhưng bộ fastcad này mình viết lúc chập chững đến với lisp nên cũng còn nhiều hạn chế lắm.
có gì gửi mail cho mình.
Thx.
-
Bạn tìm đến dòng có từ "donut" sửa F -> (* F 1.2) số 1.2 chỉ ví dụ nếu muốn lớn hơn thì thay bằng số lớn hơn và ngược lại.Mình có lisp vẽ mặt cắt dọc dầm nhưng không nhớ để đâu đe mình tìm lại đã. Vì mình là dân KT mà.
-
1
-
-
Nhờ mấy Bác giúp cho cái lisp này với:
Lên mạng tìm đc mấy cái lisp liên quan đến "Break" : đem về từ từ ngcứu tiếp.
http://www.cadviet.com/upfiles/2/asmitools_bri.lsp
http://www.cadviet.com/upfiles/2/breakobjects18.lsp
Thx to SSG!
-
1
-
-
Nhờ mấy Bác giúp cho cái lisp này với:
Còn đây là file CAD
-
Cái này mình co nhắc nhở 1 lần trên diễn đàn rồi. Nguyên nhan cua nó là như the này:
- 1file Bác "new file from acadiso" lúc này CAD se load file hatch tương ứng là "acadiso.pat" (cái này là hệ milimet)
- 1file Bác "new file from acad" lúc này CAD se load file hatch tương ứng là "acad.pat" (cái này là hệ inche),
Mặc dù sau đó trong file naỳ Bạn có vào Format\ units.. để chuyển về lại đơn vị milimet, nhung nó vẫn sử dụng "acad.pat" để hatch
Vì vậy 2 file trên vẫn khác nhau về "hatch scale" và cả linescale cũng vậy.
Cho nên muốn chuẩn hoá bản vẽ cũng nên để ý đến cái mục này "Default template File location" trong phần OPTIONS.
-
2
-
-
Một câu đố vui khác:Cắt 1 băng giấy dọc theo cạnh ngắn của tờ giấy A4, sau đó dán 2 đầu băng giấy lại. Chiều dài phần nối chồng là 1cm
Có 1 con kiến bò dọc theo băng giấy với vận tốc 1m/phút. Hỏi trong bao lâu thì con kiến về lại vị trí cũ?
Cái này ăn thua là dán kiểu gì nữa.
Moebius Strip- Brian Chan
http://chosetec.darkclan.net/origami/moebius/
Đây là video Brian Chan gấp mẫu logo trường M.I.T (1 trong những sáng tác của gã)
http://www.youtube.com/chosetec
khuyến mãi 1 clip vui nhộn
Tay này thấy có vẻ tài năng đấy mấy Bác (Brian Chan). Vì thấy tay này còn làm kiếm nữa.
-
chỉ cần vtduration thôi zoomfactor thì điều chỉnh tốc độ con lăn của chuộtCái náy CAD2005 hổng hiểu/?
Command: Specify opposite corner: *Cancel*
Command: Specify opposite corner: *Cancel*
Command: vtduration
Unknown command "VTDURATION". Press F1 for help.
-
Ở MODEL trong 1 file CAD có nhiều Bản vẽ:
Khi tỷ lệ zoom gần với "zoom all" thì sợi dây thun xuất hiện bình thường.
Nhưng khi zoom in vào trong các chi tiết thì sợi dây thun xuất hiện chậm hơn khoảng vài giây (khi dùng select window), cái này rất khó chịu khi vẽ.
Nhưng kg phải fle nào cũng vậy, có file thì bị như vậy nhưng cũng có file không bị. Về mặt dung lượng file thì file bị khoảng hơn 700KB, file kg bị thì hơn 1.3MB.
Thật khó hiểu.
Kg biết cái này là vì sao:
- do file nặng?
- hay do card man hình yếu
- hay do máy yếu (CPU)
-... hay vì lí do nào đó???
Ai biết có thể lí giải dùm?
-
Mời bạn sang đây:http://www.cadviet.com/forum/index.php?showtopic=9561
Lệnh SCC đã hoàn thiện, chấp nhận Multi-Dimstyle, kèm theo một số bonus khác nữa...
Lúc trước trong topic fakedim mình cũng có 1 chút suy nghĩ về vấn đề này nhưng khi nghĩ đến yếu tố "khoảng cách từ đường kích thước đến Object" thì nản (tạm đặt là biến Ldim nào đó đi).
Bởi lúc đầu các Object ở tỷlệ x nào đó Ldim = 8 --> 10mm (đơn vị giấy), cái này tuỳ người vẽ.
Sau khi scale lên thì liệu giá trị Ldim nó có còn giữ nguyên đc hay kg?
Nếu giải quyết đc vấn đề này thì còn tiếp phải xử lý ở lớp Dim thứ 2, 3...liệu vị trí các lớp dim này có chính xác chưa?
Kg biết Bác SSG đã có hướng giải quyết vấn đề này chưa?
-
Đố vui Cad 2D
trong Thư giãn
2-Quả đất xoay tròn, thật vui khi được gặp lại bạn Nộ Thiên. Chúng ta đã từng gặp nhau qua bài toán dựng đường tiếp tuyến với hình Ellipse tại một điểm nằm trên đường ellipse, bạn còn nhớ chứ?Câu hỏi của tôi được bạn trả lời: Gọn nhất chỉ là: “Circle 2point, bắt điểm "Quadrant"”, tôi xin được bổ xung thêm: không những nhanh, gọn mà còn chính xác nhất. Để dựng hình, chắc bạn đã suy luận như bạn Nacata
Cách làm của tôi hơi khác một chút:
- L > Vẽ đường thẳng bắt 2 điểm trên đường tròn như của bạn > C chọn tâm là điểm giữa của đoạn thẳng rồi bắt điểm trên đường tròn.
@: Tue_NV :Thắc mắc của bạn có cơ sở bởi lẽ qua hai điểm cho trước ta có thể dựng được vô số đường tròn có R khác nhau.
Cơ sở để chọn Quadrant của bạn Nộ Thiên nó nằm ngay trong bản chất của lệnh vẽ đường tròn đi qua hai điểm. AutoCAD mặc định khoảng cách hai điểm là đường kính của đường tròn.
-Với câu 1: để biến kiểu mũi tên 2 thành kiểu mũi tên 3 tôi có một cách làm. Ngược lại muốn biến kiểu mũi tên 3 về mũi tên 2 tôi có hai cách làm. Lệnh FILL => OFF hoặc ON rồi REGEN không còn tác dụng.
Tôi gửi file bản vẽ lên các bạn sẽ dễ tìm ra lời giải hơn:
Đúng là mình đã suy luận như Nacta đã nói.
Như chúng ta đã biết khái niệm tỷlệ đồng dạng k:
nếu 2 hình đồng dạng với tỷlệ k thì tỷlệ Diện tích của chúng sẽ là k^2, tương tự tỷlệ thể tích sẽ là k^3..
Ở đây đề bài ra là tỷlệ diện tích là 2 suy ra: k=sqrt(2).
Cũng may cho mình là mình khá quen thuộc với những số căn 2 này.
Điều này dẫn đến mình dễ dàng liên tưởng từ "căn 2" qua Tam giác vuông cân.
Và đó là cơ sở cho câu trả của mình.
Còn đây những con số quen thuộc, hy vọng nó sẽ giúp ích cho các Bạn trong 1 dịp may nào đó:
@ Tue_NV: Từ hôm qua đến giờ mình vẫn đọc mãi thắc mắc của Bác nhưng vẫn kg thể hiểu Bác thắc mắc về điều gì bởi câu trả lời rất chi là rõ ràng.
-
Đố vui Cad 2D
trong Thư giãn
Câu 2:- Sếp đưa cho bạn 1 File bản vẽ trong đó chỉ vẽ duy nhất một hình tròn. Yêu cầu đặt ra là bạn phải vẽ một hình tròn khác có diện tích bằng một nửa diện tích hình tròn đã cho một cách nhanh nhất. Ví dụ hình tròn đó có diện tích 2 m2 bạn phải thêm một hình tròn có diện tích 1 m2(Lưu ý về mặt thời gian và độ chính xác)
Gọn nhất chỉ là:
Circle 2point, bắt điểm "Quadrant"
-
Bác NOTHIEN ơi! Cho em hỏi cách chỉnh đoạn cắt thép với. Như ở chương trình của bác cắt thép mũ nhịp là L/3 em muốn cắt ở L/4 thì thay đổi ở đâu nhỉ?Thì phải chỉnh lại tí xiú code.
01-Chép file này về.
02-Đổi tên file này thành "basic1.fas"
03-Chép file vừa đc đổi tên vào thư mục "C:\NoCAD"
04-Hỏi có ghi đè lên file cũ kg? Trả lời "Yes".
Sau đó khởi động acad chạy thử và kiểm tra xem có phải "L/4" chưa.
-
"Kẻ liều mạng" đang hỏi SSG: Tên mình đâu...?
-
Một điều nữa cần lưu ý là nên thống nhất cách đặt tên biến, tên hàm... để cho các hàm con cuả chúng ta đồng nhất, nếu kg nhìn vào cái đống hàm con đó rất lộn xộn.
-
Mình sử dụng Block thuộc tính. Gồm 1 att và 1 ký hiệu cốt.Nataca xem ở đây xem có giúp đc ko
Lúc trước có post cho MHXDA đoạn code này, dùng để tính toán 1 vài phép tính đơn giản cho Block-ATT.
Post ở đâu thì quên mất, nay post lại.
Bạn phải chỉnh chút xiú code để có thể dùng cho yêu cầu của mình.
Chú ý phần tên của Block-ATT (màu đỏ) và các đoạn code liên quan đến text
(defun c:tinh2 ()
(setvar "cmdecho" 0)
(setq om (getvar "osmode"))
(prompt "\nSelect Object:")
(setvar "osmode" 0)
(setq ssObj (ssget '((0 . "INSERT") (2 . "point")) ))
(initget "N T B H")
(setq kw1 (getkword "\nTinh gia tri [Nhan,Tong,trung Binh,<Hieu chinh>]?<N/T/B/H>:"))
(if (= kw1 nil) (setq kw1 "H"))
(setq kw1 (strcase kw1))
(cond ((= kw1 "N") (progn
(setq i 0)
(setq kq 1)
(while (setq madt (ssname ssObj i))
(setq kq (* (atof (cdr (assoc 1 (entget (entnext madt))))) kq))
(setq i (1+ i))
)
(prompt (strcat "\nTich cua cac so la:" (rtos kq 2 2)))
(setq p0 (getpoint "\nSelect a Point or Text:"))
(if (ssget p0)
(if (= (cdr (assoc 0 (entget (car (nentselp p0))))) "TEXT")
(progn (setq dtchon (nentselp p0))
(setq madtchon (car dtchon))
(setq dsdtchon (entget madtchon))
(setq dsdtchon (subst (cons '1 (rtos kq 2 2)) (assoc 1 dsdtchon) dsdtchon))
(entmod dsdtchon)
(entupd madtchon)
)
)
(command ".text" "st" "2mm" "j" "mc" p0 0 (rtos kq 2 2))
)
))
((= kw1 "T") (progn
(setq i 0)
(setq kq 0)
(while (setq madt (ssname ssObj i))
(setq kq (+ (atof (cdr (assoc 1 (entget (entnext madt))))) kq))
(setq i (1+ i))
)
(prompt (strcat "\nTong cua cac so la:" (rtos kq 2 2)))
(setq p0 (getpoint "\nSelect a Point or Text:"))
(if (ssget p0)
(if (= (cdr (assoc 0 (entget (car (nentselp p0))))) "TEXT")
(progn (setq dtchon (nentselp p0))
(setq madtchon (car dtchon))
(setq dsdtchon (entget madtchon))
(setq dsdtchon (subst (cons '1 (rtos kq 2 2)) (assoc 1 dsdtchon) dsdtchon))
(entmod dsdtchon)
(entupd madtchon)
))
(command ".text" "st" "2mm" "j" "mc" p0 0 (rtos kq 2 2))
)
))
((= kw1 "B") (progn
(setq i 0)
(setq kq 0)
(while (setq madt (ssname ssObj i))
(setq kq (+ (atof (cdr (assoc 1 (entget (entnext madt))))) kq))
(setq i (1+ i))
)
(setq kq (/ kq (sslength ssObj)))
(prompt (strcat "\nTrung binh cua cac so la:" (rtos kq 2 2)))
(setq p0 (getpoint "\nSelect a Point or Text:"))
(if (ssget p0)
(if (= (cdr (assoc 0 (entget (car (nentselp p0))))) "TEXT")
(progn (setq dtchon (nentselp p0))
(setq madtchon (car dtchon))
(setq dsdtchon (entget madtchon))
(setq dsdtchon (subst (cons '1 (rtos kq 2 2)) (assoc 1 dsdtchon) dsdtchon))
(entmod dsdtchon)
(entupd madtchon)
))
(command ".text" "st" "2mm" "j" "mc" p0 0 (rtos kq 2 2))
)
))
((= kw1 "H") (progn
(initget "C N I")
(setq kw2 (getkword "\nChon [<Cong>,Nhan,Chia] voi 1 so ?<C/N/I>:"))
(if (= kw2 nil) (setq kw2 "C"))
(setq kw2 (strcase kw2))
(cond
((= kw2 "C") (progn
(setq so (getreal "\nNhap gia tri can cong (hoac tru) :"))
(setq i 0)
(while (setq madt (ssname ssObj i))
(setq madtchon (entnext madt))
(setq kq (+ (atof (cdr (assoc 1 (entget madtchon)))) so))
(setq dsdtchon (entget madtchon))
(setq dsdtchon (subst (cons '1 (rtos kq 2 2)) (assoc 1 dsdtchon) dsdtchon))
(entmod dsdtchon)
(entupd madtchon)
(setq i (1+ i))
)
(prompt (strcat "\nDa cap nhat " (itoa i) " doi tuong."))
))
((= kw2 "N") (progn
(setq so (getreal "\nNhap gia tri can nhan them:"))
(setq i 0)
(while (setq madt (ssname ssObj i))
(setq madtchon (entnext madt))
(setq kq (* (atof (cdr (assoc 1 (entget madtchon)))) so))
(setq dsdtchon (entget madtchon))
(setq dsdtchon (subst (cons '1 (rtos kq 2 2)) (assoc 1 dsdtchon) dsdtchon))
(entmod dsdtchon)
(entupd madtchon)
(setq i (1+ i))
)
(prompt (strcat "\nDa cap nhat " (itoa i) " doi tuong."))
))
((= kw2 "I") (progn
(setq so (getreal "\nNhap gia tri can chia bot:"))
(setq i 0)
(while (setq madt (ssname ssObj i))
(setq madtchon (entnext madt))
(setq kq (/ (atof (cdr (assoc 1 (entget madtchon)))) so))
(setq dsdtchon (entget madtchon))
(setq dsdtchon (subst (cons '1 (rtos kq 2 2)) (assoc 1 dsdtchon) dsdtchon))
(entmod dsdtchon)
(entupd madtchon)
(setq i (1+ i))
)
(prompt (strcat "\nDa cap nhat " (itoa i) " doi tuong."))
))
)
))
)
(setvar "osmode" om)
(setvar "cmdecho" 1)
(princ)
)
-
Mới leo lên tới đỉnh.
Để bữa nào rảnh xuống bên kia núi dạo chơi một lần cho biết.
-
Bác Phiphi khá ghê.
mình thử sự ước lượng của đôi mắt lần nào cũng trên 35.xx hết.
P/s: Cái game này nó có bị phụ thuộc vào kích thước màn hình máy tính mà mình đang sử dụng thì phải?????
kích thước màn hình cuả mình: 14 inches với 1400x1050 pixels.
Thì ra lúc chỉ điểm song song nó yêu cầu mình // với đường màu đen mà mình lại chọn điểm // với màu xanh hèn gì sai quá trời luôn.
-
những người mới học cad như em thì làm sao hiểu "cross windows" là gì hả bác..? hic bác có thể nói rõ hơn ko?Là kéo chuột từ phải sang trái đó.
trích phần help:
You can select objects by specifying opposite corners to define a rectangular area. After specifying the first corner point, you can Drag your cursor from left to right to create an enclosing window selection. Only objects that the rectangular window entirely encloses are selected. Drag your cursor from right to left to create a crossing selection. Objects that the rectangular window encloses or crosses are selected.
-
2. Bạn có 2 đường thẳng đè lên nhau và bạn muốn chọn hay xoá 1 đường nhưng nó lại nằm dưới đường kia.Ngoài cách mà bác Hoành đã hd thì mọi người hay vẽ 1 đường làm đường xác định rồi Move đường nằm trên đi sau đó mới xoá được đường bên dưới rồi lại Move lại đường kia vào.Có 1 cách thủ công nhưng cũng rất hiệu quả là bạn dùng lệnh OOPS.bạn cứ xoá ngay cái đường nằm trên đi rồi Move cái đường bên dưới đi,sau đó bạn đánh OOPS thì đường bạn xoá trước đó sẽ hồi phục lại ngay(lệnh này chỉ hồi phục các đt xoá gần nhất và nó không phải là Undo).Muốn select đường bên dưới, chỉ cần:
1. "cross windows" cả 2 đường
2. Giữ "shift" và click vào đường bên trên.
sau đó muốn làm gì thì làm.
-
Lúc trước mình cũng có xài tấm deck tương tự (Loại của BlueScope) dày 1mm - 1.2mm (tương đương fi 12 a100)
Loại này cho ra cái trần rất đẹp.
Nhưng rất tiếc là kg có giữ lại bản vẽ.
Thiết kế hay thi công loại sàn này cần chú ý phải bố trí thép mũ (gối) nghiêm chỉnh cho nó cho dù nhà sx có nói là "kg cần thiết và chỉ cần bố trí cấu tạo".
Thực tế có rất nhiều sàn sau quá trình sử dụng bị nứt rất nhiều tại các vị trí gối của sàn.
-
Là 1 bản vẽ mà kg đc sử dụng như 1 "bản vẽ",thì thà in trực tiếp từ cái bảng excel còn hơn. Đó là góp ý về phần công việc của Bác.
Với Bác Hoành thì việc bạn nhờ là kg khó, nhưng Bác phải đưa file excel và file cad tương ứng lên mới đc.
-
Đây mới là vấn đề của f501478965.Cái hình chữ nhật đứng có kích thước 14x36 vẽ trên cơ sở nào vậy các đồng chí?
Có thể hiểu theo hướng thường xảy ra nhất là tâm các hình chữ nhật nằm trên trục đối xứng.
Nhưng có vấn đề là hình chữ nhật lớn chẳng biết kích thước bao nhiêu 54*xx.
Nói chung thiếu thông số.
-
Cám ơn bác Nothien nha,Cái này em cũng mê đấy, đem dụ khị trẻ ..... lớn tốt ra phết. Em cũng có mày mò đọc mấy cuốn dạy gấp hình bằng giấy của mấy ông Nhật lùn (nó gọi là ki ki gì ấy em chả nhớ được), nhưng mà chưa thấy có cái hình của bác. Bác không giấu nghề thì chỉ cho em với.
Chào bác,
À, mà em thấy còn cả tài liệu dạy dựng mô hình bằng giấy nữa bác ạ, hay ra trò, chỉ hơi tốn thời gian thôi.
Mẫu này (phoenix 3.5) chưa có Diagram (hướng dẫn gấp) chính thức, nó được gấp từ CP thôi + hình chụp mẫu của tác giả.
Gấp từ CP là 1 việc khó. Không biết chỉ vẽ như thế nào nữa. Có thể đọc lại bài viết trước để biết gấp từ CP là như thế nào.
-
2
-
Chương trình Vẽ thép sàn và tạo bảng thống kê
trong Lập trình khác
Đã đăng · Trả lời báo cáo
Lâu ngày kg ghé qua, Đọc qua thấy các Bác tài năng quá, Mình kg theo kịp r. Hic.