CADForums.net

T.Willey · Guest

Sorry. After you get that value (it is a variant) you need to change it to a safearray so that you can get the rubberband line when you pick your distance so you could then do

(setq MtPt1 (tmw:Var->Safe MtPt1))

Hope that is clear. If not, tell me what isn't and I will try and explain.

Tim

T.Willey · Guest

Here you go. This is easier then me trying to tell you.

Tim

* watch for word wrap

(defun c:Dt2Mt (/ ActDoc ss TxtList TxtLine CurSpace MtPt1 MtDist othm)

(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(vla-StartUndoMark ActDoc)
(setq othm (vla-GetVariable ActDoc "orthomode"))
(vla-SetVariable ActDoc "orthomode" 1)
(if (setq ss (ssget '((0 . "TEXT"))))
(progn
(setq TxtList (tmw:ss->Objlist ss))
(setq TxtList
(vl-sort
TxtList
'(lambda (a b)
(>
(cadr (tmw:Var->Safe (vla-get-InsertionPoint a)))
(cadr (tmw:Var->Safe (vla-get-InsertionPoint b)))
)
)
)
)
(setq MtPt1 (tmw:Var->Safe (vla-get-InsertionPoint (car TxtList)))) ;<- added this line
(foreach item TxtList
(if TxtLine
(setq TxtLine (strcat TxtLine " " (vla-get-TextString item)))
(setq TxtLine (vla-get-TextString item))
)
(vla-Delete item)
)
(setq CurSpace (GetCurrentSpace ActDoc))
; (setq MtPt1 (getpoint "\n Select starting point: ")) <- took out this line
(setq MtDist (getdist MtPt1 "\n Select width of Mtext: "))
(if MtDist
(vla-AddMText CurSpace (vlax-3d-point MtPt1) MtDist TxtLine)
)
)
)
(vla-SetVariable ActDoc "orthomode" othm)
(vla-EndUndoMark ActDoc)
(princ)
)

Jason Piercey · Guest

Hi Tim,

Perhaps I am not seeing something here but
doesn't this code accomplish the same thing?

(defun activeSpaceObject (document)
(vla-get-block
(vla-get-activelayout document)) )

--
Autodesk Discussion Group Facilitator

"T.Willey" <nospam@address.withheld> wrote in message
news:10631117.1104773047025.JavaMail.jive@jiveforum2.autodesk.com...

T.Willey · Guest

It appears so. Thanks Jason. It is always nice to learn the shorter ways to things.

Tim

GaryDF · Guest

Thanks

Here is my final version...

Gary

GaryDF · Guest

Thanks

I'm learning more every day........

Gary

"wkiernan" <nospam@address.withheld> wrote in message
news:8003998.1104775380772.JavaMail.jive@jiveforum1.autodesk.com...

Jason Piercey · Guest

You're welcome. I will also be revising my
toolbox function to use this method rather
than the way I was doing things.

--
Autodesk Discussion Group Facilitator

"T.Willey" <nospam@address.withheld> wrote in message
news:22862305.1104781799794.JavaMail.jive@jiveforum2.autodesk.com...

T.Willey · Guest

Glad you got it to work the way you wanted it to.

Tim

Josh Limas · Guest

Hi Gary,

I thought this is a great routine, only I'm getting this message after selecting the
text ; error: An error has occurred inside the *error* functiontoo many arguments,
can you tell me why? Thanks.

Josh

GaryDF wrote:

GaryDF · Guest

Need this function:

;;;by: Peter Jamtgaard 2003
;;;usage (ARCH:MTLS 0.825)
(defun ARCH:MTLS (spght / sset factor cnt)
(setq SSET (ssget "x" (list (cons 0 "MTEXT")))
CNT 0)
(repeat (sslength SSET)
(vla-put-LineSpacingFactor
(vlax-ename->vla-object (ssname SSET CNT))
spght)
(setq CNT (1+ CNT)))
(princ))

Gary

"Josh Limas" <josh.limas@ggarch.com> wrote in message
news:41E2D4BA.883441D@ggarch.com...

Kent Cooper, AIA · Guest

Does Express Tools' "Convert Text to Mtext" not do what you want? Or does
this do it in some way that's different or better? If not, the Express Tool
should get you away from the error message.

[ By the way, there's no such entity type as "Dtext" -- that's just a
different means of putting in Text, in a Dynamic way to make it easier to
see what you're getting as you type it in. But the things you want to
convert to Mtext are not Dtext, they're Text, as you can see from the
(ssget) item in the code.]
--
Kent Cooper, AIA

"Josh Limas" wrote...

	CADForums.net Forum Index -> Customization	All times are GMT Goto page Previous 1, 2
Page 2 of 2