Tomislav Posted October 24, 2014 Posted October 24, 2014 Hello, i need help with following line (setq intersection(vlax-invoke-method vla_obj_first.IntersectWith(vla_obj_second, acExtendOtherEntity))) i keep getting 'no function definition: VLA_OBJ_SECOND'... of course i have converted two selected lines in vla objects; vla_obj_first and second, before calling that line... thanx Quote
hmsilva Posted October 24, 2014 Posted October 24, 2014 Try (setq intersection (vlax-invoke-method vla_obj_first 'IntersectWith vla_obj_second acExtendOtherEntity)) Henrique Quote
Tomislav Posted October 24, 2014 Author Posted October 24, 2014 that seems to work, but i added this (setq intersection (vlax-safearray->list (vlax-invoke-method vla_obj_first 'IntersectWith vla_obj_second acExtendOtherEntity))) (princ intersection) to list that point, but i get 'bad argument type: safearrayp #' how to list it? Quote
hmsilva Posted October 24, 2014 Posted October 24, 2014 (princ (vlax-safearray->list (vlax-variant-value intersection))) EDIT: Tomislav, using, (setq intersection (vlax-invoke vla_obj_first 'IntersectWith vla_obj_second acExtendOtherEntity)) will return a normal point list or nil if no intersection found... Henrique Quote
Tomislav Posted October 24, 2014 Author Posted October 24, 2014 I FOUND IT (setq intersection (vlax-safearray->list(vlax-variant-value (vlax-invoke-method vla_obj_first 'IntersectWith vla_obj_second acExtendOtherEntity)))) (princ intersection) THNX for help Henrique Quote
Tomislav Posted October 24, 2014 Author Posted October 24, 2014 posted in same time as you so haven't saw your answer and it's great...i didn't know you can shorten it like that...many thanks Quote
hmsilva Posted October 24, 2014 Posted October 24, 2014 You're welcome, Tomislav Glad you got a solution. Henrique 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.