Code Red > AutoLISP (Vanilla / Visual)

QuikPlot

(1/2) > >>

rugaroo:
Hey guys...need some real quick help here...user enters the first view that he wants to plot, then the ending number. from there it goes on and plots all of the view in between. you will notice that I have a few things near the end that are weird... (SMARTPLOT is the reason for that.) Each time I try to run it, I get bad argument type: (or stringp symbolp): nil...I am sorry for the stupid question...but never stupid unless its not asked. :)


--- Code: ---(DEFUN c:quikplot ()
  (SETVAR cmdecho "0")
  (SETQ view (GETINT "\n\nWhat is the starting view to plot: ")
end  (GETINT "\n\nWhat is the ending view to plot: ")
  )
  (SETQ diff (- view end))
  (WHILE
    (<= view end)
     (STRCAT "\n\nPlotting file.")
     (REPEAT diff
       (COMMAND ".plot"    "y"  "" ""    ""    ""  "" ""
""    (strcat (rtos view))  ""  "" ""    ""    ""  "" ""
""    ""    ""  "" ""    ""    "review" "laser"
""
      )
       (SETQ view (1+ view))
     )
  )
  (setvar cmdecho "1")
  (PRINC)
)
--- End code ---


Rug

rugaroo:
Well...I have this now...what a difference...but it only plots my first view.


--- Code: ---(DEFUN c:pltfile ()
  (WHILE
    (SETQ view   (GETINT "\n\nWhat is the starting view to plot: ")
 end   (GETINT "\n\nWhat is the ending view to plot: ")
 diff   (1+ (- end view))
 pltviews (COMMAND ".-plot" "yes"    ""       ""
   ""     "Inches" ""       ""
   "view"   view     "1:1"    "Center"
   "yes"    ""      "yes"    "no"
   "no"     "no"     "n"      "n"
   "y"     ""      "Default"
   "Billable"      "review" "Laser"
   "y"
  )
    )
     (SETVAR cmdecho "0")
     (PRINC "\n\nPlotting file.")
     (REPEAT (EVAL diff)
       pltviews
       (SETQ view (1+ view))
     )
     (PRINC "\nPlotting finished.")
     (SETVAR cmdecho "1")
  )
  (PRINC)
)
--- End code ---


Rug

rugaroo:
Well, I tried working this our other ways, but I am still unable to have it continue onto the next view....I have also tried removing the while, and eval's but still just prints the first view in the sequence...Any ideas would help.

Bill::Meat4Brains:
there was a discussion about his over at vbdesign quite a while ago.  I will see if I can find a link.

Are these views that you are plotting on different ps tabs?

make the next view the current view first?

rugaroo:
These are all views on the same tab....I have to keep all of my sheets on one tab for our survey department which uses R14/SDSK8 still....so when I have 60 houses to plot out, i want to be able to plot my prelims out asap. I all ready created a prog to help me with my view creation, just need the plotting part.

Rug

Navigation

[0] Message Index

[#] Next page