« Reply #1 on: October 08, 2016, 07:15:56 AM »
Solved (not for multiline atts):
(defun PZ:AttBox
( ent off
/ enx rot bpt lst
) )
lst (TextBoxExt enx T)
lst
)
)
(
'(0.0 0.0 1.0)
)
)
)
lst
)
)
)
)
)
;; Matrix x Vector - Vladimir Nesterovsky
;; Args: m - nxn matrix, v - vector in R^n
)
; =========================================================================================== ;
; enx [LIST] - An entity definition list defining a text object, ;
; in the format returned by entget ;
; flg [T/nil] - nil = standard textbox function procedure ;
; (ignore spaces at start and end of string) ;
; T = extended textbox function ;
; (do not ignore spaces at start and end of string) ;
; =========================================================================================== ;
(defun TextBoxExt
( enx flg
/ textboxs
) (defun textboxs
( enx str
) )
(
(textboxs enx "--")
)
)
)
As always thanks to
Lee Mac
« Last Edit: October 08, 2016, 07:24:56 AM by ziele-o2k »
Logged