[Yêu cầu] lisp vẽ center line

[Truong_AAn 69]

HIện giờ mình đang thực hiện rất nhiều các bản vẽ có các chi tiết hình trụ tròn được thể hiện trên bảng vẽ là 2D là 2 đường thẳng song song có đường tâm ở giữa. MÌnh thực hiện thủ công theo lênh cad bằng cách bắt lệnh M2P rồi dựng line thì lâu quá. Nếu có ai biết lệnh vẽ nhanh đường center như hình thì giúp mình nha. Nếu không có thì nhờ CadViet viết giúp mình cái lisp có yêu cầu như file đính kèm.

http://www.cadviet.com/upfiles/3/106444_ce_1.dwg

Xin chân thành cảm ơn!

[ketxu 2.983]

K có cad n nhớ là có rồi bạn ạ

[Truong_AAn 69]

Anh Ket có nhớ là lệnh gì không. Em chỉ biết trong Mechanical thì có nhưng cad thì không biết. cad chỉ biết lệnh DCE là center line cho cung tròn, đường tròn thôi anh ah

[ketxu 2.983]

Để tối mình về xem file của bạn đã

[Tue_NV 3.912]

HIện giờ mình đang thực hiện rất nhiều các bản vẽ có các chi tiết hình trụ tròn được thể hiện trên bảng vẽ là 2D là 2 đường thẳng song song có đường tâm ở giữa. MÌnh thực hiện thủ công theo lênh cad bằng cách bắt lệnh M2P rồi dựng line thì lâu quá. Nếu có ai biết lệnh vẽ nhanh đường center như hình thì giúp mình nha. Nếu không có thì nhờ CadViet viết giúp mình cái lisp có yêu cầu như file đính kèm.

http://www.cadviet.c...106444_ce_1.dwg

Xin chân thành cảm ơn!

Của bạn đây :

(defun c:cline(/ Tue-geom-divpt p1d p1s p2d p2s e1 e2 )
 ;;;write by Tue_NV
 (defun Tue-geom-divpt (p1 p2 k)
   (polar p1 (angle p1 p2) (* (distance p1 p2) k))
 )
 (setq kdh 5);;nhap khoang keo dai o day
 (setq e1 (car (entsel "\n Pick doituong 1 :") ) e2 (car (entsel "\n Pick doituong 2 :") )
   p1d (vlax-curve-getstartpoint e1) p2d (vlax-curve-getClosestPointTo e2 p1d)
   p1s (vlax-curve-getendpoint e1) p2s (vlax-curve-getClosestPointTo e2 p1s)
   ptd (polar (Tue-geom-divpt p1d p2d 0.5) (angle p1s p1d) kdh) pts (polar (Tue-geom-divpt p1s p2s 0.5) (angle p1d p1s) kdh) )
(entmake (list (cons 0 "LINE") (cons 8  (getvar "clayer")) (cons 10 ptd) (cons 11 pts)))
)

Lisp đổi đường tim theo layer hiện hành, có nghĩa là bạn set về layer hiện hành rồi chạy Lisp

[HoaVien 14]

...

(entmake (list (cons 0 "LINE") (cons 8 (getvar "clayer")) (cons 10 ptd) (cons 11 pts)))

....

Lisp đổi đường tim theo layer hiện hành, có nghĩa là bạn set về layer hiện hành rồi chạy Lisp

Bác Tue_NV dạo này cẩn thận quá!

Nếu không có (cons 8 (getvar "clayer")) thì Lisp đổi đường tim theo layer nào nhỉ ?

[quansla 259]

Bác Tue_NV dạo này cẩn thận quá!

Nếu không có (cons 8 (getvar "clayer")) thì Lisp đổi đường tim theo layer nào nhỉ ?

Phát hiện này vui quá, có điều em vẫn chưa hiểu cách sử dụng của lisp bác Tue_NV và cũng chưa hiểu yêu cầu của chủ topic

[Tue_NV 3.912]

Bác Tue_NV dạo này cẩn thận quá!

Nếu không có (cons 8 (getvar "clayer")) thì Lisp đổi đường tim theo layer nào nhỉ ?

Bạn biết câu trả lời rồi còn hỏi làm gì? :lol:

[Truong_AAn 69]

Của bạn đây :

(defun c:cline(/ Tue-geom-divpt p1d p1s p2d p2s e1 e2 )
 ;;;write by Tue_NV
 (defun Tue-geom-divpt (p1 p2 k)
   (polar p1 (angle p1 p2) (* (distance p1 p2) k))
 )
 (setq kdh 5);;nhap khoang keo dai o day
 (setq e1 (car (entsel "\n Pick doituong 1 :") ) e2 (car (entsel "\n Pick doituong 2 :") )
   p1d (vlax-curve-getstartpoint e1) p2d (vlax-curve-getClosestPointTo e2 p1d)
   p1s (vlax-curve-getendpoint e1) p2s (vlax-curve-getClosestPointTo e2 p1s)
   ptd (polar (Tue-geom-divpt p1d p2d 0.5) (angle p1s p1d) kdh) pts (polar (Tue-geom-divpt p1s p2s 0.5) (angle p1d p1s) kdh) )
(entmake (list (cons 0 "LINE") (cons 8  (getvar "clayer")) (cons 10 ptd) (cons 11 pts)))
)

Lisp đổi đường tim theo layer hiện hành, có nghĩa là bạn set về layer hiện hành rồi chạy Lisp

 

 

1- Cảm ơn anh Tuệ đã quan tâm và giúp em.

2- Lisp báo lỗi không sử dụng được

3- Em xin lỗi vì đã diễn đạt không rõ ràng nên anh chưa hiểu yêu cầu lisp. em xin phép đính chính lại là thế này. Em có 2 đường thẳng A, B em muốn dựng một đường C ( C chưa có), bây giờ em chọn A, Chọn B thì cad sẽ vẽ C. linetype của C là layer hiện hành

flie cad:

http://www.cadviet.c...106444_ce_2.dwg

[Tue_NV 3.912]

 

 

1- Cảm ơn anh Tuệ đã quan tâm và giúp em.

2- Lisp báo lỗi không sử dụng được

3- Em xin lỗi vì đã diễn đạt không rõ ràng nên anh chưa hiểu yêu cầu lisp. em xin phép đính chính lại là thế này. Em có 2 đường thẳng A, B em muốn dựng một đường C ( C chưa có), bây giờ em chọn A, Chọn B thì cad sẽ vẽ C. linetype của C là layer hiện hành

flie cad:

http://www.cadviet.c...106444_ce_2.dwg

Bạn thêm dòng (vl-load-com) vào đầu Lisp

Chọn đoạn Line 1

Chọn đoạn Line 2

-> Rồi xong

[Truong_AAn 69]

Bạn thêm dòng (vl-load-com) vào đầu Lisp

Chọn đoạn Line 1

Chọn đoạn Line 2

-> Rồi xong

OK rồi cảm ơn anh nhiều nha.

[Hoan1111 695]

OK rồi cảm ơn anh nhiều nha.

Nếu chỉ yêu cầu một cái lisp cỏn con pick chọn hai đầu từng em một như như thế chỉ làm khổ các nhà đầu tư !

AutoCAD có một cách làm khác có thể gõ đầu nhiều em một, nhanh hơn lisp là cái chắc

bác em thử chịu khó nghĩ xem sao???

Nếu bác em yêu cầu để hiểu thêm về lisp, tập viết lisp thì ok

Nếu ứng dụng đễ vẽ thiết kế thì Cái này người ta gọi là cài số ...lùi!

[Hai_YenLang 150]

Nếu chỉ yêu cầu một cái lisp cỏn con pick chọn hai đầu từng em một như như thế chỉ làm khổ các nhà đầu tư !

AutoCAD có một cách làm khác có thể gõ đầu nhiều em một, nhanh hơn lisp là cái chắc

bác em thử chịu khó nghĩ xem sao???

Nếu bác em yêu cầu để hiểu thêm về lisp, tập viết lisp thì ok

Nếu ứng dụng đễ vẽ thiết kế thì Cái này người ta gọi là cài số ...lùi!

Sao Hoằn ko chia sẻ luôn cách làm của mình, úp mở để làm gì, đây không phải là đố vui em à!