(vlax-invoke (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (setq pt (vlax-curve-getpointatdist obj dis)) (alert "Pline length is less then summary distance") check if pline length is not less than the cumulative distance (setq leng (vlax-curve-getdistatpoint obj (vlax-curve-getendpoint obj))) (setq obj (vlax-ename->vla-object (car (entsel "\n > Select profile >")))) build master list of the distances, starting from 0.0 - important! (defun C:test(/ ang cumm_dist dis dist_list leng obj pt) If you wan't to insert blocks as show on picture
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |