Leaderboard

Think of fill as use solid hatch maybe, you would normally have this as a block based on center point.

You seem to have ignored my suggestion.

This code means that pt1 and pt2 should be 'nil' at the beginning of each polyline process

I disabled the line '(command "_.chprop" pline "" "_lw" "10.00" "")' it only needs to be executed once. Place it before 'foreach'

The second point will be encountered in another iteration of the foreach loop; you should construct a list of the points encountered within the foreach loop and then access the first & second elements of the list using car & cadr, outside of the foreach loop.

If you can copy the co-ordinates in some way then you can say use Notepad to make it into a mini script and copy and paste t the command line. Insert "Tr1" "x,y" 1 1 0 repeat as required then copy to command line. Ps can use Excel as well and copy and paste easier to copy values in a column.

Like I said this creates a viewport outline in model space. for each view port on the tab its run on. so to do what you are asking run VP2M resize the viewport then use @Steven P's lisp or zoom window command. VP2M.lsp

Here you go. (defun c:Test (/ int sel ent get) ;;--------------------------------------------;; ;; Author : Tharwat Al Choufi ;; ;; ;; ;; www.AutolispPrograms.WordPress.com ;; ;;--------------------------------------------;; (and (or (tblsearch "STYLE" "iso") (entmake '((0 . "STYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "iso") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 100.) (3 . "isocp.shx") (4 . "") ) ) ) (or (setq int -1 sel (ssget "_X" '((0 . "TEXT,MTEXT")))) (alert "No texts found in this drawing.!") ) (while (setq int (1+ int) ent (ssname sel int)) (and (setq get (entget ent)) (entmod (subst '(7 . "iso") (assoc 7 get) get)) ) ) ) (princ) )

As I work metric not a problem. 1:100 etc I have tried to add the " but the dcl very much rejects the double quote. Ok I remembered what I did you use dbl single quotes ' '. Ok a hidden hint you can use the full string "6'' = 1'-0''" in your cond or the variable BUT contains the button number selected makes the cond ((= but 1)(dosomething)) a simpler way of setting in this case the scale. (ah:butts but "V" (list "Choose a number" "6'' = 1'-0''" "3'' = 1'-0''" ..........))