Leaderboard

If you can solve the equation (70 * tan(a)) + (270 * cos(a)) = 285, you will be half way there!

Post a sample drawing. The only thing I can think of is your hatch is not associative.

Try this quickie: (defun c:foo (/ h s) ;; RJP » 2020-08-11 ;; Match hatch to associative boundary layer (if (setq s (ssget "_X")) (foreach x (mapcar 'cadr (ssnamex s)) (and (setq h (cdr (assoc 330 (entget x)))) (= "HATCH" (cdr (assoc 0 (entget h)))) (entmod (append (entget h) (list (assoc 8 (entget x))))) ) ) ) (princ) )

I approached it somewhat like SLW210, but without using the Rotate command.. Pretty much nailed it right out of the gate, save for the fact that the intersection snap between the 285 radius circle which I had drawn and the 215 offset line was off very slightly when I really zoomed in close. I drew a circle of radius 285 from the lower left corner and then found the intersection point of that circle with an offset line of 215 from the left end. Afterr creating that line I offset it by 270, but the corner did not fall on that suggested or mandated 155 offset line from the top, I took that to be a mistake in the dimensions supplied by your coworker. It is pretty late in my zipcode, I will probably revisit this on the morrow. I do enjoy a good puzzle though.

I'll try to post the solution image later. I drew the 440x685 rectangle, then used circles and made a rectangle 270x500 and rotated to the shown points.

For the second option did you do a selection 1st ? Can try a lisp defun in a autoload so ^c^cobj2blk (defun c:obj2blk ( ) (ssget) (command "copybase" (getpoint "\nPick point") "p" "" "_ERASE" "p" "" "_pasteblock" (getpoint (getvar 'lastpoint) "\nPick point")) ) or ^c^c(load "obj2blk") a 2 line lisp. (ssget) (command "copybase" (getpoint "\nPick point") "p" "" "_ERASE" "p" "" "_pasteblock" (getpoint (getvar 'lastpoint) "\nPick point")

Sometime the brain thinks you type something when you really dont ... so ill go with T*****t Thanks Again G yoeJ