![]() (vlax-curve-getParamAtPoint obj (car pts1)) (< (vlax-curve-getParamAtPoint obj (car pts2)) (vlax-curve-getParamAtPoint obj (car pts2)) (< (vlax-curve-getParamAtPoint obj (car pts1)) (setq som (inters (car pts1) (cadr pts1) (car pts2) (cadr pts2) nil)) (defun MakeFillet (obj par1 par2 / pts1 pts2 som p1 p2 (vlax-curve-getPointAtParam obj (1 (fix par))) (list (vlax-curve-getPointAtParam obj (fix par)) (if (setq par (vlax-curve-getParamAtPoint obj pt)) (defun c:3dPolyFillet (/ 3dPolyFillet_err closest_vertices "Fillets" a 3D polyline (succession of segments) 3dPolyFillet -Gilles Chanteau- 21/01/07 -Version 1.5.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |