[Thảo luận] Viết lại các hàm Express

[ketxu 2.983]

Nhân có topic về việc sử dụng hay không đối với các hàm ACET, ketxu lập ra topic này, ai không phải là tín đồ hoặc tín đồ bất đắc dĩ của ACET có thể cùng nhau trao đổi cách viết lại các hàm của ACET thành 1 cái j đó portable hơn và hoàn thiện hơn ^^

 

Danh sách các hàm đã được viết lại :

 

acet-ss-to-list

 

acet-ss-visible

 

acet-list-to-ss

 

acet-dxf

 

acet-pixel-unit

 

acet-sys-sleep

 

 

P/s : Ketxu srr vì tiêu đề, chưa thấy thêm quy định về dạng bài này ^^

 

 

 

[hochoaivandot 111]

Nhân có topic về việc sử dụng hay không đối với các hàm ACET, ketxu lập ra topic này, ai không phải là tín đồ hoặc tín đồ bất đắc dĩ của ACET có thể cùng nhau trao đổi cách viết lại các hàm của ACET thành 1 cái j đó portable hơn ^^

 

P/s : Ketxu srr vì tiêu đề, chưa thấy thêm quy định về dạng bài này ^^

 

Các hàm này ACET có lợi đối với người viết Lisp (Code nhanh gọn, dễ hiểu), nhưng không có lợi đối với người dùng không biết Lisp (Không biết nguyên tắc phải cài Express tools).

Nếu lisp mình viết ra chỉ mình dùng thì cứ dùng acet. Nhưng nếu bạn viết cho nhiều người dùng (bán chẳng hạn) thì không chơi thằng này kẻo khách hàng la làng.

Express tools không phải ai cũng biết đến chứ đừng nói đến cài...

Nếu Cadviet viết lại Acet thì em khoái quá, ủng hộ 200%.

P/S: Nếu các bác viết, em đề xuất tên lệnh thay acet = Cadv

[Detailing 281]

Nhân có topic về việc sử dụng hay không đối với các hàm ACET, ketxu lập ra topic này, ai không phải là tín đồ hoặc tín đồ bất đắc dĩ của ACET có thể cùng nhau trao đổi cách viết lại các hàm của ACET thành 1 cái j đó portable hơn ^^

 

P/s : Ketxu srr vì tiêu đề, chưa thấy thêm quy định về dạng bài này ^^

Ket định viết lại bằng ngôn ngữ gì?

Viết lại hay "viết hơn" ?

Freeware hay Shareware? (chắc Free rồi hehe)

 

 

Các hàm này ACET có lợi đối với người viết Lisp (Code nhanh gọn, dễ hiểu), nhưng không có lợi đối với người dùng không biết Lisp (Không biết nguyên tắc phải cài Express tools).

Express Tools là dùng các hàm ACET để thể hiện nên ko thể nói ko hưởng lợi từ nó.

[ketxu 2.983]

Arx mình không biết rồi. VB còn bập bõm ^^

Ở mục tiêu đầu, chỉ cố gắng với lisp thôi, được hàm nào hay hàm đó ^^. 1 số hàm thì rất khủng nhưng một số cũng ngắn gọn thôi ^^.

Nếu ai viết được bằng ngôn ngữ khác thì tốt quá, sẽ có lợi cho các bạn khác

 

Nào, mọi người bồ kết hàm nào thì ta bắt đầu nghiên cứu hàm đó ^^

[Doan Van Ha 3.180]

Một ý kiến nhỏ, trong đó có 2 ý kiến nhỏ hơn:

1). Lý do chính đáng để viết lại (hoặc viết hay hơn) acet?

2). Tại sao một số (theo hiểu biết cá nhân) bô lão lisp ở nước ngoài lại rất ít dùng đến acet mặc dầu có khi dùng nó thì code rất gọn?

Tôi vẫn rất thích các hàm acet vì chúng ngon-bổ-rẻ, nhưng đang rất băn khoăn khi dùng, bởi nếu đã lỡ viết một phần mềm dài hơi (có dùng acet) mà ngộ nhỡ sau này có chuyện gì thì... toi!

Mong được nghe chia sẻ.

Thân thương!

[Detailing 281]

Một ý kiến nhỏ, trong đó có 2 ý kiến nhỏ hơn:

1). Lý do chính đáng để viết lại (hoặc viết hay hơn) acet?

2). Tại sao một số (theo hiểu biết cá nhân) bô lão lisp ở nước ngoài lại rất ít dùng đến acet mặc dầu có khi dùng nó thì code rất gọn?

Tôi vẫn rất thích các hàm acet vì chúng ngon-bổ-rẻ, nhưng đang rất băn khoăn khi dùng, bởi nếu đã lỡ viết một phần mềm dài hơi (có dùng acet) mà ngộ nhỡ sau này có chuyện gì thì... toi!

Mong được nghe chia sẻ.

Thân thương!

Theo mình thì ACET giống như 1 third party nên nếu viết 1 chương trình mà dùng nó thì khi share phải kèm nó theo. Để tránh trường hợp 1 số máy ko có Express Tools thì họ ko dùng.

Lý do thứ 2 là nó chưa đáp ứng nhu cầu của họ

thứ 3 họ ko biết nó chạy như thế nào nên ko thích dùng.

Bạn cứ dùng ACET đi ngộ nhỡ sau này như thế nào thì bạn copy các hàm chứa ACET bây giờ theo là OK

Thân!

[ketxu 2.983]

Một ý kiến nhỏ, trong đó có 2 ý kiến nhỏ hơn:

1). Lý do chính đáng để viết lại (hoặc viết hay hơn) acet?

2). Tại sao một số (theo hiểu biết cá nhân) bô lão lisp ở nước ngoài lại rất ít dùng đến acet mặc dầu có khi dùng nó thì code rất gọn?

Tôi vẫn rất thích các hàm acet vì chúng ngon-bổ-rẻ, nhưng đang rất băn khoăn khi dùng, bởi nếu đã lỡ viết một phần mềm dài hơi (có dùng acet) mà ngộ nhỡ sau này có chuyện gì thì... toi!

Mong được nghe chia sẻ.

Thân thương!

Bác thấy là các hàm xịn xịn 1 tí là y như rằng nó găm trong arx với fas, nên nếu viết 1 cái gì đó của mình thì không nên dùng cái không tường minh của người khác.

Với lại việc ngắn gọn có nghĩa chi đâu. Mình cũng chỉ viết 1 lần rồi lần sau copy tên hàm chứ có chi đâu ^^

[Tue_NV 3.912]

Bác thấy là các hàm xịn xịn 1 tí là y như rằng nó găm trong arx với fas, nên nếu viết 1 cái gì đó của mình thì không nên dùng cái không tường minh của người khác.

Với lại việc ngắn gọn có nghĩa chi đâu. Mình cũng chỉ viết 1 lần rồi lần sau copy tên hàm chứ có chi đâu ^^

Mình thấy các hàm acet thì vẫn tường minh đấy chứ?

Mình thì thấy không cần viết lại acet vì bản thân bạn dùng các hàm Lisp thì cũng chính là đang sử dụng của người khác đấy thôi. Chỉ cần nắm vững bản chất của nó là được.

 

Có 1 số hàm acet thuộc loại hàng độc, không dễ gì viết lại nó.

Mình đồng ý với ý kiến của bạn hochoai là không phải ai cũng biết đến Express.

Nên chăng, chúng ta nghiên cứu vấn đề là khi mở CAD là Express Tools tự động load lên luôn?

Mình cũng có đôi dòng vậy

 

Còn chuyện "toi" của bạn DoanVanHa thì bạn cứ yên tâm. Không bao giờ "toi" được đâu. Vì mọi bản CAD đều có hỗ trợ Express (tính từ CADR14). hì hì

[ketxu 2.983]

Bác Tuệ định nghĩa như thế nào là tường minh ạ ^^ Khi mà ngay cả đến cú pháp các hàm trong bộ Express ta còn chưa lần ra hết...

 

Còn vụ sử dụng của người khác, nếu khái quát hóa thì tất nhiên ai trong chúng ta đang ngồi typing hoặc lướt Net đây đều xài hàng của ng khác ^^

 

Quan điểm của em vẫn là nếu k thể đừng được thì mới xài tới ACET ^^

[Doan Van Ha 3.180]

Tôi thì thấy rằng: chưa có bác nào đưa ra được 1 lý do thật sự thuyết phục để viết lại acet cả.

Thân thương!

[Tue_NV 3.912]

Bác Tuệ định nghĩa như thế nào là tường minh ạ ^^ Khi mà ngay cả đến cú pháp các hàm trong bộ Express ta còn chưa lần ra hết...

 

Còn vụ sử dụng của người khác, nếu khái quát hóa thì tất nhiên ai trong chúng ta đang ngồi typing hoặc lướt Net đây đều xài hàng của ng khác ^^

 

Quan điểm của em vẫn là nếu k thể đừng được thì mới xài tới ACET ^^

Tường minh theo mình hiểu là cái nào mà "lần" ra được rồi, đọc code mà hiểu rồi. hoặc những hàm nào đã có help giải thích rồi. Đó là tường minh vậy. Và Tue_NV đang nói tới cái tường minh. Và đương nhiên, viết lại những cái không tường minh thì mình ủng hộ. Và còn viết lại những hàm acet hoạt động theo cơ chế "command" nữa, mình ủng hộ luôn, hề hề

 

Sử dụng Acet theo Ketxu là cái sử dụng của người khác. Sử dụng các hàm Lisp thì xin bạn hiểu cho cũng là sử dụng của người khác. Đằng nào cũng sử dụng của người khác. Hà tất gì phải viết lại những hàm acet tường minh nữa. Các bạn thích thì các bạn tham gia, mình xin rút lui, vì cái đó đã có rồi, mình đi làm việc khác còn có ý nghĩa hơn

 

P/S: Ơ mà những hàm acet không tường minh thì có biết nó hoạt động như thế nào đâu mà viết lại nhỉ? (Do không biết về công dụng của nó như thế nào đâu các bạn nhỉ?)

[Tue_NV 3.912]

Tôi thì thấy rằng: chưa có bác nào đưa ra được 1 lý do thật sự thuyết phục để viết lại acet cả.

Thân thương!

Viết lại các hàm acet hoạt động theo cơ chế "command" là 1 việc nên làm, bạn ạ.

Bạn phản biện đi nào? hề hề (Bài trích dẫn trên bạn vừa sửa phải không nào?)

[ketxu 2.983]

Sử dụng Acet theo Ketxu là cái sử dụng của người khác. Sử dụng các hàm Lisp thì xin bạn hiểu cho cũng là sử dụng của người khác. Đằng nào cũng sử dụng của người khác. Hà tất gì phải viết lại những hàm acet tường minh nữa. Các bạn thích thì các bạn tham gia, mình xin rút lui, vì cái đó đã có rồi, mình đi làm việc khác còn có ý nghĩa hơn

 

P/S: Ơ mà những hàm acet không tường minh thì có biết nó hoạt động như thế nào đâu mà viết lại nhỉ? (Do không biết về công dụng của nó như thế nào đâu các bạn nhỉ?)

Như Detail có nói rồi, Express vẫn là third-party. Chỉ câu đó là đủ nói lên tất cả.

Khi nào nó chuyển vào built-in (như quá trình cho các lệnh về layer) vào CAD thì nó mới trở thành chính thống hè

 

Người dùng CAD lâu rồi thì người ta hiểu được lợi ích của Express, nhưng, chẳng nói đâu xa, như bác Tuệ với sản phẩm ASD12 hôm nọ, nếu chẳng may công việc của bác đang là dùng hàng "nhớ phải cài Express nhé",việc thì sếp giao sát hông, bác tất sẽ cảm nhận được sự khó chịu của nó.

 

Các bác biết là ACET gồm 1 hệ thống các hàm ràng buộc trong các file.Việc viết lại (nếu được) 1 số hàm của Express k có nghĩa là ta chạy đi thay thế lại toàn bộ nó, mà chỉ dùng những cái ta cần.Mà bộ Express không hề ít file, vậy nếu trong 1 chương trình chỉ dùng 1,2 cái hàm của acet, tại sao lại phải vác cả nó theo ???

Đơn cử như chỉ dùng hàm acet-dxf, hoặc acet-rtod, acet-ss-to-list, acet-list-to-ss.... mà ôm nguyên mấy chục file của ACET làm chi ???

 

Vấn đề Express cũng tương tự như hộp thoại DCL của lisp vậy. Nếu các bác không ngại 3-party, vậy sao không kèm OpenDCL (khoảng mấy Mb), để công việc thiết kế dialog cũng nhẹ nhàng như VB vậy ?

 

P/s của bác Tuệ : Những hàm có help được coi như là tường minh.Nhưng đôi khi ta gặp một ví dụ đơn giản như hàm acet-sysvar-set , acet-sysvar-restore. Biết rõ là cách dùng cực đơn giản, nhưng có mấy khi ta để ý là nó lưu cái global ở đâu ? Có khi nào không phù hợp với tiêu chí của mình

Một số người rất căm ghét việc can thiệp vào registry, vậy nếu 2 hàm này thực hiện trên cơ chế lưu vào registry ? Hoặc giả 1 số người ghét tạo file log trên máy người khác, mà 2 hàm này lại ghi biến này vào đâu đó ??

[Doan Van Ha 3.180]

Viết lại các hàm acet hoạt động theo cơ chế "command" là 1 việc nên làm, bạn ạ.

Bạn phản biện đi nào? hề hề (Bài trích dẫn trên bạn vừa sửa phải không nào?)

 

Tôi sửa, và bác biết tôi sửa rồi thì quay lại làm gì. Vâng, tôi đồng ý là nếu acet mà dùng command thì không ngon lắm, nhưng đây chỉ là 1 số acet thôi mà. Về khía cạnh liên quan tới command thì tôi đồng ý, nhưng mình đang bàn đến tất cả acet cơ mà.

[ketxu 2.983]

K bác. Mình bàn cách viết lại các hàm của Express để dùng thuận tiện (vì thực tế trong Express có những hàm chẳng bác nào có ý định dùng), chứ không phải cả bộ!

[Tue_NV 3.912]

Có lẽ là mình xài toàn hàng "độc" của Express mà với Lisp thì chưa biết chắc có làm được không nữa? nên đằng nào củng sử dụng hàm "kèm theo". Bởi thế mới nghĩ đến chuyện là tự Load express lên luôn khi nó chưa cài đặt

Mình bị thuyết phục bởi KetXu rồi.

 

@DoanVanHa : Xin lỗi bạn nhé!

Xin cảm ơn tất cả

[Doan Van Ha 3.180]

Các bác cho bàn thêm chút này xíu, không biết có sai lầm chỗ nào không:

1). Ý tưởng load thằng Express của bác Tue_NV: hình như trên CV đã có topic nói về load cả thư mục rồi thì phải? Nhưng liệu nó có nằm cố định trong các phiên bản khác nhau?

2). Viết lại 1 số hàm acet chưa hay của Ketxu: OK thôi, nhưng đi đâu mình cũng phải xách gói này theo nhỉ?

Thân thương!

[hochoaivandot 111]

Các bác cho bàn thêm chút này xíu, không biết có sai lầm chỗ nào không:

1). Ý tưởng load thằng Express của bác Tue_NV: hình như trên CV đã có topic nói về load cả thư mục rồi thì phải? Nhưng liệu nó có nằm cố định trong các phiên bản khác nhau?

2). Viết lại 1 số hàm acet chưa hay của Ketxu: OK thôi, nhưng đi đâu mình cũng phải xách gói này theo nhỉ?

Thân thương!

 

Cái này mình làm rồi. Folder Express nằm cùng vị trí thằng acad.exe. (vl-filename-directory (findfile "acad.exe")). Không quan tâm Ver Cad, Win gì...

 

P/S: Nếu Doan Van Ha muốn hỏi tương lai có đổi vị trí không thì ai biết. Nhưng cho đến bây giờ thì nó luôn ở xóm đó.

[Detailing 281]

Sử dụng Acet theo Ketxu là cái sử dụng của người khác. Sử dụng các hàm Lisp thì xin bạn hiểu cho cũng là sử dụng của người khác. Đằng nào cũng sử dụng của người khác. Hà tất gì phải viết lại những hàm acet tường minh nữa. Các bạn thích thì các bạn tham gia, mình xin rút lui, vì cái đó đã có rồi, mình đi làm việc khác còn có ý nghĩa hơn

Bạn Tue_NV hiểu sai rồi

các hàm lisp là hàm cơ sở giống như các phép toán + - (ngôn ngữ C/C++ cho phép bạn định nghĩa lại các phép toán này)

các hàm ACET giống như 1 function gồm nhiều hàm cơ sở gộp lại (tạm gọi là 1 defun) -> giải quyết 1 vấn đề.

Các hàm ACET dùng "command" là để tương thích với mọi phiên bản AutoCAD chứ ko phải nhà phát triển họ ko biết làm :D vì ACET chủ yếu được viết bằng C++ cần phải reference thư viện theo từng phiên bản CAD

Thân!

[Tue_NV 3.912]

Bạn Tue_NV hiểu sai rồi

các hàm lisp là hàm cơ sở giống như các phép toán + - (ngôn ngữ C/C++ cho phép bạn định nghĩa lại các phép toán này)

các hàm ACET giống như 1 function gồm nhiều hàm cơ sở gộp lại (tạm gọi là 1 defun) -> giải quyết 1 vấn đề.

Các hàm ACET dùng "command" là để tương thích với mọi phiên bản AutoCAD chứ ko phải nhà phát triển họ ko biết làm :D vì ACET chủ yếu được viết bằng C++ cần phải reference thư viện theo từng phiên bản CAD

Thân!

Thì cũng là của các nhà sản xuất mà.

Bạn và tôi đều ở vị trí người sử dụng mà thôi.

[phamthanhbinh 3.146]

Các bác cho bàn thêm chút này xíu, không biết có sai lầm chỗ nào không:

1). Ý tưởng load thằng Express của bác Tue_NV: hình như trên CV đã có topic nói về load cả thư mục rồi thì phải? Nhưng liệu nó có nằm cố định trong các phiên bản khác nhau?

2). Viết lại 1 số hàm acet chưa hay của Ketxu: OK thôi, nhưng đi đâu mình cũng phải xách gói này theo nhỉ?

Thân thương!

Hề hề hề,

Xin phép các bác cho nói leo một chút.

Quan điểm của mình, một thằng đi mót thì đơn giản như sau:

1/- Thấy cái gì hay thì mót về và cố tìm hiểu cho nó thủng hẵng dùng, Chưa thủng chưa dùng vì ngay cả là lisp mà nếu không thủng cũng dễ ăn đòn lắm.

2/- Lisp hay acet hay gì gì gì gi cái gì cũng vậy, người ta đã mất công sức để làm ra nó thì có nhẽ chả bao giờ là vô nghĩa cả. Có thể là hay, hoặc chưa hay với người này hay với người khác, song ắt là nó không thừa với cộng đồng. Đó là đồ miễn phí nên việc lựa chọn dùng hay không dùng là do người sử dụng quyết định trong từng điều kiện cụ thể.

3/- Mèo trắng hay mèo đen, miễn bắt chuột được là mèo tốt. Cho nên khi có chuột thì nên nuôi mèo . Đã vào lúc cần đến đít thì chả cứ lisp hay acet mà cứ cái chi giải quyết được việc cho mình thì xài thôi.

4/- Việc nghiên cứu để chỉnh sửa hay hoàn thiện hay làm cho nó tiện dụng hơn thì chả cứ acet mà với bất cứ cái của nợ nào cũng nên làm cả, mặc dầu có thể là làm xong mới biết là không cần nữa. Bởi chưng có thể là mình không cần, nhưng mình sẽ thu được nhiều thứ từ cái việc làm đó. Hơn nữa sẽ vẫn có nhiều người cần tới cái mình đã làm......

5/- Việc nghiên cứu này đòi hỏi cả công sức,trí tuệ lẫn nhiệt huyết khá lớn vì nó không hề là đơn giản. Vậy nên chí ít cũng mong mọi người ủng hộ nhiệt thành, Với cái vốn liếng đi mót chửa đầy cái mẹt, mình cũng sẽ cố gắng để nếu có thể sẽ đóng góp công sức cùng mọi người.

 

Chúc cho đề án này thành công.

Hề hề hề,...

[ketxu 2.983]

Vậy mọi người đóng góp dần dần nhé. Ketxu khai súng nhé.

Đầu tiên là hàm ACET-ss-to-list, hàm này chuyển tập chọn về list ename. Nâng cấp lên 1 bước cho nó có thể chuyển cả về vlaObject

;|Ham chuyen ss -> list ename hoac vlaObject
@ketxu 21-11-11
Doi so :
ss : tap chon SS
vla : T hoac nil : Quy dinh chuyen sang Vla hay khong
Tra ve list doi tuong (ename hoac Vla)
|;
(defun CV:ss-to-list (ss vla / n e l)
 (setq n (sslength ss))
 (while (setq e (ssname ss (setq n (1- n))))
(setq l (cons (if vla (vlax-ename->vla-object e) e) l))
 ) 
) 

Sử dụng :

(CV:ss-to-list (ssget) nil)

(CV:ss-to-list (ssget) T)

[ketxu 2.983]

Tiếp theo là hàm ngược lại : acet-list-to-ss : hàm này cho phép convert list các ename thành tập chọn ss

- Nhược điểm : đối số chỉ cho phép list ename

=> nâng cấp cho nó làm việc với cả sự xuất hiện của vlaObject trong list

;|Ham chuyen list ename hoac vla-Object ve tap ss  
@ketxu 21-11-11
Doi so :
- lst : list cac ename hoac vlaObject (lan lon)
Tra ve : tap chon ss
|;
(defun CV:List-to-ss (lst / ss)
(setq ss (ssadd))
(foreach item lst
 (or (= (type item ) 'Ename)
  (setq item (vlax-vla-object->ename  item)))
 (setq ss (ssadd item ss))
)
ss
)

Sử dụng :

(CV:List-to-ss (CV:ss-to-list (ssget) T))

[phamthanhbinh 3.146]

Tiếp theo là hàm ngược lại : acet-list-to-ss : hàm này cho phép convert list các ename thành tập chọn ss

- Nhược điểm : đối số chỉ cho phép list ename

=> nâng cấp cho nó làm việc với cả sự xuất hiện của vlaObject trong list

 

Sử dụng :

(CV:List-to-ss (CV:ss-to-list (ssget) T))

Hề hề hề,

Có một vấn đề mình muốn hỏi là: Với các hàm như vầy liệu có gặp cái lỗi Unknown do chưa load (vl-load-com) không hè??? Và như vầy thì có cách nào để không mắc vào thằng vlax.... không hè???

Hề hề hề,

[ketxu 2.983]

Hề hề hề,

Có một vấn đề mình muốn hỏi là: Với các hàm như vầy liệu có gặp cái lỗi Unknown do chưa load (vl-load-com) không hè??? Và như vầy thì có cách nào để không mắc vào thằng vlax.... không hè???

Hề hề hề,

 

Chắc chắn là có bác ạ. Vì vậy khi viết lisp nếu sử dụng bất kỳ hàm nào của Vlisp ta đều cần có (vl-load-com) ở đầu. Vì hàm này chỉ cần load 1 lần cho toàn phiên làm việc nên trong từng hàm con ta không nên đưa nó vào nữa