LEE-MAC's BlockName lisp

[Dadgad]

I am trying to figure out why when using Lee's brilliant BN lisp, the CURRENT justification style which I prefer (MC) is not honored.  I have set both my current TEXTSTYLE and MTEXT Styles to how I would like text inserted in Paperspace, guessing it would come from there, but it seems to default to Top Left or Top Right justification instead?  I took a look at the lisp,       but was unable to figure it out?

Thanks Lee, as always, for all your wonderful productivity enhancing tools,

both from yours truly, and the Global Cad Community.

 

For any unfamiliar with LeeMac?  Check him out,

you'll be glad you did...Lee Rules.    

BN.lsp

[mhupp]

(cons 7 (getvar 'TEXTSTYLE))

 

This is only pulling the current text style "name". Don't really know how to pull the justification of the current text style but you need to add (con 71 #)  1-9

 

more here.

http://docs.autodesk.com/ACD/2011/ENU/filesDXF/WS1a9193826455f5ff18cb41610ec0a2e719-79f8.htm

 

Edited August 21, 2023 by mhupp

[exceed]

(defun c:bn ( / e p xtext ) (vl-load-com)
  (if
    (and
      (setq e (ssget '((0 . "INSERT"))))
      (setq e (vlax-ename->vla-object (ssname e 0)))
      (setq p (getpoint "\n Specify Point for Text: "))
    )
    (progn
      (setq xtext (entmakex (list (cons 0 "TEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbText") (cons 10 (trans p 1 2)) 
                                (cons 1 (vlax-get-property e (if (vlax-property-available-p e 'effectivename) 'effectivename 'name)))
                                (cons 50 (getvar 'VIEWTWIST)) (cons 41 1) (cons 51 0) (cons 71 0) (cons 72 1) (cons 11 (trans p 1 2))
                                (cons 100 "AcDbText") (cons 73 2))
                )
      )
    )
  )
  (princ)
)

how about like this ?

Edited August 21, 2023 by exceed

[Dadgad]

Thanks very much for responding, and trying to help me.

I am not a member of The Lisperati,

but I often look at them, wanting to

better understand them.

When I was at UC Berkeley in 1970 I took

a beginner Computer course...the whole

campus probably had half a percent of

the fire power of a contemporary I Phone!

Realistically, probably less.  LOL  

I was intrigued by my efforts to come up

with logical progressions, for programmatic problem solving,

but never pursued it.

 

I use Key Stroke recorded Action Macros like a maniac,

and I love that functionality, which I suspect is under utilized

by others like myself in Autocad, right click menu.

 

The one which @exceed posted acts like it is going to work,

but then when I select the location for the MTEXT or TEXT object nothing shows up in Paperspace. 

Edited August 21, 2023 by Dadgad
backstory added

[BIGAL]

Read Mhupp again then exceed again 70 ????

[Dadgad]

Wherever and whenever you go?

There you are.  ...or should I say were?