tuannguyen314169
-
Số lượng nội dung
294 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
3
Bài đăng được đăng bởi tuannguyen314169
-
-
Mình đã sử dụng lisp udt của bác Nguyen Hoanh và cho kết quả theo mình là chính xác khi tính diện tích miền kín. Mình đã tìm hiểu thêm các lisp trong diễn đàn để tính tổng chu vi các miền kín ấy ( hay là tổng chiều dài các đoạn làm lên miền kín ấy ) tuy nhiên cho kết quả không khả quan. Mình đã sử dụng lệnh massprop để tính chu vi cho nhiều miền kín ( dạng region ) nhưng đôi khi gặp vấn đề khi có một số region không được nhận diện. mình sử dụng thêm lisp tg.lisp của bác Bommax để tính tổng chiều dài các đường tạo nên miền kín, tuy nhiên lại thể hiện kết quả không giống với khi sử dụng lệnh massprop ( lấy kết quả chu vi của miền kín ). Mình không rành về lisp nên không biết thuật toán của các bác có vấn đề gì không, mình thì đang rất cần tính chu vi của miền kín với kết quả chính xác nhất. Hi vọng được các bác giúp đỡ !
Chân thành cảm ơn !
Mình không hiểu bạn nói gì, vì vậy bạn cần post bản vẽ để mọi người tham khảo. Chứ nếu region không nhận được miền kín thì không phải là region/mass properties. Thank you
-
Chia đất!!!
trong AutoLisp
Lâu lắm không gặp ssg (Mai), có khỏe không? công việc thế nào? còn ở Nha trang không?. Mình bận việc nên lâu nay ít ghé thăm diễn đàn. See you agian
-
Các bác làm ơn hướng dẫn cụ thể cho em cắt cái đoạn màu đỏ lòi ra 1 tí xíu đó được không?Mình ứng biến mấy cái vụ này còn chậm chạp quá, mặc dù đã "subtract" và "slice".
Bác vẽ 3D qúa tuyệt rồi nhưng sao lại không cắt được. Tôi nghĩ bác nên dùng surface (mặt cong) để cắt theo các tọa độ mà bác đã vẽ. Chúc Bác thành công.
-
vẽ 1 đường thẳng cắt 2 đt song song hợp 1 góc 55 doVẽ 2 đường thẳng song song, sau đó vẽ 1 đường thẳng cắt 2 đường thẳng đó theo góc 55 độ. Nếu không vẽ được thì bó tay chấm com
-
Cảm ơn Bác bình và các Bác trên diễn đàn đã cho tôi mót được nhiều thứ. Thank you very much
-
Hề hề hề,Không phải đâu là không phải đâu bác tuannguyen314169 ạ.Thằng Insert nó cho scale theo cả ba phương đó mà là tỷ lệ mỗi phuong do bác tùy hứng bác à.
Bác làm thế này nhé:
1/- Bác tạo một block chứa cái thằng Solid của bác, nếu muốn bác nhét vài chục thằng vô đó cũng được bác ạ.
2/- Bác dùng lệnh Insert để insert cái thằng block vừa tạo vào bản vẽ. Khi Insert, nó hỏi bác
Specify insertion point or [scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]: Bác đừng chọn insert point ngay mà nhập x từ bàn phím. Sau đó Cad thong báo:
Specify X scale factor: Bác nhập giá trị tỷ lệ theo trục x. Lúc này Cad sẽ yêu cầu bác nhập điểm insert:
Specify insertion point: Bác đừng chọn điểm mà nhập tiếp y từ bàn phím và CAD sẽ thông báo:
Specify Y scale factor: Bác nhập vào tỷ lệ scale theo trục y. Khi đó CAD lại yêu cầu bác nhập điểm insert:
Specify insertion point: Bác nhập tiếp z thay vì nhập điểm insert point. Cad sẽ thông báo:
Specify Z scale factor: Bác nhập nốt tỷ lệ scale theo trục z . Lúc nay CAD sẽ yêu cầu bác nhập điểm insert:
Specify insertion point: Giờ thì bác yên tâm nhập vào cái điểm insert point mà bác muốn. Lúc này CAD sẽ yêu cầu bác nhập góc quay của block
Specify rotation angle <0>: Tùy ý thich của bác mà bác nhập cho nó một giá trị góc hay nhấn enter để chấp nhận giá trị mặc định là 0.
Và thế là bác có một (hay nhiều) thằng solid đã được scale theo các trục y như bác mong đợi. Có diều nếu bác muốn explode thằng cu này ra để sửa chữa thì ô hô ai tai lắm vì nó không chịu explode bác ạ.
Bác cứ thử vài thằng xem sao, có khi lại tìm ra cái hay hay của nó đó bác à
Chúc bác vui.
PS: Cám ơn lời chúc của bác, Dưng mà như vậy tốn thuốc nhuộm lắm bác à. Hề hề hề......
Cảm ơn Bác rất nhiều, tôi dùng lệnh scale sau đó select objects_specify base point _specify factor or [copy/reference] thì nó ra cả x,y,z và sau đó là bó tay.com may mà có Bác gợi ý để làm tiếp nhưng mình làm theo bác vẫn không thực hiện được. Như sau:
1/Tạo một block chứa cái thằng Solid như bác chỉ dẫn.
2/ Dùng lệnh insert thì nó ra cái bản insert * chư không theo bác chỉ dẫn nữa.
Không biết có phải do mình sử dụng cad 2008 nên không được chăng? hoặc có gì sai sót trong qu1a trình thao tác? Mong bác chỉ giáo. Cảm ơn. Lấn này thì chúc bác lấy tiền thuốc nhuộm anh em ta đi nhậu. khà khà..
*
-
Chào bác tuannguyen314169,Thực ra thì các bác trên diễn đàn có giúp mình tìm lại được cái lisp này rồi bác ạ. Mình cũng đã ngâm cứu nó thì thấy một số vấn đề như sau:
1/- Trông lisp thì nó rậm rì rắc rối vậy nhưng thực ra bản chất của nó chỉ là block cái cần scale lại rồi dùng insert để scale nó theo phương mình chọn mà thôi.
2/- Cái này dùng với 2D thì tốt vì sau khi insert lại explode nó ra để trả nó về các phần tử rời rạc bác ạ.
3/- Khi dùng với 3D, đặc biệt là mấy thằng solid 3D thì nảy sinh ra một việc là sau khi đã tạo block và insert rồi thì bí rị chả thể explode nó ra được nữa bác ạ. Trong khi ở solid thì bác có thể explode nó ra thành các bề mặt riêng rẽ. Đó chính là cái mà mình cũng chưa hiểu nguyên nhân vì sao. Do vậy nếu chỉ scale một phát mà không cần quan tâm tới việc chỉnh sửa tiếp theo thì có nhẽ sẽ giải quyết được bác ạ. Còn như sau khi scale bác lại muốn nắn bóp nó chút chút thì hơi gay. Mình cũng chưa có giải pháp nào khả dĩ. Có nhẽ phải chờ các bác khác rảnh rảnh giúp đỡ mới ăn thua.
Vậy nếu bác chấp nhận cái kiểu scale này thì bác có thể sử dụng ngay các lệnh của CAD để làm mà chả cần đến lisp làm chi cho nó thêm phần loằng ngoằng bác ạ. Cái lisp để làm như vậy có khi chả nhanh được hơn chút nào vì cũng phải bấy nhiêu thao tác bác ạ.
Chúc bác luôn vui khỏe và trẻ mãi không già......
Chào Bác Bình, rất vui được gặp lại Bác. Chỉ có thể sử dụng lisp thì mới có thể làm được việc này vì lệnh scale của CAD đối với 3D solid, chỉ scale một phát là nó ra cả x,y,z theo hệ số nhất định.
Chúc bác tóc luôn đen mãi. Khà khà..
-
Chào bác tuannguyen314169,Hề hề hề,
Bác có khỏe không mà sao cái lisp bác post lại bị ngắt đi một khúc đầu vậy, chả thấy cái (defun excute () ......) nó nằm đâu cả thì dò sao ra lỗi được hử bác????
Cái lisp này hình như của bác Duy viết thì phải, nó để scale theo một trục và hai trục thì phải, mình đọc lâu rồi nên cũng không nhớ rõ lắm.
Trong CAD thì các solid đều được hiểu là block nên khi bác xài hàm (tblnext "block") thì nó sẽ lôi cả các thằng solid này vào trong danh sách các block để nó trảm bác ạ.
Có nhẽ cái lisp này được viết không phải cho các đối tượng 3D và cần phải tìm hiểu kỹ hơn mới có thể chỉnh sửa nó được bác ạ. Và nếu bác Duy góp sức thì có thể sẽ gỡ nó nhanh hơn.
Bác hãy gửi lại đầy đủ cái lisp này bác nhé. Bây giờ kiếm nó cũng hơi lâu vì tuy biết là có trên diện đàn nhưng cái khoản tìm kiếm này mình hơi kém bác ạ.
Hề hề hề,....
Chào bác Bình. Chúc Bác khỏe; không có dịp vào TP.HCM để giao lưu gặp gỡ các Bác, nhưng mỗi lần gặp lại làm phiền các Bác. Thật ra tôi cũng đang cần cái lisp 3D solid để có thể Scan 3D solid theo các trục x,y,z như mong muốn nhưng khổ nỗi là chẳng biết gì về cái khoản lisp.
Mong Bác và các Bác trên diễn đàn giúp cho. Cảm ơn
Tôi post lại lisp cũ
;Scale the mot chieu
(DEFUN EXCUTE()
(setq oldvalue (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(princ "Chon doi tuong can scale: ")
(setq ss (ssget))
(setq P0 (getpoint "\nChon diem goc: "))
(initget 1 "X Y X S")
(setq C (getkword "\nScale theo [X,Y,Z,Scale]? :"))
(setq hs (getreal "Cho biet he so scale: "))
(DELBLOCK "vkc_temp")
(CREATEBLOCK ss P0)
(Command "-Insert" "vkc_temp" C hs P0 "")
(setq dt (entlast))
(Command "Explode" dt)
(setvar "CMDECHO" oldvalue)
(princ)
)
(DEFUN CREATEBLOCK(ss P)
(command "-Block" "vkc_temp" P ss "")
)
(DEFUN DELBLOCK (bname)
(if (IsExistBlock bname)
(Command "-Purge" "B" bname "Y" "Y")
)
)
(DEFUN IsExistBlock(bname / kq)
(setq kq Nil)
(setq n (length LiBlk))
(setq i 0)
(while (< i n)
(if (= bname (nth i LiBlk))
(progn
(setq i n)
(setq kq T)
)
)
(setq i (1+ i))
)
kq
)
(DEFUN CREALIBLK (/ NL)
(setq LiBlk (List))
(setq NL (tblnext "BLOCK" T))
(while NL
(setq LiBlk (append LiBlk (list (cdr (assoc 2 NL)))))
(setq NL (tblnext "BLOCK"))
)
(setq LiBlk (Acad_strlsort LiBlk))
)
(DEFUN C:XSCALE()
(CREALIBLK)
(EXCUTE)
)
(DEFUN C:XSC()
(CREALIBLK)
(EXCUTE)
)
(princ "\nfree lisp from www.cadviet.com")
(princ)
-
Chào các Bác và Bác Bình, mình mới mót được cái lisp trên diễn đàn để phục vụ cho công việc chuyên môn, trên 2D thì thực hiện được, nhưng không thực hiện được trên 3d với lý do sau:
-Thực hiện được trên solid chỉ đối với trục x còn các trục còn lại y,z không thực hiện được, mặc khác nó chuyển solid sang block
Mong các Bác chỉ giáo giúp. Thank you very much
(setq kq Nil)
(setq n (length LiBlk))
(setq i 0)
(while (< i n)
(if (= bname (nth i LiBlk))
(progn
(setq i n)
(setq kq T)
)
)
(setq i (1+ i))
)
kq
)
(DEFUN CREALIBLK (/ NL)
(setq LiBlk (List))
(setq NL (tblnext "BLOCK" T))
(while NL
(setq LiBlk (append LiBlk (list (cdr (assoc 2 NL)))))
(setq NL (tblnext "BLOCK"))
)
(setq LiBlk (Acad_strlsort LiBlk))
)
(DEFUN C:XSCALE()
(CREALIBLK)
(EXCUTE)
)
(DEFUN C:XSC()
(CREALIBLK)
(EXCUTE)
)
(princ "\nfree lisp from www.cadviet.com")
(princ)
-
Dùng bình thường mà bạn.Lệnh là xscCảm ơn Bác đã quan tâm, nhưng mình vẫn không làm được vì chỉ scan được với mỗi trục x trong 3D còn y,z không thực hiện được. Thank you very much.
-
Mình có mót được cái autolip này trên diễn đàn nhưng sao không dùng được. Mong các Bác chỉ giáo
;Scale the mot chieu
(DEFUN EXCUTE()
(setq oldvalue (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(princ "Chon doi tuong can scale: ")
(setq ss (ssget))
(setq P0 (getpoint "\nChon diem goc: "))
(initget 1 "X Y X S")
(setq C (getkword "\nScale theo [X,Y,Z,Scale]? :"))
(setq hs (getreal "Cho biet he so scale: "))
(DELBLOCK "vkc_temp")
(CREATEBLOCK ss P0)
(Command "-Insert" "vkc_temp" C hs P0 "")
(setq dt (entlast))
(Command "Explode" dt)
(setvar "CMDECHO" oldvalue)
(princ)
)
(DEFUN CREATEBLOCK(ss P)
(command "-Block" "vkc_temp" P ss "")
)
(DEFUN DELBLOCK (bname)
(if (IsExistBlock bname)
(Command "-Purge" "B" bname "Y" "Y")
)
)
(DEFUN IsExistBlock(bname / kq)
(setq kq Nil)
(setq n (length LiBlk))
(setq i 0)
(while (< i n)
(if (= bname (nth i LiBlk))
(progn
(setq i n)
(setq kq T)
)
)
(setq i (1+ i))
)
kq
)
(DEFUN CREALIBLK (/ NL)
(setq LiBlk (List))
(setq NL (tblnext "BLOCK" T))
(while NL
(setq LiBlk (append LiBlk (list (cdr (assoc 2 NL)))))
(setq NL (tblnext "BLOCK"))
)
(setq LiBlk (Acad_strlsort LiBlk))
)
(DEFUN C:XSCALE()
(CREALIBLK)
(EXCUTE)
)
(DEFUN C:XSC()
(CREALIBLK)
(EXCUTE)
)
(princ "\nfree lisp from www.cadviet.com")
(princ)
-
các bác ơi giúp em với nhá! khi em vẽ 3d xong em muốn cắt đi để biểu diên mặt cắt ấy em phải lam sao đay. ai giúp hộ em em cản ơn thật nhìu nhìu. mail em là: hauick3k4@gmail.comBác sử dụng lệnh Slice để cắt theo các mặt phẳng xy, yz, xz hoặc cắt theo 3 điểm hoặc cắt theo mặt cong ( mặt cong bạn phải vẽ sau đó chọn surface) và biểu diễn mặt cắt.
-
Không hiểu sao khi tôi mở 1 file bản vẽ ra,nếu nhìn bên Model thì không có vấn đề gì, nhưng nếu nhìn bên Layout thì tôi lại không thấy một số đối tượng text (nếu có chuyển text đó sang lớp khác thì bên Layout vẫn không nhìn thấy được).Tôi không biết sử lý tình huống này thế nào.
http://www.cadviet.com/upfiles/3/cad2.jpg
http://www.cadviet.com/upfiles/3/cad1.jpg
Chắc là lỗi chỉ ở máy tính của tôi thôi vì đây là bản vẽ mà bên thiết kế họ xuất bản, đã in ra và chuyển cả file cho Chủ đầu tư.
Rất mong có ai biết chỉ giúp tôi với.
Nếu được xin gửi hướng dẫn vào địa chỉ mail: trungthucsd10@gmail.com
Tôi xin cảm ơn và hậu tạ.
Bác có thể gởi bằng file cad để xem và phân tích. File ảnh khó có thể có ý kiến được.
-
em vẽ 1 chi tiét có kích thước rất lớn,em ddiền toàn bộ kích thước len chi tiết đấy,sau đó em thu nhỏ chi tiét và định đưa vào khung A4 nhưng các đưòng kích thước và số kích thước không thu nhỏ lại theo hình vè,vậy có cách nào làm cho đường và số kích thuwóc thủ nhở lại thèo bản vẽ đưọc không em cám ơn(dừng bảo em dùng cách phá khối,làm lâu lắmThường thì phóng to hay thu nhỏ các kích thước sẽ theo tỷ lệ tương ứng. Bác post bài lên xem.
-
Pha làm bàn duy nhất của Andres Iniesta trong quãng cuối hiệp phụ thứ hai giúp Tây Ban Nha giành chiến thắng 1-0 lịch sử trong trận chung kết nghẹt thở và kỳ lạ hôm qua :D . Một chiến thắng tôn vinh thêm lối bóng đá đẹp, cống hiến. Một lần nữa chúc mừng chiến thắng của Tây Ban Nha, chúc mừng những cổ động viên của những chú bò tót, ... :cheers:Tây Ban Nha trở thành tân vương World Cup
Xứ sở bò tót này sản sinh ra nhiều anh hùng hào kiệt thật. Giải Tenis cũng vô địch luôn (Nadal cây vợt số 1 thế giới)
-
1
-
-
Cố gắng lên thì được tất, chẳng có gì khi đâu, không biết thì hỏi.
-
Mình muốn thử 3D nhưng không biết cách chuyển từ các giao diện khác sang giao diện 3D nên không vọc được, nhờ các bạn chỉ dùm cách mở file trống 3D!Rất đơn giản, bạn tuân thủ theo những cách sau:
1/ Mua 1 cuốn sách autocad nói chung và 1 cuốn autocad chuyên về 3D nói riếng đọc thật kỹ nếu những gì không hiểu hoặc không rõ lên diễn đàn hỏi. Ở đây rất có nhiều người giúp bạn. Tục ngữ ca giao có nói "không thầy đó mày làm nên".
2/ Nếu có điều kiện thì nên học ở các khóa học chuyên về autocad.
3/ Nếu không có điều kiện thì bạn thường xuyên lên diễn đàn tra cứ hoặc hỏi các bạn. Nên nhớ rằng cần đọc sách hoặc tra cứu kỹ trước khi hỏi cho câu hỏi thật sự có chất lượng.
4/ Câu hỏi của bạn tôi xin trả lời bằng hình ảnh như sau:
-Bạn chọn 3D theo hình vẽ.
-Sau đó bạn chọn Qnew hao85c mở trang mới như trong word
-
-
Tình hình là em dựng 3d cho 1 trục đường. Sau khi tách layer và làm sạch file thi em chuyển qua SU mới phát hiện là một số đối tượng không đồng phẳng. Do trục đường này có vài nút giao thông khác cote mà file Cad em được giao thì đã bị khác cao độ rồi. Vậy làm cách nào chuyển hết các đối tượng về cùng một mặt phẳng .... Giúp em với ......Theo mình thì Bác nên sử dụng cách thủ công để kiểm chứng một số các kết qủa như 1 điểm có tọa độ là: A(x, y, z) khi đưa về mặt phẳng là A(x,y) với z=0, bác nên kiểm chứng một số tọa độ khi sử dụng lisp hoặc cách khác để biết chắc chắn rằng việc sử dụng cách nào là phù hợp. Một số ý kiến trao đổi để bác lựa chọn. Chúc bác thành công.
-
Ủng hộ Argentina vô địch!Hôm trước mua đồ ở Nguyễn Kim có nhận được 1 phiếu dự đoán Đội vô địch và tỷ số trận chung kết. :cheers:
Mình đoán Argentina và tỷ số là 1-0. Cầu trời trúng để nhận chiếc Limousin 3 tỷ nhể... :s_big:
Brazin vô địch, các Bác nghĩ sao?
Mua đồ ở Nguyễn Tuấn với tỷ số và số dự đoán 8 tỷ.
Mình mong được 8 tỷ.
Khà khà, ai biết được chuyện gì sẽ xãy ra, tỷ phú bất ngờ (nhà Phú mỹ hưng).
Hôm nay nghĩ một ngày worldcup!
-
Hề hề hề,Bác hoanghaivp ơi,
Thế còn bác, bác có “ngồi lặng lẽ bên cạnh ......., và mỉm cười một cách tinh quái.” không nhể???
Cái vụ WC ở trong này, chỉ có món bia là hơi hao thôi các bác ạ. Còn cái vụ sinh nở thì chắc teo tóp nhiều do 90% các quý ông đều bị mất sức chiến đấu sau những trận thức đêm và bia bọt ầm ĩ, các bác ạ.
Có nhẽ phải di cư sang Đức mà mần các bác ạ.......
Hề hề hề,......
Chào Bác ThanhBình, thấy Bác là thấy thanh Bình rồi. À cái vụ Worldcup và bia hôm thứ sáu vừa rồi có vui không? Bác có thễ dự đoán các đội nhất, nhì, ba, để làm trận chung kết cho hoành tráng nhỉ.
-
1
-
-
Lại lỗi font
trong Sử dụng AutoCAD
Em có bản vẽ này, không biết vì sao copy đủ thứ font mà vẫn ko đọc được hết, các bac giúp em với nhé. Thanks nhiều!Link download bản vẽ:
Mình chỉ sữa một số chỗ để Bác xem vì như các bạn có ý kiến đấy: vì không quản lý thống nhất nên sữa chữa tốn nhiều thời gian lúc thì dùng mtext lúc thì dtext và bảng mã khác nhau, nên tốt nhất là hỏi người trực tiếp làm ra nó.
-
Lại lỗi font
trong Sử dụng AutoCAD
Em có bản vẽ này, không biết vì sao copy đủ thứ font mà vẫn ko đọc được hết, các bac giúp em với nhé. Thanks nhiều!Link download bản vẽ:
Bác upload file.dwg thì mới có thể thử xem thế nào chứ.
-
* Danh sách đăng ký tham gia "BUỔI HỌP MẶT VUI CÙNG WORLD CUP (25/06/2010)" :
1. Phamthanhbinh
2. Vanduong (0937025526)
3. Soncad (0918 144003)
4. Miennui_tomo3d
5. Nemo2004
6. Leolas
7. Happy feet
8. Bạn Happy feet
9. kisimaquai2001
10. Tuan thietkedien
11. Cadviet244
12. nvtang85
13. Stressed out horse
14. Thangnhoc8888
15. A.Phố(Bạn Soncad)
16. A.An(Bạn Soncad)
17. A.Phục(Bạn Soncad)
18. Cường (Bạn Soncad)
19. Bạn Nemo
20. ............................
Và ở cuộc đối đầu giữa Mỹ và Algeria đêm qua, chính tiền vệ LA Galaxy đã ghi bàn thắng quý giá ở phút bù giờ mang về thắng lợi 1-0 cho Mỹ, kèm theo đó là ngôi đầu bảng. Có thể nói người Mỹ đang đóng phim Holywood tại Nam phi, không phải là phim hành động thót tim mà là bóng đá "thót tim" của những người hâm mộ bóng đá Mỹ, một lối chơi tích cực cho đến những phút bù giờ.
Chúc các Bác cadviet vui vẻ, mình không vào được các Bác thông cảm nhé.
Kiểm định cầu cảng
trong Xây dựng công trình
Đã đăng · Trả lời báo cáo
Chúng tôi cần kiểm định cầu cảng về sức bền và tải trọng cho cầu cảng vì đã qua nhiều năm sử dụng. Mong các bác chỉ giáo cho cơ quan, tổ chức nào? làm việc này để chúng tôi liên hệ. Cảm ơn.