Đố vui

[hiepttr 540]

1. Theo mình, nếu đã có H1 thì nên đi theo hướng ME <block> >>> RO một chút :D :D :D

2. Không chính xác do:

 - Đánh đồng đường thẳng - đường cong

 - Bắt điểm khó hiểu khi xđinh góc ?!

[hiepttr 540]

1. Hướng của anh Hiệp có lý, nhưng tiếc là anh chưa có lời giải cụ thể :) :) :)

2. Không chính xác do:

- Chưa có nhân chứng và vật chứng để kết tội cái Hoằn đã ..."Đánh đồng đường thẳng - đường cong", vì chưa biết được khi xác định góc, hắn đã vẽ đường tròn có R bằng bao nhiêu???

- Nói chính xác là cái Hoằn đã bắt điểm sai vì thao tác ẩu, nên đã bắt nhầm giao của đường tròn với cung tròn  là Intersection thành Quadrant trên đường tròn, khi mới bắt đầu lệnh line.

 

Em xin được sửa lại  câu đố của cái Hoằn thành:

 

Cho trước hình 1 gồm 2 khối solid mầu xanh và đỏ có mặt bằng như ảnh trên.

Hãy vẽ hình 2 với thời gian ngắn nhất ??? (Có thể nói ngắn gọn các lệnh vẽ cũng được)

Đây là câu đố thuộc loại  hay và tương đối khoai của cái Hoằn.

Xin mời các bác cùng thư  giãn trước giờ trái bóng WC2014 lăn trên sân cỏ!

 

1. Kết tội đc do đã mời đc nhân chứng vật chứng nói @Hoằn "hắn" vẽ R95 (xem #10)

http://www.cadviet.com/forum/topic/105133-lenh-3d-rotate-giup-minh-voi/

2. "nói chính xác" thì ko biết 95 là khoảng nào trong cách dựng của @Hoằn ?! ---> bắt điểm Qua hay int hay ... ???

3. Chờ kquả xem Hà Lan hay Argentina thắng đã >>> mai sẽ dựng, giờ phải về chuẩn bị tinh thần chiến đấu đã :D :D :D

[wpk88 0]

chà, ca này khó đây, mình sửa mãi mà không được

[haanh 1590]

1. Kết tội đc do đã mời đc nhân chứng vật chứng nói @Hoằn "hắn" vẽ R95 (xem #10)

http://www.cadviet.com/forum/topic/105133-lenh-3d-rotate-giup-minh-voi/

2. "nói chính xác" thì ko biết 95 là khoảng nào trong cách dựng của @Hoằn ?! ---> bắt điểm Qua hay int hay ... ???

3. Chờ kquả xem Hà Lan hay Argentina thắng đã >>> mai sẽ dựng, giờ phải về chuẩn bị tinh thần chiến đấu đã :D :D :D

 

(P/s: Để tiện việc theo dõi, không muốn bài viết này chuyển sang trang mới, em đã xóa bài viết của em vì anh đã trích dẫn lại rồi)

1- Cảm ơn anh đã cung cấp nhân chứng và vật chứng. Giờ em mới được đọc chủ đề ấy và đã hiểu ý của anh.

- Các câu hỏi cứ đặt ra liên tiếp trong đầu em:

Phải chăng, cái Hoằn đã chót dại ...."Đánh đồng đường thẳng - đường cong" rồi lại tiếp tục ..."đánh lận con đen", bằng cách không dẫn NGUỒN CÂU ĐỐ như thông lệ để xóa dấu vết...?????

2- Em mở file  của cái Hoằn gửi lên ở bài trên đo thử, kết quả R= 94.9 chứ không phải là R95. Từ đây có thể tạm kết luận là hắn đã "Đánh đồng đường thẳng - đường cong' và bắt điểm sai. ( Phải bắt Intersection mới đúng, có một chỗ bắt sai thành Quadrant )

3- Không mê bóng đá như anh Hiệp,  nhưng em sẽ cầu mong Hà Lan sẽ thắng Argentina với tỷ số 1- 0 ở những giây phút cuối. Em thích đội Hà Lan vì cái tên "thuần Việt",  rất dễ gọi... :) :) :)

[hiepttr 540]

@haanh: Bắt 2 điểm int ---> k/cách /= 95 ===> gần đúng !

Có thể “tạm” nói bài toán đưa về cách dựng hình 2d

Nếu cần dùng ít lệnh & dễ thao tác thì mình thử sức bằng cách này:

• offset cung R1165.8 một khoảng = từ chân dim 4.0 đến (vuông góc) cung đó ta được cung đi qua chân dim 4.0
• offset đường tim một khoảng = 4/2 =2 về 2 bên
• Vẽ line nối 2 điểm giao của cung & 2 line vừa dựng (length = 4)
• Align line vừa vẽ với 2 lần chọn tâm cung tròn, điểm end line, chân dim 4.0 (tùy chọn "N") để line nằm đúng vị trí nối 2 chân dim 4.0
• Tiếp theo là mirror mỏi tay ta được hình cần dựng :D :D :D
• http://www.cadviet.com/upfiles/3/114276_ddgdg2.png

[ndtnv 481]

Cách của Hoằn sai vì:

- Dùng ARRAY không chính xác vì dim góc đã được làm tròn

- Khoảng cách chính xác phải đo trên cung tròn đi qua A

Cách vẽ chính xác:

OFFSET cung tròn qua điểm A, cắt đường tròn tâm A, R=4 tại B

MIRROR hình 1 qua trung điểm AB và tâm cung tròn được hình 2.

MIRROR hình 1 qua 2 trung  điểm hình 2 ra hình 3...

http://www.cadviet.com/upfiles/3/19626_hoandv.dwg

[hiepttr 540]

cay mũi vì bác ndtnv thật :D :D :D

Về đường lối mình giống bác nhưng bác luôn có "đường tắt" tối ưu hơn :D :D :D

Vote

[haanh 1590]

Hình 1 : Là hình chiếu bằng của hai khối Solid mầu xanh và đỏ

Hình 2 : Thêm được 2 khối xanh cách đều, sau khi em dùng lệnh Array trên AutoCAD2013 khối xanh ra thành 3 khối với góc Array = 9°20'

Hình 3 : Thêm được 2 khối mầu xanh nữa cách đều, sau khi em  thực hiện lệnh Mirro

Sau khi vẽ xong  H3 từ H1 có sẵn , em mới phát hiện ra rằng: Cách làm của em hơi bị chậm và không chính xác!

(File hình vẽ đã save xuống AutoCAD2004 :http://www.cadviet.com/upfiles/3/114276_hoandv.dwg )

Xin mời các bác dành ít  phút thư giãn  với câu hỏi:

1- Cách làm của em hơi bị chậm vì sao???

2- Cách làm của em không chính xác vì sao???

(Ảnh dưới là cách em xác định góc Array trên AutoCAD2007)

 

 

@Hoằn: Câu đố của Hoằn đã có lời giải của anh Hiệp và bác Ndtnv, sao Hoằn không có ý kiến gì nhỉ ???

[Hantinhsaycad 379]

Ơ...! Sao chửa thấy cô @Hoằn có ý kiến ý cò gì nhể????????? :( B)

Sắp tới giờ trái bóng WC2014 lăn trên sân cỏ Maracana, giữa hai đội Đức và Argentina, xin mời các bác thư giãn với câu đố vui:

Sau khi dùng lệnh Presspull để dựng khối 3D từ 2D, em đã ...chót dại Union thành 1 khối cứng. Giờ em muốn lôi khối có mặt mầu tím nằm bên trong khối trụ rỗng ra bên ngoài, làm thế nào lôi ra nhanh được nhỉ???

Xin mời các bác cùng thư giãn để khai thác hết tiềm năng vẽ dồi dào của AutoCAD!

Đây là file hình vẽ:http://www.cadviet.com/upfiles/3/11837_123456.dwg

(Nguồn câu đố:http://www.cadviet.com/forum/topic/105909-van-de-xoa-chi-tiet-thua-trong-cad/)

 

@ anh Hiệp: Anh đã chuẩn bị tinh thần và vật chất để xem WC chưa???

Em không ham bóng đá như anh, bữa trước em đã "cầu mong Hà Lan sẽ thắng Hà Lan sẽ thắng Argentina với tỷ số 1- 0 ở những giây phút cuối".  Bữa nay em lại đang cầu mong cho  Đức sẽ thắng Argentina để ẵm giải thưởng 35 triệu USD, không biết có ...trật không??? (Em thích đội Đức vì cái tên ...thuần Việt :) :) )

Không biết đáp án mình đúng chưa ?nhưng  Haanh quá hay, tuyệt  ..

vẫn dùng Presspull với tùy chọn M , 

[haanh 1590]

Không biết đáp án mình đúng chưa ?nhưng  Haanh quá hay, tuyệt  ..

vẫn dùng Presspull với tùy chọn M , 

 

Cho em xin được biên tập lại bài viết của anh như sau:

Hatinhsaycad: Không biết đáp án của mình đúng chưa ? Lệnh Presspull  quá hay , đúng là thiên thần của ...bãi rác!

vẫn dùng Presspull với tùy chọn M,

Haanh: đáp án của anh chưa trọn vẹn vì đề bài minh họa bằng ảnh động nhưng đáp án của anh lại minh họa bằng ảnh tĩnh.

Anh Hantinhsaycad quá hay, tuyệt ... :) :)

Dùng AutoCAD khá lâu,  giờ em mới biết đến tùy chọn M của lệnh Presspull:

Command: PRESSPULL (gõ lệnh >>chọn mặt mầu tím >> gõ m >> Enter >> bắt điểm đáy >>xong!)

Command: m (lệnh move để lôi khối ra ngoài)

P/s: Câu đố của cái Hoằn (mà em đã trích dẫn trong bài viết số 1145 bên trên) vẫn chưa có lời giải ngắn gọn.

Xin mời anh Hantinhsaycad và các bác tiếp tục thư giãn!

[phamthanhbinh 3149]

Cho em xin được biên tập lại bài viết của anh như sau:

Hatinhsaycad: Không biết đáp án của mình đúng chưa ? Lệnh Presspull  quá hay , đúng là thiên thần của ...bãi rác!

vẫn dùng Presspull với tùy chọn M,

Haanh: đáp án của anh chưa trọn vẹn vì đề bài minh họa bằng ảnh động nhưng đáp án của anh lại minh họa bằng ảnh tĩnh.

Anh Hantinhsaycad quá hay, tuyệt ... :) :)

Dùng AutoCAD khá lâu,  giờ em mới biết đến tùy chọn M của lệnh Presspull:

Command: PRESSPULL (gõ lệnh >>chọn mặt mầu tím >> gõ m >> Enter >> bắt điểm đáy >>xong!)

Command: m (lệnh move để lôi khối ra ngoài)

P/s: Câu đố của cái Hoằn (mà em đã trích dẫn trong bài viết số 1145 bên trên) vẫn chưa có lời giải ngắn gọn.

Xin mời anh Hantinhsaycad và các bác tiếp tục thư giãn!

Hề hề hề,

Ngăn gọn hay không thì chửa biết, nhưng cứ chơi kiểu cùn cùn như vầy chắc cũng được.

1/- Explode khối đó ra.

2/- lôi cái region cần lôi ra ngoài.

3/- Extrode cái region đó theo chiều cao cần thiết.

[hoanghaitrieu7 0]

DWG có chứa 1 block bị đóng băng

[haanh 1590]

Hề hề hề,

Ngăn gọn hay không thì chửa biết, nhưng cứ chơi kiểu cùn cùn như vầy chắc cũng được.

1/- Explode khối đó ra.

2/- lôi cái region cần lôi ra ngoài.

3/- Extrode cái region đó theo chiều cao cần thiết.

 

1/

2/

Để lôi cái Region ra ngoài mà bác phải "Explode khối đó ra" thì phí của giời quá!

Nếu thích lấy Region từ hình khối ra, bác  dùng biểu tượng có tên  Copy Faces sướng hơn nhiều:

3/ Hình như bác đã viết nhầm Extrude theo chiều cao cần thiết  thành "Extrode cái region đó theo chiều cao cần thiết".

Tóm lại: Câu đố của cái Hoằn (mà em đã trích dẫn trong bài viết số 1445 bên trên) vẫn chưa có lời giải ngắn gọn. Xin mời  các bác tiếp tục thư giãn!

[Hantinhsaycad 379]

P/s: Câu đố của cái Hoằn (mà em đã trích dẫn trong bài viết số 1145 bên trên) vẫn chưa có lời giải ngắn gọn.

Xin mời anh Hantinhsaycad và các bác tiếp tục thư giãn!

Anh Hantinhsaycad nhầm rồi!

-Chủ thớt đã đưa ra quy trình vẽ dài dòng...Nếu chủ thớt vẽ theo quy trình như của cái Hoằn đã viết trong bài số 8 thì mọi chuyện sẽ khác.

Bởi vậy trong bài viết trên cái Hoằn, nó cũng đã chữa cháy cho chủ thớt bằng cách sử dụng Align để lôi các thanh vào mặt bằng.

- Cách của bác Ndtvn chưa phải là đáp án cuối cùng...

- Sử dụng lệnh Array không chính xác vì cái anh tham số Π= 3,14159................(mười nghìn tỷ chữ số sau dấu phẩy) >>> góc để array cũng là số lẻ dài vô tận

Nhập đủ  mười nghìn tỷ chữ số thập phân để array, chắc là anh Hantinhsay sẽ lên đến chức... cụ!

Ước gì hai ông Nam Tào và Bắc Đẩu giữ sổ sinh tử trên Thiên đình quên gạch tên Haanh để em có dịp được hỏi thăm anh:

- Cụ Hantinhsaycad ơi, cụ đã Araay xong chưa???  :)  :)  :)

Hi vọng đây là đường đến cửa  Nam Tào , Bắc Đẩu nhanh nhất

 Lại Array nhưng là Path bỏ qua giai đoạn kiểm tra ....tên tuổi 

 

[phamthanhbinh 3149]

1/

2/

Để lôi cái Region ra ngoài mà bác phải "Explode khối đó ra" thì phí của giời quá!

Nếu thích lấy Region từ hình khối ra, bác  dùng biểu tượng có tên  Copy Faces sướng hơn nhiều:

3/ Hình như bác đã viết nhầm Extrude theo chiều cao cần thiết  thành "Extrode cái region đó theo chiều cao cần thiết".

Tóm lại: Câu đố của cái Hoằn (mà em đã trích dẫn trong bài viết số 1445 bên trên) vẫn chưa có lời giải ngắn gọn. Xin mời  các bác tiếp tục thư giãn!

Hề hề hề,

Chữ tác oánh chữ tộ rùi.

Xin lỗi cả nhà.

[haanh 1590]

Hề hề hề,

Chữ tác oánh chữ tộ rùi.

Xin lỗi cả nhà.

 

Extrude chỉ thích hợp với AutoCAD2013. Nếu dùng AutoCAD đời cũ đối với các bề mặt không vuông góc với trục Z , các bề mặt của hình 3D phức tạp hoặc hình 3D đã xoay thì bắt buộc phải gắn hệ trục tọa độ USD lên Region mới Extrude được, bác ạ

Do đó sử dụng lệnh Presspull với sự lựa chọn tham số M, vẫn là cách làm ngắn gọn nhất:

 

Hi vọng đây là đường đến cửa  Nam Tào , Bắc Đẩu nhanh nhất

..................................................................................................

 Lại Array nhưng là Path bỏ qua giai đoạn kiểm tra ....tên tuổi 

Cách làm của anh có giầu sang phú quý lên một chút. Tuy nhiên "đường đến cửa  Nam Tào , Bắc Đẩu" vưỡn còn đang ở thời tương lai xa thăm thẳm và dài dằng dặc, anh Hantinsaycad ạ! :) :) :) :) :) Anh có biết lý do vì sao không???

 

Câu đố của cái Hoằn (mà em đã trích dẫn trong bài viết số 1445 bên trên) vẫn chưa có lời giải ngắn gọn. Xin mời  các bác tiếp tục thư giãn!

[phamthanhbinh 3149]

Extrude chỉ thích hợp với AutoCAD2013. Nếu dùng AutoCAD đời cũ đối với các bề mặt không vuông góc với trục Z , các bề mặt của hình 3D phức tạp hoặc hình 3D đã xoay thì bắt buộc phải gắn hệ trục tọa độ USD lên Region mới Extrude được, bác ạ

Do đó sử dụng lệnh Presspull với sự lựa chọn tham số M, vẫn là cách làm ngắn gọn nhất:

Hề hề hề,

Cad2004 thì kiếm đâu ra lệnh presspull hè????

Đi xe đò khổ vậy đó.

Mà cũng chả phải gắn ghiếc gì dâu, chỉ nhập mỗi chiều cao extrude là nó phóng ra thôi. Tất nhiên là nó phóng theo hướng vuông góc với region, cái vụ xoay ngược xuôi này nó thì Cad2004 có vẻ bí rồi.

[Hantinhsaycad 379]

Đơn giàn nhất............^^,

[Hoan1111 696]

1- Anh Hantinhsay đã  trả lời lạc đề, câu đố của em không liên quan gì đến chủ đề "lệnh 3d rotate giúp mình với", bởi vậy trong câu đố em đã cố tình không dẫn nguồn.

2- Lệnh Array(Path) trong bài số #1452 của anh  cũng rất hoành tráng nhưng có sai số hơi bị lớn!

(Trong ngành cơ khí những có kích thước đòi hỏi gia công chính xác cao, thí dụ em ghi mầu đỏ kích thước 4 sai lệch cho phép ≤ 0,001):

 

 

3- Em chốt lại câu đố:

 

 

 

Cho trước hình 1 là hình chiếu bằng của hai khối Solid mầu xanh và đỏ (đã có sẵn không phải vẽ lại).

Hãy dựng hình 3, với điều kiện không dùng lệnh Array???

(File hình vẽ đã save xuống AutoCAD2004 :http://www.cadviet.com/upfiles/3/114276_hoandv.dwg )

Xin mời các bác tiếp tục thư giãn!

[haanh 1590]

Hề hề hề,

Cad2004 thì kiếm đâu ra lệnh presspull hè????

Đi xe đò khổ vậy đó.

Mà cũng chả phải gắn ghiếc gì dâu, chỉ nhập mỗi chiều cao extrude là nó phóng ra thôi. Tất nhiên là nó phóng theo hướng vuông góc với region, cái vụ xoay ngược xuôi này nó thì Cad2004 có vẻ bí rồi.

 

Khi ra câu đố em đã cố tình xoay mặt bằng 2 lần theo mặt phẳng XOY và YOZ để dựng 3D, bác ạ!

Đi xe đò đã khổ, đi máy bay còn nguy hiểm hơn, vì:

Tai nạn hàng không dồn dập nửa đầu năm 2014 :http://vnexpress.net/photo/tu-lieu/tai-nan-hang-khong-don-dap-nua-dau-nam-2014-3022606.html

[haanh 1590]

Cách giải câu đố Hoằn ở trên, của em là:

1/- Dimcenter để vẽ tâm của khối đỏ >> 2/-  Mirro khối mầu xanh theo đường thẳng đi qua tâm và //OX

3/- Circle chọn 3p vẽ được đường tròn mầu tím >> 4/ Circle tiếp để vẽ đường tròn R4 cắt đường tròn lớn tại B.

5/-Chọn khối xanh > Rotate chọn tham số C và R > chọn điểm A > chọn điểm B , làm 2 lần sẽ được thêm 2 khối xanh

6/- Mirro 2 khối xanh .... Xóa các đối tượng thừa >>>Xong!

Không biết có trúng đáp án của Hoằn không???

Có bác nào có cách giải khác không???

[haanh 1590]

 

Hình ảnh trên là đề thi của HỘI THI TAY NGHỀ QUỐC GIA - 2008.

Có thí sinh đã đưa ra nhời giải về cách xác định R của cung cong bằng cách dựng đường tròn đi qua 3 điểm nằm trên cung cong như hình ảnh dưới đây:

(Đây là bài toán đơn giản có thể dựng hình bằng thước kẻ và com-pa theo cách dựng hình của học sinh trung học cơ sở hoặc dùng lênh Circle chọn 3P trên AutoCAD)

 

Hỏi lời giải của thí sinh như trên, có được ban giám khảo cho điểm tối ưu không??? Vì sao???

Nguồn câu đố : http://www.cadviet.com/forum/topic/106601-pro-sw-nao-giup-em-ve-ren/

[Doan Van Ha 3211]

2 chị em tranh nhau ra câu đố nhiều quá đấy nhé!

[oaihuong 12]

 

Hình ảnh trên là đề thi của HỘI THI TAY NGHỀ QUỐC GIA - 2008.

Có thí sinh đã đưa ra nhời giải về cách xác định R của cung cong bằng cách dựng đường tròn đi qua 3 điểm nằm trên cung cong như hình ảnh dưới đây:

(Đây là bài toán đơn giản có thể dựng hình bằng thước kẻ và com-pa theo cách dựng hình của học sinh trung học cơ sở hoặc dùng lênh Circle chọn 3P trên AutoCAD)

 

Hỏi lời giải của thí sinh như trên, có được ban giám khảo cho điểm tối ưu không??? Vì sao???

Nguồn câu đố : http://www.cadviet.com/forum/topic/106601-pro-sw-nao-giup-em-ve-ren/

Theo em lời giải thích trên sẽ được 0 điểm vì 3 điểm như hà anh đánh dấu có một điểm của cung đường kính 85. Cung còn lại chỉ biết được 2 dữ liệu là điểm bắt đầu là giao điểm của cung R42,5 và đường nằm ngang điểm cuối là giao điểm giữa đường thẳng có góc 75 độ và cách cung R42,5 một khoảng là 7,5

[haanh 1590]

2 chị em tranh nhau ra câu đố nhiều quá đấy nhé!

 

Cảm ơn bác Doan Van Ha đã viết bài giao lưu :) :) :) .

1- Em ít vào diễn đàn nên không biết cái Hoằn đã ra câu đố bên kia . Rất có thể câu đố của cái Hoằn liên quan đến kết cấu của chi tiết cơ khí; còn "câu đố của em" thực chất là câu hỏi đơn thuần về  vẽ kỹ thuật, bác ạ!

2- Kỷ niệm về đố vui với bác thì có nhiều, nhưng em nhớ nhất là việc bác đã giải câu đố vẽ AutoCAD bằng lisp

- Lisp vẽ  đường tiếp tuyến chung của 2 hình ellipse

- Lisp xác định giao điểm của một đường thẳng với một khối solid bất kỳ

- Lisp chơi hàng loạt đường thẳng song song với một đường thẳng cho trước đồng thời tiếp xúc với đường spline:

 

 

 Thằng này chơi hàng hoạt chứ không chơi lẻ tẻ vài ba em nhọc sức.

http://www.cadviet.com/upfiles/3/67029_do_vui_tiep_tuyen.dwg

;Doan Van Ha - CADViet.com - Ngay 14/10/2012

;Muc dich: Ve cac tiep tuyen voi Curve, song song voi 1 line cho truoc.

(defun C:HA( / ent1 ent2 pd pc len1 len2 goc n m px1 kc1 px2 kc2 px3 kc3)

(if (not cal) (arxload "geomcal"))

(setq ent1 (car (entsel "\nChon duong thang: ")))

(setq ent2 (car (entsel "\nChon Curve: ")))

(setq pd (vlax-curve-getStartPoint ent2))

(setq pc (vlax-curve-getEndPoint ent2))

(setq len1 (vlax-curve-getDistAtParam ent1 (vlax-curve-getEndParam ent1)))

(setq len2 (vlax-curve-getDistAtParam ent2 (vlax-curve-getEndParam ent2)))

(setq goc (angle (setq p1 (cdr (assoc 10 (entget ent1)))) (setq p2 (cdr (assoc 11 (entget ent1))))))

(setq n 1000 m (/ len2 n) kc (- m)) ;do chinh xac 1000, co the edit so nay.

(repeat (- n 2)

(setq px1 (GetP pd pc (setq kc (+ m kc)) ent2))

(setq kc1 (cal "dpl(px1,p1,p2)"))

(setq px2 (GetP pd pc (+ kc m) ent2))

(setq kc2 (cal "dpl(px2,p1,p2)"))

(setq px3 (GetP pd pc (+ kc m m) ent2))

(setq kc3 (cal "dpl(px3,p1,p2)"))

(if

(or (and (> kc1 kc2) (> kc3 kc2)) (and (< kc1 kc2) (< kc3 kc2)))

(entmake (list (cons 0 "LINE") (cons 10 (polar px2 goc (/ len1 2))) (cons 11 (polar px2 (+ goc pi) (/ len1 2))))))))

;----- LÊy ®iÓm p trªn Curve c¸ch pg kho¶ng c¸ch kc, víi ph lµ ®iÓm ®Þnh h­íng trªn Curve.

(defun GetP (pg ph kc cur / dg dh dp)

(setq dg (vlax-curve-getDistAtPoint cur pg))

(setq dh (vlax-curve-getDistAtPoint cur ph))

(if (> dh dg)

(setq dp (+ dg kc))

(setq dp (- dg kc)))

(vlax-curve-getPointAtDist cur dp))