Discus84 Posted June 4 Posted June 4 How to snap this point for 'cal function. I'd like to divide the space. ((int+int)-x)/y I don't know the syntax to acquire this intersection . Regards Lu Quote
BIGAL Posted June 5 Posted June 5 That formula does not make sense, a int will return at least a X & Y values. Not sure what the answer is your looking for. Post a before and after dwg. Quote
Discus84 Posted June 9 Author Posted June 9 (edited) its straightforward to do 'cal and input (2+2) for line length. What I'd like to do is: 0) Invoke offset then 'cal 1)point with a mouse to an intersection of two lines and for the 'cal function to grab it as a location 2) point to other intersection ' cal grabs it as a second point and calculates the distance between two. 3) 'cal will run the rest of equation 'cal(grab one point+grab second point)/ offset by the distance=my answer I've seen it done in Autocad , just cant seem to make it work in A12.. Edited June 9 by Discus84 Quote
BIGAL Posted June 9 Posted June 9 (edited) Write it as a lisp rather than use Cal, as it needs points already picked. Show a before and after. Edited June 9 by BIGAL Quote
Discus84 Posted June 11 Author Posted June 11 On 6/9/2025 at 6:45 PM, BIGAL said: Show a before and after. What do you mean? Quote
BIGAL Posted June 11 Posted June 11 (edited) Maybe just me I don't understand what it is your trying to achieve as final result, are you trying to trim all the line work ? As in two wall join as a tee, that exists out there. Edited June 11 by BIGAL Quote
Discus84 Posted June 14 Author Posted June 14 Hey, Try : 1)-line 2)'cal (cur+cur)/2 Line snaps in the middle of the (acquired by mouse) points. Instead of writing "int" for experession the correct syntax is "cur" Thanks! Quote
BIGAL Posted June 15 Posted June 15 Not sure but M2P is built in and can be used in the middle of commands, eg "LINE M2P pick 2 points and line starts from the mid point of the 2 points. No need for Cal. In lisp another way. (setq mp (mapcar '* (mapcar '+ pt1 pt2) '(0.5 0.5))) (setq mp (mapcar '* (mapcar '+ (getpoint "\nPick 1st point ") (getpoint "\nPick 2nd point ")) '(0.5 0.5))) I still think if you show the final result would be a good idea not just a single step some where in code. Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.