scale text at insertion point/grips

Hi Randy,

On an individual basis you can scale TEXT and MTEXT by selecting a grip point (to make it hot), and then either hitting the space bar or typing in sc to get to the scale option. You can retrieve the bounding box of text in LISP/VBA (textbox / GetBoundingBox), which you could use to establish the same grip point for scaling all your text.

This will routine will scale Text and MTEXT about its insertion point. Note this applies a scale factor, not an absolute height. You could use this as a starting point for what you want to do.

[code]; SCALE TEXT
; will scale TEXT and MTEXT objects about their insertion points
; by the given scale factor
;
; CAD Concepts Ltd.
; http://www.cadconcepts.co.nz


(defun C:SCALETEXT ( / CCL:SCALETXT sset scalefactor num ent)
; Scale a text object about its insertion point
; requires entityname and scalefactor
(defun CCL:SCALETXT (ent scalefactor / obj objip)
 (setq obj (vlax-ename->vla-object ent)) ; retrieve the text object
 (setq objip (vla-get-InsertionPoint obj)) ; find its insertion point
 (vla-ScaleEntity obj objip scalefactor) ; scale the text about its insertion point
); end DEFUN CCL:SCALETXT

; Main program
;------------------------------------------------------------------------------
     (princ "\nSelect TEXT and MTEXT to Scale") ; Provide prompt
    (setq sset (ssget '((-4 . "")))) ; Allow selection of only TEXT and MTEXT objects
        (if (= (type sset) 'PICKSET) ; if user has made a valid selection
            (progn ;THEN
                (setq scalefactor (getdist "\nEnter Scale Factor: ")) ; ask for a scale factor
                (if (= (type scalefactor) 'REAL) ; if user has made a valid entry
                    (progn ; THEN scale the selected text objects
                        (setq num 0) ; initialise counter
                        (repeat (sslength sset) ; repeat for each object in our selection set
                                (setq ent (ssname sset num)) ; retrieve the entity name
                                (CCL:SCALETXT ent scalefactor) ; scale object by given scale factor
                                (setq num (1+ num)) ; Iterate counter to next object in selection set
                        ) ; end repeat
                    ); end progn
                    (princ "\nValid scale factor not given")
                ); end if
            ); end progn
            (princ "\nNo TEXT or MTEXT selected")
        ); end if
(prin1); make a quiet exit           
); end DEFUN C:SCALETEXT[/code]


Regards,

Jason Bourhill

CAD Concepts

Oops,
the ssget line looks broken, though...
This is probably one of the common small problems that all advanced users have their own routine to deal with, mine is as follows:
[code](prompt "
  jyg_scb.lsp - scales texts and block insertions.
  10/99 knut hohenberg, no rights reserved.
  "
)
(defun C:scb ( / selset n scale object objdat oldecho)
 (prompt "Select insertion or text objects: ")
 (setq selset (ssget '((-4 . ""))))  
 (if selset
  (progn
   (initget 2)
   (setq scale (getreal "\nEnter scale factor: "))
   (setq n 0.0)
   (command "._undo" "_g")
   (setq oldecho (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (while (setq object (ssname selset n))
    (setq objdat (entget object)
          inspnt (cdr (assoc 10 objdat))
    )
    (command "_scale" object "" (trans inspnt 0 1) scale)
    (setq n (1+ n))
   )
   (setvar "cmdecho" oldecho)
   (command "_.undo" "_end")
  )
  (prompt "Nothing appropriate selected ")
 )
 (princ)
)

(prompt "
  ...loaded. Type SCB to invoke.
"
)
(princ)[/code]

(may sound heretic, but I wished all that vlxxx stuff would have been constrained to things you couldn't do with plain old AutoLISP)

Oh no, my stupidity, of course this doesn't work: the ssget filter contains < and > characters, which are of course interpreted as html-tags.
Seems they have to be replaced manually, so this would be the correct line:
 (setq selset (ssget '((-4 . "<OR")(0 . "INSERT") (0 . "TEXT") (0 . "MTEXT") (-4 . "OR>"))))

The Pointy Bracket Problem again.

Time for a solution of sorts:

Attached is a textfile with some javascript that you can copy into the url/location field of a bookmark. Clicking on that bookmark will then "zap" all pointy brackets that you have typed, but not the hidden pointy brackets from html-code that you have pasted (doing that would also remove all line breaks).

- Only works for the BC Forum.
- Tested on IE8.0 and FF12.0.
- If IE gives a "protocol" warning when you create the bookmark, you can just click OK.
- Make sure you copy all the text from the text file. The code had to be put on a single line for IE.

My javascript skills are not that great, but it seems to work OK.

Test 1: <tag> </tag>
Test 2:
[code](vlax-ename->vla-object ename)[/code]
Test 3: <<< >>>

@Knut Hohenberg:

... but don't you think this should be fixed by Bricsys in the first place?