Leaderboard

It also depends if the color is hardcoded .. post a sample drawing.

After chasing my tail for hours, I finally opened the standard template acadiso.dwt, and found it to be metric !! I thought that template was for isometric drawings, and had never bothered with it previously

The good new is that ANY drawing can be saved using the SAVE AS option, as a .dwt (template file). You may want to go into Modelspace and delete any job specific objects. Don't PURGE it, or do so carefully, because there will be lots of settings and styles which your friend favors in place in the drawing. The next time you do something for him, use it, and it will already be tweaked just as desired. It is a good idea to create a library of .dwt files, for different tasks, vendors, etc.. No point in reinventing the wheel every time you saddle up. Later just hit the open icon and in the Files of type drop down list choose .dwt to find and access it.

If you want to delete something out of a block it could be as simple as this. (defun c:foo (/ e) (if (> (length (setq e (nentsel "\nPick something in a block: "))) 2) (progn (vl-catch-all-apply 'vla-delete (list (vlax-ename->vla-object (car e)))) (vla-regen (vla-get-ActiveDocument (vlax-get-acad-object)) 0) ) ) (princ) ) Why don't you use an XREF for this legend?

I believe you have to check your code some more. Your if statement has 3 arguments while only 2 are allowed Besides that , in your if statement you (defun SEAM ...) but never use (call) it ;Select lines (if (and (setq ss (ssget ":L" '((0 . "LINE,POLYLINE,LWPOLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE")))) (setq p (getpoint "\nTable scale depend on annotation scale.\nSpecify table insert point: ")) ) (progn (repeat (setq i (sslength ss)) (setq e (ssname ss (setq i (1- i))) a (cdr (assoc 8 (entget e))) d (vlax-curve-getdistatparam e (vlax-curve-getendparam e)) ) (if (setq o (assoc a l)) (setq l (subst (list a (+ (cadr o) d)) o l)) (setq l (cons (list a d) l)) ) ) (setq l (vl-sort l '(lambda (a b) (< (car a) (car b))))) (setq ln (nth 0 l)) ;;SEAM (TYPE & Stich Density) (defun SEAM (ln) (setq st 0) ;Pergunta por SEAM TYP.....