(setq p4 (getpoint p1 "\ nSpecify opposite direction p4 or press enter:")) Then if you press enter, draw the bisector between the selected points.Īnd if p4 is selected, then draw everything as before. "LINE") (cons 10 p1) (cons 11 could make a modification more. P (mapcar ' p1 (vxs (unit (mapcar '- p1 b)) (distance p1 p4))) (setq p4 (getpoint p1 "\nSpecify opposite direction p4: ")) (setq p3 (getpoint p1 "\nSpecify second direction p3: ")) ![]() (setq p2 (getpoint p1 "\nSpecify first direction p2: ")) (setq p1 (getpoint "\nSpecify base point p1: ")) (defun vxs (v s) (mapcar '(lambda (x) (* x s)) v)) (defun c:bisec ( / m2p vxs unit 3d-polar p1 p2 p3 p4 b11 b12 b21 b22 b p) ![]() I might not understood correctly so please check it thoroughly. However, I re-create the corner bisector by hand, with the same result as lisp. ![]() The lisp below gives the same result as your sample, in the middle, but in the corner it is a little bit off.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |