Đến nội dung


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

[Yêu cầu] viết lisp thống kê bản vẽ


  • Please log in to reply
177 replies to this topic

#61 ducboss

ducboss

    biết vẽ line

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

Đã gửi 16 March 2010 - 10:03 PM

cad2010 khi dùng lệnh exblk xuất ra dạng Table, nên có thể úp ngược lại cũng được, đành hơi bất tiện 1 tí vậy.
  • 0

#62 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 18 March 2010 - 02:24 PM

Cám ơn tất cả góp ý của các bạn.

Lisp ExBlk đuợc cập nhật theo sự góp ý của các bạn.
Do Cad2004 không có lệnh tạo bảng (Add Table), nên Lisp ExBlk bỏ qua. Tuynhiên Cad2004 vẫn có thể sử dụng chức năng Ghi ra File.

Với chức năng Ghi ra File : nếu hệ thống có cài đặt MS Excel, định dạng của file xuất ra là *.xls, các t/hợp khác định dạng của file xuất ra *.csv hoặc *.txt

Nói thêm về tùy chọn Block Source : "This drawing only" và "All drawings in folder"
- "This drawing only" : Chỉ chọn Block trong bản vẽ hiện hành.
Mặc định Lisp chọn tất cả các Block trong bản vẽ hiện hành, để chọn từng đối tuợng bạn Click vào "This drawing only" -> xuất hiện dòng nhắc Select Object : “Chon doi tuong can xuat thuoc tinh hay ENTER de chon tat ca:”
- "All drawings in folder" : Chọn Block trong toàn bộ bản vẽ tại Thư mục hiện hành.
Sử dụng trong t/hợp tổ chức mỗi file Cad chỉ có 1 bản vẽ, tưong tự như yêu cầu của Phiphi http://www.cadviet.c...o...ost&p=88909
Chú ý : trong t/hợp thư mục có nhiều file và k/thuớc file lớn thời gian truy xuất dữ liệu sẽ hơi lâu.

Để sắp xếp thứ tự : Click vào “Tag Sort” và chọn tag cần sắp xếp.

Về khả năng tự động cập nhật khi thay đổi khung tên : chưa biết ! <_<


@ thiep
- về Font của dữ liệu và tiêu đề : tương tự Text và dimension, CAD cung cấp TableStyle để quản lý các đối tuợng Table. Do đó Font trong Table (do LISP tạo ra) phụ thuộc vào TableStyle hiện hành, tùy theo chủ quan và quy định, mỗi nguời (cty) sẽ tự tạo TableStyle theo ý mình.
- Chiều rộng của cột không fix với dữ liệu: Lisp định chiều rộng cột theo giá trị lớn nhất của dữ liệu (các cột có chiều rộng bằng nhau)

Update : bài viết 114

Bài viết đã được chỉnh sửa nội dung bởi gia_bach: 21 May 2010 - 01:05 PM

  • 1

#63 trinhvqh

trinhvqh

    biết lệnh block

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

Đã gửi 18 March 2010 - 02:45 PM

Cám ơn tất cả góp ý của các bạn.

Lisp ExBlk đuợc cập nhật theo sự góp ý của các bạn.
Do Cad2004 không có lệnh tạo bảng (Add Table), nên Lisp ExBlk bỏ qua. Tuynhiên Cad2004 vẫn có thể sử dụng chức năng Ghi ra File.

Với chức năng Ghi ra File : nếu hệ thống có cài đặt MS Excel, định dạng của file xuất ra là *.xls, các t/hợp khác định dạng của file xuất ra *.csv hoặc *.txt

Nói thêm về tùy chọn Block Source : "This drawing only" và "All drawings in folder"
- "This drawing only" : Chỉ chọn Block trong bản vẽ hiện hành.
Mặc định Lisp chọn tất cả các Block trong bản vẽ hiện hành, để chọn từng đối tuợng bạn Click vào "This drawing only" -> xuất hiện dòng nhắc Select Object : “Chon doi tuong can xuat thuoc tinh hay ENTER de chon tat ca:”
- "All drawings in folder" : Chọn Block trong toàn bộ bản vẽ tại Thư mục hiện hành.
Sử dụng trong t/hợp tổ chức mỗi file Cad chỉ có 1 bản vẽ, tưong tự như yêu cầu của Phiphi http://www.cadviet.c...o...ost&p=88909
Chú ý : trong t/hợp thư mục có nhiều file và k/thuớc file lớn thời gian truy xuất dữ liệu sẽ hơi lâu.

Để sắp xếp thứ tự : Click vào “Tag Sort” và chọn tag cần sắp xếp.

Về khả năng tự động cập nhật khi thay đổi khung tên : chưa biết ! <_<
@ thiep
- về Font của dữ liệu và tiêu đề : tương tự Text và dimension, CAD cung cấp TableStyle để quản lý các đối tuợng Table. Do đó Font trong Table (do LISP tạo ra) phụ thuộc vào TableStyle hiện hành, tùy theo chủ quan và quy định, mỗi nguời (cty) sẽ tự tạo TableStyle theo ý mình.
- Chiều rộng của cột không fix với dữ liệu: Lisp định chiều rộng cột theo giá trị lớn nhất của dữ liệu (các cột có chiều rộng bằng nhau)

File Download exBlk
Hình đã gửi


Hàng mới về, bóc tem xem nào!
Giao diện tương tác ok, hoàn toàn nhất trí!
(Mặc dù giao diện cũ cũng không vấn đề gì) :cheers:

Hôm trước chạy thử lại thấy ok
Nhưng hôm nay với lisp này lại lùng bùng
Không biết do lỗi gì?
gia_bach xem video đính kèm nhé!
Video

Đây không phải là phản biện
Chỉ là thể hiện lòng trân trọng vì trong lisp này có sử dụng Khung tên của mình :D
  • 2

#64 duonghung1210

duonghung1210

    biết lệnh offset

  • Members
  • PipPipPip
  • 175 Bài viết
Điểm đánh giá: 61 (tàm tạm)

Đã gửi 18 March 2010 - 04:29 PM

Cám ơn trinhvqh nhiều.

trong video của bác Trinh cũng bị đảo thứ tự:
...............
no 1..................kt: 03
no 2:................kt: 02
no 3.................kt:01
............
đáng ra phải là:
.......
no 1...........kt: 01
no 2........kt: 02
no 3..........kt: 03
:D :D :cheers:
  • 0
Nhăn răng ra cười cho đời đỡ khổ!!!

#65 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 19 March 2010 - 11:49 AM

Đã fix lỗi, mời các bạn chạy thử và góp ý.

Link Download Click here

Chào anh gia_bach :
Khi chạy Lisp có hiện tượng "đảo thứ tự" như bài viết trên của ban duonghung1210
  • 1

#66 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 19 March 2010 - 12:12 PM

Chào anh gia_bach :
Khi chạy Lisp có hiện tượng "đảo thứ tự" như bài viết trên của ban duonghung1210

Cám ơn Tue_NV nhiều.

Đã fix lỗi, mời các bạn chạy thử và góp ý.
Link ở phía duới.
  • 2

#67 trinhvqh

trinhvqh

    biết lệnh block

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

Đã gửi 19 March 2010 - 12:34 PM

Đã fix lỗi, mời các bạn chạy thử và góp ý.
Link ở bài trên.


Đã Test lại
gia_bach xem lại Sort (Nó sort theo thứ tự ngược: từ lớn đến nhỏ)

Một vài đề nghị khác nếu bổ sung thì coi như ok:
Hình đã gửi

Chúc sức khoẻ!
Mong sản phẩm sớm ra lò! :D
  • 1

#68 duonghung1210

duonghung1210

    biết lệnh offset

  • Members
  • PipPipPip
  • 175 Bài viết
Điểm đánh giá: 61 (tàm tạm)

Đã gửi 19 March 2010 - 01:02 PM

Cám ơn Tue_NV nhiều.

Đã fix lỗi, mời các bạn chạy thử và góp ý.
Link ở bài trên.

lish của bác chạy ngon rùi! Nhưng bác có thể thêm lựa chọn như:
-chọn text style
- fit text ( cụ thể: text chỉ ở 1 hàng, trong một dòng), không bị xuống dòng tạo ra các hàng có chiều cao khác nhau trông không đẹp lắm!
tham lam quá! các bác lượng thứ!
@ trinhvqh: em chạy thử thì ok, sort từ nhỏ đến lớn!
Hình đã gửi
  • 0
Nhăn răng ra cười cho đời đỡ khổ!!!

#69 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 19 March 2010 - 01:43 PM

Đã Test lại
gia_bach xem lại Sort (Nó sort theo thứ tự ngược: từ lớn đến nhỏ)

Một vài đề nghị khác nếu bổ sung thì coi như ok:
Hình đã gửi

Chúc sức khoẻ!
Mong sản phẩm sớm ra lò! :D


Cách tạo thứ tự các cột : lần luợt chọn theo thứ tự các Tag trong Tag List.
Vd :
- chọn KT:KHBV -> click vô ">>"
- chọn KT:NGAY -> click vô ">>
....................
(có thể kết hợp phím Ctr để chọn nhiều Tag)
Hình đã gửi

để chọn đối tuợng trên màn hình : Click vào "This drawing only"
-> xuất hiện dòng nhắc Select Object : “Chon doi tuong can xuat thuoc tinh hay ENTER de chon tat ca:”

Bài viết đã được chỉnh sửa nội dung bởi gia_bach: 19 May 2010 - 10:59 AM

  • 2

#70 trinhvqh

trinhvqh

    biết lệnh block

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

Đã gửi 19 March 2010 - 03:10 PM

Lisp chạy rất tốt!
Cảm ơn gia_bach

Việc chọn đối tượng từ bản vẽ đã có rồi (Cái này do tôi láu táu chưa kiểm tra kỹ)
Còn việc Cho phép thay đổi thứ tự trong trường hợp người dùng muốn thay đổi thứ tự colum là phù hợp với trực giác
(Trong trường hợp không giải quyết cũng không sao cả)

Mọi thứ như vậy là ok!
Xin mời bác hãy tạm thư giãn với ca khúc này
Mùa xuân trên thành phố HCM là mùa xuân đẹp nhất trên đời
:D
:cheers:
  • 0

#71 ducboss

ducboss

    biết vẽ line

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

Đã gửi 20 March 2010 - 11:45 AM

hai ngày vừa rồi mạng ở Cty lởm quá nhìn thấy mọi người trong topic này mà chẳng reply dc
em vừa down phiên bản mới thì không chạy đc lỗi là như thế này:
Command: exblk
Chieu cao chu <200> :
** Error: bad argument type: stringp nil **

với khung tên KTA3ngang không chạy được, em dùng cad2010
  • 0

#72 Phiphi-

Phiphi-

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 434 Bài viết
Điểm đánh giá: 175 (tàm tạm)

Đã gửi 22 March 2010 - 02:52 PM

Bạn thử lại.
Link download : click here

Lisp của Gia_Bach chạy tốt trên AutoCAD 2010.
Với mục thống kê các Attribute value khi chọn All drawings in folder, Gia_Bach có thể thêm 1 cột để ghi Filename của các bản vẽ được không vậy?
Chiều cao của Row nên tự động bẳng 2 lần chiều cao Text. và vì khung tên của bản vẽ PP đang làm có đến 59 Tags (năm mươi chín) nên nếu Gia_Bach thêm vào nút ADD ALL như trước dây thì đở phải pick từng tag một. Thank you.
Lisp dưới dây của Lee dùng để xuất các Attribute value của các bản vẽ (đã save ở folder nào đó) ra Excel. Để sử dụng Lisp này thì User phải mở Lisp rồi đánh tên Block của khung tên và các Tagnames.
PP đã sửa dể dùng cho khung tên của bv PP đang làm.
(Nhớ bấm vào nút CANCEL khi được hỏi tên file Excel)
http://www.cadviet.c...list_phiphi.lsp
  • 0

#73 Phiphi-

Phiphi-

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 434 Bài viết
Điểm đánh giá: 175 (tàm tạm)

Đã gửi 22 March 2010 - 03:28 PM

Bạn cứ "phản biện" thỏa mái.
.....
Đầu năm xin khai bút với lisp thống kê bản vẽ gởi đến các bạn, các bạn "phản biện" (góp ý) nhé. Modul này có kèm 1 hộp thoại, dùng để thống kê các thuộc tính của các block khung tên. Lệnh là exa.
http://www.cadviet.c...files/2/exa.zip

Chào Thiep, Lisp EXA này PP chạy trên AutoCAD 2010 (bản quyền) thì xuất hiện lổi như sau:
(sau khi đã set đầy đủ các mục, rồi bấm vào nút Pick Insertpoint table>>)
Command: exa
Usage: (acet-ss-drag-move [] [
[]])
; error: ADS request error

Command:
Nhờ Thiep xem lại. Cám ơn nhiều.
  • 0

#74 ducboss

ducboss

    biết vẽ line

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

Đã gửi 23 March 2010 - 12:34 AM

Bạn thử lại.
Link download : click here

Thanks! Chạy ngon ( Thứ tự kí hiệu tên bản vẽ ok.)
Là mình có ý kiến như thế này:
1, Cái Block thuộc tính này làm khung tên, có 2 pần: a, là phần cố định ( nhưng vẫn có trường hợp phút cuối vẫn phải thay đổi cho phù hợp với yêu cầu của chủ đầu tư nên chẳng có gì là luôn cố định cả) b, là phần tag của khung tên là những giá trị sẽ thay đổi như ngày in, tên bản vẽ, ký hiệu bản vẽ, tỷ lệ...Tức là có cái phải thay đổi từng phần cục bộ dở từng bản vẽ ra mà sửa, còn cái sửa hàng loạt (của cái 1,a,) thì cũng pải mở từng bản vẽ ra sửa cái Block đó
2, Cái Block thuộc tính này khi exref hoặc insert khung tên vào bản vẽ thì khi thay đổi giá trị tag là rất khó khăn, và sử dụng exblk nó không nhận, không thực thi lệnh.
3, Khi tạo block thuộc tính làm khung tên thì mình thấy nó chạy nặng hơn là exref ( cũng còn tuỳ thuộc vào từng dự án)
4, Tính năng update, đơn thuần như exref còn không thực hiện được, tức là cái này áp dụng khi các bản vẽ đã thực sự xong suôi rồi, không pải update lại vì không có sửa đổi tên bản vẽ hay ngày in...
5, Cái này chỉ sử dụng được khi coppy block thuộc tính khung tên này sang bản vẽ khác.
...
Tổng kết lại mình mong muốn sản phẩm có thêm tính năng này nếu được thì sản phẩm này sẽ hoàn hảo luôn 'gia_bach' ạh.
1, Tính khả năng tự update, và tự chỉnh sửa cho nhau theo 2 chiều. Nếu chỉnh sửa ở bản vẽ thống kê drawing list thí nó sẽ update cho từng bản vẽ và ngược lại.
2, Thêm tính năng như exref (để chỉnh sửa hàng loạt).
3, Công tác nhập liệu sao cho dễ ràng hơn.
Gần cuối cùng mình xin cảm ơn sự chia sẻ của mọi người! :D
  • 0

#75 trinhvqh

trinhvqh

    biết lệnh block

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

Đã gửi 23 March 2010 - 07:08 AM

Tổng kết lại mình mong muốn sản phẩm có thêm tính năng này nếu được thì sản phẩm này sẽ hoàn hảo luôn 'gia_bach' ạh.
1, Tính khả năng tự update, và tự chỉnh sửa cho nhau theo 2 chiều. Nếu chỉnh sửa ở bản vẽ thống kê drawing list thí nó sẽ update cho từng bản vẽ và ngược lại.
2, Thêm tính năng như exref (để chỉnh sửa hàng loạt).
3, Công tác nhập liệu sao cho dễ ràng hơn.
Gần cuối cùng mình xin cảm ơn sự chia sẻ của mọi người! :D


Những "théc méc ngây thơ" hay "Những đòi hỏi quá đáng" sẽ làm phật lòng các cao thủ lisp đó bạn ạ :D
Bạn vô tình cứ chọc vào những điều mà lisp hiện nay không giải quyết được

Cho nên, gọi là Tổng kết thì ta phải đánh giá như sau:
Cùng với MPL của bác Hoành; Exblk của gia_bach có thể xem là 02 đỉnh cao của autolisp mà diễn đàn Cadviet mang lại
Nếu như MPL có mức độ ảnh hưởng rộng rãi thì Exblk thật đáng nể về công phu lập trình :cheers:

"Đố ai quét sạch lá rừng... Để ta khuyên gió gió đừng rung cây.."
Câu nói dân gian đi vào Dân ca quan họ, qua bàn tay của các nghệ sĩ trở thành một tác phẩm tuyệt đỉnh
Là ý trước đây tôi muốn so sánh khả năng ứng dụng lisp thuần thục của Thiep và gia_bach
vậy mà Tue_NV có lần hiểu lầm theo một chiều hướng khác. :D

Hãy tiếp tục...
Dù đó là thắc mắc ngây thơ
Dù đó là Những đòi hỏi quá sức vô tình
Dù đó là Mong muốn chính đáng mà trực giác mách bảo

Hãy chuẩn bị tinh thần để đón nhận:
Những hiểu lầm...
Những phán xét thức thời...
Nhưng quy kết của những người muốn giúp đỡ mình...

Đó chính là phản biện :cheers:
  • 0

#76 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 23 March 2010 - 08:21 AM

.....
"Đố ai quét sạch lá rừng... Để ta khuyên gió gió đừng rung cây.."
Câu nói dân gian đi vào Dân ca quan họ, qua bàn tay của các nghệ sĩ trở thành một tác phẩm tuyệt đỉnh
Là ý trước đây tôi muốn so sánh khả năng ứng dụng lisp thuần thục của Thiep và gia_bach
vậy mà Tue_NV có lần hiểu lầm theo một chiều hướng khác. :cheers:
....

Câu nói dân gian đi vào Dân ca quan họ, qua bàn tay của các nghệ sĩ trở thành một tác phẩm tuyệt đỉnh

Câu nói này đâu phải để cho bác có sự so sánh như vậy? :D

Là ý trước đây tôi muốn so sánh khả năng ứng dụng lisp thuần thục của Thiep và gia_bach

Phải chăng ý bác nói khả năng ứng dụng lisp thuần thục của Thiep và gia_bach cũng chỉ là ......
Xin lỗi, tui không muốn nhắc lại chuyện cũ. Nhắc lại cũng chỉ là.....
  • 0

#77 trinhvqh

trinhvqh

    biết lệnh block

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

Đã gửi 23 March 2010 - 09:07 AM

Phải chăng ý bác nói khả năng ứng dụng lisp thuần thục của Thiep và gia_bach cũng chỉ là ......
Xin lỗi, tui không muốn nhắc lại chuyện cũ. Nhắc lại cũng chỉ là.....


Tue_NV cứ mạnh dạn viết ra lấp đầy ... để xem sự suy diễn đưa Tue đến đâu?
Ý tôi muốn nói: Những câu nói dân gian ai cũng biết, nhưng để đưa nó lên thành tuyệt phẩm thì không mấy ai làm được
Điều đó cũng giống như mọi người dùng CAD đều tin tưởng Autolisp nhưng để lập trình ra những lisp đỉnh cao chi đếm trên đầu ngón tay
Đó mới là điều đáng trân trọng!

Còn nếu nghe "Đố ai quét sạch lá rừng..." rồi suy diễn rằng "Các cao thủ lisp sẽ không bao giờ hoàn thiện được" thì thật là thô
Rồi tiếp đến suy diễn "Phải chăng ý bác nói khả năng ứng dụng lisp thuần thục của Thiep và gia_bach cũng chỉ là ......" thì bó tay

Điều duy nhất cho đến lúc này là "Tue_NV đã nhận Autolisp là mình"
Hễ ai đụng đến Autolisp, ai phản biện cao thủ lisp thì Tue_NV sẽ tự vệ bản năng

Cho nên, Hãy trả Autolisp về với vị trí của nó;
Hãy sử dụng Lisp như một cuộc chơi, một phương tiện hơn là một lẽ sống, một cái gì thuộc về bản thân Tue_NV
  • 0

#78 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 March 2010 - 01:27 PM

Lisp của Gia_Bach chạy tốt trên AutoCAD 2010.
Với mục thống kê các Attribute value khi chọn All drawings in folder, Gia_Bach có thể thêm 1 cột để ghi Filename của các bản vẽ được không vậy?
Chiều cao của Row nên tự động bẳng 2 lần chiều cao Text. và vì khung tên của bản vẽ PP đang làm có đến 59 Tags (năm mươi chín) nên nếu Gia_Bach thêm vào nút ADD ALL như trước dây thì đở phải pick từng tag một. …............

- Về cột Filename : thông thuờng trong khung tên đã có 1 Tag tuơng tự như DrawingName hay TenBanVe. Theo dự đoán của tui, cột mà Phiphi cần là Filename có HyperLink (khi cần có thể click vào để Open file) nhưng hiên nay CAD chưa hỗ trợ HyperLink cho từng cell trong đối tuợng Table. Do đó LISP không thể tạo HyperLink đuợc.
- nút ADD ALL : có thể khắc phục bằng cách chọn Tag đầu tiên – nhấn và giữ phím Shift – chọn Tag cuối cùng – click vô ADD hoặc đơn giản hơn là dùng chụôt quét chọn toàn bộ Tag rồi click vô ADD.


...
Tổng kết lại mình mong muốn sản phẩm có thêm tính năng này nếu được thì sản phẩm này sẽ hoàn hảo luôn 'gia_bach' ạh.
1, Tính khả năng tự update, và tự chỉnh sửa cho nhau theo 2 chiều. Nếu chỉnh sửa ở bản vẽ thống kê drawing list thí nó sẽ update cho từng bản vẽ và ngược lại.
2, Thêm tính năng như exref (để chỉnh sửa hàng loạt).
3, Công tác nhập liệu sao cho dễ ràng hơn.
Gần cuối cùng mình xin cảm ơn sự chia sẻ của mọi người! :D

- khả năng tự update : hiên nay tôi chưa biết cách LinkField cho từng thuộc tính (attribute) trong đối tuợng block attribute. Do đó LISP không có khả năng tự Update.
- tính năng như exref : trong công việc, tui chưa từng sử dụng Exref (và cả block attribute) nên không hiểu nhiều về đối tuợng này. → pó tay. <_<
Và “Gần cuối cùng” : chẳng có gì là hoàn hảo cả. Hay chính xác hơn là với một số nguời là hoàn hảo nhưng với nguời khác thì không thậm chí có thể là bad or terrible. :cheers:


Bạn vô tình cứ chọc vào những điều mà lisp hiện nay không giải quyết được
....................................

Chính xác là chưa giải quyết được.

….............
Cho nên, Hãy trả Autolisp về với vị trí của nó;
Hãy sử dụng Lisp như một cuộc chơi, …

và cuộc chơi nào cũng có lúc ...



Tổng kết lại : do những hạn chế về kiến thức và sự hỗ trợ từ LISP, tôi chính thức ngưng phát triển Lisp Trích xuất thuộc tính này.

Hiên nay CAD cung cấp thư viện AutoCAD .NET API có thể truy xuất cơ sở dữ liệu của bản vẽ (database of a drawing file) ở mức cao hơn.
Các bạn quan tâm có thể tham khảo http://docs.autodesk...uide/index.html
Hy vọng trong một tuơng lai gần, CadViet sẽ có nhiều member trao đổi về AutoCAD .NET API .
  • 1

#79 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 23 March 2010 - 01:54 PM

..........
Hiên nay CAD cung cấp thư viện AutoCAD .NET API có thể truy xuất cơ sở dữ liệu của bản vẽ (database of a drawing file) ở mức cao hơn.
Các bạn quan tâm có thể tham khảo http://docs.autodesk...uide/index.html
Hy vọng trong một tuơng lai gần, CadViet sẽ có nhiều member trao đổi về AutoCAD .NET API .

Anh gia_bach có thể vui lòng giới thiệu sơ qua về AutoCAD .NET API được không?
Công cụ để lập trình nó, cách tiếp cận với nó......
Cảm ơn anh.
  • 0

#80 thiep

thiep

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 369 Bài viết
Điểm đánh giá: 260 (khá)

Đã gửi 23 March 2010 - 02:16 PM

Chào Thiep, Lisp EXA này PP chạy trên AutoCAD 2010 (bản quyền) thì xuất hiện lổi như sau:
(sau khi đã set đầy đủ các mục, rồi bấm vào nút Pick Insertpoint table>>)
Command: exa
Usage: (acet-ss-drag-move [] [
[]])
; error: ADS request error

Command:
Nhờ Thiep xem lại. Cám ơn nhiều.

Chào Phiphi-, Thật tiếc là mình không có AutoCAD 2010 (bản quyền), nên không test được. Tuy nhiên mình có nhờ 1 người bạn test trên AutoCAD 2010 không bản quyền vẫn chạy ngon mà? Lisp này Thiep viết có sử dụng nhiều hàm được lấy trong Expresstools, hàm acet-ss-drag-move là hàm sau khi table đã tạo xong và move đến vị trí của người dùng chọn. Vì vậy, Thiep tin rằng Cad của bạn đã cài Expresstools, nếu không nó đã báo lỗi ngay từ khi gặp hàm của Expresstools đầu tiên trong lisp này. Hàm acet-ss-drag-move có lẻ được viết bằng ngôn ngữ ObjectARX nên khi viết lisp trong visual lisp nó có chữ màu xanh. Nếu lỗi xảy ra, có thể AutoCAD 2010 (bản quyền) đã xây dựng lại hàm này với cú pháp đưa dữ liệu vào khác với AutoCAD 2010 không bản quyền, hoặc AutoCAD thấp hơn.
Thiep sẽ nghiên cứu kỹ hơn cú pháp của lệnh này khi máy báo lỗi:
(acet-ss-drag-move [] [ []])
  • 1