Modify lisp routine from an external to internal function

[erichter]

I would like to use the Lee Mac script "Justify Block Base Point" within my own lisp routine to change the basepoint of a block to be at the bottom left corner of its bounding box. However, it's designed as a standalone script with a UI. How can I modify this for it to be used an internal function with the variables "bln" and "jus" are inputs?

The script I am referring to is at the link below:

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

[devitg]

@erichter You should ask  LEE-MAC. the author 

[diagodose2009]

This program, contains too many function/s inside. 

For that reason, you must transform the JustifyBasePointV1-1.lsp to   JustifyBasePointV1-1.zip.for more editable features., you need program features inside.

You transpile the JustifyBasePointV1-1.lsp to  pp_vengatcolor.zip 

[Sea-Haven]

1st suggestion is contact Lee and ask.

What does this do for you, compare origin with your lower left. Not really tested much. Just use bounding box on block. May need Attsync after running.

(defun whoknows ( / obj bname pointmin pointmax x y blks blk)
(setq obj (vlax-ename->vla-object (car (entsel "pick object "))))
(setq bname (vla-get-effectivename obj))
(vla-GetBoundingBox obj 'minpoint 'maxpoint)
(setq pointmin (vlax-safearray->list minpoint))
(setq pointmax (vlax-safearray->list maxpoint))
(setq inspt (vlax-get Obj 'insertionPoint))
(setq x (- (car pointmin)(car inspt) )
Y (- (cadr pointmin)(cadr inspt) )
)
(setq blks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for blk blks
(if (= (vla-get-name blk) bname)
(vla-put-origin blk (list X Y 0.0) )
)
)
(princ)
)
(whoknows)