Topic: blocks then text

[CADEC70]

I inserted a block..what I wanted to do is put the name of the block by just clicking the 'block'. Say I created a chair block, then inserted it on a drawing, then I want to put the label on it, by just simply clicking on the chair.
AND
 
Can it be on MTEXT?
is it possible to make the justification on 'middle centre'
and automatically rotate on 90 if the block is rotated
Thanks in advance

[TimSpangler]

Constant attribute?

[mjfarrell]

One could use a field, and select OBJECT> then pick the chair block>the select the block name.

[adalea03]

Try code below.

Code: [Select]

;Places block name as text object; text is scaled to match dimension text
(defun c:bnn  (/ bname mynv-lst)
  (setq mynv-lst (mapcar '(lambda (x) (list x (getvar x)))
    '("clayer" "dimscale" "cmdecho" "osmode" "orthomode")))
  (setvar "cmdecho" 0) (setvar "osmode" 0) (setvar "orthomode" 0)
  (setq bname (vlax-get-property (vlax-ename->vla-object
    (car (entsel "\nSelect block to label:"))) "name"))
;;;  (setq bname (substr  1 (- (strlen bn) 2)))
  (command "mtext" (getpoint "\nSelect point for block name:")
           "h" (* (getvar "dimtxt") (getvar "dimscale"))
           "j" "mc" "w" 0 bname "")
  (command "move" (entlast) "" (getvar "lastpoint") "\\")
  (mapcar '(lambda (x) (setvar (car x) (cadr x))) mynv-lst)
  (princ)
  )


[CADEC70]

Thanks!
Can I have another request,..is it possible to set the mtext width automatically after adding the text?

Thanks in advance

[adalea03]

Did you try to edit the previous code?
Try to change the zero (after the "w") in the mtext command.
Also, the code should have had a (vl-load-com) statement near the begining.

Tony

[adalea03]

Code: [Select]

;Places block name as text object; text is scaled to match dimension text
(defun c:bnn  (/ bname mynv-lst)
  (vl-load-com) ;added
  (setq mynv-lst (mapcar '(lambda (x) (list x (getvar x)))
    '("clayer" "dimscale" "cmdecho" "osmode" "orthomode")))
  (setvar "cmdecho" 0) (setvar "osmode" 0) (setvar "orthomode" 0)
  (setq bname (vlax-get-property (vlax-ename->vla-object
    (car (entsel "\nSelect block to label:"))) "name"))
;;; I use the next line of code to strip a 2 character suffix from our block names
;;; I have commented it here so that it doesn't strip 2 characters
;;;  (setq bname (substr  1 (- (strlen bn) 2)))
  (command "mtext" (getpoint "\nSelect point for block name:")
;;; the next line scales the mtext height to match dimension text
           "h" (* (getvar "dimtxt") (getvar "dimscale"))
           "j" "mc"
;;; the next line sets the width, change the zero to your liking
           "w" 0
           bname "")
;;; I use the next line to tweak the placement of the label
  (command "move" (entlast) "" (getvar "lastpoint") "\\")
  (mapcar '(lambda (x) (setvar (car x) (cadr x))) mynv-lst)
  (princ)
  )
Oops. Forgot to add the code to last post.
Tony

[CADEC70]

Sorry I'm not really a lisp guy...
so

is it possible to set the mtext width automatically after adding the text?
I try to use the above lisp code, but you can't set the 'mtext width'

Thanks in advance

[adalea03]

Each of the commands below will create mtext objects with different widths.
Copy and paste each one to the command line (press the enter key after each paste).
When done , select all the new text objects and observe the different widths.

Code: [Select]

(command "mtext" (getpoint "\nSelect point for block name:")
           "h" (* (getvar "dimtxt") (getvar "dimscale"))
           "j" "mc"
           "w" 12
           "my block name" "")
(command "mtext" (getpoint "\nSelect point for block name:")
           "h" (* (getvar "dimtxt") (getvar "dimscale"))
           "j" "mc"
           "w" 22
           "my block name" "")
(command "mtext" (getpoint "\nSelect point for block name:")
           "h" (* (getvar "dimtxt") (getvar "dimscale"))
           "j" "mc"
           "w" 44
           "my block name" "")
(command "mtext" (getpoint "\nSelect point for block name:")
           "h" (* (getvar "dimtxt") (getvar "dimscale"))
           "j" "mc"
           "w" 88
           "my block name" "")


If I have misunderstood your request, I may only be confusing the issue.
Hopefully, I don't lead you too far astray before a real "Swamper' pipes in.