Lại lisp vẽ Xline vuông góc với Spline tại vị trí control point

[Lại lisp vẽ Xline vuông góc với Spline tại vị trí control point]

Em có đi mót được lisp tự  động vẽ đường vuông với với spline tại tất cả các node  :(, đối với SPL1 màu tím (cần dùng) có X, Y, Z của control point còn X,Y,Z fit point = 0 không chạy lisp được,còn SPL2 màu vàng có X,Y,Z control point và fit point  giống nhau thì chạy lisp phà phà....
 Nên em post lên diễn đàn (có gì sai sót với nội quy diễn đàn xin bỏ qua) nhờ các Bác có hảo tâm giúp đỡ chỉnh sửa dùm hoặc chỉ cách em thay đổi lisp này chạy với SPL1(màu tím) và em xin cám ơn   :D em có thử sửa mã code 11của fit poit thành 10 của control point nhưng vẫn ko xong
http://www.cadviet.com/upfiles/4/63543_vuonggoc_spl_lisp_2.rar

http://www.cadviet.com/upfiles/4/63543_vuong_goc_spline_dwg_3.rar

[Vẽ đường thẳng vuông góc với 1 spline cho trước]

Em học hoài mà vẫn dốt lisp :D , toàn đi mót của thiên hạ về phục vụ công việc bản thân chứ không có khả năng viết giúp người  khác được . Nay đi mót được của Người ngoại quốc về dùng chẳng may vẫn gặp chút trắc trở :( , đối với SPL1 màu tím (cần dùng) đã qua nhiều lisp tự động tạo ra và convert phẳng thì không chạy lisp được, còn SPL2 màu vàng vẽ thủ công thì chạy lisp phà phà....

 

http://www.cadviet.com/upfiles/4/63543_vuong_goc_spline_1.dwg

Lisp tự  động vẽ đường vuông với với spline tại mỗi node của spline

 Vậy em mạo muội post lên diễn đàn (có gì sai sót với nội quy diễn đàn xin bỏ qua) nhờ các Bác có hảo tâm giúp đỡ chỉnh sửa để em dùng lisp này chạy với SPL1(màu tím) và nếu có thể chỉ em cách thay độ dài Xline ...em xin cám ơn  :D và chúc diễn đàn luôn phát triển

http://www.cadviet.com/upfiles/4/63543_vuonggoc_spl_1.lsp