Đến nội dung


Hình ảnh
* * * - - 2 Bình chọn

AutoCAD với Excel


  • Please log in to reply
199 replies to this topic

#121 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 20 February 2009 - 04:38 PM

Chào các bác
Em có một file excel có dạng lisp muốn nhờ các bác giúp đỡ lấp một nút lệnh khí tích voà đó tự động load vao acad (giống như load file.lsp)

đây là file mẫu: http://www.cadviet.c...s/LISPexCEL.xls

Sub sau sẽ tự động load những lisp trong Selection vào bản vẽ acad đang mở
Private Sub CommandButton1_Click()
Dim acad As AcadApplication, doc As AcadDocument
Dim s$, cell
Set acad = GetObject(, "AutoCAD.Application")

If Err <> 0 Then
Exit Sub
End If

acad.Visible = True
Set doc = acad.ActiveDocument
For Each cell In Selection.Cells
s = cell.Value & vbCr
doc.SendCommand (s)
Next
End Sub
-Tham khảo trong các bài khác cách tham chiếu lại thư viện hoặc muốn tự động mở acad
-Các dòng lisp trong file excel bị lỗi vì các dấu chấm bị đổi thành dấu phẩy nên không chạy được
VD

(command "text" "j" "M" "104,65,0" "0" "1.S") .. (command "Rectang" "100,-4,5" "109,3,4,5")

Phải sửa lại là

(command "text" "j" "M" "104.65,0" "0" "1.S") .. (command "Rectang" "100,-4.5" "109.3,4.5")


  • 0

#122 haiduong2105

haiduong2105

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 20 February 2009 - 10:07 PM

Sub sau sẽ tự động load những lisp trong Selection vào bản vẽ acad đang mở

Private Sub CommandButton1_Click()
Dim acad As AcadApplication, doc As AcadDocument
Dim s$, cell
Set acad = GetObject(, "AutoCAD.Application")

If Err <> 0 Then
Exit Sub
End If

acad.Visible = True
Set doc = acad.ActiveDocument
For Each cell In Selection.Cells
s = cell.Value & vbCr
doc.SendCommand (s)
Next
End Sub
-Tham khảo trong các bài khác cách tham chiếu lại thư viện hoặc muốn tự động mở acad
-Các dòng lisp trong file excel bị lỗi vì các dấu chấm bị đổi thành dấu phẩy nên không chạy được
VD

Phải sửa lại là


Chào bạn mình chậy thử rồi không được nó báo nỗi bạn ạ, cái dòng mình tô đậm

Private Sub CommandButton1_Click()
Dim acad As AcadApplication, doc As AcadDocument
Dim s$, cell
Set acad = GetObject(, "AutoCAD.Application")

If Err <> 0 Then
Exit Sub
End If

acad.Visible = True
Set doc = acad.ActiveDocument
For Each cell In Selection.Cells
s = cell.Value & vbCr
doc.SendCommand (s)
Next
End Sub

cái bảng mình gửi trước mình để định dạng nhầm dấu . thành , (vì lúc đó mình làm dự toán)

mình up lại file nhờ bạn xem giúp.
bạn có thể giúp mình chỉnh lại giúp mình theo kiểu đọc từng cột 1 xuất sang cad (đọc hết cột A khi dòng lệnh = trống thì chuyên sang đọc cột B , cột C, cột D)
và điều kiển từ sheet khác. (cho phép chon nua ten sheet trong bảng)
cám ơn bạn nhiều
  • 0

#123 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 23 February 2009 - 09:09 AM

Cái này dùng cho Cad2004 được ko đấy bác. Dùng là báo lỗi àh.
diem chen bang: ; error: no function definition: VLA-ADDTABLE

Cad2004 chưa hổ trợ Bảng(Table) -> không có hàm VLA-ADDTABLE .
Các version 2006 trở lên thì có.
  • 0

#124 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 24 February 2009 - 07:20 AM

Chào bạn mình chậy thử rồi không được nó báo nỗi bạn ạ, cái dòng mình tô đậm

Private Sub CommandButton1_Click()
Dim acad As AcadApplication, doc As AcadDocument
Dim s$, cell
...
cái bảng mình gửi trước mình để định dạng nhầm dấu . thành , (vì lúc đó mình làm dự toán)

mình up lại file nhờ bạn xem giúp.
bạn có thể giúp mình chỉnh lại giúp mình theo kiểu đọc từng cột 1 xuất sang cad (đọc hết cột A khi dòng lệnh = trống thì chuyên sang đọc cột B , cột C, cột D)
và điều kiển từ sheet khác. (cho phép chon nua ten sheet trong bảng)
cám ơn bạn nhiều

Phải khai lại thư viện
Trong cửa sổ VBA vào menu Tool->Rerences.. hiện lên dialog
Check vào Autocad 200x Type Library
Up lại file chỗ nào?
  • 0

#125 haiduong2105

haiduong2105

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 28 February 2009 - 07:34 PM

Phải khai lại thư viện
Trong cửa sổ VBA vào menu Tool->Rerences.. hiện lên dialog
Check vào Autocad 200x Type Library
Up lại file chỗ nào?

Mình đã khai như bạn hướng đan như khi chậy nó lại nên cái heip của cad
  • 0

#126 nhocbabi

nhocbabi

    biết vẽ rectang

  • Members
  • PipPip
  • 83 Bài viết
Điểm đánh giá: -3 (bình thường)

Đã gửi 20 April 2009 - 03:05 PM

ai ơi cho mình xin file lisp để chuyển số liệu thống kê từ autocad sang excel với. Mình cop doạn mã về nhưng mà không dùng được! thank nhiều (mình thống kê bằng bcount nhé)
  • 0

#127 cutrangem

cutrangem

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 05 June 2009 - 11:50 AM

Dạ e đi đo mặt bằng, nhập điểm lập bình đồ. Nếu đo bằng máy kinh vĩ thì chỉ có khoảng cách và góc quay so với mốc chuẩn thôi bác ạ. Còn nếu đo bằng máy toàn đạc có tọa độ X,Y,Z thì họ cũng đổ vào excel khi giao cho e. Ngồi nhập từng điểm 1 thì lâu quá. Mong bác chỉ cho.


mình nghĩ cũng không cần dùng lisp. Có một thủ thuật để vẽ ra các điểm và ghi tên cho điểm đó trong cad trực tiếp từ excell.
Cách trình bày số liệu trong file excell như trong file excell mà mình up.
Ví dụ bạn muốn vẽ một điểm thì phải có một dòng excell như sau:

point (x,y,z)

copy cái dòng này trong excell dán vào trong cad (con chuột ở dòng command đang nhấp nháy thì dán), cad sẽ tự vẽ ra các điểm đó.

khi ghi text cũng như thế, cách trình bày một bảng excell như sau:

text toạ độ text chiều cao text góc quay của text tên của điểm

nhớ là khi ghi text thì các dòng excell phải cách nhau một dòng trống.
Cad 2004 chạy rất ổn định, bạn thử coi sao nhé.
Chú ý chỉ copy phần chữ màu xanh trong file excell mình up thôi nha.

http://www.cadviet.c...les/toado_1.xls
  • 1


PHAN ĐĂNG KHOA

#128 conghoan1003

conghoan1003

    biết vẽ point

  • Members
  • PipPip
  • 99 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 09 June 2009 - 04:57 PM

Tôi muốn lấy số liệu từ cad, những giá trị nằm trong bảng khổi lượng ở cột S,L,B rồi nhập vào bảng Excel. Nhờ các bác giúp mình với. mình có xin bên mục viết cad theo yêu cầu mà được cái lisp không đúng ý lắm. nó lại không sắp sếp đúng vị trí,
Các bác giúp mình nhé!
http://www.cadviet.c...0_Km0430sua.xls
http://www.cadviet.c.../KM0_KM0430.dwg
  • 0
Học học nữa học mãi.
Đúp học lại!

#129 HIELA

HIELA

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 29 October 2009 - 03:50 PM

Khi chạy chương trình trong AutoCad đọc dữ liệu từ Excel thường hay bị Virut phá files dữ liệu trong Excel . Đôi khi phải định dạng lại dữ liệu mới chạy được . Bạn nào có kinh nghiệm diệt loại virút này xin hãy chia sẻ . Xin cảm ơn !
  • 0

#130 HoangSon614

HoangSon614

    biết lệnh properties

  • Members
  • PipPipPipPip
  • 254 Bài viết
Điểm đánh giá: 66 (tàm tạm)

Đã gửi 29 October 2009 - 05:05 PM

Tôi muốn lấy số liệu từ cad, những giá trị nằm trong bảng khổi lượng ở cột S,L,B rồi nhập vào bảng Excel. Nhờ các bác giúp mình với. mình có xin bên mục viết cad theo yêu cầu mà được cái lisp không đúng ý lắm. nó lại không sắp sếp đúng vị trí,
Các bác giúp mình nhé!
http://www.cadviet.c...0_Km0430sua.xls
http://www.cadviet.c.../KM0_KM0430.dwg

Bạn thử lisp này xem thế nào cho ý kiến (XLD)
Đây bạn
  • 0
-~-~-~-~-~-~-~-~-~-~-~-~-~-~
Hôm qua là sự học hỏi nhận được sau 1 ngày
Ngày mai là sự bí ẩn mà chúng ta sẽ khám phá


------------------------------------------
http://www.tailieukythuat.com

#131 HIELA

HIELA

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 30 October 2009 - 11:02 AM

Tôi muốn các bạn chia sẽ cách nhập và xuất số liệu giữa Autocad và Excel, được viết bằng ngôn ngữ AutoLISP. nếu được có thể cho xem ví dụ mẫu.
Cám ơn.

Tôi đã viết mã đọc files Excel trực tiếp từ AutoCad bằng ngôn ngữ AutoLISP . Chương trình chạy tốt trên Excel200, 2002,2003 còn Excel 2007 tôi chưa thử . Còn AutoCad đã chạy trên Cad 2000,2002,2004,các bản khác chưa dùng.
Tôi đã sử dụng đối tượng ActiveX trong AutoLISP để đọc dữ liệu trong files Excel (đối tượng ActiveCell)
Đọan mã ví dụ :

(defun docdulieuexcell ()
(vl-load-com)
(goiExcell)
(setq dochang 1)
(setq i 1 j 2) ; i=hang j=cot
(setq stop 0)
(while (= stop 0)
(while (= dochang 1)
(setq congthuc (strcat "=R["(itoa (- i 1))"]C["(itoa (- j 1))"]")) ; ghép công thức tính ô theo hàng cột
(msep-put-FormulaR1C1 cell congthuc)
(setq caodo (vlax-get cell 'value)) ;;; Biến caodo được gán từ thuộc tinh Value của biến cell
;;;;;;;;;;;;;;;; V.V.V
(setq j (+ j 1))
) ;_dong while 2
(setq i (+ i 1))
);_dong while 1
)
;;;;;;;;;;;;;;;;;;;;;;
(defun goiExcell ()
(setq Excell1 "Excel.Application.11")
(setq Excell2 "C:\\Program Files\\Microsoft Office\\Office11\\EXCEL.EXE");;; Đường dẫ thư viện Excel 2003
(vlax-import-type-library
:tlb-filename Excell1
:methods-prefix "msem-"
:properties-prefix "msep-"
:constants-prefix "msec-"
)
(setq mse (vlax-get-object Excell2))
(setq mse (vlax-get-object Excell2))
(if (equal nil mse)
(progn
(setq mse (vlax-create-object Excell2))
(vla-put-visible mse :vlax-true)
)
)
(setq cell (vlax-get-property mse 'ActiveCell)) ;;; Biến cell được gán giá trị từ ô hiện hành
)
--------------------------------
Nguyên lý cơ bản là truy cập vào ô hiện hành của Excel . Sau đó gán giá tri cho ô hiện hành bằng các ô còn lại theo công thức R ,C (hàng cột) từ đó bạn có thể truy cập toàn bộ bảng tính Excel mà không cần dịch chuyển ô hiện hành (không cần khai báo chi tiết từng ô). Dùng 2 vòng lặp While để tính giá trị các ô ... Sử dụng phương thức này để vẽ bình đồ trong trắc địa , vẽ cắt dọc ngang kênh mương ,đường giao thông ,vẽ cắt ngang tường hoặc làm công việc mả bạn phải đọc dữ liệu theo hàng cột sẽ rất thuận tiện . Còn nhiều vấn đề phải giả quyết tôi không viết hết được trong một bài . Nếu các bạn còn quan tâm đến vấn đề này hãy lên tiếng chúng ta sẽ thảo luận thêm sau .
Chúc vui !
  • 0

#132 duongsatdn

duongsatdn

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 1657 Bài viết
Điểm đánh giá: 761 (tốt)

Đã gửi 30 October 2009 - 11:14 AM

Khi chạy chương trình trong AutoCad đọc dữ liệu từ Excel thường hay bị Virut phá files dữ liệu trong Excel . Đôi khi phải định dạng lại dữ liệu mới chạy được . Bạn nào có kinh nghiệm diệt loại virút này xin hãy chia sẻ . Xin cảm ơn !

Bạn dùng thử chương trình này để giải quyết vụ virus trong file Excel:
http://www.mediafire.com/?zzm1mmf2m3i
  • 1

#133 HIELA

HIELA

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 02 November 2009 - 05:36 PM

Cám ơn bạn, mình sẽ xem lại sau. Cái này cũng khá lôi thôi!
Bạn nào có office khác test thêm giúp.

---------------------
Theo tôi bạn nên viết lệnh truy câp vô Registry kiểm tra xem người dùng cài phiên bản nào của Excel sau đó khai báo phiên bản và đường dẫn thư viện tương ứng sẽ giải quyết được vấn đề.

Cách 2 :khi chạy chương trình lần đầu bạn tạo hộp thọai hỏi ngươi dùng cài phiên bản nào của Excel ...từ đó bạn có được phiên bản và đường dẫn thư viện tương ứng .Người dùng có thể sử dụng hộp thoại nảy để khai báo lại khi cài phiên bản office khác

Chúc vui !
  • 0

#134 HIELA

HIELA

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 02 November 2009 - 08:54 PM

Visual Lisp và ActiveX Automation

Lisp có những ưu thế tuyệt vời khi làm việc với Acad:
- Dễ dàng tạo các đối tượng Acad cũng như truy xuất dứ liệu từ chúng
- Gọi command của Acad rất đơn giản và tự nhiên như "người trong nhà"
- Các lệnh được tạo bằng lisp được Acad "đối xử bình đẳng" như các lệnh chính thống v.v…
Bên cạnh các ưu điểm trên, nhược điểm lớn nhất của Lisp là khả năng giao tiếp với bên ngoài rất hạn chế. Lâu nay, để truy xuất dữ liệu từ Excel, mình vẫn thường phải qua 1 trong 2 dạng file trung gian *.txt (Tab delimited - phân biệt các field bằng ký tự Tab) và *.csv (Comma delimited - phân biệt các field bằng dấu phẩy).
Nhược điểm này có thể khắc phục được bằng cách dùng ActiveX Automation.
Tổng quan về ActiveX, xin được trích dẫn Help:

"ActiveX Automation is a new way to work programmatically with the contents of an AutoCAD drawing. In many instances, ActiveX works faster than traditional AutoLISP functions in manipulating AutoCAD drawing objects.
The ActiveX programming interface is usable from a number of languages and environments, such as C++, Visual BasicTM, and DelphiTM. When you work with ActiveX objects in AutoLISP, you work with the same object model, properties, and methods that can be manipulated from other programming environments."

Translation:
ActiveX Automation là một phương pháp mới để lập trình với AutoCAD. Trong nhiều trường hợp, ActiveX làm việc nhanh hơn các hàm AutoLisp truyền thống trong việc xử lý các đối tượng AutoCAD.
ActiveX có thể dùng được với một số ngôn ngữ và môi trường lập trình như C++, VB và Delphi. Khi làm việc với ActiveX trong AutoLisp, bạn thao tác với Objects – Properties – Methods giống như trong những môi trường lập trình nói trên.


Visual Lisp cung cấp một số hàm dạng vlax-xxxx để làm việc với ActiveX. Thực tế là từ trước đến nay, bản thân mình cũng chưa có điều kiện nghiên cứu sâu về chúng. Khó khăn lớn nhất là không có tài liệu, ngay cả Help của Acad cũng hướng dẫn sơ sài. Tuy chưa biết nhiều, nhưng mình thấy mảng này khá hay. Làm chủ được nó, chúng ta có thể dùng Lisp truy xuất dữ liệu trực tiếp từ các ứng dụng khác (Excel là 1 ví dụ), không phải "nhiêu khê" như trước nữa.

Một ví dụ minh họa để các bạn thử nghiệm:

(defun C:GED();;;Get Excel Data
(vl-load-com)
(setq
ex (vlax-get-object "Excel.Application")
sl (vlax-get-property ex 'selection)
txtvr (vlax-get-property sl 'text)
txt (vlax-variant-value txtvr)
ir (vlax-get-property sl 'row)
ic (vlax-get-property sl 'column)
)
(alert
(strcat
"\nContent: " txt
"\nColumn: " (chr (+ ic 64))
"\nRow: " (itoa ir)
)
)
)
Trình tự thử:
- Appload đoạn lisp trên
- Khởi động Excel, open 1 file *.xls nào đó
- Pick chọn 1 cell bất kỳ (có chứa dữ liệu để kiểm tra)
- Sang Acad, gõ lệnh GED để thử
Kết quả: 1 message_box ghi thông tin về nội dung, chỉ số cột và hàng của cell mà bạn đã chọn.

Đặt vấn đề:
1) Đã lấy được dữ liệu của 1 cell thì tất nhiên sẽ lấy được dữ liệu của cả sheet, và đã import được thì tất nhiên cũng export được. Bằng cách nào thì mời các bạn có hứng thú với cái này "ngâm cứu" tiếp. Trước mắt, chỉ cần lấy được dữ liệu của một vùng được selected trong bảng Excel đang hiện hành (ví dụ như B3:F17 chẳng hạn) là đã ứng dụng được cho khối việc rồi.
2) Các thao tác trên hoàn toàn không dùng đến kho libraries của bất cứ trình ứng dụng nào. Phải nhờ vả đến "đám" này rất là phiền toái vì sự không tương thích giữa các version. Nếu phải dùng đến libraries, khi người ta nâng cấp version của Excel, rất nhiều khả năng chương trình của chúng ta sẽ không chạy được. Bản thân ssg ít thích dùng VB chính vì nó phụ thuộc vào các libraries quá nhiều!
Để khẳng định điều này, ssg nhờ các bạn kiểm tra giúp xem đoạn lisp trên có làm việc được với mọi version của AutoCAD cũng như Excel hay không? Ssg đã thử với Cad2002, Cad2007 và Excel2003, kết quả OK.
3) Các bạn thường lập trình với VB và ActiveX có kinh nghiệm hoặc tài liệu gì (tiếng Việt hoặc tiếng Anh đều tốt) về vấn đề này xin được chia sẻ.

Cám ơn tất cả các bạn,


----------------------------
Xin có một góp ý nhỏ :
Trong lệnh :

(setq
ex (vlax-get-object
"Excel.Application")



Nếu bạn khai báo cụ thể hơn về phiên bản của Excel :
cho đối tượng Excel.Application

Excel 2000 "Excel.Application.9"
Excel 2002 "Excel.Application.10"
Excel 2003 "Excel.Application.11"
Excel 2007 "Excel.Application.12"

Thì sẽ tránh được những lỗi có thể gặp phải về phiên bản Excel.
  • 0

#135 HIELA

HIELA

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 02 November 2009 - 08:59 PM

Truy cập vô Registry tìm phiên bản Excel

(Setq ex1 (vl-registry-read "HKEY_CLASSES_ROOT\\Excel.Template\\shell\\New\\command" ""))
(setq ex1 (substr ex1 2 100))
(setq Thuvien (vl-string-right-trim "\" /e" ex1)) ;;; Đường dẫn thư viện Excel
(Setq phienban (vl-registry-read "HKEY_CLASSES_ROOT\\Excel.Application\\CurVer" "")) ;;; Đối tượng Excel.Application...

Bạn hãy thử xem .
  • 0

#136 HIELA

HIELA

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 02 November 2009 - 09:04 PM

Xin files dữ liệu kết quả đo của máy toàn đạc

Tôi không có điều kiện tiếp cận với mày toàn đạc . Bạn nào có files kết quả đo của máy tòan đạc chia sẻ cho tôi . Cảm ơn!

  • 0

#137 DTCAT

DTCAT

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 13 January 2010 - 04:34 PM

Chao cac bac!E la thanh vien moi toe!Xin cac bac chi bao giup!Hien e dang co Lisp co đuổi dạng *.fas; em muốn tìm hiểu cấu trúc bên trong của Lisp mà không thể mở được. Có bác nào có cách chuyển về *.lsp được không?E đang cần, rất cần.....
  • 0

Úm ác vĩ ra - Hồng khứ tá lạc


#138 pdhuyxn2

pdhuyxn2

    biết vẽ circle

  • Members
  • PipPip
  • 37 Bài viết
Điểm đánh giá: -4 (bình thường)

Đã gửi 21 January 2010 - 09:10 AM

Chào các cao thủ : xin các cao thủ viết hộ 1 lisp.
File dữ liệu ở excel gồm 500 hàng mỗi hàng 1 cell chứ dữ liệu text: " Hài, Hoa, Vin"...cho đến dòng 500 " huy, Vinh, Ngoc, Hoa".
Kết quả ở file cad khi pick điểm 1 thì kết quả sẽ chuyển text từ file excel theo theo lần lượt pích 1 "Hài, Hoa, Vin" Cho đến điểm pick 500 "Huy, Vinh, Ngọc, Hoa".
  • 0

#139 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 21 January 2010 - 02:29 PM

Chào các cao thủ : xin các cao thủ viết hộ 1 lisp.
File dữ liệu ở excel gồm 500 hàng mỗi hàng 1 cell chứ dữ liệu text: " Hài, Hoa, Vin"...cho đến dòng 500 " huy, Vinh, Ngoc, Hoa".
Kết quả ở file cad khi pick điểm 1 thì kết quả sẽ chuyển text từ file excel theo theo lần lượt pích 1 "Hài, Hoa, Vin" Cho đến điểm pick 500 "Huy, Vinh, Ngọc, Hoa".

Bạn chạy thử Lisp AddText : xuất ra CAD theo thứ tự từ cell A2, A3, ... An tại vị trí nhập.

Link Download
Sau khi giải nén, nhớ copy file data1.xls vào thư mục gốc của ổ C.
Cách cập nhật dữ liệu : open file data1.xls và thay thế dữ liệu từ cell A2, A3, ... An
cell A1 không xuất ra CAD.
Tham khảo : http://www.cadviet.c...showtopic=16490
  • 0

#140 pdhuyxn2

pdhuyxn2

    biết vẽ circle

  • Members
  • PipPip
  • 37 Bài viết
Điểm đánh giá: -4 (bình thường)

Đã gửi 21 January 2010 - 03:26 PM

Bạn chạy thử Lisp AddText : xuất ra CAD theo thứ tự từ cell A2, A3, ... An tại vị trí nhập.

Link Download
Sau khi giải nén, nhớ copy file data1.xls vào thư mục gốc của ổ C.
Cách cập nhật dữ liệu : open file data1.xls và thay thế dữ liệu từ cell A2, A3, ... An
cell A1 không xuất ra CAD.
Tham khảo : http://www.cadviet.c...showtopic=16490

Chỉ cần Pick từ điểm 1 nó sẽ chuyển text lần lượt theo danh sách vùng mỗi điểm pick là 1 cell lần lượt từ 1 đến 500 bạn ạ.
  • 0