Printable View
Hello... Everyone.
I was given a polyline of irregular shape, and It was required to draw a rectangle by taking portion of the polyline's edge conjugating it so that it becomes Rectangle's edge.
send me VBA code concepts if you can.. how to conjugate the polyline with the rectangle.
Thank you.
Attachment 108440
Dont have in vba code but take red "U" get 1st and 3rd pt find 1/2 way then just use "BPOLY" all done.
yes this is lisp but shows how, if the red sub-base is on a layer then all could be done in one go using a selection set.
Code:(setq plent (entsel "\npick base"))
(if plent (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent))))))
(setq pt (mapcar '/ (mapcar '+ (nth 0 co-ord) (nth 2 co-ord)) '(2 2 2)))
(command "bpoly" pt "")