Đến nội dung


Hình ảnh

giúp xác định 1 độ dài cho trước trên 1 đường cong


  • Please log in to reply
23 replies to this topic

#1 vodanh314

vodanh314

    Chưa sử dụng CAD

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

Đã gửi 03 November 2014 - 11:49 AM

Mình đang gặp một vấn đề như sau không biết làm thế nào mong các bạn chỉ giúp, cảm ơn nhiều:

 

mình có một đoạn đường cong (spline chẳng hạn) có động dài là a (dùng lệnh list đo được length = a ) , giờ mình muốn chọn một điểm trên đường cong này một đoạn bằng b ( b < a) tính từ điểm đầu của đường cong thì làm thế nào ạ?

 

Mong cảm các bạn chỉ giúp

(xem file ví dụ đính kèm)

 

Thanks

 

http://www.cadviet.c...90_untitled.dwg


  • 0

#2 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 03 November 2014 - 12:30 PM

Bạn dùng lsp này, cái này đo kc từ 2 đầu dg cong, vì nhìu khi mình đâu biết cái nào đầu cái nào đuôi.

Chọn dg cong, điểm đầu và kc tới điểm đó.

 


(defun C:dkc()
  (defun cach (v p1 len / a1)
    (vlax-curve-getPointatDist v
       (abs (- (vlax-curve-getDistAtPoint v (vlax-curve-getClosestPointTo v p1)) len )))
  )
  (if (/= (getvar 'pdmode) 3) (setvar 'pdmode 3))
  (entmake (list '(0 . "POINT")
(cons 10 (cach (car (entsel "\nChon duong cong:")) (getpoint "\nDiem dau:") (getreal "\nDo dai:"))))
  )
  (princ)
)

  • 1

#3 vodanh314

vodanh314

    Chưa sử dụng CAD

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

Đã gửi 03 November 2014 - 01:40 PM

cảm ơn Tot77 , lisp hay quá. 

 

Có nghĩa là phải dùng lisp chứ không thao tác được bằng các lệnh thông thường của CAD nhỉ!

 

Thanks all


  • 0

#4 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 03 November 2014 - 02:10 PM

1)- Thôi chết em rồi, bác Tot77 ới! :( :( :(

AutoCAD 2013  của em dị ứng với thằng dkc.lisp của bác, giờ em không thể mở file được nữa rồi, nản quá trời:

A) MỞ AUTOCAD NÓ THÔNG BÁO

11837_d2731.png

 

TIẾP TỤC MỞ FILE:

 

11837_xd2png2222.png

 

Mở file 1 29590_untitled.dwg nó ra thông báo:

 

11837_dd333.png

 

ĐÚNG LÀ TỘI BÁO OAN GIA, LÀM THẾ NÀO ĐỂ KHẮC PHỤC ĐƯỢC LỖI TRÊN???? :( :( :(

 

cảm ơn Tot77 , lisp hay quá. 

 

Có nghĩa là phải dùng lisp chứ không thao tác được bằng các lệnh thông thường của CAD nhỉ!

 

Thanks all

 

Lisp của bác Tot77>>> ra số lẻ chứ không phải chẵn 10 000!

Với bài toán của anh không nên lạm dụng lisp, chỉ cần dùng lệnh  MEASURE của AutoCAD là được!


  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#5 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 03 November 2014 - 02:32 PM

 Haanh làm tôi giật mình, cứ tưởng mình có khả năng biến lsp thành virus vậy!! :ph34r:  :ph34r:

Dùng measure thì nó cứ nhè 1 điểm đầu nó phang tới thôi, chứ kp điểm mình chọn.

Như trong file chủ thớt thì điểm đầu kp điểm A.


  • 1

#6 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 03 November 2014 - 02:39 PM

Khoảng cách là 10 thì Lisp hay MEASURE cũng đều có khả năng trở thành... 9.9999... cả!  <_< Chứ không phải chỉ mình Lisp có tội ăn bớt đâu.

Cứ test vài spline sẽ thấy. 


  • 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.


#7 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 03 November 2014 - 02:52 PM

Tưởng haanh còn đang bận bịu với mấy cái lsp đồ sộ của "Đồ án cấp tốc thoát nước chống ngập" chứ cũng có hứng thú với mấy cái lsp cỏn con này à ?  :D  :D


  • 1

#8 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 03 November 2014 - 02:53 PM

Bác Tot77có biết cách nào khắc phục  được lỗi trên không???, Chắc  em phải mất công cài đặt lại AutoCAD rồi, nản quá!

Giả sử điểm đầu là A , điểm cuối là C thì lệnh MEASURE nó cứ nhè điểm C mà phang. Em vừa thử trên AutoCAD2013, tháy nó như vậy.

Cách khắc phục để LAB = 10 000 là MEASURE với độ dài L = LAC- 10 000 sẽ được như ý. Tất nhiên cách này hơi dài dòng hơn lisp, bù lại đỡ hoa tổn nơtron  hơn khi phải AP ...và gõ lênh dkc nếu như chỉ dùng ít, bác ạ! :) :) :)


  • 1

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#9 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 03 November 2014 - 03:01 PM

Khoảng cách là 10 thì Lisp hay MEASURE cũng đều có khả năng trở thành... 9.9999... cả!  <_< Chứ không phải chỉ mình Lisp có tội ăn bớt đâu.

Cứ test vài spline sẽ thấy. 

 

Em không thể  mở AutoCAD2013 để thử lại, nhưng em tin rằng nếu dùng Auto2013 thì có thể dùng lại lệnh MEASURE thêm một lần nữa để khử sai số!

Nếu em nhớ không nhầm thì AutoCAD2013 em vừa thử cả lisp và cả AutoCAD đều có kết quả : 10 000,133 (3 chữ số sau dấu phẩy)

(Bác nào dùng AutoCAD2013 thử lại sẽ thấy là kết quả nó >10 000)


  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#10 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 03 November 2014 - 03:08 PM

@Haanh:

1). Không nên mơ là lúc nào nó cũng lớn hơn 10. Hên xui mà có khi nó < 10 hoặc > 10.

2). Cách của Haanh cũng gọn trong trường hợp đơn giản này đấy.

3). Không biết Haanh than phiền lỗi gì? Nhìn hình không phát hiện?


  • 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.


#11 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 03 November 2014 - 03:19 PM

Sau khi dùng lisp của bác Tot77. em bị lỗi như ảnh ở bài viết trên, giờ em không thể mở file trên AutoCAD2013 của em được nữa :( :( :(

Chắc là em phải cài đặt lại rồi, nản quá!


  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#12 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 03 November 2014 - 03:40 PM

Sau khi dùng lisp của bác Tot77. em bị lỗi như ảnh ở bài viết trên, giờ em không thể mở file trên AutoCAD2013 của em được nữa :( :( :(

Chắc là em phải cài đặt lại rồi, nản quá!

Để test bất cứ chương trình mới lạ có thể gây xung đột hệ thống, bạn nên tạo 1 điểm phục hồi về trạng thái cũ cho chắc ăn :)

127397_phuchoi.png


  • 2

#13 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 03 November 2014 - 04:17 PM

Untitled_zpsdvwhlrt2.gif

Xem ảnh động ở trên các bác sẽ thấy em vẫn bị lỗi giống như 3 cái ảnh em gửi trên bài số #4 ở trên, không  có cách nào mở được file bản vẽ của chủ thớt để thử lại.... :(

Rút kinh nghiệm cho lần sau để không bị dị ứng với lisp em sẽ làm theo cách của bác pphung183. Giờ em phải cài đặt lại AutoCAD...


  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#14 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 03 November 2014 - 04:23 PM

Không ngờ cái lsp cỏn con của mình lại làm khổ haanh như thế!! :(


  • 1

#15 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 04 November 2014 - 12:23 AM

 Haanh làm tôi giật mình, cứ tưởng mình có khả năng biến lsp thành virus vậy!! :ph34r:  :ph34r:

Dùng measure thì nó cứ nhè 1 điểm đầu nó phang tới thôi, chứ kp điểm mình chọn.

Như trong file chủ thớt thì điểm đầu kp điểm A.

 

Không phải: "Dùng measure thì nó cứ nhè 1 điểm đầu nó phang tới thôi, chứ kp điểm mình chọn", bác ạ!

Bác thích tính từ điểm đầu A hoặc điểm cuối đều được, không tin bác thử thao tác lại, biết liền! :) :) :)


  • 1

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#16 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 04 November 2014 - 07:33 AM

Hoằn có thể minh họa cái lệnh measure cho chọn điểm được không?


  • 0

#17 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2875 Bài viết
Điểm đánh giá: 1554 (rất tốt)

Đã gửi 04 November 2014 - 09:26 AM

@Haanh:

1). Không nên mơ là lúc nào nó cũng lớn hơn 10. Hên xui mà có khi nó < 10 hoặc > 10.

2). Cách của Haanh cũng gọn trong trường hợp đơn giản này đấy.

3). Không biết Haanh than phiền lỗi gì? Nhìn hình không phát hiện?

 

Hôm qua, em ra ngõ gặp... giai, đen đủi quá bác Hà ạ!  Tối qua cài đặt AutoCAD2013 gần xong  thì mất điện :) :) :)

Sáng nay em phải cài sớm và thử lại, kết quả nó luôn lớn hơn (>10000),  bác ạ!

(Đoán mò: có thể bác không dùng AutoCAD2013)


  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#18 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 04 November 2014 - 09:39 AM

Hoằn có thể minh họa cái lệnh measure cho chọn điểm được không?

@Tot77: Khi chọn object, nếu Tot77 pick vào gần end thì nó tính k/c từ end, pick vào gần start thì nó tính từ start.

@Haanh: cad 2007, lúc thì lớn hơn, lúc thì nhỏ hơn 10.


  • 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.


#19 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 05 November 2014 - 10:01 PM

Tưởng haanh còn đang bận bịu với mấy cái lsp đồ sộ của "Đồ án cấp tốc thoát nước chống ngập" chứ cũng có hứng thú với mấy cái lsp cỏn con này à ?  :D  :D

 

Không ngờ cái lsp cỏn con của mình lại làm khổ haanh như thế!! :(

 

Chị Hà em vốn không biết gì về lisp đâu nhé! Chắc chị ấy vào đây kiếm cớ để ăn vạ bác đấy! :) :) :)

Còn chần chừ gì nữa mà bác không giúp chị Hà em viết lisp vẽ đường ống???

http://www.cadviet.c...d-tren-autocad/


  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#20 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 05 November 2014 - 10:15 PM

Ăn vạ ai k ăn, lại nhè ng k chuyên về cơ khí mà ăn thì chẳng đi đến đâu.
Bên cơ khí có cây đại thụ PTB đó, nói chị Hà qua ăn vạ bác ấy đi thôi.
  • 0