[Yêu cầu] Lisp đo đường bất kỳ

[hochoaivandot 111]

Cái hình ở bài viết đầu là phiên bản ban đầu.

Sau này mình đã update thêm các tính năng như sau.

Nhân tiện mình giới thiệu luôn ý tưởng để ketxu xem có giống ý tưởng bạn không?

 

Phần tỷ lệ thì có 2 lựa chọn, tự nhập hoặc theo Style

[Doan Van Ha 3.191]

Giá mà Hochoaivandot post free cho ai đó cần dùng thì chắc là tốt hơn rất nhiều khi đưa ra 1 vấn đề (đã được giải quyết) để người khác phải giải quyết.

[ketxu 2.984]

Ý tưởng thì nhiều HHVD ơi, ngay cả việc tự động thay đổi cả Dimension khi Object thay đổi cũng làm được, nhưng ketxu không mấy ham hố với nó nữa, có HHVD viết là quá đủ dùng rồi ^^ Như đã đề cập bên XDIT, chắc chắn trong 1 tương lai gần lệnh này sẽ xuất hiện trong CAD :D.

Phần show của HHVD thì giống ý mình rồi, các đối tượng đều được tạo theo dimvars

[HoaVien 14]

Giá mà Hochoaivandot post free cho ai đó cần dùng thì chắc là tốt hơn rất nhiều khi đưa ra 1 vấn đề (đã được giải quyết) để người khác phải giải quyết.

he he ...

Giá mà M$ free Windows cho bà con thì đỡ quá ?!

 

Giá mà Autodesk free AutoCad cho anh em CadViet thì hay hơn ....

[SoftvnBin 4]

Cho em spam câu này nhé : hi

:)))) Sau một hồi , bác Ketxu viết xong cho bác này chưa. mà đã thấy bác ấy yêu rồi kìa... :)hì hì hì

Dạ cho em hỏi tý, bác SoftvnBin là boy hay girl đấy ạ.

Dạ. Em xin trính trình UBND phường (thấy thiên hạ võ lâm bảo: trình bày lên phường mà :) ) rằng thì mà là: Em là boy đã có nơi có chốn ạ :), em còn trẻ lắm ạ, mới 32 tuổi ạ :) , em trình độ văn hóa 12/12 ạ, trình độ chuyên môn kỹ sư thủy lợi ạ, nghề nghiệp hiện tại: xây dựng gia đình và dân dụng ạ, còn gì nữa không ạ? à, rằng thì mà là anh cứ nghỉ để hỏi đi ạ, còn em giờ em xin về để nghỉ câu trả lời trước ạ, chân thành cảm ơn anh đã có lúc nghỉ em là girl ạ, thật ra nếu em mà là Girl thì anh chỉ còn da bọc xương thôi, hé hé.

 

 

P/S: Chân thành cảm ơn bác Ketxu, học hoài vẫn dốt (chí khí ghê) đã tạo điều kiện giúp đỡ, gia đình xin chân thành cảm ơn!!!

[Tue_NV 3.912]

Cái hình ở bài viết đầu là phiên bản ban đầu.

Sau này mình đã update thêm các tính năng như sau.

Nhân tiện mình giới thiệu luôn ý tưởng để ketxu xem có giống ý tưởng bạn không?

.......

Phần tỷ lệ thì có 2 lựa chọn, tự nhập hoặc theo Style

 

Hiệu quả chưa thật sự cao vì Tue_NV thấy thiếu chức năng MODIFY

Muốn có "bạc" nhiều thì phải có MODIFY mới được :lol:

 

Tỷ như muốn thay tiền tố hay hậu tố của dim thì phải tạo mới Dimstyle mới được??

Hoặc là muốn thay tỉ lệ dimlfac thì chắc là phải xoá rồi tạo mới??

Tạo nhiều Dimstyle cho nhiều tiền tố, hậu tố khác nhau khó quản lý lắm

Và chắc là chữ của Dim được tạo từ đối tượng TEXT???

[Detailing 281]

Hiệu quả chưa thật sự cao vì Tue_NV thấy thiếu chức năng MODIFY

Muốn có "bạc" nhiều thì phải có MODIFY mới được :lol:

 

Tỷ như muốn thay tiền tố hay hậu tố của dim thì phải tạo mới Dimstyle mới được??

Hoặc là muốn thay tỉ lệ dimlfac thì chắc là phải xoá rồi tạo mới??

Tạo nhiều Dimstyle cho nhiều tiền tố, hậu tố khác nhau khó quản lý lắm

Và chắc là chữ của Dim được tạo từ đối tượng TEXT???

Bởi vậy mới thấy có "ý tưởng" cũng chưa là gì cả

Thực hiện dc nó mới là vấn đề :D

Good luck for all!

[Tue_NV 3.912]

Bởi vậy mới thấy có "ý tưởng" cũng chưa là gì cả

Thực hiện dc nó mới là vấn đề :D

Good luck for all!

Thực hiện được nó chưa phải là vấn đề.

Thực hiện nó như thế nào? Nhờ nó năng suất làm việc đạt hiệu quả cao mới là vấn đề :D

[Detailing 281]

góp vui 1 cái, tuy ko bằng mấy cái ở trên và cũng ko viết bằng lisp luôn :D nhưng mình nghĩ có Grread thì hay hơn

 

 

Have fun!

[Detailing 281]

Chức năng update dim (text height and scale factor). có thể nhập chung vào lệnh Regen của CAD cho nó "đẹp" :D

Ngoài ra, mình nghĩ nên update thêm vài thứ khác: arrow, extend line, text position, ....

Khi nào rảnh làm tiếp. Have fun! :D

[ketxu 2.984]

Trông giống như là ứng dụng của Overrule vậy bác Thanh hén

[Detailing 281]

Trông giống như là ứng dụng của Overrule vậy bác Thanh hén

Nó ko phải ứng dụng của overrule mà là DrawJig (tương tự như Grread) :D.

trong lệnh này mình chỉ sử dụng dimvars: dimasz, dimtxt, dimscale, dimpost, dimdec để thể hiện cho "giống" dimension và để update nếu thay đổi dimstyle. Ngoài ra arrow ở 2 đầu là 2 leader nên khỏi quan tâm phần update :D

[ad.pham234 21]

Đây là lisp đo đường cong nhờ các pro viết giúp, chắc chắn sẽ có rất nhiều người cần:

(hoachoaivandot chưa share :) )

nguồn: http://cadonline.duyxuyen.vn/modules.php?name=Forums&file=viewtopic&p=95

Tiện ích 2: DCS và DCP Đo đường cong (Pline, line, arc, elip....)

Tên lệnh:

+ DCS : Dim Curve by Se.lecting object

<Kích thước đường cong bằng cách chọn vào đối tượng>

+ DCP : Dim Curve by Pick 2 point

<Kích thước đường cong bằng cách pick 2 điểm>

Cách dùng

+ DCS

(1) Se.lect curve: Chọn curve cần đo

(2) Specify text location: Pick điểm đặt text dim

 

+ DCP

(1) Se.lect curve: Chọn curve cần đo

(2) Pick the firt point: Pick điểm thứ nhất trên Curve

(3) Pick the second point: Pick điểm thứ 2 trên Curve

cho mình xin lip này với được ko mình cần gấp lắm