Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
36 replies to this topic

#1 SoftvnBin

SoftvnBin

    biết vẽ ellipse

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

Đã gửi 21 June 2012 - 10:20 AM

Đâ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.duy...=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
Hình đã gửi

+ 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
Hình đã gửi
  • 1

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 21 June 2012 - 11:16 AM

Có rồi sao bắt làm lại mần chi bạn ơi :)

Về cơ bản thì Lisp 1 sẽ offset đối tượng gốc ra để làm Dimline, tạo Ext Line, Arrow và Text Measurement và gộp nó lại vào 1 Block
Lisp 2 thì thêm bước Break tại 2 điểm Closet từ điểm Pick đến đối tượng Offset

- Một là bạn chờ hochoaivandot share - hoặc liên hệ với hochoaivandot luôn
- Hai là tìm kiếm xung quanh các tag curve, dimension, dim poly, dimarc, dim spline.... sẽ có nhiều thứ để mót
- 3 là bạn chờ bác nào ở trên CV rảnh viết giùm bạn
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 SoftvnBin

SoftvnBin

    biết vẽ ellipse

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

Đã gửi 21 June 2012 - 02:02 PM

Có rồi sao bắt làm lại mần chi bạn ơi :)

Về cơ bản thì Lisp 1 sẽ offset đối tượng gốc ra để làm Dimline, tạo Ext Line, Arrow và Text Measurement và gộp nó lại vào 1 Block
Lisp 2 thì thêm bước Break tại 2 điểm Closet từ điểm Pick đến đối tượng Offset

- Một là bạn chờ hochoaivandot share - hoặc liên hệ với hochoaivandot luôn
- Hai là tìm kiếm xung quanh các tag curve, dimension, dim poly, dimarc, dim spline.... sẽ có nhiều thứ để mót
- 3 là bạn chờ bác nào ở trên CV rảnh viết giùm bạn

Cảm ơn bác Ketxu đã compments, em xin giải trình như sau::)
+ Một: đã chờ hochaivandot gần 1/2 năm vẫn chưa thấy share.
+ Hai: Đã google hết khả năng 1 tuần nay rồi mà vẫn không được (đã mót được một số thứ nhưng không mót ra được cái mình cần:(
+ Ba: Hy vọng bác nào đó viết giúp hoặc đã có share cho mình với:)
  • 0

#4 onfuture

onfuture

    biết vẽ rectang

  • Members
  • PipPip
  • 88 Bài viết
Điểm đánh giá: 13 (tàm tạm)

Đã gửi 21 June 2012 - 02:14 PM

Pác nào có thì share cho e với nhé. Ths pac.

saigoncanhquan@gmail.com
  • 0

#5 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 21 June 2012 - 02:38 PM

Vậy thì có khả năng Lisp này không phải free share ^^ Vậy bạn nên vui lòng liên hệ trực tiếp với tác giả và đặt vấn đề :P Hoặc đặt vấn đề với tớ cũng được nè. Hì :P
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#6 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 June 2012 - 02:44 PM

Cảm ơn bác Ketxu đã compments, em xin giải trình như sau: :)
+ Một: đã chờ hochaivandot gần 1/2 năm vẫn chưa thấy share.
+ Hai: Đã google hết khả năng 1 tuần nay rồi mà vẫn không được (đã mót được một số thứ nhưng không mót ra được cái mình cần:(
+ Ba: Hy vọng bác nào đó viết giúp hoặc đã có share cho mình với:)

+ Một: đồng ý với Ketxu.

+ Hai: google cũng cần có "kĩ nghệ"

+ Ba: nếu đặt vấn đề với Ketxu không xong, thì ..với tớ :P
  • 0

#7 SoftvnBin

SoftvnBin

    biết vẽ ellipse

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

Đã gửi 21 June 2012 - 02:48 PM

Đã liên hệ với tác giả, tác giả đang hẹn (thấy tác giả đi công tác suốt từ tháng 12/2011 đến giờ vẫn chưa về, thật lá ái mộ :) )
Đợi chờ thật là sốt ruột :) => chọn phương án liên hệ với Ketxu trước
Đặt vấn đề với Ketxu: 50k tiền xăng xe nhá Ketxu (chuyển = đô nhá :) ) hay thẻ game, thẻ điện thoại nhảy
  • 1

#8 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 21 June 2012 - 02:53 PM

Đợi 1/2 năm! Google 1 tuần! Trả 50k! Sao rẻ thế! :lol:
Bác Gia_Bach không được phá giá nhé! :lol:
  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#9 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 21 June 2012 - 02:54 PM

Đã liên hệ với tác giả, tác giả đang hẹn (thấy tác giả đi công tác suốt từ tháng 12/2011 đến giờ vẫn chưa về, thật lá ái mộ :) )
Đợi chờ thật là sốt ruột :) => chọn phương án liên hệ với Ketxu trước
Đặt vấn đề với Ketxu: 50k tiền xăng xe nhá Ketxu (chuyển = đô nhá :) ) hay thẻ game, thẻ điện thoại nhảy


Ketxu dùng thuê bao, đi xe bus, không chơi điện tử ^^ Mình nghĩ nếu đặt vấn đề thì bạn nên mời người viết giúp bạn (hoặc mình hoặc ai đó ở đây) 1 bữa cafe sẽ ý nghĩa hơn, vì nếu bạn là người viết bạn sẽ so sánh được giá trị của 50k so với công người ta viết ra ^^
  • 2

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#10 SoftvnBin

SoftvnBin

    biết vẽ ellipse

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

Đã gửi 21 June 2012 - 03:09 PM

Thật ra mình nói đùa vậy thôi Ketxu à (đừng giận nhé :) ), chứ 50k thì ý nghĩa gì đâu, nói ra khéo ai đó lại bảo mình khít răng :) , Mình ở Vĩnh Phúc, nếu Ketxu hoặc ai đó đến VĨnh Phúc mình mời nhiệt tình một bựa nhậu ra trò ấy chứ, tất nhiên rượu vào sẽ có cafe + karaoke đi kèm là hiển nhiên, hehe (nói đến làm mình lại khoái :angry2: )
yahoo: vjps_noob_pros@yahoo.com
Vậy thật lòng nhờ Ketxu viết giúp mình nhé, Ketxu :)
  • 0

#11 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 June 2012 - 03:10 PM

Đợi 1/2 năm! Google 1 tuần! Trả 50k! Sao rẻ thế! :lol:
Bác Gia_Bach không được phá giá nhé! :lol:




Ketxu dùng thuê bao, đi xe bus, không chơi điện tử ^^ Mình nghĩ nếu đặt vấn đề thì bạn nên mời người viết giúp bạn (hoặc mình hoặc ai đó ở đây) 1 bữa cafe sẽ ý nghĩa hơn, vì nếu bạn là người viết bạn sẽ so sánh được giá trị của 50k so với công người ta viết ra ^^


Mấy hôm truớc đọc bài của ThaiStreet "so với nghề xây dựng thì nghề lập trình còn bạc hơn rất nhiều", mình tưởng "bạc hơn rất nhiều" là $$ hơn rất nhiều ??? :lol:

Hóa ra mình hiểu nhầm ??? !!!!
  • 0

#12 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 21 June 2012 - 03:47 PM

Hiii. Lâu rồi em không vào Cadviet thấy rôm rả ghê. Hic hic. Muốn đi theo nhưng lại phải tái cơ cấu sản xuất ngành nghề nên em ko tiếp tục lúc này được. Hẹn các bác ngày trở về của em. Sau này nhờ Ketxu giúp nhé. Thấy mng viết lisp soành soạch mà sướng. Em xin lỗi spam chút. Hic
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#13 Detailing

Detailing

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 667 Bài viết
Điểm đánh giá: 278 (khá)

Đã gửi 21 June 2012 - 03:53 PM

Mấy hôm truớc đọc bài của ThaiStreet "so với nghề xây dựng thì nghề lập trình còn bạc hơn rất nhiều", mình tưởng "bạc hơn rất nhiều" là $$ hơn rất nhiều ??? :lol:

Hóa ra mình hiểu nhầm ??? !!!!

Tuỳ theo "lập" cái gì và "trinh" như thế nào thì "bạc" nó theo thế đấy bác ạh :D
have fun!
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#14 SoftvnBin

SoftvnBin

    biết vẽ ellipse

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

Đã gửi 21 June 2012 - 06:48 PM

Vẫn mong Ketxu và các bro giúp đỡ, gia đình có lời cảm ơn chân thành và sâu sắc, thân ái và quyết thắng
  • 0

#15 SoftvnBin

SoftvnBin

    biết vẽ ellipse

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

Đã gửi 22 June 2012 - 08:26 AM

Vẫn chờ, vẫn mong ngóng các pro bớt chút thời gian giúp đỡ.............
  • 0

#16 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 22 June 2012 - 11:11 AM

Viết sơ cua demo xong rồi, tối về rảnh chờ Êu rô mình post link
  • 2

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#17 SoftvnBin

SoftvnBin

    biết vẽ ellipse

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

Đã gửi 22 June 2012 - 03:37 PM

Yêu thế, Ketxu ơi!!!!!!!!!!!
  • 0

#18 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 107 (tàm tạm)

Đã gửi 22 June 2012 - 03:50 PM

Đã liên hệ với tác giả, tác giả đang hẹn (thấy tác giả đi công tác suốt từ tháng 12/2011 đến giờ vẫn chưa về, thật lá ái mộ :) )
Đợi chờ thật là sốt ruột :) => chọn phương án liên hệ với Ketxu trước
Đặt vấn đề với Ketxu: 50k tiền xăng xe nhá Ketxu (chuyển = đô nhá :) ) hay thẻ game, thẻ điện thoại nhảy


Éc éc ...

Mấy hôm truớc đọc bài của ThaiStreet "so với nghề xây dựng thì nghề lập trình còn bạc hơn rất nhiều", mình tưởng "bạc hơn rất nhiều" là $$ hơn rất nhiều



Thật ra quan trọng là ý tưởng nghỉ ra thôi.
Còn khi đã có ý tưởng thì ai biết lisp ít ít thôi cũng sẽ viết được.
Nhiều người viết, trong đó có 1 người free thì sẽ bạc ... thui.
  • 0

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#19 SoftvnBin

SoftvnBin

    biết vẽ ellipse

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

Đã gửi 22 June 2012 - 04:13 PM


Éc éc ...

[/font][/color]

Thật ra quan trọng là ý tưởng nghỉ ra thôi.
Còn khi đã có ý tưởng thì ai biết lisp ít ít thôi cũng sẽ viết được.
Nhiều người viết, trong đó có 1 người free thì sẽ bạc ... thui.


Thật ra mình nói đùa vậy thôi Ketxu à (đừng giận nhé :) ), chứ 50k thì ý nghĩa gì đâu, nói ra khéo ai đó lại bảo mình khít răng :) , Mình ở Vĩnh Phúc, nếu Ketxu hoặc ai đó đến VĨnh Phúc mình mời nhiệt tình một bựa nhậu ra trò ấy chứ, tất nhiên rượu vào sẽ có cafe + karaoke đi kèm là hiển nhiên, hehe (nói đến làm mình lại khoái :angry2: )
yahoo: vjps_noob_pros@yahoo.com
Vậy thật lòng nhờ Ketxu viết giúp mình nhé, Ketxu :)


Có số điện thoại 09...134.568 gọi và nhắn tin cho số 09....399.773 vào hồi 10h16' ngày ............. :)
à há, anh đã về rồi à :)
  • 0

#20 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 22 June 2012 - 04:16 PM

Hê hê. Khi viết lisp cho bài này ketxu mới nhớ ra 1 trường hợp khá thú vị, vì không phải cứ offset là ra 1 đối tượng, hoặc nảy sinh các vấn đề về Option :) Tất nhiên, free cũng ở một giới hạn nào đó thôi
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC