Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 03/06/2019 in all areas

  1. Actually its pretty easy with the remainder function. I'm a metric-only guy (in our country we don't use imperial) so that guide helped alot, Heres some generic solution - ;| _$ (INCHES->FEETNINCHES 56) >> (4 FT 8) _$ (INCHES->FEETNINCHES 55) >> (4 FT 7) _$ (INCHES->FEETNINCHES 56.375) >> (4 FT 8.375) _$ (INCHES->FEETNINCHES 56.125) >> (4 FT 8.125) |; (defun Inches->FeetnInches ( i / feet ) (if (numberp i) (list (setq feet (fix (/ i 12))) 'ft (if (zerop feet) i (rem i (* feet 12))) ) ) ) (defun C:test ( / e o r ) (and (setq e (car (entsel "\nPick Text: "))) (vlax-property-available-p (setq o (vlax-ename->vla-object e)) 'TextString) (numberp (setq r (read (vl-list->string (vl-remove 34 (vl-string->list (vlax-get o 'TextString))))))) (setq r (Inches->FeetnInches r)) (vlax-put o 'TextString (apply ''((a b c) (strcat (vl-prin1-to-string a) "'-" (vl-prin1-to-string c) "\"")) r) ) ) (princ) )
    1 point
  2. Lala257 I could write the whole thing for you, but I won't . Draw a line from the bottom left hand corner of the last viewport up to the top right hand corner, then select that line and open the properties pallete, in the geometry section it will tell you the start X and start Y of the line, and the end X and end Y, those are the numbers that you need to use. If you get stuk just post back I'll gladly help.
    1 point
  3. Seeing as you use LT, then LISP is not an option, you can plot to a printer or directly to PDF using a script, but to create a script that does it would take longer than changing your layouts as StykFacE suggested. And if there is a program that does it then you would have to make sure all your viewports are exactly where you think they are, because it would use coordinates. Again before you have it all working would take a long time.
    0 points
×
×
  • Create New...