Leaderboard

I wouldn't bother with a (lisp) routine , just buy a new battery. I have HP notebook. Original battery costs 150 euro's so I thought , no way. Looked for (what I believed to be) a solid company. Turned out to be a person / company in Hong Kong , battery was only 50 euro's and lasted 6 months. So looked for another company and this time wanted to make sure I have a good and trustworthy company and.... nope when money was credited , again a Hong Kong person / company... grrrr... this time battery lasted only 3 months. So in the end bought original HP battery and now all is working as it should and hopefully this time for a couple of years. So to save yourself a lot of frustration , just go for the real deal... but that's just my opinion.

Like other posts I replied to recently so easy. 1st title block is 420x297 in layout true mm size mview done within, zoom in approx scale. Now important have the Viewports toolbar turned on. Click in viewport a number will appear in the toobar this is current scale factor. For 1:100 type 10 (thats for dwg in metres) you will see 1:100 appear. The scale factor for a dwg in metres my civil dwg's is 1000/scale factor so 1;100 = 1000/100 =10 Knowing this without tool bar open bless metric zoom view approx then type "Zoom 10xp" this will be 1:100 MM will still be a direct scale factor like 0.1xp Bricscad does not appear to have a Viewports toolbar

Using this as a base .. here you go. (defun c:foo (/ _off d o od p s x) ;; RJP » 2018-07-26 ;; Offsets a pline inside or out an places the result on layer '3' (defun _off (o d / r) (cond ((= 'list (type (setq r (vl-catch-all-apply 'vlax-invoke (list o 'offset d))))) (car r))) ) (cond ((and (not (initget "Outside Inside")) (setq p (cond ((getkword "\nOffset [Outside/Inside] <Inside>: ")) ("Inside") ) ) (setq od (cond ((getdist "\nEnter offset distance: <1.5>")) (1.5) ) ) (setq s (ssget ":L" '((0 . "lwpolyline") (-4 . ">") (90 . 2)))) ) (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) (setq o (vlax-ename->vla-object e)) (setq o (mapcar '(lambda (x) (cond ((setq d (_off o (x od))) (list d (vlax-curve-getarea d))))) (list + -) ) ) (cond ((= 2 (length (setq o (vl-remove 'nil o)))) (setq o (vl-sort o '(lambda (r j) (< (last r) (last j))))) (cond ((= p "Outside") (setq o (reverse o)))) (vla-delete (caadr o)) (setq o (entget (vlax-vla-object->ename (caar o)))) ;; Put object on layer '3' (entmod (append o '((8 . "3")))) ) ((and o (mapcar 'vla-delete (mapcar 'car o))) (print "Could not determine inside or out...") ) ) ) ) ) (princ) ) (vl-load-com)