(defun c:tt( / pt1 pt2 mp an1 mode dypnt mp dist pnt1 pnt2 pnt3 pnt4)   (vl-load-com)  ( vl-cmdf "stretch" "C" )        ( while ( > ( getvar 'CmdActive ) 0 ) ( command pause )  )  (setq bent (ssget "P"))  ;The insertion point coordinate origin   (setq bpoint '(0 0 0) )  ;Here, as long as the hours minutes and seconds better improvement     (setq bname (substr (rtos (getvar 'cdate) 2 8) 10 8))  (command "-block" bname bpoint bent "" )  (command "-insert" bname bpoint "" "" "" ))

lijinsong2014-12-07 07:53:43

How about explaining the purpose behind the code you are posting.

Thank you for your attention to my post, my idea is to become piece later with the original reinforced distinguish. Easy to modify. If mixed together will be very difficult to identify the various reinforced.

That explanation is basically garbage.  I won't be using any of the lisp routines you've posted.

It seems you are a school, the demands of practical work to solve the problem,  but not to how complex.

Maybe you should ask a friend with a better command of the English language translate your posts for you.  They don't make much sense.It would be helpful if you explained what your lisp routine is supposed
to do and give a real world example of the routine in use.  A video
demonstration of the routine in action would be best.
John Connor2014-12-08 12:04:41