Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Hoa Trang trắng

Vẽ điểm từ tọa độ có sẵn

Các bài được khuyến nghị

fbh81    10
Bạn muốn từ xuất từ Excel qua CAD với các thông số này

Không biết Tue_NV hiểu như vầy có đúng ý của bạn không?

 

Đúng rồi bác ah. Tuần tự các bước của em như sau:

 

- Nhập dữ liệu diện tích lô đất và diện tích xây dựng vào block att trong cad

- Xuất sang cel qua lệnh eattext

- Tính toán các dữ liệu còn lại ( mật độ XD, dt sàn, he só sử dụng đát) bằng excel

- Xuất trở lại CAD dưới dạng các block (đã đc điền đầy đủ các dữ liệu tính toán trong cel) sao cho các block này trở lạiđúng vị trí của các block att tương ứng

 

Bác xem có thể làm đc ko?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
congzui    3
Bạn thêm cột "Ghi chú", hoặc "Diễn giải", hoặc "Cách tính", v.v...

nhưng làm sao cho nó hiển thị. Ý định muốn ghi chú một cái bảng thể hiện thông tin số liệu nhưng không biết dùng lệnh gì. Anh giúp em nhé

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duongsatdn    762
nhưng làm sao cho nó hiển thị. Ý định muốn ghi chú một cái bảng thể hiện thông tin số liệu nhưng không biết dùng lệnh gì. Anh giúp em nhé

Vẫn chưa hiểu ý của bạn. Bạn cho một ví dụ cụ thể được không?

Hơn nữa, bạn đang thảo luận một vấn đề khác với chủ đề của topic này. Bạn nên mở một topic khác, không nên chen ngang như vậy!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
congzui    3
Vẫn chưa hiểu ý của bạn. Bạn cho một ví dụ cụ thể được không?

Ví dụ nhé: trong file CAD vẽ tất cả các hình phân lô đất, đường sá, phân lô chức năng. Nhưng nó chỉ thể hiện trên bảng vẽ. Vậy để cho người đọc họ không cần nhìn kĩ bảng vẽ mà người ta rê chuột đến nơi mình ghi thể hiện bằng bảng (table) trong đó có ghi những lô đất mỗi lô đất có diện tích bao nhiêu, tên đường có chiều dài bao nhiêu,...

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
congzui    3

Anh muốn xem hình cho dễ hinh dung không?

Em gởi hinh qua cho anh xem nhé.

link đây: http://www.cadviet.com/upfiles/2/tong_mb_s...000__220709.rar

Ở trong cái file này đó anh, muốn thể hiện cái bảng cân bằng đất đai thì phải làm sao:

Trong đó có phần diện tích có cách nào để thể hiện con số đó chính xác theo hinh không.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
trinhvqh    222
Anh muốn xem hình cho dễ hinh dung không?

Em gởi hinh qua cho anh xem nhé.

link đây: http://www.cadviet.com/upfiles/2/tong_mb_s...000__220709.rar

Ở trong cái file này đó anh, muốn thể hiện cái bảng cân bằng đất đai thì phải làm sao:

Trong đó có phần diện tích có cách nào để thể hiện con số đó chính xác theo hinh không.

 

Chào congzui!

Tôi đã xem qua bản vẽ của bạn

...................

Có một số lưu ý như sau:

1 đơn vị = 1m (quy hoạch)

1 đơn vị = 1 mm (công trình)

Ở đây là quy hoạch chi tiết 1/2000 nên thông tin lô đất phải chi tiết hơn

Các đường phân khu của bạn chưa thể hiện đúng quan điểm

Phân loại đất: bạn nên tham khảo thêm Luật Đất đai (sẽ bàn sau)

 

Nếu bạn dùng CAD thì việc xuất table là bó tay và cũng đừng kỳ vọng nhiều vào Autolisp

Ở đây tôi dùng ACA để lập Schedule cho bạn

Nếu muốn tìm hiểu hãy xem các bài viết của tôi về Autocad Architecture 2009

Nhưng đây cũng chẳng phải phần mềm dành cho quy hoạch đâu

Nếu bạn muốn thể hiện quy hoạch chuyên nghiệp nên sử dụng Autodesk Land Desktop hoặc Autocad Map 3D

 

Chúc buổi chiều vui vẻ!

 

http://www.cadviet.com/upfiles/2/qh.rar

(Chờ load file tí nữa post video cho bạn nhé)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
congzui    3

Cảm ơn cậu trinhvqh rất nhiều. Rất vui khi nhận được sự chia sẽ của cậu.

Xin lỗi bà con trong topic này nhé, thấy bà con trong topic này thảo luận sôi nổi quá mà wen mất tiêu. Hì

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
gia_bach    1.442
..........................

Nếu bạn dùng CAD thì việc xuất table là bó tay và cũng đừng kỳ vọng nhiều vào Autolisp

.................

Có thể là Autocad Architecture phù hợp với công việc của bạn.

 

nhưng nói như thế thì chưa chính xác đâu!

 

Còn nữa nếu bạn (cty) phải bỏ tiền mua phần mềm có bản quyền thì việc quyết định sử dụng thêm Software khác sẽ khó khăn hơn.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
trinhvqh    222
Có thể là Autocad Architecture phù hợp với công việc của bạn.

 

nhưng nói như thế thì chưa chính xác đâu!

 

Còn nữa nếu bạn (cty) phải bỏ tiền mua phần mềm có bản quyền thì việc quyết định sử dụng thêm Software khác sẽ khó khăn hơn.

 

Bạn gia-bach lại dùng chiêu của VTV chơi mình rồi

(Tách câu nói ra khỏi ngữ cảnh để suy xét)

:cheers:

 

Rất vui vì có người suy xét như thế!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
gia_bach    1.442
...... chiêu của VTV ..........

Bạn nghĩ vậy sao ? (Tui đang chơi bạn !) :cheers:

Bạn đang nghĩ tốt cho nguời xấu rồi. :D

Tui cũng dị ứng với chiêu của VTV (chắc bạn nói chiêu VTV sử dung cách đây khoảng 1 năm)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ducboss    1

xin chào mọi người! đọc topic này hay quá. Có những người như các bạn chắc sẽ có nhiều người tốt lên.

Rất hữu ích. Thanks!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Phiphi-    175
Đầu tiên, bạn phải đảm bảo rằng các dòng trong Excel phải không có khoảng trắng

Tại ô E2 : gõ công thức :

=CONCATENATE("(Command ";"""text""";" ";"""";B2;",";C2;",";0;"""";" ";"""0.5""";" ";"""""";" ";"""";A2;"""";")")

Sao chép công thức cho các ô còn lại (từ E2 -> E308)

 

Cách sử dụng :

Sau đó trong Excel -> Chọn ô E2 -> E308 -> Nhấn Ctrol+C -> Qua Cad nháy chuột vào dòng Command -> Nhấn Ctrol+V

 

Đây là file excel upload cho bạn : http://www.cadviet.com/upfiles/aa_1.xls

 

Còn đây là file .dwg đã chuyển tên qua : http://www.cadviet.com/upfiles/khaosat_1.dwg

 

:cheers:

Cách như trên của Tue_NV rất hay. cả ngày hôm nay PP áp dụng kiểu trên và thấy làm được khá nhiều việc. Tuy nhiên khi sử dụng Excel 2007 thì hơi bị vất vã khi gõ công thức trong đó cần có nhập lệnh "Enter".

Bác Tue_NV có thể share tài liệu (nếu có) mà chuyên nói về các biến cần thiết khi gõ công thức được không?

Có thể nào chúng ta dùng cách chỉ đánh các biến vào từng cell rồi save thành file dạng text. Sau đó dùng LISP để RUN các dòng lệnh từ file Text đó (không phải dùng SCRIPT). Liệu idea này có khả năng thực hiện vậy không các Bác?

Thanks you.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Tue_NV    3.841
Cách như trên của Tue_NV rất hay. cả ngày hôm nay PP áp dụng kiểu trên và thấy làm được khá nhiều việc. Tuy nhiên khi sử dụng Excel 2007 thì hơi bị vất vã khi gõ công thức trong đó cần có nhập lệnh "Enter".

Bác Tue_NV có thể share tài liệu (nếu có) mà chuyên nói về các biến cần thiết khi gõ công thức được không?

Có thể nào chúng ta dùng cách chỉ đánh các biến vào từng cell rồi save thành file dạng text. Sau đó dùng LISP để RUN các dòng lệnh từ file Text đó (không phải dùng SCRIPT). Liệu idea này có khả năng thực hiện vậy không các Bác?

Thanks you.

Chào Phi phi

Bạn có thể vào Insert-> function trong excel để đánh công thức.

Còn "đánh các biến vào từng cell rồi save thành file dạng text" -> là file .txt phải không bạn?

 

Tue_NV có thể chưa rõ ý của Phiphi. PP làm ơn nói rõ

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Phiphi-    175
Chào Phi phi

Bạn có thể vào Insert-> function trong excel để đánh công thức.

Còn "đánh các biến vào từng cell rồi save thành file dạng text" -> là file .txt phải không bạn?

 

Tue_NV có thể chưa rõ ý của Phiphi. PP làm ơn nói rõ

Thanks Tue_NV, file Exel dưới đây PP mới độ lại. Chì cần bôi đen các dòng lệnh, click 1 cái thì sẽ có trong AutoCAD liền. Giờ không cần phải Copy+Paste hoặc xuất sang file Txt nữa.

Tue_NV thử xem ntn nhé. Cheers.

http://www.cadviet.com/upfiles/2/xuat_command.zip

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Tue_NV    3.841
Thanks Tue_NV, file Exell dưới đây PP mới độ lại. Chì cần bôi đen các dòng lệnh, click 1 cái thì sẽ có trong AutoCAD liền. Giờ không cần phải Copy+Paste hoặc xuất sang file Txt nữa.

Tue_NV thử xem ntn nhé. Cheers.

http://www.cadviet.com/upfiles/2/xuat_command.zip

Bài toán này thực ra anh gia_bach đã giải rồi.

Khỏi cần thiết lập công thức, khỏi cần bôi đen

-> đánh lệnh 1 cái -> có có trong AutoCAD liền. khỏi cần phải Copy+Paste hoặc xuất sang file Txt nữa

 

Phi phi có thể xem ở đây :

Lisp doc du lieu tu Excel

 

http://www.cadviet.com/forum/index.php?sho...amp;#entry85679

Nếu có am hiểu 1 chút code, Phiphi có thể chỉnh lại cho phù hợp với ý của mình

Nếu trong quá trình làm chưa được, Phi phi hãy post lên đây. Mọi người sẽ giúp cho bạn

Chúc vui.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Phiphi-    175
Bài toán này thực ra anh gia_bach đã giải rồi.

Khỏi cần thiết lập công thức, khỏi cần bôi đen

-> đánh lệnh 1 cái -> có có trong AutoCAD liền. khỏi cần phải Copy+Paste hoặc xuất sang file Txt nữa

 

Phi phi có thể xem ở đây :

Lisp doc du lieu tu Excel

 

http://www.cadviet.com/forum/index.php?sho...amp;#entry85679

Nếu có am hiểu 1 chút code, Phiphi có thể chỉnh lại cho phù hợp với ý của mình

Nếu trong quá trình làm chưa được, Phi phi hãy post lên đây. Mọi người sẽ giúp cho bạn

Chúc vui.

PP có thử qua rồi, tuy rất hay nhưng chưa biết có thể đọc và vẽ được các chi tiết như kiểu mà Tue_NV đã hướng dẩn.

Dưới đây là các đoạn code PP vừa thực hiện:

(command "layer" "m" "Ps_Solid" "c" "1" "" "")
(command "color" "7")
circle -45,-37 D 17.5
circle -19,-92 D 17.5
circle -145,-152 D 17.5
circle -105,-152 D 17.5
circle -20,-154 D 17.5
circle -20,-214 D 17.5
circle -100,-232 D 17.5
circle -129,-260 D 17.5
circle -20,-264 D 17.5
(command "color" "bylayer")
(command "layer" "m" "Text35" "c" "2" "" "")
(Command "text" "J" "BL" "306,-493,0" "18" "90" "THK")
(Command "text" "J" "BL" "324,-527,0" "18" "90" "10")
(Command "text" "J" "BL" "374,-493,0" "18" "90" "WIDTH")
(Command "text" "J" "BL" "390,-527,0" "18" "90" "342")
(Command "text" "J" "BL" "254,-560,0" "18" "90" "GRADE")
(Command "text" "J" "BL" "390,-560,0" "18" "90" "250")
(Command "text" "J" "BL" "254,-592,0" "18" "90" "LENGTH")
(Command "text" "J" "BL" "390,-592,0" "18" "90" "290")
(Command "text" "J" "BL" "286,-625,0" "18" "90" "A1-H-131970-86")
(Command "text" "J" "BL" "254,-527,0" "18" "90" "PL")
(Command "text" "J" "BL" "254,-460,0" "18" "90" "MEMBER DESCRIPTION")
(command "color" "4")
(Command "text" "J" "MC" "-430,-571,0" "35" "90" "40")
(command "color" "1")
circle -430,-571 D 120
(command "color" "1")
rectang 249,-430 489,-596
rectang 249,-596 489,-630
(command "Layer" "set" "Ps_Solid" "")
(command "color" "7")
circle 62,-26 D 17.5
circle 115,-83 D 17.5
circle 79,-102 D 17.5
circle 92,-196 D 22
circle 139,-213 D 22
(command "color" "1")
(command "pline" "-171,-285" "-171,-122" "-106,0" "97,0" "171,-87" "171,-268" "28,-290" "-163,-290" "-171,-285" "")
(command "color" "8")
(command "pline" "-106,0" "-171,0" "-171,-122" "")
(command "pline" "-171,-285" "-171,-290" "-163,-290" "")
(command "pline" "97,0" "171,0" "171,-87" "")
(command "pline" "171,-268" "171,-290" "28,-290" "")
(command "color" "bylayer")
(command "Layer" "set" "Text35" "")
(Command "text" "J" "BC" "-138.5,0,0" "18" "90" "65")
(Command "text" "J" "BC" "-171,-61,0" "18" "0" "122")
(Command "text" "J" "BC" "-171,-287.5,0" "18" "0" "5")
(Command "text" "J" "TC" "-167,-295,0" "18" "90" "8")
(Command "text" "J" "BC" "134,0,0" "18" "90" "74")
(Command "text" "J" "TC" "176,-43.5,0" "18" "0" "87")
(Command "text" "J" "TC" "176,-279,0" "18" "0" "22")
(Command "text" "J" "TC" "99.5,-295,0" "18" "90" "143")
(command)

Khi copy các đoạn code trên, bỏ vào cột A rồi bôi đen tất cả, click vào nút lệnh Xuat sang ACAD thì sẽ thấy liền hình vẽ (Nhớ mở AutoCAD trước, tắt Snap)

PP Nhờ các bác giúp thêm vào file Excel dưới đây 3 nút lệnh nữa và chỉ định rõ các Cell sẽ được chọn sẳn như sau:

+ Lệnh "Option 1" chọn cell A3:A50

+ Lệnh "Option 2" chọn cell B3:B50

+ Lệnh "Option 3" chọn cell C3:C50

+ Lệnh "Option 4" chọn cell D3:D50

Làm như trên để khỏi phải lập lại thao tác select các Cell nữa.

Trong file này chỉ có 1 nút lệnh Xuat sang ACAD

Cám ơn Bác nhiều.

 

http://www.cadviet.com/upfiles/2/xuat_command.zip

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Tue_NV    3.841
PP có thử qua rồi, tuy rất hay nhưng chưa biết có thể đọc và vẽ được các chi tiết như kiểu mà Tue_NV đã hướng dẩn.

Dưới đây là các đoạn code PP vừa thực hiện:

(command "layer" "m" "Ps_Solid" "c" "1" "" "")
(command "color" "7")
circle -45,-37 D 17.5
circle -19,-92 D 17.5
circle -145,-152 D 17.5
circle -105,-152 D 17.5
circle -20,-154 D 17.5
circle -20,-214 D 17.5
circle -100,-232 D 17.5
circle -129,-260 D 17.5
circle -20,-264 D 17.5
(command "color" "bylayer")
(command "layer" "m" "Text35" "c" "2" "" "")
(Command "text" "J" "BL" "306,-493,0" "18" "90" "THK")
(Command "text" "J" "BL" "324,-527,0" "18" "90" "10")
(Command "text" "J" "BL" "374,-493,0" "18" "90" "WIDTH")
(Command "text" "J" "BL" "390,-527,0" "18" "90" "342")
(Command "text" "J" "BL" "254,-560,0" "18" "90" "GRADE")
(Command "text" "J" "BL" "390,-560,0" "18" "90" "250")
(Command "text" "J" "BL" "254,-592,0" "18" "90" "LENGTH")
(Command "text" "J" "BL" "390,-592,0" "18" "90" "290")
(Command "text" "J" "BL" "286,-625,0" "18" "90" "A1-H-131970-86")
(Command "text" "J" "BL" "254,-527,0" "18" "90" "PL")
(Command "text" "J" "BL" "254,-460,0" "18" "90" "MEMBER DESCRIPTION")
(command "color" "4")
(Command "text" "J" "MC" "-430,-571,0" "35" "90" "40")
(command "color" "1")
circle -430,-571 D 120
(command "color" "1")
rectang 249,-430 489,-596
rectang 249,-596 489,-630
(command "Layer" "set" "Ps_Solid" "")
(command "color" "7")
circle 62,-26 D 17.5
circle 115,-83 D 17.5
circle 79,-102 D 17.5
circle 92,-196 D 22
circle 139,-213 D 22
(command "color" "bylayer")
(command "color" "8")
(command "pline" "-171,-285" "-171,-122" "-106,0" "97,0" "171,-87" "171,-268" "28,-290" "-163,-290" "-171,-285" "")
(command "Layer" "set" "Ps_Midline" "")
(command "pline" "-106,0" "-171,0" "-171,-122" "")
(command "pline" "-171,-285" "-171,-290" "-163,-290" "")
(command "pline" "97,0" "171,0" "171,-87" "")
(command "pline" "171,-268" "171,-290" "28,-290" "")
(command "color" "bylayer")
(command "Layer" "set" "Text35" "")
(Command "text" "J" "BC" "-138.5,0,0" "18" "90" "65")
(Command "text" "J" "BC" "-171,-61,0" "18" "0" "122")
(Command "text" "J" "BC" "-171,-287.5,0" "18" "0" "5")
(Command "text" "J" "TC" "-167,-295,0" "18" "90" "8")
(Command "text" "J" "BC" "134,0,0" "18" "90" "74")
(Command "text" "J" "TC" "176,-43.5,0" "18" "0" "87")
(Command "text" "J" "TC" "176,-279,0" "18" "0" "22")
(Command "text" "J" "TC" "99.5,-295,0" "18" "90" "143")
(command)

Khi bỏ các đoạn vào cột A rồi bôi đen tất cả, click vào nút lệnh Xuat sang ACAD thì sẽ thấy liền hình vẽ (Nhớ mở AutoCAD trước, tắt Snap)

PP Nhờ các bác giúp thêm vào file Excel dưới đây 3 nút lệnh nữa và chỉ định rõ các Cell sẽ được chọn sẳn như sau:

+ Lệnh "Option 1" chọn cell A3:A50

+ Lệnh "Option 2" chọn cell B3:B50

+ Lệnh "Option 3" chọn cell C3:C50

+ Lệnh "Option 4" chọn cell D3:D50

Làm như trên để khỏi phải lập lại thao tác select các Cell nữa.

Trong file này chỉ có 1 nút lệnh Xuat sang ACAD

Cám ơn Bác nhiều.

http://www.cadviet.com/upfiles/2/xuat_command.zip

Không hiểu ý của Phi phi

Khi bỏ các đoạn vào cột A rồi bôi đen tất cả, -> đoạn nào vậy ???

 

PP Nhờ các bác giúp thêm vào file Excel dưới đây 3 nút lệnh nữa và chỉ định rõ các Cell sẽ được chọn sẳn như sau:

+ Lệnh "Option 1" chọn cell A3:A50

+ Lệnh "Option 2" chọn cell B3:B50

+ Lệnh "Option 3" chọn cell C3:C50

+ Lệnh "Option 4" chọn cell D3:D50

 

-> File Excel của Phiphi upload dữ liệu đâu có tới hàng 50. Phiphi định xuất cái gì vậy? Không hiểu được

Nếu xuất Text thì cột A phải chăng là cột Text. Cột B; C; D : phải chăng là tọa độ X; Y; Z của Text

Hoàn toàn không hiểu ý của Phi phi. Chọn Cell B3:B50 ; rồi C3:C50 rồi D3 :D50 để làm gì vậy????

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Phiphi-    175

Sorry Tue_NV, lúc nãy PP ở cty post bài mà máy bị trouble hoài nên không nói rõ vấn đề được.

File Excel dưới đây đã được PP copy đoạn code trên rồi bỏ vào cột A, bây giờ Tue_NV bôi đen từ cell A3 đến cell A58 (hoặc hơn vẫn OK) rồi click vào nút lệnh Xuat sang ACAD

Nếu Bác đang xài AutoCAD 2007-2008 thì sẽ thấy bản vẽ liền. nhưng nếu xài version 2006 hoặc 2009-2010 thì phải sửa lại trong file Excel như sau:

+ Ở Excel, bấm Alt+F11 để vào Visual Basic Editor, chọn Tools>Reference>tích vao box AutoCAD xxxx Type Library>OK>SAVE. (xxxx=2006 hoặc 2010)

+ Sau đó bôi đen cell A3:A8 rồi click vào nút lệnh Xuat sang ACAD

Tương tự như trên, nếu trong các cột B, C, D... mà có sẳn các dòng lệnh thì cứ bôi đen và click vào nút lệnh để vẽ tiếp.

Nhưng nếu file Excel này được set up thêm vài (chục) nút lệnh cho mổi cột và trong Code VBA đặt sẳn selection các cell (thí dụ từ cell A3:A60...) thì chúng ta cứ việc click vào nút lệnh của từng cột, khỏi phải bôi đen nữa.

http://www.cadviet.com/upfiles/2/xuat_comm...ad_20072008.rar

P/S: Có thể text trong file CAD sẽ bị xoay 90 độ. Tue_NV cho biết đánh lệnh nào để sửa lại BIẾN text này không.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Phiphi-    175
Không hiểu ý của Phi phi

...

File Excel của Phiphi upload dữ liệu đâu có tới hàng 50[/b]. Phiphi định xuất cái gì vậy? Không hiểu được

Nếu xuất Text thì cột A phải chăng là cột Text. Cột B; C; D : phải chăng là tọa độ X; Y; Z của Text

Hoàn toàn không hiểu ý của Phi phi. Chọn Cell B3:B50 ; rồi C3:C50 rồi D3 :D50 để làm gì vậy????

Bình thường theo hướng dẩn của Tue_NV, hãy copy các đoạn code trên rồi paste vào dòng Command cùa AutoCAD. Tue_NV sẽ biết liền.

Vấn đề là PP muốn dùng nút lệnh của VBA để chỉ phải click vào nút lệnh thì bên màn hình AutoCAD có bản vẽ liền.

Mục đích có nhiều nút lệnh là dùng để vẽ được nhiều và nhanh hơn ấy mà. Cheers.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
codered8x    18

Rất cảm ơn bác Tue.Nhưng sao mình chỉ chèn được 20 điểm vào cad thôi nhỉ?có cách nào cho nó hiện luôn tọa độ lên trục không?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
codered8x    18
Đầu tiên, bạn phải đảm bảo rằng các dòng trong Excel phải không có khoảng trắng

Tại ô E2 : gõ công thức :

=CONCATENATE("(Command ";"""text""";" ";"""";B2;",";C2;",";0;"""";" ";"""0.5""";" ";"""""";" ";"""";A2;"""";")")

Sao chép công thức cho các ô còn lại (từ E2 -> E308)

 

Cách sử dụng :

Sau đó trong Excel -> Chọn ô E2 -> E308 -> Nhấn Ctrol+C -> Qua Cad nháy chuột vào dòng Command -> Nhấn Ctrol+V

 

Đây là file excel upload cho bạn : http://www.cadviet.com/upfiles/aa_1.xls

 

Còn đây là file .dwg đã chuyển tên qua : http://www.cadviet.com/upfiles/khaosat_1.dwg

 

:cheers:

Bạn giải thích dùm mình câu lệnh =CONCATENATE("(Command ";"""text""";" ";"""";B2;",";C2;",";0;"""";" ";"""0.5""";" ";"""""";" ";"""";A2;"""";")") được không?thanks!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Cho em hỏi chút, tại các point mình pick lên bằng lệnh ="point"&" "&X&","&Y&"", copy paste cho đơn giản. Em có thể dùng lệnh gì để chuyển đổi các point đó thành vòng tròn với đường kính mình tự chọn? Hay đơn giản hơn là thay bằng việc mình dùng lệnh ="point"&" "&X&","&Y&"" để pick các point, mình pick hẳn bằng các đường tròn với đường kính nhỏ do mình chọn đi. Lòng vòng vậy các bác cố hiểu hộ em nhé, cái khả năng diễn đạt của em kg tốt. Cám ơn các bác.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
thanhduan2407    226
Cho em hỏi chút, tại các point mình pick lên bằng lệnh ="point"&" "&X&","&Y&"", copy paste cho đơn giản. Em có thể dùng lệnh gì để chuyển đổi các point đó thành vòng tròn với đường kính mình tự chọn? Hay đơn giản hơn là thay bằng việc mình dùng lệnh ="point"&" "&X&","&Y&"" để pick các point, mình pick hẳn bằng các đường tròn với đường kính nhỏ do mình chọn đi. Lòng vòng vậy các bác cố hiểu hộ em nhé, cái khả năng diễn đạt của em kg tốt. Cám ơn các bác.

Bài này có trên diễn đàn rồi:

Bạn xem cái này nhé:

http://www.cadviet.com/forum/index.php?showtopic=15274

Bạn hãy sử dụng công cụ Run Script trên menu Tool.

Cách sử dụng như sau:

Bạn dùng excel để kết nối thành 1 chuỗi (Concatenate) giống như bác Tue_NV đã viết

Sau đó bạn copy dòng kết nối đó cho vào notepate rồi lưu thành file abc.scr

vào cad => tool => run script => đưa đường dẫn đến mục abc.scr vừa lưu.

Tôi ví dụ cho bạn biết nhé;

http://www.4shared.com/file/Gl2rI-BJ/VD_online.html

Chúc bạn thành công

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×