dragontalon0802
-
Số lượng nội dung
98 -
Đã tham gia
-
Lần ghé thăm cuối
Bài đăng được đăng bởi dragontalon0802
-
-
Nhóm mình đang xây dựng 1 kênh Youtube về những công trình kiến trúc đẹp nhất thế giới, khi rảnh rỗi có thể vào xem và tìm ý tưởng cũng như cảm nhận về kiến trúc.
Sub và like giúp mình nhé. Thanks.
-
Thanks bạn :))) để mày mò đã rồi có gì không hiểu thì hỏi tiếp :))
-
Đầu tiên là mình đã google, xem clip trên youtube nhưng vẫn không hiểu được bản chất trong lúc mình cần nhiều những block như thế này.
Bác nào hướng dẫn giúp mình từng bước để có được kết quả như file này và thêm tính chất xoay 90 độ hoặc có tài liệu gì về block dynamic cụ thể và chi tiết thì nhờ share mình với.
Thanks vì đã đọc.
-
Ngày trước mình thích dùng cad 2007 nhất nhưng sau khi dùng 2010 thì dùng đến h luôn - ổn định, nhiều tính năng hơn 2007, nhẹ, các cad 2011 đến 2014 đã dùng qua nhưng ko thích chút nào, cũng có thể do ko quen.
Mà mình vẫn đổi giao diện 2010 về classic cho dễ dùng.
- 1
-
Không biết tại đầu óc mình đen tối hay tại cái tít nhạy cảm nhỉ?
"vùng kín của các đối tượng giao nhau"
-
Không khả quan lắm, ví dụ ở hình 2 đường thẳng số 1 nối với đường thẳng số 3 thì sao?
-
Chủ thớt là người đi nhờ vả mà ăn nói như thế thì đi chỗ khác mà nhờ nhé.
Các bác cho em hỏi em dùng lisp này để xuất toạ độ trong autocad nhưng muốn đưa bảng toạ độ đó ra excel hay word thì làm như thế nào nhỉ?
Và tiện thể cái lisp sau bị lỗi ngược toạ độ x với y, sau đó thứ tự mốc ko tự nhảy(em chọn mốc gốc là GT01 thì sau khi pic 100 điểm phải dùng lisp copy tăng dần để có GT02...GT100) có bác nào sửa giúp được ko?
Thank các bác trước.
: Ha Van Khanh 3/2003 ; ; * Chuong trinh duoc lap bang ngon ngu AUTOLISP. ; ------------------------------------------------------------------------------ (vmon) (defun C:bang (/ 1x 1y a1 2x 2y a2 3x 3y a3 b p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16x p16y p16 p17x p17y p17) (setvar "cmdecho" 0) (initget 7) (setq osm (getvar "osmode" )) (setvar "osmode" 0) (command "-Style" "hoatbif" "hoatbif " "2.5" "" "" "" "" "") (command "-Layer" "n" "Text" "c" "4" "Text" "") (setq p1 (getpoint "\nChän diÓm dÆt b¶ng thèng kª :")) (setq S (getint "\nSè ®iÓm cÇn tƯnh to¹ ®é :")) (setq p2 (polar p1 (/ (* Pi 3) 2) (+ 16 (* 8 S)))) (setq p3 (polar p2 0 91)) (setq p4 (polar p1 0 91)) (setq p5 (polar p1 0 21)) (setq p6 (polar p2 0 21)) (setq p7 (polar p5 0 35)) (setq p8 (polar p6 0 35)) (setq p9 (polar p5 (/ (* Pi 3) 2) 8)) (setq p10 (polar p4 (/ (* Pi 3) 2) 8)) (setq p12 (polar p9 0 35)) (setq p11 (polar p9 0 -10.5)) (setq p13 (polar p1 (/ (* Pi 3) 2) 16)) (setq p14 (polar p4 (/ (* Pi 3) 2) 16)) (setq p15 (polar p7 (/ (* pi 3 ) 2) 4)) (setq p16x (/ (+ (car p5) (car p7)) 2)) (setq p16y (/ (+ (cadr p9) (cadr p13)) 2)) (setq p17x (/ (+ (car p4) (car p7)) 2)) (setq p17y (/ (+ (cadr p9) (cadr p13)) 2)) (setq p16 (list p16x p16y)) (setq p17 (list p17x p17y)) (command "Plinewid" "0.5") (command "Pline" p1 p2 p3 p4 p1 "") (command "Line" p5 p6 "") (command "Line" p12 p8 "") (command "Line" p9 p10 "") (command "Line" p13 p14 "") (command "Array" "l" "" "Rec" S "1" "-8") (command "text" "j" "mc" p11 "0" "Tªn nót" ) (command "text" "j" "mc" p15 "0" "To¹ ®é" ) (command "text" "j" "mc" p16 "0" "X" ) (command "text" "j" "mc" p17 "0" "Y" ) (setvar "osmode" 1) ;------------------------------------------------- ; PhÇn sö lư ch÷ (setq b 0) (while (< b s ) (setq b (+ b 1)) (setq td (getstring "\NhËp tªn ®iÓm lÊy to¹ dé : ")) (setq tp (getpoint "\Chän ®iÓm : ")) (setq tx (rtos (car tp) 2 4 )) (setq ty (rtos (cadr tp) 2 4 )) (setq 1x (/ (+ (car p1) (car p5)) 2)) (setq 1y (- (- (cadr p11) 4) (* 8 b))) (setq a1 (list 1x 1y)) (setq 2x (/ (+ (car p5) (car p7)) 2)) (setq 2y (- (cadr p16) (* 8 b))) (setq a2 (list 2x 2y)) (setq 3x (/ (+(car p7) (car p4)) 2)) (setq 3y (- (cadr p17) (* 8 b))) (setq a3 (list 3x 3y)) (command "text" "j" "mc" a1 "0" td "" ) (command "text" "j" "mc" a3 "0" tx "" ) (command "text" "j" "mc" a2 "0" ty "" ) ) )
-
Bạn có thể tham khảo lisp mình đã từng nhờ bác Hà viết. Google "nhờ viết lisp khung tên dragontalon0802" là ra. Diễn đàn lỗi nên ko chèn link được.
-
Hiện nay nhiều người dùng cad thường sử dụng layout vì lợi thế hơn hẳn trong trình bày và bố cục bản vẽ, nhưng cái này gây khó khăn cho những người ko biết và quản lý bản vẽ cũng khá phức tạp. Mình có ý tưởng lisp trình bày bản vẽ như file đính kèm, nếu lisp này thực hiện được sẽ giúp ích rất nhiều trong khâu trình bày và bố cục bản vẽ kể cả những người lâu năm trong nghề, rút ngắn thời gian.
Các yêu cầu và thao tác mình ghi rõ trong file cad đính kèm, khá dài dòng và cũng phức tạp nên có lẽ tốn nhiều công sức của anh em, nhưng làm được thì sẽ lợi thế rất lớn trong việc thống nhất cách vẽ cad của rất nhiều người, thuận lợi trong việc bố cục bản vẽ cũng như có 1 bản vẽ đẹp, từ đó xây dựng tiêu chuẩn bản vẽ theo cadviet cũng như khẳng định thương hiệu của cadviet
Mô tả ý tưởng:
- Có 1 hình cần bố cục trong khung tỷ lệ 1/67 là đẹp nhất (tỷ lệ 67 là ví dụ chứ ko mấy ai dùng)
- Chọn khung bản vẽ chuẩn và các đối tượng dim, text, hatch, block ký hiệu ở tỷ lê 1:1, khung tên phải là block
- Quét qua khung tên tỷ lệ 1/67, các thông số của các đối tượng dim, text, hatch, block sẽ thay đổi phù hợp với khung 1:67
Có nghĩa là khi in ra thì mọi thứ liên quan đến trình bày ở khung 1:67 và khung 1:1 y như nhau.
Vì lisp này sẽ rất tốn nhiều thời gian và công sức của người viết và mình ko dám nhờ bỏ từng ấy công sức ra chỉ để mỗi mình dùng mà muốn xây dựng 1 tiêu chuẩn trình bày mang thương hiệu cadviet nên rất cần sự nhiệt huyết của mọi người.
Thanks....
http://www.mediafire.com/download/y5im09v79vjyp4v/Nho_viet_lisp.dwg
Mình up mãi lên cadviet mà ko được nên up lên mediafire
-
Bạn cứ nói thẳng là bạn có bao nhiêu tiền để sửa nhà, định làm như thế nào, ở đâu.
-
Mình xài em này thấy chưa bao h hối hận
http://www.laptopcali.com/sanpham/chitiet/351-HP-EliteBook-8460p-SP319UPABA.htm#.UgDKn9K8Dk8
-
Nhà bạn đẹp thật đấy. Đẹp nhất trong những cái nhà mình được xem.
- 2
- 1
-
Quá chuẩn, thanks bác Hà nhiều. Hy vọng nhiều người thấy hữu ích với lisp này.
-
Khung tên có nhiều att làm sao mà đếm được bạn @@
-
Em up lên photobucket mà mãi ko được bác à. Bác chờ tý em up sau.
Ảnh vẫn ko up được các bác ạ, chịu khó download file ví dụ vậy ạ.
https://www.dropbox.com/s/f9bioe0schls85z/yeu%20cau%20lisp.dwg
-
Vẽ kiến trúc nhiều khi thêm bớt 1 bản vẽ phải đánh lại số thứ tự 1 phần rất khó quản lý. Ý tưởng mình đưa ra nhằm tiện lợi cho anh em kiến trúc cũng như kết cấu nên mong bác nào bỏ time nghiên cứu.
- Thường block khung tên sẽ có block att ở chỗ "tên bản vẽ" và "ký hiệu" và sẽ có các block khung cho các hạng mục khác nhau.
- Ý tưởng hoạt động lisp:
1. chọn 1 block khung cần đánh số thứ tự
2. chọn att (thuộc block đã chọn) ghi ký hiệu bản vẽ (ví dụ: CT-03)
3. kích vào block khung tiếp theo (các block khung này phải trùng tên với nhau) thì ở vị trí ký hiệu là bất kỳ cái gì nó cũng chuyển thành dạng tiếp theo của block mẫu (ví dụ KT-05 sẽ được đổi thành CT-04)
Thanks các bác đã quan tâm.
-
Không thì dùng lệnh nhé
"wscurrent" enter
"autocad classic" enter
-
Lisp bác Hà hay tuyệt, tuy nhiên nếu có thể chọn 1 lúc nhiều đối tượng block bằng cách quét chuột chứ ko phải chọn từng cái thì nó sẽ lợi hại hơn nhiều bác à.
Hy vọng bác dành ít thời gian cải tiến cho mọi người có lisp hay để dùng.
-
Hay, tối về mò đã. Thanks bác.
-
Hay quá, cảm ơn các bác.
-
Em tạo 1 block "ngoi" rồi dùng lệnh support để tạo hatch.
Vấn đề muốn lưu mẫu hatch đó vào trong autocad\support\ngoi.pat để lần sau sử dụng tiếp thì như thế nào ạ.
Thanks các bác.
-
Thanks mọi người.
-
Bình thường mình chỉ lên ý, hôm nay có người nhà nhờ làm cấp phép nên mới làm.
Không hiểu nó vòi tiền hay sao mà lên cứ bảo thiếu này thiếu nọ các bác ạ.
Xin 1 bản rồi làm theo cho chắc chứ mỗi lần lên lại về bổ sung mệt quá.
Thanks cả nhà - một ngày vui vẻ.
-
Nên làm tầng 1 trước rồi xây sau.
Xây nhà cấp 4 cho tử tế để ở h cũng tốn kha khá, mà cũng ko biết định ở nhà cấp 4 đến bao h nữa.
Làm ngay cái móng rồi xây 1 tầng để ở cho vợ con đỡ khổ đã.
Nhờ giúp đỡ sửa lỗi chuột trong autocad
trong Sử dụng AutoCAD
Đã đăng · Trả lời báo cáo
Tình hình cad mình bị lỗi như sau, đã gỡ ra cài lại nhưng không hết. Cad như này khi vẽ bị lag và zoom rất chậm. Không phải do chuyển sang 3d (nhìn trục tọa độ x,y vẫn ngon). Xin mọi người hướng dẫn cách xử lý vì hiện tại đang hết cách. Cảm ơn mọi người đã đọc.