Topic: Copy text from model to layout

[civil.eng]

Hello everyone,
I have had a method for copy an object in model space :

(setq newtxtobj (vla-copy txtobj))
(setq bp_txtobj (vlax-get txtobj 'InsertionPoint))
(vla-move newtxtobj(vlax-3d-point bp_owner) (vlax-3d-point pt_owner))

It's been working fine so far , with a project I have to copy a text from model to layout, but the copy of the text is created on the model after using this code while I intend to create it on "Layout1" (although I'm using CTAB to make current the layout) :

Code: [Select]

(setq obj (vlax-ename->vla-object (car (entsel))))

  (setq newobj (vla-copy obj))
  (setq bp (vlax-get obj 'InsertionPoint))

  (setvar "ctab" "Layout1")
  (setq pt (getpoint))
  (vla-move newobj
    (vlax-3d-point bp)
    (vlax-3d-point pt)
  )

Could someone tell me what the problem is with the codes ?

Thanks in advance.

[dexus]

You can change in which layout an object is using entmake like this:

Code - Auto/Visual Lisp: [Select]

1. (if (setq ent (entget (car (entsel "\n Select object: "))))
2.   (entmake
3.     (subst
4.       (cons 410 "LayoutName") ; Target layout name
5.       (assoc 410 ent)
6.       ent
7.     )
8.   )
9. )

You might also want to have a look at this:
http://www.lee-mac.com/ms2ps.html

[civil.eng]

Thank you for your respond,
Is it also possible to modify insertion point of the text with this method ? (within entmake)

[dexus]

Sure, you can modify almost all dxf codes by stacking subst functions:

Code - Auto/Visual Lisp: [Select]

1. (if
2.   (and
3.     (setq ent (entget (car (entsel "\n Select object: "))))
4.     (member (cdr (assoc 0 ent)) '("TEXT" "MTEXT"))
5.   )
6.   (entmake
7.     (subst
8.       (cons 410 "LayoutName") ; Target layout name
9.       (assoc 410 ent)
10.       (subst
11.         (cons 10 '(10 10 0)) ; InsertionPoint of text
12.         (assoc 10 ent)
13.         ent
14.       )
15.     )
16.    )
17. )

Edit:
You might find this easier to read. Does the same as above.

Code - Auto/Visual Lisp: [Select]

1. (if
2.   (and
3.     (setq ent (entget (car (entsel "\n Select object: "))))
4.     (member (cdr (assoc 0 ent)) '("TEXT" "MTEXT"))
5.   )
6.   (progn
7.     (setq newent (subst (cons 10 '(10 10 0)) (assoc 10 ent) ent)) ; InsertionPoint of text
8.     (setq newent (subst (cons 410 "LayoutName") (assoc 410 newent) newent)) ; Target layout name
9.     (entmake newent)
10.   )
11. )

[mhupp]

Can't beat the goat

http://www.lee-mac.com/ms2ps.html

[BIGAL]

Just a guess copy text in model back on its self then use "Chspace" and (entlast). So will work for current layout.

Code: [Select]

(defun c:chsptxt ( / ent)
(command "mspace")
(setq ent (car (entsel "\n Select txt ")))
(command "chspace" (entlast) "")
(princ)
)


[civil.eng]

Just a guess copy text in model back on its self then use "Chspace" and (entlast). So will work for current layout.

Code: [Select]

(defun c:chsptxt ( / ent)
(command "mspace")
(setq ent (car (entsel "\n Select txt ")))
(command "chspace" (entlast) "")
(princ)
)


Thank you all guys, my problem has been resolved with your helps and rsponds.