Editable for lisp - field lisp - link between text or mtext

[muhamed_ragab92]

i want to modify in that lisp to remove layout options and make the selection from model only , thanks

[hak_vz]

For a start replace this

(setq llst (cons "Model" (layoutlist)))   

with

(setq llst '("Model"))   

[pbejse]

---

@muhamed_ragab92 wrote:

i want to modify in that lisp to remove layout options and make the selection from model only , thanks

---

Remove this line or comment it out.

(setvar 'ctab (tab))
or
;(setvar 'ctab (tab))

It actually defeats the whole purpose of the routine IMO

or even this, if you happen to be on paper space.

(setvar 'ctab "Model")

[ronjonp]

Maybe this? 

(defun c:constructfield	(/ enam elst objid fldexp enm2)
  (vl-load-com)
  (while (null (setq enam (car (nentsel "\nSelect TEXT/MTEXT/ATTRIBUTE: "))))
    (princ "Nothing Selected")
  )
  (cond
    ((and (setq elst (entget enam))
	  (setq elst (member (cdr (assoc 0 elst)) '("ATTRIB" "TEXT" "MTEXT")))
	  (setq objid (vla-get-objectid (vlax-ename->vla-object enam)))
	  (setq fldexp (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa objid) ">%).TextString>%"))
	  ;;(setvar "cmdecho" 0)
	  ;;(setvar 'ctab (tab))
	  (setq enm2 (car (nentsel "\nSelect String: ")))
	  (setq enam (member (cdr (assoc 0 (entget enm2))) '("ATTRIB" "TEXT" "MTEXT")))
	  (not (vla-put-textstring (vlax-ename->vla-object enm2) fldexp))
	  ;;(setvar "cmdecho" 1)
	  (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
     )
    )
  )
  (vl-some '(lambda (j)
	      (if (null (eval (car j)))
		(princ (cadr j))
	      )
	    )
	   '((elst "\nSelected Entity is Not valid for Field value.")
	     (enm2 "\nNothing Selected")
	     (enam "\nSelected Entity is Not valid for Field value.")
	    )
  )
  (princ)
)