Leaderboard
Popular Content
Showing content with the highest reputation on 10/03/2024 in all areas
-
623 downloads
Apollonius problem : (PPP, LPP, LLP, LLL, CPP, CLP, CLL, CCP, CCL, CCC) P - point L - line C - circle Routine finds all CIRCLES that touches or passes (point) as tangent curves to combination of (C - circle; L - line; P - point) Relevant page on Wikipedia : https://en.wikipedia.org/wiki/Problem_of_Apollonius And my video demonstrating my routine : https://youtu.be/cuo4M9UGZmA Number of circles demonstrated in video corresponds to Wikipedia table at the end of page... Regards, Marko Ribar, d.i.a. (architect)1 point -
I think I understand what you mean, but I think it's not a problem, because in my imagination I thought of using this command to replace object type with the same object type, even if I just tried it and I see that it works with different objects, moreover it also has the possibility to replace a series of objects after selecting the one to use as "master". At first glance it seems exactly what I needed and I think I will definitely add it to my favorite lisps! Thank you!1 point
-
This should change all block definitions to scale uniformly. (defun c:foo nil (vlax-for b (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (and (= 0 (vlax-get b 'isxref) (vlax-get b 'islayout)) (vl-catch-all-apply 'vla-put-blockscaling (list b acuniform)) ) ) (princ) )1 point